Inv_test/psi4_analytical/psi4-m0-a1e-06-L1-N4.txt

10675 lines
756 KiB
Plaintext
Raw Permalink Normal View History

2024-02-05 16:43:04 -05:00
(((-I)*Csc[theta]*(((-1/2*I)*r*Sin[theta]*
(1 - 7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 +
(4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/
r^3)*(-1 + 3*Sin[theta]^2))*
((-1.*^-12*((3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)/4 + 3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(1 - 3*Sin[theta]^2))^2)/
(-2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2)^2 -
(1.*^-6*(-5.*^-7*(3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(-1 + 3*Cos[2*theta]) + (3*((21*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 +
((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)/2)^2 +
(-2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2)*((3*((21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 -
(21*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 +
(9*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 -
(2*((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 -
(4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) -
480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 128*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 72*r^2*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) -
16*r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) + 12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 -
2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 16*r^3*
((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 +
8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) -
2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r)*Sin[theta]^2)/4 +
3*((3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^5 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^4 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*
(1 - 3*Sin[theta]^2))))/
(-2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2)^2))/
Sqrt[2] + ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 +
(4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/
r^3)*(-1 + 3*Sin[theta]^2))*
((5.*^-7*(7.5*^-7*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*
((3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r))/4 + 3*((3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-3 + Csc[theta]^
2)) + 3.*^-6*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(-3 + Csc[theta]^2)*
((3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r))/4 + 3*((3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-3 + Csc[theta]^
2)) - (7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-3 + Csc[theta]^2))*
((3*((-105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 +
(105*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^5 - (48*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^4 + (13*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^3 - (3*((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 -
(4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) -
480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 128*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 72*r^2*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) -
16*r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) + 12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 -
2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 16*r^3*
((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 +
8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) -
2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r))/4 + 3*((-15*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^6 + (15*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 -
(6*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*(-3 +
Csc[theta]^2))))/(7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) -
Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))^2 -
(5.*^-7*(-9.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) +
7.5*^-7*r*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r) - 2*Csc[theta]^2 + 3.*^-6*r*(-15/(E^r^2*r^2) +
(15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Csc[theta]^2 +
6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-3 + Csc[theta]^2))*
((3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*
Sin[theta]^2)/4 + 3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(1 - 3*Sin[theta]^2)))/(r*(7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) -
Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
(-2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2)) +
(5.*^-7*(-9.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) +
7.5*^-7*r*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r) - 2*Csc[theta]^2 + 3.*^-6*r*(-15/(E^r^2*r^2) +
(15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Csc[theta]^2 +
6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-3 + Csc[theta]^2))*
(-9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Cos[theta]^2*Sin[theta]^2 -
(3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) -
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2))/2))/(r*(7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) -
Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
(-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
(1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[theta] -
Cot[theta]*Csc[theta] + 3*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6.*^-6*Cos[theta] +
1.*^-6*Cot[theta]*Csc[theta])))/
(r*(7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-3 + Csc[theta]^2))*
(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2))))/Sqrt[2]))/(Sqrt[2]*r) +
(-1/2*(-3.*^-6*r*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
Cos[theta]*Sin[theta]*((1.5*^-6*Cos[theta]*Sin[theta]*
(((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2)*(1 - 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*(3*((3*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 +
((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)/4))*
(r*(2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^2) +
(15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) +
1.3499999999999999*^-11*r*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2))/
(r*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 -
3*Sin[theta]^2)))*(2 - 9.*^-12*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
(-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]*
(1.8*^-11*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2 + (1 + 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2)*(2 - 3.*^-6*r*(-15/(E^r^2*r^2) +
(15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2) -
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(4 - 3.*^-6*r*(-15/(E^r^2*r^2) +
(15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) +
6.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
Cos[2*theta] + 3.*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
7.5*^-7*r*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 +
((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2) +
6.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(Cos[2*theta] - 7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^4)))/
((-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 +
3.75*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)) + (7.5*^-7*Sin[2*theta]*
(-8.*^-6*(9.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
4 - 3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Cos[2*theta] + 3*
(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r)*(-1 + 3*Cos[2*theta])))*(-9.*^-6*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r^2)*Cos[theta]^2*Sin[theta]^2 - (3*((3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 +
3*Cos[2*theta])*(-1 + 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3) - 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2))/2) +
(3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
((21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) +
3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r^2)*Cos[2*theta])*(-8 + 3.6*^-11*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 6.*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(4 -
12*Cos[2*theta] - 3.*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 1.8*^-11*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)^2*Sin[2*theta]^2)))/
(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)^2 - (3.*^-6*Cos[theta]*Sin[theta]*
(((4.5*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*((21*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 +
((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2 +
3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*(2 - 0.000012*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3) + 2.*^-6*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2) + 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2) +
((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r^2)*(-2 + 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) - 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2 - 7.5*^-7*r*
(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + ((-624*r)/E^r^2 + (1600*r^3)/
E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 +
(4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*
(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2) + 1.*^-6*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*((-3*((21*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*
(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + ((-624*r)/E^r^2 + (1600*r^3)/
E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/
E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)/2 +
r*(3*((-15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 +
(15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^5 - (6*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^4 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3) - (3*((-105*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^6 + (105*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^5 - (48*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/
E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^4 + (13*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 -
(3*((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 +
(4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*
(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 -
(4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) -
480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*
(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 128*r^3*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
72*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 +
(4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))) - 16*r^4*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 - 2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))) + 16*r^3*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 +
8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
2)/4)))*(-4 + 1.8*^-11*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
3.*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2 + 1.5*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(4 - 12*Cos[2*theta] - 3.*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2))/2 +
1.*^-6*(-0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(1 + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2) + 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r)*Sin[theta]^2) + (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2 +
3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) - 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r)*Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + ((-624*r)/E^r^2 + (1600*r^3)/
E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^
2))*((3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*
Sin[theta]^2)/4 + 3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(-1 + 3*Cos[2*theta] - 6.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]) +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r^2)*Sin[2*theta]^2)))/
(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)^2) +
r^2*(1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2)*
((5.*^-7*(-9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*((-6*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Cos[theta]^2*Sin[theta]^2 - (3*((3*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*(-1 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3) - 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2))/2)*(r*(2 - 6.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) -
3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) +
1.3499999999999999*^-11*r*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2))/
(r^2*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 -
3*Sin[theta]^2)))*(2 - 9.*^-12*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)) -
(5.*^-7*((3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/2 +
3*Sin[theta]^2*(3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r^2)*Cos[theta]^2 + (((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 +
((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*(-1 + 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4))*
(r*(2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^2) +
(15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) +
1.3499999999999999*^-11*r*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2))/
(r^2*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 -
3*Sin[theta]^2)))*(-2 + 9.*^-12*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 +
3.75*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)) + (4.5*^-12*Cos[theta]^2*
(-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
(-0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(1 + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*(-2 + 3.*^-6*r*(-15/(E^r^2*r^2) +
(15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) -
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)))/
(r*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)) - (4.5*^-12*Cos[theta]^2*
(-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
(6.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Cos[2*theta] - ((21/(E^r^2*r) - (21*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/4 +
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^2) +
(15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)))/
(r*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)) +
(1.5*^-6*(3.*^-6*(9.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
4 - 3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Cos[2*theta] + 3*
(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r)*(-1 + 3*Cos[2*theta])))*(-3.*^-6*
((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r^2)*(2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + Cos[theta]^2*
(-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r^2)*(2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 +
3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)^2*Sin[2*theta]^2) -
(-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r^2)*(2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(1 + 3*Cos[2*theta])))*Sin[theta]^2*(-2 + 9.*^-12*
(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 +
3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)^2*Sin[2*theta]^2) +
6.*^-6*(3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) -
3*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*((-6*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2))*Cos[theta]*
Sin[theta]*Sin[2*theta]*(-2 + 9.*^-12*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 +
3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)^2*Sin[2*theta]^2)))/
(r*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
2*Sin[2*theta]^2)^2) -
(5.*^-7*r*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 -
(1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 -
3*Sin[theta]^2)))*(6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
-2 + 3*Sin[theta]^2)*(2 - 6.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) -
3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2) +
2*(-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3) - 3*r*((-15*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^6 + (15*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 -
(6*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3) +
(3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + ((-624*r)/E^r^2 + (1600*r^3)/
E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
2 + (3*r*((-105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 +
(105*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^5 - (48*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^4 + (13*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^3 - (3*((-624*r)/E^r^2 + (1600*r^3)/
E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 +
(4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*
(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 -
(4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) -
480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 128*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 72*r^2*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) -
16*r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) + 12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 -
2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 16*r^3*
((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 +
8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
2)/4)*(-1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 +
3*Sin[theta]^2)) + 0.000027*((3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
Sin[2*theta]^2 + 0.000027*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*((-6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Sin[2*theta]^
2) - (r*(2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*
(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) +
1.3499999999999999*^-11*r*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
Sin[2*theta]^2)*(3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
-2 + 3*Sin[theta]^2)*(1 - 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2) + 1.*^-6*(
3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 +
((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)/4)*(1 + 3.*^-6*
(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)) +
4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
(-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Sin[2*theta]^2))/(2*r^2*(-9.*^-12*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
2*Cos[theta]^2*Sin[theta]^2 + (1 - 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2)*(1 + 3.*^-6*
(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))^2)))/
(Sqrt[2]*r) +
(-3.*^-6*r*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
Cos[theta]*Sin[theta]*((3.*^-12*r*Cos[theta]*Sin[theta]*
(-9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Cos[theta]^2*Sin[theta]^2 -
(3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) -
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2))/2)*(((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*(3*((3*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 +
((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)/4)))/
(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)^2 + (3.*^-12*r*Cos[theta]*Sin[theta]*
(((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*(3*((3*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 +
((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)/4))*
((3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/2 +
3*Sin[theta]^2*(3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
(-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Cos[theta]^2 + (((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*(-1 + 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4)))/
((2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 +
3.75*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)) - (3.*^-6*r*Cos[theta]*Sin[theta]*
(-1/2*((((-6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^5 + (6*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^4 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^3 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2)*(-1 + 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3) - 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r)*Sin[theta]^2) - 1.*^-6*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(3*((3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^5 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^4 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r^3) - (3*((21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 -
(21*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 +
(9*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^3 - (2*((-624*r)/E^r^2 + (1600*r^3)/
E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/
E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 -
(4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) -
480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*
(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 128*r^3*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
72*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 +
(4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))) - 16*r^4*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 - 2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))) + 16*r^3*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 +
8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
2)/4))*(-4 + 1.8*^-11*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 3.*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 1.5*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(4 -
12*Cos[2*theta] - 3.*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)^2*Sin[2*theta]^2)) +
1.*^-6*(((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 +
((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)/4))*
((3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*
Sin[theta]^2)/4 + 3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
-1 + 3*Cos[2*theta] - 6.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(1 + 3*Cos[2*theta]) + 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
(-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Sin[2*theta]^2)))/
(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)^2) +
r^2*(1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 +
(4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r)*Sin[theta]^2)*
((-1.*^-12*((3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/2 +
3*Sin[theta]^2*(3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r^2)*Cos[theta]^2 + (((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 +
((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*(-1 + 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4))^2)/
(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(
21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)^2 + (4.5*^-12*Cos[theta]^2*
(-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
(((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*(3*((3*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 +
((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)/4)))/
((2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)) -
(1.*^-6*(((9.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)^2*(1 + 3*Cos[2*theta]) + 3*
((3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^5 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^4 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r^3)*(2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(1 + 3*Cos[2*theta])) + 6*Sin[theta]^2*
(3.*^-6*((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2)^2*Cos[theta]^2 + 3.*^-6*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*((-6*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 +
(6*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 -
(3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 +
((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2)*Cos[theta]^2 + 7.5*^-7*
((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 +
((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*(-2 + 3*Sin[theta]^2) +
(((21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^5 - (21*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^4 + (9*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^3 - (2*((-624*r)/E^r^2 + (1600*r^3)/
E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/
E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 -
(4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) -
480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*
(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 128*r^3*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
72*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 +
(4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))) - 16*r^4*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 - 2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))) + 16*r^3*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 +
8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*
(-1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 +
3*Sin[theta]^2)))/4))*(-2 + 9.*^-12*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 +
3.75*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)^2*Sin[2*theta]^2))/2 -
2.5*^-7*(6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])) -
(3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*
Sin[theta]^2)/2 + 9.*^-6*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
(-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Sin[2*theta]^2)*((-3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 +
((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*
Sin[theta]^2)/4 + 3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
1 - 3*Cos[2*theta] + 6.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(1 + 3*Cos[2*theta]) - 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-6*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
(-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Sin[2*theta]^2)))/
(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)^2))/(2*Sqrt[2]*r))/(Sqrt[2]*r))/2 +
((I*Csc[theta]*(((-1/2*I)*r*Sin[theta]*
(1 - 7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 +
(4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/
r^3)*(-1 + 3*Sin[theta]^2))*
((-5.*^-7*(-9.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) +
7.5*^-7*r*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r) - 2*Csc[theta]^2 + 3.*^-6*r*(-15/(E^r^2*r^2) +
(15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Csc[theta]^2 +
6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-3 + Csc[theta]^2))*
((3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*
Sin[theta]^2)/4 + 3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(1 - 3*Sin[theta]^2)))/(r*(7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) -
Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
(-2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2)) -
(1.*^-6*(-((3.*^-6*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 +
3*Cos[2*theta]) + 1.5*^-6*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)*
((3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)/4 + 3*
((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(1 - 3*Sin[theta]^2))) + (-2 + 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 +
3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2)*((3*((-105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^6 + (105*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 -
(48*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 +
(13*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 -
(3*((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 -
(4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) -
480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 128*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 72*r^2*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) -
16*r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) + 12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 -
2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 16*r^3*
((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 +
8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) -
2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r)*Sin[theta]^2)/4 +
3*((-15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 +
(15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^5 - (6*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^4 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*
(1 - 3*Sin[theta]^2))))/
(-2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2)^2 +
(5.*^-7*(-9.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) +
7.5*^-7*r*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r) - 2*Csc[theta]^2 + 3.*^-6*r*(-15/(E^r^2*r^2) +
(15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Csc[theta]^2 +
6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-3 + Csc[theta]^2))*
(-9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Cos[theta]^2*Sin[theta]^2 -
(3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) -
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2))/2))/(r*(7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) -
Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
(-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
(1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[theta] -
Cot[theta]*Csc[theta] + 3*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6.*^-6*Cos[theta] +
1.*^-6*Cot[theta]*Csc[theta])))/
(r*(7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-3 + Csc[theta]^2))*
(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2))))/Sqrt[2] +
((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 +
(4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/
r^3)*(-1 + 3*Sin[theta]^2))*
(-1/4*(-9.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) +
7.5*^-7*r*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/
E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + ((-624*r)/E^r^2 + (1600*r^3)/
E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r) - 2*Csc[theta]^2 +
3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
Csc[theta]^2 + 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))^2/
(r^2*(7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) -
Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))^
2) + (7.5*^-13*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(1 + 3*Cos[2*theta])*((3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*
Sin[theta]^2)/4 + 3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(1 - 3*Sin[theta]^2)))/(-2 + 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2) +
(1.125*^-12*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2 -
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(7.5*^-7*r^2*(630/(E^r^2*r^3) - (630*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^6 + (297*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 -
(87*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (19*(24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^3 - (4*((-624*r)/E^r^2 + (1600*r^3)/
E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 +
(-624/E^r^2 + (5472*r^2)/E^r^2 - (4096*r^4)/E^r^2 +
48*(-2/E^r^2 + (4*r^2)/E^r^2) - 480*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) + 256*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
144*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
128*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
72*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) - 16*r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 12*r^2*(8/E^r^2 -
(16*r^2)/E^r^2 - 2*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
16*r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 +
8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) -
2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r) + 4*Csc[theta]^2 -
6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-1 + 3*Cos[2*theta])*Csc[theta]^2 +
3.*^-6*r^2*(90/(E^r^2*r^3) - (90*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^6 + (39*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (9*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^4 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*
(-3 + Csc[theta]^2)) + (2.25*^-12*r^2*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)^2 + 9.000000000000001*^-12*r^2*(-15/(E^r^2*r^2) +
(15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*
(-1 + 3*Cos[2*theta])*Csc[theta]^2 + 1.8*^-11*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 9.*^-12*r^2*
(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)^2*
(1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 4*Csc[theta]^2*
(7.5*^-7*r^2*(630/(E^r^2*r^3) - (630*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^6 + (297*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 -
(87*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 +
(19*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 -
(4*((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 -
(4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) -
480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 128*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 72*r^2*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) -
16*r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) + 12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 -
2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 16*r^3*
((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 +
8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) -
2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r) + 2*Csc[theta]^2 + 3.*^-6*r^2*
(90/(E^r^2*r^3) - (90*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 +
(39*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^5 - (9*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^4 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r^3)*(-3 + Csc[theta]^2)) - 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-1 + 3*Cos[2*theta])*Csc[theta]^4*(8 + 3.*^-6*r^2*
(90/(E^r^2*r^3) - (90*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 +
(39*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^5 - (9*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^4 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*r^2*(630/(E^r^2*r^3) -
(630*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 +
(297*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^5 - (87*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^4 + (19*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^3 - (4*((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 -
(4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) -
480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 128*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 72*r^2*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) -
16*r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) + 12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 -
2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 16*r^3*
((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 +
8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) -
2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r)*Sin[theta]^2))/4)/
(2*r^2*(7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) -
Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))^
2) + (7.5*^-7*(4*r*(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 + (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) -
0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(-4 + 3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 +
3*Cos[2*theta])) + 6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-2 + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
1 + 3*Cos[2*theta]) + 1.*^-6*r*(30/(E^r^2*r^2) -
(30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(1 + 3*Cos[2*theta])))*Csc[theta]*
(1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[theta] -
Cot[theta]*Csc[theta] + 3*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6.*^-6*Cos[theta] +
1.*^-6*Cot[theta]*Csc[theta]))*Sin[2*theta])/
(r^2*(7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-3 + Csc[theta]^2))*
(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)) + (2.5*^-7*(-9.*^-6*r*(-15/(E^r^2*r^2) +
(15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) +
7.5*^-7*r*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r) - 2*Csc[theta]^2 + 3.*^-6*r*(-15/(E^r^2*r^2) +
(15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Csc[theta]^2 +
6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-3 + Csc[theta]^2))*
(-3*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + 9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2 +
9.*^-6*r*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Sin[2*theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(3*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 +
3*Cos[2*theta]) - 9*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2)))/
(r^2*(7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-3 + Csc[theta]^2))*
(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2))))/Sqrt[2]))/(Sqrt[2]*r) -
((-3.*^-6*r*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
Cos[theta]*Sin[theta]*((-3.*^-12*Cos[theta]*Sin[theta]*
(-9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Cos[theta]^2*Sin[theta]^2 -
(3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) -
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2))/2)*(-0.000018*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 +
6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(1 + 1.*^-6*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*(-2 + 3.*^-6*r*(-15/(E^r^2*r^2) +
(15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) -
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)))/
(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)^2 + (3.*^-12*Cos[theta]*Sin[theta]*
(-0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(1 + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*(-2 + 3.*^-6*r*(-15/(E^r^2*r^2) +
(15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) -
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2))*((3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/2 +
3*Sin[theta]^2*(3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
(-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Cos[theta]^2 + (((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*(-1 + 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4)))/
((2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 +
3.75*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
(-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]*
(1.8*^-11*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)^2 + (1 + 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2)*(2 - 3.*^-6*r*(-15/(E^r^2*r^2) +
(15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2) - 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(4 - 3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) +
6.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
Cos[2*theta] + 3.*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
7.5*^-7*r*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 +
((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2) + 6.*^-6*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(Cos[2*theta] -
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^4)))/((-2 + 9.*^-12*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 +
3.75*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)) + (1.5*^-12*Cos[theta]*Sin[theta]*
(((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*(3*((3*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 +
((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)/4))*
(-3*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + 9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2 +
9.*^-6*r*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Sin[2*theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(3*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 +
3*Cos[2*theta]) - 9*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2)))/
((2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)) + (7.5*^-7*Sin[2*theta]*
(-8.*^-6*(9.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
4 - 3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
2*Cos[2*theta] + 3*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-7*
(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(-1 + 3*Cos[2*theta])))*(-9.*^-6*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
(-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Cos[theta]^2*Sin[theta]^2 - (3*((3*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
(-1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 7.5*^-7*
(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r)*Sin[theta]^2))/2) +
(3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3) + ((21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) +
3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
(-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Cos[2*theta])*(-8 + 3.6*^-11*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(
1 + 3*Cos[2*theta]) - 6.*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(4 - 12*Cos[2*theta] -
3.*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
1.8*^-11*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
2*Sin[2*theta]^2)))/
(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)^2 - (3.*^-6*Cos[theta]*Sin[theta]*
(-((((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r^2)*(1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + ((-624*r)/E^r^2 + (1600*r^3)/
E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 +
(4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*
(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)/4))*(2 - 9.*^-12*
(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 +
3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)^2*Sin[2*theta]^2)) -
r*(((30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 -
(30*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^5 + (15*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^4 - (5*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^3 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2)*(1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.5*^-7*
(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) - 1.*^-6*((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(3*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) - (3*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + ((-624*r)/E^r^2 + (1600*r^3)/
E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
4) + 1.*^-6*(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 + (15*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(5*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*(
3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 +
((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)/4) +
1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
3*((-15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 +
(15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^5 - (6*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^4 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r^3) - (3*((-105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 +
(105*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^5 - (48*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^4 + (13*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^3 - (3*((-624*r)/E^r^2 + (1600*r^3)/
E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 +
(4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*
(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 -
(4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) -
480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 128*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 72*r^2*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) -
16*r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) + 12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 -
2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 16*r^3*
((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 +
8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
2)/4))*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 +
3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
2*Sin[2*theta]^2) + 1.*^-6*r*
(((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 +
((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)/4))*
((3*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 +
((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*
Sin[theta]^2)/4 + 3*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 +
3*Cos[2*theta] - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 +
3*Cos[2*theta]) + 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Sin[2*theta]^2)))/
(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)^2) +
r^2*(1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 +
(4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r)*Sin[theta]^2)*
((5.*^-7*(-9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Cos[theta]^2*Sin[theta]^2 -
(3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) -
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2))/2)*(r*(2 - 6.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) -
3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)*(-1 + 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 +
3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2))/
(r^2*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)) -
(5.*^-7*((3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/2 +
3*Sin[theta]^2*(3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
(-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Cos[theta]^2 + (((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*(-1 + 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4))*
(r*(2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^2) +
(15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)*(-1 + 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 +
3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2))/
(r^2*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(
21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)) - (4.5*^-12*Cos[theta]^2*
(-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
(6.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Cos[2*theta] - ((21/(E^r^2*r) - (21*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/4 +
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^2) +
(15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)))/
(r*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)) + (2.25*^-12*Cos[theta]*
(4*r*(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) -
0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(-4 + 3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 +
3*Cos[2*theta])) + 6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-2 + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
1 + 3*Cos[2*theta]) + 1.*^-6*r*(30/(E^r^2*r^2) -
(30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(1 + 3*Cos[2*theta])))*Sin[theta]*
(((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*(3*((3*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 +
((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)/4))*Sin[2*theta])/
(r*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)) +
(1.5*^-6*(3.*^-6*(9.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
4 - 3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
2*Cos[2*theta] + 3*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-7*
(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(-1 + 3*Cos[2*theta])))*(-3.*^-6*((3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
Sin[2*theta]^2 + Cos[theta]^2*(-3.*^-6*((3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
2*Sin[2*theta]^2) - (-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
Sin[theta]^2*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 +
3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
2*Sin[2*theta]^2) + 6.*^-6*(3*((3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) -
3*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*
(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
2*Sin[2*theta]^2)))/
(r*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)^2) -
(2.5*^-7*(2*(9.*^-6*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
1 + 3*Cos[2*theta]) + 3*((-15*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^6 + (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 -
(6*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*(2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])) +
6*Sin[theta]^2*(3.*^-6*(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 + (15*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(5*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r^2)*Cos[theta]^2 + 3.*^-6*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*((30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^6 - (30*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 +
(15*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 -
(5*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 +
((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2)*Cos[theta]^2 + 7.5*^-7*
(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*((21*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 +
((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*(-2 + 3*Sin[theta]^2) +
(((-105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 +
(105*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^5 - (48*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^4 + (13*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^3 - (3*((-624*r)/E^r^2 + (1600*r^3)/
E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 +
(4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*
(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 -
(4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) -
480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 128*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 72*r^2*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) -
16*r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) + 12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 -
2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 16*r^3*
((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 +
8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*
(-1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 +
3*Sin[theta]^2)))/4))*(-2 + 9.*^-12*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(
1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 +
3.75*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
2*Sin[2*theta]^2) + 1.*^-6*((-3*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*
Sin[theta]^2)/4 + 3*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 -
3*Cos[2*theta] + 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 +
3*Cos[2*theta]) - 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-6*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Sin[2*theta]^2)*(-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])) +
(3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*
Sin[theta]^2)/2 - 9.*^-6*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
(-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Sin[2*theta]^2)))/
(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)^2))/(2*Sqrt[2]*r) -
(r^2*(1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 +
(4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r)*Sin[theta]^2)*
(-1/4*(r*(2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*
(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) +
1.3499999999999999*^-11*r*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2)^2/
(r^4*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2)*(1 + 3.*^-6*
(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))^2) +
(7.5*^-13*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(1 + 3*Cos[2*theta])*((3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/2 +
3*Sin[theta]^2*(3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
(-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Cos[theta]^2 + (((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*(-1 + 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4)))/
(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*
(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2) + (2.25*^-12*
((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]^2*
(-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2)/
(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2) + (2.25*^-12*Cos[theta]*
(4*r*(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) -
0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(-4 + 3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 +
3*Cos[2*theta])) + 6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-2 + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
1 + 3*Cos[2*theta]) + 1.*^-6*r*(30/(E^r^2*r^2) -
(30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(1 + 3*Cos[2*theta])))*Sin[theta]*
(-0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(1 + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*(-2 + 3.*^-6*r*(-15/(E^r^2*r^2) +
(15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) -
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2))*Sin[2*theta])/
(r^2*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)) - (2.25*^-12*Cos[theta]*
(4*r*(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) -
0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(-4 + 3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 +
3*Cos[2*theta])) + 6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-2 + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
1 + 3*Cos[2*theta]) + 1.*^-6*r*(30/(E^r^2*r^2) -
(30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(1 + 3*Cos[2*theta])))*Sin[theta]*
(6.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Cos[2*theta] - ((21/(E^r^2*r) - (21*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/4 +
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^2) +
(15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2))*Sin[2*theta])/
(r^2*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)) +
(2.5*^-7*(r*(2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(
-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)*(-1 + 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 +
3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2)*
(-3*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + 9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2 +
9.*^-6*r*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Sin[2*theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(3*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 +
3*Cos[2*theta]) - 9*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2)))/
(r^3*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)) +
(7.5*^-7*(-6.*^-6*(9.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
4 - 3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
2*Cos[2*theta] + 3*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-7*
(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(-1 + 3*Cos[2*theta])))*(-4*r*(30/(E^r^2*r^2) -
(30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r^2) + 0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 +
3*Cos[2*theta]) + (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-4 +
3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])) -
6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-2 + 1.*^-6*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 1.*^-6*r*
(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r^2)*(1 + 3*Cos[2*theta])))*Sin[2*theta]^2 +
2*Cos[2*theta]*(4*r*(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 + (15*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(5*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) -
0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
-4 + 3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 +
3*Cos[2*theta])) + 6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 1.*^-6*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 1.*^-6*r*
(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r^2)*(1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(
1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
2*Sin[2*theta]^2) + 6.*^-6*(18*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 +
3*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) -
6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 +
r*(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 + (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(5*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)))*
Sin[2*theta]^2*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 +
3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
2*Sin[2*theta]^2)))/
(r^2*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)^2) -
(-2*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 -
3*Sin[theta]^2)))*(r*(2 - 6.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) -
3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) +
1.3499999999999999*^-11*r*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2) +
r*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 -
3*Sin[theta]^2)))*(3.*^-6*r*(-15/(E^r^2*r^2) +
(15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(-2 + 3*Sin[theta]^2)*(2 - 6.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) -
3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2) +
(2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^2) +
(15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) +
1.*^-6*r*(-9*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) - 3*r*(90/(E^r^2*r^3) -
(90*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 +
(39*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^5 - (9*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^4 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r^3) + (9*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 +
((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)/4 + (3*r*
(630/(E^r^2*r^3) - (630*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^6 + (297*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 -
(87*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 +
(19*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 -
(4*((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 -
(4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) -
480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 128*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 72*r^2*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) -
16*r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) + 12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 -
2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 16*r^3*
((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 +
8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) -
2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r)*Sin[theta]^2)/4)*(-1 + 3.*^-6*
(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) +
1.3499999999999999*^-11*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2 +
1.3499999999999999*^-11*r*(-15/(E^r^2*r^2) +
(15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
Sin[2*theta]^2 + 1.3499999999999999*^-11*r*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Sin[2*theta]^2) - r*(r*(2 - 6.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) -
3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) +
1.3499999999999999*^-11*r*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2)*
(3.*^-6*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(-2 + 3*Sin[theta]^2)*(1 - 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + 1.*^-6*(3*(-15/(E^r^2*r^2) +
(15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) -
(3*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 +
((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)/4)*(1 + 3.*^-6*
(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)) +
4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Sin[2*theta]^2))/(2*r^3*(-9.*^-12*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Cos[theta]^2*Sin[theta]^2 + (1 - 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 -
3*Sin[theta]^2)))^2)) - 3.*^-6*r*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
Cos[theta]*Sin[theta]*
((1.5*^-12*r*((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]*
Sin[theta]*(-9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*((-6*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Cos[theta]^2*Sin[theta]^2 -
(3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) -
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2))/2))/(2 - 9.*^-12*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2) - (2.2500000000000003*^-12*r*
((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
Cos[theta]*(1 + 3*Cos[2*theta])*Sin[theta]*
(((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*(3*((3*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 +
((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)/4)))/
(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2) + (1.5*^-6*Cos[theta]*Sin[theta]*
(-0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(1 + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*(-2 + 3.*^-6*r*(-15/(E^r^2*r^2) +
(15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) -
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2))*(r*(2 - 6.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) -
3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)*(-1 + 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 +
3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2))/
(r^2*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)) +
(7.5*^-7*(4*r*(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 + (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) -
0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(-4 + 3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 +
3*Cos[2*theta])) + 6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-2 + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
1 + 3*Cos[2*theta]) + 1.*^-6*r*(30/(E^r^2*r^2) -
(30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(1 + 3*Cos[2*theta])))*(1.8*^-11*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 +
(1 + 7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2)*(2 - 3.*^-6*r*(-15/(E^r^2*r^2) +
(15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2) - 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(4 - 3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) +
6.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
Cos[2*theta] + 3.*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
7.5*^-7*r*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 +
((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2) + 6.*^-6*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(Cos[2*theta] -
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^4))*Sin[2*theta])/
(r*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(
21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 -
(288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 +
(4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)) - (3.*^-6*Cos[theta]*Sin[theta]*
(((4.5*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2 + 3*(-15/(E^r^2*r^2) +
(15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(2 - 0.000012*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 3.*^-6*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2) + 1.*^-6*r*(30/(E^r^2*r^2) -
(30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r^2) + 1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2) +
(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r^2)*(-2 + 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) -
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2 - 7.5*^-7*r*
(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 +
((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2) + 1.*^-6*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
((-9*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + ((-624*r)/E^r^2 + (1600*r^3)/
E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 +
(4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*
(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)/4 +
r*(3*(90/(E^r^2*r^3) - (90*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^6 + (39*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 -
(9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r^3) - (3*(630/(E^r^2*r^3) - (630*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^6 + (297*((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^5 - (87*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/
E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r^4 + (19*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/
E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^3 - (4*((-624*r)/E^r^2 + (1600*r^3)/
E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/
E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 +
(4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/
E^r^2 - (4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/
E^r^2) - 480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) +
256*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
128*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + 72*r^2*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 16*r^4*
(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) + 12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 -
2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 16*r^3*
((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 +
(4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/
E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
2)/4)))*(-4 + 1.8*^-11*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 3.*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 1.5*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(4 -
12*Cos[2*theta] - 3.*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)^2*Sin[2*theta]^2))/2 +
1.*^-6*(-0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 +
1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2) + 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2 +
3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) - 1.5*^-6*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^2) +
(105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2))*
((3*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 +
24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 +
(4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 +
((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 +
48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) +
r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*
Sin[theta]^2)/4 + 3*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 +
3*Cos[2*theta] - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 +
3*Cos[2*theta]) + 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Sin[2*theta]^2)))/
(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)^2 + (3.*^-6*Sin[2*theta]*
((3*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
1 + ((21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) +
6.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
2*Cos[2*theta] + 6.*^-6*r*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Cos[2*theta] - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(
3*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) + 6*(-6/(E^r^2*r) +
(6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*Cos[2*theta]))*
(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) +
8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
2*Sin[2*theta]^2) + 1.*^-6*(9.*^-6*(3/(E^r^2*r) -
(3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 -
(16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 +
(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
4 - 3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
2*Cos[2*theta] + 3*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-7*
(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(-1 + 3*Cos[2*theta])))*(-3*r*(-15/(E^r^2*r^2) +
(15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 -
(6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(21/(E^r^2*r) -
(21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 +
(9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + 9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 +
4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2 +
9.*^-6*r*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 +
(15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Sin[2*theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(
3*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 -
(88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 +
(4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta]) -
9*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*Sin[2*theta]^2))))/
(r*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 -
(2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 +
r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 +
(256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) -
16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 -
(3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 +
(32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) +
r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2)^2)))/(2*Sqrt[2]*r))/(Sqrt[2]*r))/2