(((-I)*Csc[theta]*(((-1/2*I)*r*Sin[theta]*(1 - 7.500000000000001*^-9* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/ E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2* r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(-1 + 3*Sin[theta]^2))* ((-1.0000000000000001*^-16*((3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/4 + 3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - 3*Sin[theta]^2))^2)/ (-2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2)^2 - (1.*^-8*(-5.*^-9*(3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-1 + 3*Cos[2*theta]) + (3*((21*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2)^2 + (-2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2)* ((3*((21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (21*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 + (9*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - (2*(-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((1248*r)/E^r^2 - (1728*r^3)/ E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3* (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 36*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + 6*r*(8/E^r^2 - (16*r^2)/E^r^2 - 2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 12*r^2* ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))) + r^3*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r)*Sin[theta]^2)/4 + 3*((3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3)*(1 - 3*Sin[theta]^2))))/ (-2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2)^2))/Sqrt[2] + ((I/2)*r*Sin[theta]*(1 - 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/ E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2* r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(-1 + 3*Sin[theta]^2))* ((5.*^-9*(7.500000000000001*^-9*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*((3*((21*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r))/4 + 3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-3 + Csc[theta]^ 2)) + 3.0000000000000004*^-8*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-3 + Csc[theta]^2)*((3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r))/4 + 3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-3 + Csc[theta]^ 2)) - (7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r) - Csc[theta]^2 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-3 + Csc[theta]^2))* ((3*((-105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + (105*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (48*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 + (13*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - (3*(-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((1248*r)/E^r^2 - (1728*r^3)/ E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3* (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 36*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + 6*r*(8/E^r^2 - (16*r^2)/E^r^2 - 2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 12*r^2* ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))) + r^3*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r))/4 + 3*((-15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3)*(-3 + Csc[theta]^2))))/ (7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-3 + Csc[theta]^2))^2 - (5.*^-9*(-9.000000000000001*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 7.500000000000001*^-9*r*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r) - 2*Csc[theta]^2 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Csc[theta]^2 + 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))* ((3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/4 + 3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (1 - 3*Sin[theta]^2)))/(r*(7.500000000000001*^-9* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-3 + Csc[theta]^2))*(-2 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2)) + (5.*^-9*(-9.000000000000001*^-8*r* (-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 7.500000000000001*^-9*r*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r) - 2*Csc[theta]^2 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Csc[theta]^2 + 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))* (-9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^ 4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]^2*Sin[theta]^2 - (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])* (-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2))/2))/ (r*(7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-3 + Csc[theta]^2))*(2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)) + (1.5000000000000002*^-8*Cos[theta]* (-3.0000000000000004*^-8*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^ 5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (1 + 3*Cos[2*theta]) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^ 5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*(1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[theta] - Cot[theta]*Csc[theta] + 3*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6.000000000000001*^-8*Cos[theta] + 1.*^-8*Cot[theta]*Csc[ theta])))/(r*(7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-3 + Csc[theta]^2))*(-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2))))/Sqrt[2]))/(Sqrt[2]*r) + (-1/2*(-3.0000000000000004*^-8*r*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[theta]*Sin[theta]* ((1.5000000000000002*^-8*Cos[theta]*Sin[theta]* (((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (1 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2) + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/4))* (r*(2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r* (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)* (-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* Sin[2*theta]^2))/(r*(9.*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cos[theta]^2*Sin[theta]^2 - (1 - 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2)* (1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (2 - 3*Sin[theta]^2)))*(2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)) + (1.5000000000000002*^-8*Cos[theta]* (-3.0000000000000004*^-8*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (1 + 3*Cos[2*theta]) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(2 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]* (1.8*^-15*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (1 + 7.500000000000001*^-9* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2)* (2 - 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r* (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2) - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (4 - 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 6.000000000000001*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + 3.0000000000000004*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r* (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2) + 6.000000000000001*^-8* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (Cos[2*theta] - 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^4)))/ ((-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)*(-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)) + (7.500000000000001*^-9*Sin[2*theta]* (-8.*^-8*(9.*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4 - 3.0000000000000004*^-8* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[2*theta] + 3*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-9* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-1 + 3*Cos[2*theta])))* (-9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]^2*Sin[theta]^2 - (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (1 + 3*Cos[2*theta])*(-1 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) - 7.500000000000001*^-9* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/ E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/ E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2))/ 2) + (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (1 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + ((21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/ E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/ E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(1.*^-8 - 3.0000000000000004*^-8*Cos[2*theta]))/4) + 3.0000000000000004*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[2*theta])*(-8 + 3.6*^-15* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 6.000000000000001*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(4 - 12*Cos[2*theta] - 3.0000000000000004*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 1.8*^-15*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Sin[2*theta]^2)))/(2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)^2 - (3.0000000000000004*^-8*Cos[theta]* Sin[theta]*(((4.5000000000000006*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2 + 3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (2 - 1.2000000000000002*^-7*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 2.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 1.5000000000000002*^-8* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/ E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/ E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^ 2) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(-2 + 6.000000000000001*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + 3.0000000000000004*^-8*r* (-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/ E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/ E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 7.500000000000001*^-9*r*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/ E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/ E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/ E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3* (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^ 2) + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/ E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/ E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/ 2 + r*(3*((-15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(6/E^r^2 - (48*r^2)/ E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/ E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^4 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) - (3*((-105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + (105*((6*r)/E^r^2 - (12*r^3)/ E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (48*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (13*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (3*(-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((1248*r)/E^r^2 - (1728*r^3)/E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + 144*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + 36*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 12*r^3* (4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + 6*r*(8/E^r^2 - (16*r^2)/E^r^2 - 2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 12*r^2* ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))) + r^3*(-8/E^r^2 + (16*r^2)/ E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^ 2)/4)))*(-4 + 1.8*^-15*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 3.0000000000000004*^-8* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 + 1.5000000000000002*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(4 - 12*Cos[2*theta] - 3.0000000000000004*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/ E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/ E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Sin[2*theta]^2))/2 + 1.*^-8*(-1.8*^-7*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(1 + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2) + (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-2 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 - 7.500000000000001*^-9*r* (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/ E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/ E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/ E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3* (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2))* ((3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(2 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/ 4 + 3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-1 + 3*Cos[2*theta] - 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 + 3*Cos[2*theta]) + 7.500000000000001*^-9* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Sin[2*theta]^2)))/ (2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/ E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3* (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)^2) + r^2*(1 - 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2)*((5.*^-9*(-9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/ E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3* (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]^2*Sin[theta]^2 - (3*((3*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*(-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2))/2)* (r*(2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r* (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)* (-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* Sin[2*theta]^2))/(r^2*(9.*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cos[theta]^2*Sin[theta]^2 - (1 - 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2)* (1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (2 - 3*Sin[theta]^2)))*(2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)) - (5.*^-9*((3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*( 2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2* (3.0000000000000004*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]^2 + (((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(-1 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4))* (r*(2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r* (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)* (-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* Sin[2*theta]^2))/(r^2*(9.*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cos[theta]^2*Sin[theta]^2 - (1 - 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2)* (1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (2 - 3*Sin[theta]^2)))*(-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)) + (4.5*^-16*Cos[theta]^2* (-3.0000000000000004*^-8*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (1 + 3*Cos[2*theta]) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(2 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2* (-1.8*^-7*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 7.500000000000001*^-9* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2) + (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-2 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 - 7.500000000000001*^-9*r* (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)))/ (r*(2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)*(-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)) - (4.5*^-16*Cos[theta]^2* (-3.0000000000000004*^-8*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (1 + 3*Cos[2*theta]) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(2 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2* (6.000000000000001*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[2*theta] - ((21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/4 + (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r* (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)))/ (r*(2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)*(-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)) + (1.5000000000000002*^-8* (3.0000000000000004*^-8*(9.*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4 - 3.0000000000000004*^-8* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[2*theta] + 3*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-9* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-1 + 3*Cos[2*theta])))* (-3.0000000000000004*^-8*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (1 + 3*Cos[2*theta]) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(2 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + Cos[theta]^2*(-3.0000000000000004*^-8*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (1 + 3*Cos[2*theta]) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(2 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*(-2 + 9.*^-16* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 - 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/ E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Sin[2*theta]^2) - (-3.0000000000000004*^-8* ((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (1 + 3*Cos[2*theta]) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(2 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2* (-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 - 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/ E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Sin[2*theta]^2) + 6.000000000000001*^-8* (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) - 3*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]* (-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 - 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/ E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Sin[2*theta]^2)))/(r*(2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( 1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*( 21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*( 3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Sin[2*theta]^2)^2) - (5.*^-9*r*(9.*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2)*(1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*(6*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*( -2 + 3*Sin[theta]^2)*(2 - 6.000000000000001*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) - 3.0000000000000004*^-8*r* (-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r* (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2) + 2*(-6*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) - 3*r*((-15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + (3*((21*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/ 2 + (3*r*((-105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + (105*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (48*(6/E^r^2 - (48*r^2)/ E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/ E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^4 + (13*((-96*r)/E^r^2 + (144*r^3)/ E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3* (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^3 - (3*(-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((1248*r)/E^r^2 - (1728*r^3)/ E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3* (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 36*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 6*r*(8/E^r^2 - (16*r^2)/E^r^2 - 2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 12*r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))) + r^3*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^ 2)/4)*(-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-2 + 3*Sin[theta]^2)) + 2.7*^-7*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* Sin[2*theta]^2 + 2.7*^-7*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*( (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Sin[2*theta]^2) - (r*(2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r* (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*( -6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* Sin[2*theta]^2)*(3.0000000000000004*^-8*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-2 + 3*Sin[theta]^2)*(1 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2) + 1.*^-8*( 3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) - (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/4)*(1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*( (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Sin[2*theta]^2))/ (2*r^2*(-9.*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 + (1 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2)*(1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))^2)))/(Sqrt[2]*r) + (-3.0000000000000004*^-8*r*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[theta]*Sin[theta]* ((3.0000000000000004*^-16*r*Cos[theta]*Sin[theta]* (-9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^ 4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]^2*Sin[theta]^2 - (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])* (-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2))/2)* (((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (1 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2) + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^ 4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/4)))/ (2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)^2 + (3.0000000000000004*^-16*r*Cos[theta]* Sin[theta]*(((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (1 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2) + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^ 4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/4))* ((3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*(3.0000000000000004*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*( (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]^2 + (((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(-1 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4)))/ ((2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)*(-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)) - (3.0000000000000004*^-8*r*Cos[theta]* Sin[theta]*(-1/2*((((-6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (6*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2)*(-1 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) - 7.500000000000001*^-9* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2) - 1.*^-8* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) - (3*((21*((6*r)/E^r^2 - (12*r^3)/ E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (21*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (9*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (2*(-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((1248*r)/E^r^2 - (1728*r^3)/ E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3* (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 36*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 6*r*(8/E^r^2 - (16*r^2)/E^r^2 - 2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 12*r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/ E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))) + r^3*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^ 2)/4))*(-4 + 1.8*^-15*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 3.0000000000000004*^-8* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 + 1.5000000000000002*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(4 - 12*Cos[2*theta] - 3.0000000000000004*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Sin[2*theta]^2)) + 1.*^-8* (((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 - 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2) + 1.*^-8*( -6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*( 3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) - (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/4))* ((3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(2 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*( -1 + 3*Cos[2*theta] - 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 + 3*Cos[2*theta]) + 7.500000000000001*^-9* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*( (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Sin[2*theta]^2)))/ (2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)^2) + r^2*(1 - 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/ E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2* r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2)*((-1.0000000000000001*^-16* ((3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*( 2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2* (3.0000000000000004*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]^2 + (((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(-1 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4))^2)/ (-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)^2 + (4.5*^-16*Cos[theta]^2* (-3.0000000000000004*^-8*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^ 5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (1 + 3*Cos[2*theta]) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^ 5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2* (((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (1 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2) + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^ 4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/4)))/ ((2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)*(-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)) - (1.*^-8*(((9.*^-8*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)^ 2*(1 + 3*Cos[2*theta]) + 3*((3*((6*r)/E^r^2 - (12*r^3)/ E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3)*(2 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(1 + 3*Cos[2*theta])) + 6*Sin[theta]^2* (3.0000000000000004*^-8*((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/ E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/ E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)^2* Cos[theta]^2 + 3.0000000000000004*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (6*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2)*Cos[theta]^2 + 7.500000000000001*^-9*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* ((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(-2 + 3*Sin[theta]^2) + (((21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (21*(6/E^r^2 - (48*r^2)/ E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/ E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^4 + (9*((-96*r)/E^r^2 + (144*r^3)/ E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3* (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (2*(-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((1248*r)/E^r^2 - (1728*r^3)/ E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3* (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 36*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 6*r*(8/E^r^2 - (16*r^2)/E^r^2 - 2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 12*r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/ E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))) + r^3*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)* (-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4))* (-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 - 6.000000000000001*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Sin[2*theta]^2))/2 - 2.5*^-9* (6*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*( 2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 + 3*Cos[2*theta])) - (3*((21*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(2 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 + 9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*( (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Sin[2*theta]^2)* ((-3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(2 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*( 1 - 3*Cos[2*theta] + 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 + 3*Cos[2*theta]) - 7.500000000000001*^-9* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*( (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Sin[2*theta]^2)))/ (2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)^2))/(2*Sqrt[2]*r))/(Sqrt[2]*r))/2 + ((I*Csc[theta]*(((-1/2*I)*r*Sin[theta]*(1 - 7.500000000000001*^-9* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/ E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2* r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(-1 + 3*Sin[theta]^2))* ((-5.*^-9*(-9.000000000000001*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 7.500000000000001*^-9*r*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r) - 2*Csc[theta]^2 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Csc[theta]^2 + 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))* ((3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/4 + 3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (1 - 3*Sin[theta]^2)))/(r*(7.500000000000001*^-9* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-3 + Csc[theta]^2))*(-2 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2)) - (1.*^-8*(-((3.0000000000000004*^-8*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8* (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)* ((3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/4 + 3* ((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (1 - 3*Sin[theta]^2))) + (-2 + 3.0000000000000004*^-8*( 3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2)* ((3*((-105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + (105*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (48*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 + (13*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - (3*(-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((1248*r)/E^r^2 - (1728*r^3)/ E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3* (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 36*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + 6*r*(8/E^r^2 - (16*r^2)/E^r^2 - 2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 12*r^2* ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))) + r^3*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r)*Sin[theta]^2)/4 + 3*((-15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3)*(1 - 3*Sin[theta]^2))))/ (-2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2)^2 + (5.*^-9*(-9.000000000000001*^-8*r* (-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 7.500000000000001*^-9*r*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r) - 2*Csc[theta]^2 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Csc[theta]^2 + 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))* (-9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^ 4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]^2*Sin[theta]^2 - (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])* (-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2))/2))/ (r*(7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-3 + Csc[theta]^2))*(2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)) + (1.5000000000000002*^-8*Cos[theta]* (-3.0000000000000004*^-8*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^ 5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (1 + 3*Cos[2*theta]) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^ 5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*(1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[theta] - Cot[theta]*Csc[theta] + 3*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6.000000000000001*^-8*Cos[theta] + 1.*^-8*Cot[theta]*Csc[ theta])))/(r*(7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-3 + Csc[theta]^2))*(-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2))))/Sqrt[2] + ((I/2)*r*Sin[theta]*(1 - 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/ E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2* r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(-1 + 3*Sin[theta]^2))* (-1/4*(-9.000000000000001*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r) + 7.500000000000001*^-9*r* (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r) - 2*Csc[theta]^2 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Csc[theta]^2 + 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))^2/ (r^2*(7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r) - Csc[theta]^2 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-3 + Csc[theta]^2))^2) + (7.500000000000001*^-17*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])* ((3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/4 + 3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (1 - 3*Sin[theta]^2)))/(-2 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3* (4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2) + (1.125*^-16*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2 - 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3* (4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (7.500000000000001*^-9*r^2*(630/(E^r^2*r^4) - (630* ((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + (297*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (87*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (19*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (4*(-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((1248*r)/E^r^2 - (1728*r^3)/ E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3* (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 36*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + 6*r*(8/E^r^2 - (16*r^2)/E^r^2 - 2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 12*r^2* ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))) + r^3*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r) + 4*Csc[theta]^2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta])* Csc[theta]^2 + 3.0000000000000004*^-8*r^2*(90/(E^r^2*r^4) - (90*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + (39*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)* (-3 + Csc[theta]^2)) + (2.25*^-16*r^2*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)^2 + 9.*^-16*r^2*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(-1 + 3*Cos[2*theta])*Csc[theta]^2 + 1.8*^-15*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 - 3*Cos[2*theta])^2* Csc[theta]^4 + 9.*^-16*r^2*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)^2* (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 4*Csc[theta]^2* (7.500000000000001*^-9*r^2*(630/(E^r^2*r^4) - (630*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + (297*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (87*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 + (19*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - (4*(-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((1248*r)/E^r^2 - (1728*r^3)/ E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3* (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 36*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + 6*r*(8/E^r^2 - (16*r^2)/E^r^2 - 2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 12*r^2* ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))) + r^3*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r) + 2*Csc[theta]^2 + 3.0000000000000004*^-8*r^2*(90/(E^r^2*r^4) - (90*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + (39*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3)*(-3 + Csc[theta]^2)) - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta])* Csc[theta]^4*(8 + 3.0000000000000004*^-8*r^2*(90/(E^r^2*r^4) - (90*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + (39*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3)*(-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*r^2*(630/(E^r^2*r^4) - (630*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + (297*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (87*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 + (19*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - (4*(-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((1248*r)/E^r^2 - (1728*r^3)/ E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3* (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 36*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + 6*r*(8/E^r^2 - (16*r^2)/E^r^2 - 2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 12*r^2* ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))) + r^3*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r)*Sin[theta]^2))/4)/ (2*r^2*(7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-3 + Csc[theta]^2))^2) + (7.500000000000001*^-9* (4*r*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 1.8*^-7*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*( 1 + 3*Cos[2*theta])) + 6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-2 + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 1.*^-8*r*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3*Cos[2*theta])))*Csc[theta]* (1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[theta] - Cot[theta]*Csc[theta] + 3*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6.000000000000001*^-8*Cos[theta] + 1.*^-8*Cot[theta]*Csc[ theta]))*Sin[2*theta])/(r^2*(7.500000000000001*^-9* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-3 + Csc[theta]^2))*(-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)) + (2.5*^-9*(-9.000000000000001*^-8*r* (-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 7.500000000000001*^-9*r*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r) - 2*Csc[theta]^2 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Csc[theta]^2 + 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))* (-3*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^ 5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (1 + 3*Cos[2*theta])*(1 + 7.500000000000001*^-9*( 21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2) + 9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2 + 9.*^-8*r*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Sin[2*theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (3*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*( 1 + 3*Cos[2*theta]) - 9*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* Sin[2*theta]^2)))/(r^2*(7.500000000000001*^-9* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-3 + Csc[theta]^2))*(-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2))))/Sqrt[2]))/(Sqrt[2]*r) - ((-3.0000000000000004*^-8*r*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[theta]*Sin[theta]* ((-3.0000000000000004*^-16*Cos[theta]*Sin[theta]* (-9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^ 4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]^2*Sin[theta]^2 - (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])* (-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2))/2)* (-1.8*^-7*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2) + (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-2 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 - 7.500000000000001*^-9*r*( -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)))/ (2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)^2 + (3.0000000000000004*^-16*Cos[theta]* Sin[theta]*(-1.8*^-7*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(1 + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2) + (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-2 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 - 7.500000000000001*^-9*r*( -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2))* ((3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*(3.0000000000000004*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*( (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]^2 + (((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(-1 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4)))/ ((2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)*(-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)) + (1.5000000000000002*^-8*Cos[theta]* (-3.0000000000000004*^-8*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^ 5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (1 + 3*Cos[2*theta]) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^ 5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]* (1.8*^-15*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (1 + 7.500000000000001*^-9*( 21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2)* (2 - 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*( -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2) - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (4 - 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 6.000000000000001*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + 3.0000000000000004*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*( -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2) + 6.000000000000001*^-8* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (Cos[2*theta] - 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^4)))/ ((-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)*(-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)) + (1.5000000000000002*^-16*Cos[theta]* Sin[theta]*(((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (1 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2) + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^ 4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/4))* (-3*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^ 5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (1 + 3*Cos[2*theta])*(1 + 7.500000000000001*^-9*( 21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2) + 9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2 + 9.*^-8*r*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Sin[2*theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (3*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*( 1 + 3*Cos[2*theta]) - 9*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* Sin[2*theta]^2)))/((2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)*(-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)) + (7.500000000000001*^-9*Sin[2*theta]* (-8.*^-8*(9.*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4 - 3.0000000000000004*^-8* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[2*theta] + 3*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-9* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-1 + 3*Cos[2*theta])))* (-9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*( (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]^2*Sin[theta]^2 - (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (1 + 3*Cos[2*theta])*(-1 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) - 7.500000000000001*^-9* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2))/2) + (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*( 1 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + ((21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1.*^-8 - 3.0000000000000004*^-8* Cos[2*theta]))/4) + 3.0000000000000004*^-8*( -6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*( (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[2*theta])* (-8 + 3.6*^-15*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 6.000000000000001*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*( 3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(4 - 12*Cos[2*theta] - 3.0000000000000004*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 1.8*^-15*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Sin[2*theta]^2)))/ (2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)^2 - (3.0000000000000004*^-8*Cos[theta]* Sin[theta]*(-((((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 - 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + 7.500000000000001*^-9* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2) + 1.*^-8* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) - (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/ E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/ E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/ E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3* (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/ 4))*(2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/ E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Sin[2*theta]^2)) - r*(((30*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^6 - (30*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (15*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (5*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2)*(1 - 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2) - 1.*^-8*( (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) - (3*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/ E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/ 4) + 1.*^-8*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*((3*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/ E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/ 4) + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*( 3*((-15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) - (3*((-105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + (105*((6*r)/E^r^2 - (12*r^3)/ E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (48*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (13*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (3*(-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((1248*r)/E^r^2 - (1728*r^3)/E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 36*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 6*r*(8/E^r^2 - (16*r^2)/E^r^2 - 2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 12*r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))) + r^3*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^ 2)/4))*(2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*( 3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Sin[2*theta]^2) + 1.*^-8*r* (((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 - 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2) + 1.*^-8*( -6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*( 3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) - (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/4))* ((3*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(2 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 3*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*( -1 + 3*Cos[2*theta] - 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 + 3*Cos[2*theta]) + 7.500000000000001*^-9* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*( 30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Sin[2*theta]^2)))/ (2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)^2) + r^2*(1 - 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/ E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2* r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2)*((5.*^-9*(-9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]^2*Sin[theta]^2 - (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])* (-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2))/2)* (r*(2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*( -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)* (-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* Sin[2*theta]^2))/(r^2*(9.*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2)* (1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*(2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)) - (5.*^-9*((3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2* (3.0000000000000004*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*( (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]^2 + (((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(-1 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4))* (r*(2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*( -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)* (-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* Sin[2*theta]^2))/(r^2*(9.*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2)* (1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*(-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)) - (4.5*^-16*Cos[theta]^2* (-3.0000000000000004*^-8*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^ 5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (1 + 3*Cos[2*theta]) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^ 5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*(6.000000000000001*^-8* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cos[2*theta] - ((21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/ E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3* (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 + 3*Cos[2*theta])))/4 + (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2 - 6.000000000000001*^-8*( 3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) - 3.0000000000000004*^-8*r*( -15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*( -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)))/ (r*(2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)*(-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)) + (2.25*^-16*Cos[theta]* (4*r*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 1.8*^-7*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*( 1 + 3*Cos[2*theta])) + 6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-2 + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 1.*^-8*r*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]* (((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (1 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2) + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^ 4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/4))*Sin[2*theta])/ (r*(2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)*(-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)) + (1.5000000000000002*^-8* (3.0000000000000004*^-8*(9.*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4 - 3.0000000000000004*^-8* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[2*theta] + 3*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-9* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-1 + 3*Cos[2*theta])))* (-3.0000000000000004*^-8*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*( -6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*( 1 + 3*Cos[2*theta]) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(2 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + Cos[theta]^2*(-3.0000000000000004*^-8*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*( 1 + 3*Cos[2*theta]) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(2 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(1 + 3*Cos[2*theta])))* (-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*( 3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Sin[2*theta]^2) - (-3.0000000000000004*^-8*( (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*( -6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*( 1 + 3*Cos[2*theta]) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(2 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2* (-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*( 3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Sin[2*theta]^2) + 6.000000000000001*^-8* (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*( -6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) - 3*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]* (-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*( 3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Sin[2*theta]^2)))/ (r*(2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)^2) - (2.5*^-9*(2*(9.000000000000001*^-8*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*( (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*( 1 + 3*Cos[2*theta]) + 3*((-15*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^6 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3)*(2 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(1 + 3*Cos[2*theta])) + 6*Sin[theta]^2*( 3.0000000000000004*^-8*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - (12*r^3)/ E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*((-6*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]^2 + 3.0000000000000004*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 - (30*((6*r)/E^r^2 - (12*r^3)/ E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (15*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (5*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2)*Cos[theta]^2 + 7.500000000000001*^-9*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/ E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(-2 + 3*Sin[theta]^2) + (((-105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + (105*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (48*(6/E^r^2 - (48*r^2)/ E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/ E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^4 + (13*((-96*r)/E^r^2 + (144*r^3)/ E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3* (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^3 - (3*(-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((1248*r)/E^r^2 - (1728*r^3)/ E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3* (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 36*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 6*r*(8/E^r^2 - (16*r^2)/E^r^2 - 2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 12*r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))) + r^3*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)* (-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-2 + 3*Sin[theta]^2)))/4))*(-2 + 9.*^-16* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 - 6.000000000000001*^-8*( 3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Sin[2*theta]^2) + 1.*^-8*((-3*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(2 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 3*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*( 1 - 3*Cos[2*theta] + 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 + 3*Cos[2*theta]) - 7.500000000000001*^-9* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*( 30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Sin[2*theta]^2)* (-6*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*( 2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 + 3*Cos[2*theta])) + (3*((21*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(2 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 - 9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*( (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Sin[2*theta]^2)))/ (2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)^2))/(2*Sqrt[2]*r) - (r^2*(1 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/ E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2* r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2)*(-1/4*(r*(2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r* (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)* (-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* Sin[2*theta]^2)^2/(r^4*(9.*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2)*(1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))^2) + (7.500000000000001*^-17* ((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])* ((3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*(3.0000000000000004*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*( (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]^2 + (((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(-1 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4)))/ (-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3* (4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^ 4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2) + (2.25*^-16* ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]^2*(-3.0000000000000004*^-8*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2)/ (-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3* (4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^ 4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2) + (2.25*^-16*Cos[theta]* (4*r*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 1.8*^-7*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*( 1 + 3*Cos[2*theta])) + 6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-2 + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 1.*^-8*r*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]* (-1.8*^-7*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2) + (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-2 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 - 7.500000000000001*^-9*r*( -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2))*Sin[2*theta])/ (r^2*(2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)*(-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)) - (2.25*^-16*Cos[theta]* (4*r*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 1.8*^-7*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*( 1 + 3*Cos[2*theta])) + 6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-2 + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 1.*^-8*r*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]* (6.000000000000001*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[2*theta] - ((21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/4 + (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*( -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2))*Sin[2*theta])/ (r^2*(2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)*(-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)) + (2.5*^-9*(r*(2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*( -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)* (-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* Sin[2*theta]^2)*(-3*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])* (1 + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2) + 9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2 + 9.*^-8*r*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Sin[2*theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (3*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*( 1 + 3*Cos[2*theta]) - 9*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* Sin[2*theta]^2)))/(r^3*(9.*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2)* (1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*(-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)) + (7.500000000000001*^-9* (-6.000000000000001*^-8*(9.*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4 - 3.0000000000000004*^-8* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[2*theta] + 3*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-9* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-1 + 3*Cos[2*theta])))* (-4*r*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2) + 1.8*^-7*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( 1 + 3*Cos[2*theta]) + (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-4 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (1 + 3*Cos[2*theta])) - 6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (1 + 3*Cos[2*theta]) + 1.*^-8*r*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3*Cos[2*theta])))* Sin[2*theta]^2 + 2*Cos[2*theta]*(4*r*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2) - 1.8*^-7*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( 1 + 3*Cos[2*theta]) - (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-4 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (1 + 3*Cos[2*theta])) + 6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (1 + 3*Cos[2*theta]) + 1.*^-8*r*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3*Cos[2*theta])))* (-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*( 3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Sin[2*theta]^2) + 6.000000000000001*^-8* (18*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2 + 3*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*( -6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) - 6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + r*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)))*Sin[2*theta]^2* (-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*( 3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Sin[2*theta]^2)))/ (r^2*(2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)^2) - (-2*(9.*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cos[theta]^2*Sin[theta]^2 - (1 - 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2)* (1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (2 - 3*Sin[theta]^2)))*(r*(2 - 6.000000000000001*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) - 3.0000000000000004*^-8*r* (-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r* (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)* (-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* Sin[2*theta]^2) + r*(9.*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cos[theta]^2*Sin[theta]^2 - (1 - 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2)* (1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (2 - 3*Sin[theta]^2)))*(3.0000000000000004*^-8*r* (-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-2 + 3*Sin[theta]^2)*(2 - 6.000000000000001*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) - 3.0000000000000004*^-8*r* (-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r* (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2) + (2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r* (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)* (-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-2 + 3*Sin[theta]^2)) + 1.*^-8*r*(-9*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 3*r*(90/(E^r^2*r^4) - (90*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^6 + (39*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + (9*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/4 + (3*r* (630/(E^r^2*r^4) - (630*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^6 + (297*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (87*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 + (19*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - (4*(-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((1248*r)/E^r^2 - (1728*r^3)/ E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3* (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 36*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + 6*r*(8/E^r^2 - (16*r^2)/E^r^2 - 2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 12*r^2* ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))) + r^3*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r)*Sin[theta]^2)/4)* (-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-2 + 3*Sin[theta]^2)) + 1.35*^-15*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* Sin[2*theta]^2 + 1.35*^-15*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2 + 1.35*^-15*r*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Sin[2*theta]^2) - r*(r*(2 - 6.000000000000001*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) - 3.0000000000000004*^-8*r* (-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r* (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)* (-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* Sin[2*theta]^2)*(3.0000000000000004*^-8*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-2 + 3*Sin[theta]^2)* (1 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2) + 1.*^-8*(3*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (3*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/4)* (1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (2 - 3*Sin[theta]^2)) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Sin[2*theta]^2))/(2*r^3*(-9.*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cos[theta]^2*Sin[theta]^2 + (1 - 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2)* (1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (2 - 3*Sin[theta]^2)))^2)) - 3.0000000000000004*^-8*r* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[theta]*Sin[theta]* ((1.5000000000000002*^-16*r*((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[theta]*(-9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]^2*Sin[theta]^2 - (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])* (-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2))/2))/ (2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^ 4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3* (4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^ 4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2) - (2.25*^-16*r* ((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* (1 + 3*Cos[2*theta])*Sin[theta]* (((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (1 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2) + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^ 4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/4)))/ (2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^ 4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3* (4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^ 4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2) + (1.5000000000000002*^-8*Cos[theta]*Sin[theta]* (-1.8*^-7*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2) + (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-2 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 - 7.500000000000001*^-9*r*( -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2))* (r*(2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*( -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)* (-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* Sin[2*theta]^2))/(r^2*(9.*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2)* (1 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*(2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)) + (7.500000000000001*^-9* (4*r*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 1.8*^-7*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*( 1 + 3*Cos[2*theta])) + 6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-2 + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 1.*^-8*r*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3*Cos[2*theta])))* (1.8*^-15*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (1 + 7.500000000000001*^-9*( 21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2)* (2 - 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*( -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2) - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (4 - 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 6.000000000000001*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + 3.0000000000000004*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*( -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2) + 6.000000000000001*^-8* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (Cos[2*theta] - 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^4))*Sin[2*theta])/ (r*(-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 - 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)*(-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)) - (3.0000000000000004*^-8*Cos[theta]*Sin[theta]* (((4.5000000000000006*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2 + 3*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (2 - 1.2000000000000002*^-7*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 3.0000000000000004*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/ E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 1.*^-8*r* (30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2) + 1.5000000000000002*^-8* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2) + (30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(-2 + 6.000000000000001*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) - 1.5000000000000002*^-8* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 - 7.500000000000001*^-9*r* (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/ E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/ E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/ E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3* (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2) + 1.*^-8* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-9*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/ 4 + r*(3*(90/(E^r^2*r^4) - (90*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^6 + (39*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) - (3*(630/(E^r^2*r^4) - (630*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + (297*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (87*(6/E^r^2 - (48*r^2)/ E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/ E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^4 + (19*((-96*r)/E^r^2 + (144*r^3)/ E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3* (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (4*(-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((1248*r)/E^r^2 - (1728*r^3)/E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 36*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 6*r*(8/E^r^2 - (16*r^2)/E^r^2 - 2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + 12*r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))) + r^3*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 2*r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^2)/4)))* (-4 + 1.8*^-15*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 3.0000000000000004*^-8* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 + 1.5000000000000002*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(4 - 12*Cos[2*theta] - 3.0000000000000004*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Sin[2*theta]^2))/2 + 1.*^-8*(-1.8*^-7*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(1 + 1.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2) + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2) + (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*( -2 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 - 7.500000000000001*^-9*r* (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2))* ((3*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(2 + 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 3*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*( -1 + 3*Cos[2*theta] - 6.000000000000001*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 + 3*Cos[2*theta]) + 7.500000000000001*^-9* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*( 30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Sin[2*theta]^2)))/ (2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)^2 + (3.0000000000000004*^-8*Sin[2*theta]* ((3*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*( 1 + ((21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1.*^-8 - 3.0000000000000004*^-8* Cos[2*theta]))/4) + 6.000000000000001*^-8* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[2*theta] + 6.000000000000001*^-8*r*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*( 30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[2*theta] - 3.0000000000000004*^-8* (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(3*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + 6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta]))* (-2 + 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*( 3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Sin[2*theta]^2) + 1.*^-8*(9.*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4 - 3.0000000000000004*^-8* (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[2*theta] + 3*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-9* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-1 + 3*Cos[2*theta])))* (-3*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*( 1 + 3*Cos[2*theta])*(1 + 7.500000000000001*^-9* (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2) + 9.*^-8*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Sin[2*theta]^2 + 9.*^-8*r*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/ E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*( 30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Sin[2*theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*( 3*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (1 + 3*Cos[2*theta]) - 9*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* Sin[2*theta]^2))))/ (r*(2 - 9.*^-16*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/ E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2* (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/ r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[2*theta]^2)^2)))/(2*Sqrt[2]*r))/(Sqrt[2]*r))/2