/
kerr-equatorial-coeffs.c
233 lines (212 loc) · 651 KB
/
kerr-equatorial-coeffs.c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
/*******************************************************************************
* Copyright (C) 2012 Barry Wardell
*
* Authors: Barry Wardell <effectivesource@barrywardell.net>
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
*
*/
#include <math.h>
#include "effsource.h"
/* The particle's coordinate location and 4-velocity */
struct coordinate xp;
/* Mass and spin of the Kerr black hole */
double M, a;
/* Static variables used to store the coefficients of the series expansions */
double A0060, A0061, A0080, A0081, A0240, A0241, A0260, A0261, A0420, A0421, A0440, A0441, A0600, A0601, A0620, A0621, A0800, A0801, A1060, A1061, A1080, A1240, A1241, A1260, A1420, A1421, A1440, A1600, A1601, A1620, A1800, A2040, A2041, A2060, A2061, A2220, A2221, A2240, A2241, A2400, A2401, A2420, A2421, A2600, A2601, A3040, A3041, A3060, A3220, A3221, A3240, A3400, A3401, A3420, A3600, A4020, A4021, A4040, A4041, A4200, A4201, A4220, A4221, A4400, A4401, A5020, A5021, A5040, A5200, A5201, A5220, A5400, A6000, A6001, A6020, A6021, A6200, A6201, A7000, A7001, A7020, A7200, A8000, A8001, A9000;
double alpha20, alpha02, beta, c;
double rt, urt, rtt, urtt, phit, phitt;
/* Initialize array of coefficients of pows of dr, dtheta and dphi. */
void effsource_init(double mass, double spin)
{
M = mass;
a = spin;
}
extern void effsource_set_particle_dt(struct coordinate * x_p, double E, double L, double ur);
extern void effsource_set_particle_dtt(struct coordinate * x_p, double E, double L, double ur);
/* Initialize array of coefficients of pows of dr, dtheta, sin(dphi) and sin(dphi/2) */
void effsource_set_particle(struct coordinate * x_p, double E, double L, double ur)
{
xp = *x_p;
const double r = xp.r;
const double twoM_plus_r = 2*M + r;
const double twoM_minus_r = 2*M - r;
const double r_minus_twoM = -2*M + r;
const double r_pow2 = r * r;
const double r_pow3 = r * r_pow2;
const double r_pow4 = r_pow2 * r_pow2;
const double r_pow5 = r_pow2 * r_pow3;
const double r_pow6 = r_pow3 * r_pow3;
const double r_pow7 = r_pow3 * r_pow4;
const double r_pow8 = r_pow4 * r_pow4;
const double r_pow9 = r_pow4 * r_pow5;
const double r_pow10 = r_pow5 * r_pow5;
const double r_pow11 = r_pow5 * r_pow6;
const double r_pow12 = r_pow6 * r_pow6;
const double r_pow13 = r_pow6 * r_pow7;
const double r_pow14 = r_pow7 * r_pow7;
const double r_pow15 = r_pow7 * r_pow8;
const double r_pow16 = r_pow8 * r_pow8;
const double r_pow17 = r_pow8 * r_pow9;
const double a_pow2 = a * a;
const double a_pow3 = a * a_pow2;
const double a_pow4 = a_pow2 * a_pow2;
const double a_pow5 = a_pow2 * a_pow3;
const double a_pow6 = a_pow3 * a_pow3;
const double a_pow7 = a_pow3 * a_pow4;
const double a_pow8 = a_pow4 * a_pow4;
const double a_pow9 = a_pow4 * a_pow5;
const double a_pow10 = a_pow5 * a_pow5;
const double a_pow11 = a_pow5 * a_pow6;
const double a_pow12 = a_pow6 * a_pow6;
const double a_pow13 = a_pow6 * a_pow7;
const double a_pow14 = a_pow7 * a_pow7;
const double a_pow15 = a_pow7 * a_pow8;
const double a_pow16 = a_pow8 * a_pow8;
const double a_pow17 = a_pow8 * a_pow9;
const double a_pow18 = a_pow9 * a_pow9;
const double a_pow20 = a_pow10 * a_pow10;
const double E_pow2 = E * E;
const double E_pow3 = E * E_pow2;
const double L_pow2 = L * L;
const double L_pow3 = L * L_pow2;
const double L_pow4 = L_pow2 * L_pow2;
const double L_pow6 = L_pow3 * L_pow3;
const double L_pow8 = L_pow4 * L_pow4;
const double L_pow10 = L_pow4 * L_pow6;
const double M_pow2 = M * M;
const double M_pow3 = M * M_pow2;
const double M_pow4 = M_pow2 * M_pow2;
const double M_pow5 = M_pow2 * M_pow3;
const double M_pow6 = M_pow3 * M_pow3;
const double M_pow7 = M_pow3 * M_pow4;
const double M_pow8 = M_pow4 * M_pow4;
const double M_pow9 = M_pow4 * M_pow5;
const double ur_pow2 = ur * ur;
const double ur_pow4 = ur_pow2 * ur_pow2;
const double ur_pow6 = ur_pow2 * ur_pow4;
const double ur_pow8 = ur_pow4 * ur_pow4;
const double ur_pow10 = ur_pow4 * ur_pow6;
const double ur_pow12 = ur_pow6 * ur_pow6;
const double twoM_plus_r_pow2 = twoM_plus_r * twoM_plus_r;
const double twoM_plus_r_pow3 = twoM_plus_r * twoM_plus_r_pow2;
const double twoM_plus_r_pow4 = twoM_plus_r_pow2 * twoM_plus_r_pow2;
const double twoM_plus_r_pow5 = twoM_plus_r_pow2 * twoM_plus_r_pow3;
const double twoM_plus_r_pow6 = twoM_plus_r_pow3 * twoM_plus_r_pow3;
const double twoM_plus_r_pow7 = twoM_plus_r_pow3 * twoM_plus_r_pow4;
const double r_minus_twoM_pow2 = r_minus_twoM * r_minus_twoM;
rt = (r*(a_pow2 + r*r_minus_twoM)*ur)/(-2*a*L*M + E*r_pow3 + a_pow2*E*twoM_plus_r);
urt = -(((a_pow2 + r*r_minus_twoM)*(-6*a*E*L*M + L_pow2*(3*M - r) + M*r_pow2 + a_pow2*(-r + E_pow2*(3*M + r))))/(r_pow3*(-2*a*L*M + E*r_pow3 + a_pow2*E*twoM_plus_r)));
rtt = -(((a_pow2 + r*r_minus_twoM)*(E*r_pow4*r_minus_twoM*(L_pow2*(3*M - r) + M*r_pow2) + a_pow6*E*twoM_plus_r*(-r + E_pow2*(3*M + r)) + 2*a_pow5*L*M*(r - E_pow2*(9*M + 4*r)) - 2*E*M*r_pow7*ur_pow2 + 2*a*L*M*r*(twoM_minus_r*(L_pow2*(3*M - r) + r_pow2*(M + 3*E_pow2*r)) + r_pow3*(-4*M + 3*r)*ur_pow2) + 2*a_pow3*L*M*(L_pow2*(-3*M + r) + r*(E_pow2*(18*M_pow2 - M*r - 7*r_pow2) + r*(-3*M + r + r*ur_pow2))) + a_pow2*E*r*(-2*L_pow2*(18*M_pow3 - 8*M_pow2*r - 3*M*r_pow2 + r_pow3) + r_pow2*(-4*M_pow3 + (-1 + E_pow2)*r_pow3 + M*r_pow2*(4 + E_pow2 - 4*ur_pow2) + M_pow2*(-6*E_pow2*r + 8*r*ur_pow2))) + a_pow4*E*(L_pow2*(18*M_pow2 + M*r - r_pow2) + r*(-2*E_pow2*(3*M + r)*(2*M_pow2 - r_pow2) + r*(6*M_pow2 + M*r - 2*r_pow2 - 2*M*r*ur_pow2)))))/ (r_pow2*pow(-2*a*L*M + E*r_pow3 + a_pow2*E*twoM_plus_r,3)));
urtt = ((a_pow2 + r*r_minus_twoM)*(-2*a_pow5*L*M*(-2*r + E_pow2*(27*M + 14*r)) + 2*a*L*M*r*(L_pow2*M*(12*M - 5*r) + r_pow3*(M + 30*E_pow2*M - 12*E_pow2*r)) + E*r_pow4*(2*M*r_pow2*(-3*M + r) + L_pow2*(-30*M_pow2 + 20*M*r - 3*r_pow2)) + a_pow6*E*(-(r*(4*M + 3*r)) + E_pow2*(18*M_pow2 + 16*M*r + 3*r_pow2)) + a_pow2*E*r*(r_pow3*(-2*(2 + 15*E_pow2)*M_pow2 + 4*(3 + E_pow2)*M*r + 3*(-1 + E_pow2)*r_pow2) + L_pow2*(-72*M_pow3 + 4*M_pow2*r + 28*M*r_pow2 - 6*r_pow3)) + 2*a_pow3*L*M*(L_pow2*(-9*M + 2*r) + r*(-3*M*r + E_pow2*(36*M_pow2 + 11*M*r - 24*r_pow2))) + a_pow4*E*(L_pow2*(54*M_pow2 + 8*M*r - 3*r_pow2) + 2*r*(3*r*(M_pow2 + M*r - r_pow2) + E_pow2*(-12*M_pow3 - 8*M_pow2*r + 10*M*r_pow2 + 3*r_pow3))))*ur)/ (r_pow3*pow(-2*a*L*M + E*r_pow3 + a_pow2*E*twoM_plus_r,3));
phit = (2*a*E*M + L*r_minus_twoM)/(-2*a*L*M + E*r_pow3 + a_pow2*E*twoM_plus_r);
phitt = (-2*r*(a*pow(-(a*E) + L,2)*M + 3*E*(a*E - L)*M*r_pow2 + E*L*r_pow3)*(a_pow2 + r*r_minus_twoM)*ur)/pow(-2*a*L*M + E*r_pow3 + a_pow2*E*twoM_plus_r,3);
/* Compute A coefficients */
{
A0060 = 64*pow(L_pow2 + r_pow2 + (a_pow2*twoM_plus_r)/r,3);
A0061 = (32*L*(-(a_pow2*M) + r_pow3)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*ur)/r_pow4;
A0080 = (32*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2))*(a_pow10*M_pow2*twoM_plus_r + twoM_minus_r*r_pow7*(L_pow2 + r_pow2)*(L_pow2*(8*M - 3*r) + 2*M*r_pow2) - a_pow8*M*(8*M_pow3*r + M*r_pow3 + 2*r_pow4 - L_pow2*M*(8*M + 5*r)) - 4*E_pow2*M*pow(r_pow3 + a_pow2*twoM_plus_r,3)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2)) - 4*a*E*L*M*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2))*(a_pow6*M + (2*M - 3*r)*r_pow6 - a_pow2*r_pow3*(22*M_pow2 + 3*M*r + 4*r_pow2) - a_pow4*(16*M_pow3 + 18*M_pow2*r + r_pow3)) - a_pow4*r*(4*L_pow4*M*(8*M_pow3 + 6*M_pow2*r - 3*M*r_pow2 + 2*r_pow3) + 3*M*r_pow4*(4*M_pow3 - 4*M_pow2*r - 3*M*r_pow2 + 4*r_pow3) + L_pow2*r_pow2*(92*M_pow4 + 12*M_pow3*r - 13*M_pow2*r_pow2 + 24*M*r_pow3 - 3*r_pow4)) - a_pow6*M*(-4*L_pow4*M*r + 2*L_pow2*(32*M_pow4 + 40*M_pow3*r + 2*M_pow2*r_pow2 - M*r_pow3 + 5*r_pow4) + r_pow2*(-8*M_pow4 + 4*M_pow3*r - 10*M_pow2*r_pow2 + M*r_pow3 + 8*r_pow4)) + a_pow2*r_pow4*(4*M*(3*M - 2*r)*r_pow5 + L_pow4*(-32*M_pow3 + 24*M_pow2*r - 16*M*r_pow2 + 3*r_pow3) + L_pow2*(-8*M_pow3*r_pow2 + 24*M_pow2*r_pow3 - 30*M*r_pow4 + 6*r_pow5)) + r_pow2*(3*a_pow8*M*(14*M_pow2 + 15*M*r + 4*r_pow2) + 2*a_pow6*M*r*(-26*M_pow3 + 51*M*r_pow2 + 23*r_pow3 + 3*L_pow2*(5*M + 2*r)) + r_pow8*((10*M - 3*r)*r_pow2 + L_pow2*(-8*M + 6*r)) + 2*a_pow2*r_pow5*(3*(5*M - r)*r_pow3 + L_pow2*(8*M_pow2 + 4*M*r + 3*r_pow2)) + a_pow4*r_pow2*(2*L_pow2*M*(-22*M_pow2 + 11*M*r + 8*r_pow2) - 3*r_pow2*(22*M_pow3 - 15*M_pow2*r - 18*M*r_pow2 + r_pow3)))*ur_pow2))/(3.*r_pow8*(a_pow2 + r*r_minus_twoM));
A0081 = (16*ur*(-6*E_pow2*L*M*r*(r_pow3 + a_pow2*twoM_plus_r)*(a_pow8*twoM_plus_r_pow3*(16*M + 3*r) + r_pow6*(2*L_pow6 + 7*L_pow4*r_pow2 + 10*L_pow2*r_pow4 + 5*r_pow6) + 2*a_pow6*r*twoM_plus_r_pow2*(L_pow2*(23*M + 4*r) + r_pow2*(29*M + 7*r)) + a_pow4*r_pow2*twoM_plus_r*(7*L_pow4*(6*M + r) + 6*r_pow4*(13*M + 4*r) + 2*L_pow2*r_pow2*(56*M + 13*r)) + 2*a_pow2*r_pow3*(7*L_pow4*r_pow2*(4*M + r) + L_pow6*(6*M + r) + r_pow6*(23*M + 9*r) + L_pow2*r_pow4*(43*M + 14*r))) + 4*a*E*M*(a_pow12*M*twoM_plus_r_pow2*(11*M + 6*r) + 3*r_pow7*(L_pow2 + r_pow2)*(L_pow6*(8*M - 2*r) + 5*L_pow4*(4*M - r)*r_pow2 + 2*L_pow2*(7*M - r)*r_pow4 + 2*twoM_minus_r*r_pow6) + a_pow10*r*twoM_plus_r*(-44*M_pow4 + 18*M_pow3*r + 82*M_pow2*r_pow2 + 26*M*r_pow3 - 3*r_pow4 + L_pow2*M*(25*M + 12*r)) + a_pow2*r_pow4*(L_pow4*r_pow4*(720*M_pow2 + 170*M*r - 73*r_pow2) + L_pow2*r_pow6*(384*M_pow2 + 136*M*r - 53*r_pow2) + r_pow8*(24*M_pow2 + 26*M*r - 25*r_pow2) + 6*L_pow8*(12*M_pow2 + 2*M*r - r_pow2) - 42*L_pow6*r_pow2*(-10*M_pow2 - 2*M*r + r_pow2)) + a_pow4*r_pow3*(L_pow2*r_pow4*(1026*M_pow3 + 915*M_pow2*r + 76*M*r_pow2 - 85*r_pow3) + L_pow4*r_pow2*(1476*M_pow3 + 1094*M_pow2*r + 20*M*r_pow2 - 79*r_pow3) + r_pow6*(-90*M_pow3 + 73*M_pow2*r + 20*M*r_pow2 - 42*r_pow3) + 21*L_pow6*(24*M_pow3 + 16*M_pow2*r - r_pow3)) + a_pow6*r_pow2*(L_pow2*r_pow2*(1332*M_pow4 + 1734*M_pow3*r + 715*M_pow2*r_pow2 - 20*M*r_pow3 - 59*r_pow4) + L_pow4*(1104*M_pow4 + 1268*M_pow3*r + 404*M_pow2*r_pow2 - 34*M*r_pow3 - 27*r_pow4) - 6*r_pow4*(44*M_pow4 + 21*M_pow3*r - 27*M_pow2*r_pow2 - 3*M*r_pow3 + 6*r_pow4)) + a_pow8*r*(2*L_pow4*M*r*(7*M + 3*r) + L_pow2*(768*M_pow5 + 1196*M_pow4*r + 774*M_pow3*r_pow2 + 241*M_pow2*r_pow3 - 2*M*r_pow4 - 15*r_pow5) + 2*r_pow2*(-84*M_pow5 - 142*M_pow4*r + 47*M_pow3*r_pow2 + 106*M_pow2*r_pow3 + 13*M*r_pow4 - 8*r_pow5))) - L*(a_pow12*M_pow2*(176*M_pow3 + 254*M_pow2*r + 119*M*r_pow2 + 18*r_pow3) + 3*twoM_minus_r*r_pow11*(L_pow2 + r_pow2)*(4*M*r_pow2 + L_pow2*(-2*M + 3*r)) + a_pow10*M*r*(-352*M_pow5 - 80*M_pow4*r + 520*M_pow3*r_pow2 + 289*M_pow2*r_pow3 - 11*M*r_pow4 - 18*r_pow5 + L_pow2*M*(200*M_pow2 + 175*M*r + 36*r_pow2)) + a_pow6*M*r_pow2*(r_pow4*(-780*M_pow4 + 24*M_pow3*r + 563*M_pow2*r_pow2 - 183*M*r_pow3 - 156*r_pow4) + L_pow2*r_pow2*(1980*M_pow4 + 1628*M_pow3*r + 355*M_pow2*r_pow2 - 290*M*r_pow3 - 105*r_pow4) + 2*L_pow4*(1104*M_pow4 + 688*M_pow3*r - 41*M_pow2*r_pow2 - 97*M*r_pow3 - 9*r_pow4)) - a_pow4*r_pow3*(-168*L_pow6*M_pow2*(6*M_pow2 + M*r - r_pow2) + L_pow4*M*r_pow2*(-2172*M_pow3 - 562*M_pow2*r + 392*M*r_pow2 + 21*r_pow3) + M*r_pow6*(144*M_pow3 - 394*M_pow2*r + 35*M*r_pow2 + 144*r_pow3) + L_pow2*r_pow4*(-1092*M_pow4 - 680*M_pow3*r + 217*M_pow2*r_pow2 + 126*M*r_pow3 + 9*r_pow4)) + a_pow8*M*r*(2*L_pow4*M*r*(28*M + 9*r) + L_pow2*(1536*M_pow5 + 1424*M_pow4*r + 540*M_pow3*r_pow2 + 138*M_pow2*r_pow3 - 85*M*r_pow4 - 36*r_pow5) - r_pow2*(504*M_pow5 + 756*M_pow4*r - 482*M_pow3*r_pow2 - 447*M_pow2*r_pow3 + 147*M*r_pow4 + 84*r_pow5)) + 3*a_pow2*r_pow4*(16*L_pow8*M_pow2*(3*M - r) + 56*L_pow6*M_pow2*(3*M - r)*r_pow2 + 2*M*r_pow8*(18*M_pow2 + 9*M*r - 11*r_pow2) + L_pow4*r_pow4*(224*M_pow3 - 70*M_pow2*r + M*r_pow2 - 3*r_pow3) + L_pow2*(116*M_pow3*r_pow6 - 15*M*r_pow8 - 6*r_pow9))) + 3*L*r_pow3*(3*a_pow10*M*(66*M_pow3 + 105*M_pow2*r + 56*M*r_pow2 + 10*r_pow3) + r_pow7*(4*L_pow6*M + 14*L_pow4*M*r_pow2 + (16*M - 3*r)*r_pow6 + 2*L_pow2*r_pow4*(8*M + r)) + a_pow2*r_pow4*(-8*L_pow6*M*(2*M - 3*r) + 2*L_pow2*r_pow5*(71*M + r) + 14*L_pow4*M*r_pow2*(-2*M + 7*r) + r_pow6*(2*M_pow2 + 87*M*r - 6*r_pow2)) + a_pow8*M*r*(-140*M_pow4 + 588*M_pow2*r_pow2 + 551*M*r_pow3 + 138*r_pow4 + L_pow2*(294*M_pow2 + 308*M*r + 80*r_pow2)) + a_pow4*r_pow3*(20*L_pow6*M - 14*L_pow4*M*(8*M_pow2 - 8*M*r - 11*r_pow2) + 2*L_pow2*M*r_pow2*(-114*M_pow2 + 161*M*r + 155*r_pow2) - 3*r_pow4*(46*M_pow3 - 77*M_pow2*r - 72*M*r_pow2 + r_pow3)) + a_pow6*M*r_pow2*(70*L_pow4*twoM_plus_r + r_pow2*(-226*M_pow3 + 171*M_pow2*r + 624*M*r_pow2 + 253*r_pow3) + L_pow2*(-220*M_pow3 + 110*M_pow2*r + 642*M*r_pow2 + 268*r_pow3)))*ur_pow2))/(3.*r_pow10*(a_pow2 + r*r_minus_twoM));
A0240 = 48*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2);
A0241 = 8*L*(a_pow2 + L_pow2 + 3*r_pow2)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2))*ur;
A0260 = (4*(36*L_pow2*r*(-(a_pow2*M) + r_pow3)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2))*ur_pow2 + 18*r*pow(-(a_pow2*L*M*ur) + L*r_pow3*ur,2) + 3*r_pow5*(L_pow2 + r_pow2 + (a_pow2*twoM_plus_r)/r)*(4*L_pow2 + (16*L*M*(-(a_pow5*E*M) + a_pow4*L*M + 2*a_pow2*L*(M - r)*r_pow2 + 3*a*E*r_pow5 - 2*L*r_pow5 + a_pow3*E*r_pow2*(-3*M + r)))/(3.*r_pow6) - (4*M*(-(a_pow6*M) + 2*r_pow7 + 4*a_pow2*r_pow4*(-M + r) + a_pow4*r*(2*M_pow2 - M*r + 2*r_pow2)))/(3.*r_pow6) - pow((2*a_pow2*M)/r_pow2 - 2*r,2)*ur_pow2) - (64*a*L_pow2*M_pow2*(r_pow3 + a_pow2*twoM_plus_r)*(L_pow2 + r_pow2 + (a_pow2*twoM_plus_r)/r)*(a_pow2*E*L + E*L*r*r_minus_twoM - 3*a_pow3*ur_pow2 + a*(2*M - 3*r)*r*ur_pow2))/pow(a_pow2 + r*r_minus_twoM,2) + (96*a*M_pow2*(r_pow3 + a_pow2*twoM_plus_r)*pow(L_pow2 + r_pow2 + (a_pow2*twoM_plus_r)/r,2)*(a_pow2*E*L + E*L*r*r_minus_twoM - 3*a_pow3*ur_pow2 + a*(2*M - 3*r)*r*ur_pow2))/pow(a_pow2 + r*r_minus_twoM,2) + (16*L_pow2*M*pow(r_pow3 + a_pow2*twoM_plus_r,2)*(L_pow2 + r_pow2 + (a_pow2*twoM_plus_r)/r)*(a_pow2*(E_pow2 - 3*ur_pow2) - twoM_minus_r*r*(E_pow2 - ur_pow2)))/pow(a_pow2 + r*r_minus_twoM,2) + (24*M*pow(r_pow3 + a_pow2*twoM_plus_r,2)*pow(L_pow2 + r_pow2 + (a_pow2*twoM_plus_r)/r,2)*(-(a_pow2*(E_pow2 - 3*ur_pow2)) + twoM_minus_r*r*(E_pow2 - ur_pow2)))/pow(a_pow2 + r*r_minus_twoM,2) + (64*a_pow2*L_pow2*M_pow3*(L_pow2 + r_pow2 + (a_pow2*twoM_plus_r)/r)*(-3*a_pow4*ur_pow2 + a_pow2*(L_pow2 + (2*M - 5*r)*r*ur_pow2) + r*(L_pow2*r_minus_twoM - 2*r_pow3*ur_pow2)))/pow(a_pow2 + r*r_minus_twoM,2) - (96*a_pow2*M_pow3*pow(L_pow2 + r_pow2 + (a_pow2*twoM_plus_r)/r,2)*(-3*a_pow4*ur_pow2 + a_pow2*(L_pow2 + (2*M - 5*r)*r*ur_pow2) + r*(L_pow2*r_minus_twoM - 2*r_pow3*ur_pow2)))/pow(a_pow2 + r*r_minus_twoM,2) - (8*L_pow2*M*pow(L_pow2 + r_pow2 + (a_pow2*twoM_plus_r)/r,2)*(-3*a_pow4*E_pow2 + 6*a_pow3*E*L + 2*a*E*L*r*(-4*M + 3*r) + a_pow2*(-3*L_pow2 + 4*E_pow2*(M - r)*r) + r*(L_pow2*(4*M - 2*r) + r_pow3*(-E_pow2 + ur_pow2))))/(a_pow2 + r*r_minus_twoM) + (8*M*pow(L_pow2 + r_pow2 + (a_pow2*twoM_plus_r)/r,3)*(-3*a_pow4*E_pow2 + 6*a_pow3*E*L + 2*a*E*L*r*(-4*M + 3*r) + a_pow2*(-3*L_pow2 + 4*E_pow2*(M - r)*r) + r*(L_pow2*(4*M - 2*r) + r_pow3*(-E_pow2 + ur_pow2))))/(a_pow2 + r*r_minus_twoM) + 4*pow(L_pow2 + r_pow2 + (a_pow2*twoM_plus_r)/r,2)*(3*a_pow4*M - 6*a_pow3*E*L*M + 6*a*E*L*M*r_pow2 + r_pow2*(L_pow2*(-4*M + 6*r) + r_pow2*(-2*M + 3*r - 3*r*ur_pow2)) + a_pow2*(6*L_pow2*M + r*(2*M_pow2 + 3*r_pow2 + M*r*(7 + 3*ur_pow2))))))/(3.*r_pow3);
A0261 = (4*ur*(4*a_pow11*E*M*(132*M_pow3 + 170*M_pow2*r + 70*M*r_pow2 + 9*r_pow3) - a_pow10*L*M*(48*(11 + 12*E_pow2)*M_pow3 + (617 + 936*E_pow2)*M_pow2*r + (211 + 504*E_pow2)*M*r_pow2 + 18*(1 + 5*E_pow2)*r_pow3) + 12*a*E*M*r_pow4*(-2*L_pow8*(8*M - 5*r) - 28*L_pow6*(M - r)*r_pow2 - 4*L_pow4*(M - 8*r)*r_pow4 + 8*twoM_minus_r*r_pow8 + L_pow2*r_pow6*(22*M + 9*r)) + 4*a_pow3*E*M*r_pow3*(30*L_pow8 + 3*r_pow6*(24*M_pow2 + 18*M*r - 23*r_pow2) - 21*L_pow6*(4*M_pow2 - 4*M*r - 9*r_pow2) + L_pow2*r_pow4*(396*M_pow2 + 332*M*r + 131*r_pow2) + L_pow4*r_pow2*(240*M_pow2 + 314*M*r + 305*r_pow2)) + 4*a_pow5*E*M*r_pow2*(105*L_pow6*twoM_plus_r + 2*r_pow4*(-90*M_pow3 + 3*M_pow2*r + 16*M*r_pow2 - 29*r_pow3) + L_pow2*r_pow2*(882*M_pow3 + 899*M_pow2*r + 774*M*r_pow2 + 246*r_pow3) + L_pow4*(456*M_pow3 + 448*M_pow2*r + 784*M*r_pow2 + 338*r_pow3)) + 4*a_pow9*E*M*(L_pow2*(288*M_pow3 + 593*M_pow2*r + 350*M*r_pow2 + 63*r_pow3) + 2*r*(-132*M_pow4 - 38*M_pow3*r + 153*M_pow2*r_pow2 + 96*M*r_pow3 + 13*r_pow4)) + 4*a_pow7*E*M*r*(L_pow4*(444*M_pow2 + 490*M*r + 129*r_pow2) + 2*r_pow2*(-132*M_pow4 - 210*M_pow3*r + 43*M_pow2*r_pow2 + 74*M*r_pow3 + 2*r_pow4) + L_pow2*(816*M_pow4 + 830*M_pow3*r + 1072*M_pow2*r_pow2 + 862*M*r_pow3 + 205*r_pow4)) - a_pow8*L*M*(L_pow2*(576*M_pow3 + 4*(359 + 222*E_pow2)*M_pow2*r + (827 + 924*E_pow2)*M*r_pow2 + 6*(21 + 40*E_pow2)*r_pow3) + r*(96*(-11 + 17*E_pow2)*M_pow4 + 4*(-79 + 888*E_pow2)*M_pow3*r + M*r_pow3*(428 + 2328*E_pow2 - 1125*ur_pow2) + 9*M_pow2*r_pow2*(106 + 456*E_pow2 - 115*ur_pow2) + 6*r_pow4*(1 + 80*E_pow2 - 51*ur_pow2))) + 3*L*r_pow4*(16*L_pow8*M*twoM_minus_r + L_pow4*r_pow4*(152*M_pow2 + 7*r_pow2 - 2*M*r*(45 + 14*E_pow2 - 14*ur_pow2)) + 4*L_pow6*M*r_pow2*(28*M + r*(-14 - E_pow2 + ur_pow2)) + 2*L_pow2*r_pow6*(26*M_pow2 - 3*M*r*(7 + 10*E_pow2 - 8*ur_pow2) + r_pow2*(4 + 3*ur_pow2)) - 2*r_pow8*(16*M_pow2 + 2*M*r*(-5 + 10*E_pow2 - 16*ur_pow2) + r_pow2*(1 + 6*ur_pow2))) - a_pow6*L*r*(2*L_pow4*M*(444*M_pow2 + 14*(37 + 15*E_pow2)*M*r + 3*(43 + 35*E_pow2)*r_pow2) + 2*L_pow2*M*(816*M_pow4 + 4*(-29 + 114*E_pow2)*M_pow3*r + 2*(223 + 588*E_pow2)*M_pow2*r_pow2 + 3*M*r_pow3*(277 + 456*E_pow2 - 169*ur_pow2) + 6*r_pow4*(34 + 76*E_pow2 - 43*ur_pow2)) + r_pow2*(-780*M_pow5 + 6*r_pow5 + M_pow2*r_pow3*(193 + 3960*E_pow2 - 2547*ur_pow2) + M_pow3*r_pow2*(397 + 5400*E_pow2 - 513*ur_pow2) + 6*M*r_pow4*(-19 + 170*E_pow2 - 188*ur_pow2) + 6*M_pow4*r*(-188 + 496*E_pow2 + 113*ur_pow2))) - a_pow4*L*r_pow2*(30*L_pow6*M*(14*M + (7 + 2*E_pow2)*r) + 2*L_pow4*M*(456*M_pow3 - 28*(10 + 3*E_pow2)*M_pow2*r + 4*(128 + 63*E_pow2)*M*r_pow2 + 3*r_pow3*(122 + 84*E_pow2 - 35*ur_pow2)) + 3*r_pow4*(-96*M_pow4 + 2*M_pow2*r_pow2*(-7 + 492*E_pow2 - 231*ur_pow2) + 3*M*r_pow3*(-26 + 120*E_pow2 - 159*ur_pow2) + 3*r_pow4*(2 + 3*ur_pow2) + 4*M_pow3*r*(26 + 186*E_pow2 + 69*ur_pow2)) + L_pow2*r_pow2*(804*M_pow4 - 15*r_pow4 + M_pow2*r_pow2*(787 + 2652*E_pow2 - 966*ur_pow2) + 3*M*r_pow3*(165 + 428*E_pow2 - 396*ur_pow2) + 4*M_pow3*r*(-146 + 354*E_pow2 + 171*ur_pow2))) - 3*a_pow2*L*r_pow3*(20*L_pow8*M - 2*L_pow6*M*(28*M_pow2 + 4*(7 + 4*E_pow2)*M*r - 3*(21 + 4*E_pow2)*r_pow2) + r_pow6*(108*M_pow3 + M*r_pow2*(-64 + 190*E_pow2 - 261*ur_pow2) + 2*M_pow2*r*(13 + 136*E_pow2 - 3*ur_pow2) + 3*r_pow3*(2 + 7*ur_pow2)) + L_pow4*r_pow2*(-96*M_pow3 - 7*r_pow3 + 2*M*r_pow2*(117 + 63*E_pow2 - 49*ur_pow2) + 4*M_pow2*r*(-37 + 7*E_pow2 + 7*ur_pow2)) - L_pow2*r_pow4*(16*M_pow3 + (54 - 280*E_pow2)*M_pow2*r + r_pow3*(13 + 6*ur_pow2) + M*r_pow2*(-107 - 264*E_pow2 + 284*ur_pow2)))))/(3.*r_pow7*(a_pow2 + r*r_minus_twoM));
A0420 = 12*r_pow3*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2));
A0421 = 2*L*r_pow2*(2*L_pow2*r + 3*r_pow3 + a_pow2*(3*M + 2*r))*ur;
A0440 = (-2*(-4*a_pow7*E*L*M*(72*M_pow2 + 59*M*r + 12*r_pow2) + 4*a*E*L*M*r_pow3*(L_pow4*(8*M - 6*r) + 6*L_pow2*(6*M - 5*r)*r_pow2 + 3*(10*M - 9*r)*r_pow4) + a_pow8*(-13*M_pow2*r + 3*r_pow3 + 36*E_pow2*M*twoM_plus_r_pow2) - 4*a_pow5*E*L*M*r*(-48*M_pow3 + 50*M_pow2*r + 140*M*r_pow2 + 49*r_pow3 + 6*L_pow2*(8*M + 3*r)) - 4*a_pow3*E*L*M*r_pow2*(6*L_pow4 + L_pow2*(-48*M_pow2 + 36*M*r + 48*r_pow2) + r_pow2*(-66*M_pow2 + 55*M*r + 64*r_pow2)) + a_pow2*r_pow2*(12*L_pow6*M + 2*r_pow4*(-12*M_pow3 + 3*M*r_pow2*(3 + 18*E_pow2 - 17*ur_pow2) + 2*M_pow2*r*(23 + 18*E_pow2 - 15*ur_pow2) + 18*r_pow3*(-1 + ur_pow2)) - 2*L_pow4*(48*M_pow3 + 8*(-3 + E_pow2)*M_pow2*r - 2*(17 + 4*E_pow2)*M*r_pow2 + r_pow3*(11 + 3*ur_pow2)) + L_pow2*r_pow2*(-192*M_pow3 + 176*M_pow2*r + 6*M*r_pow2*(18 + 16*E_pow2 - 7*ur_pow2) - r_pow3*(73 + 12*ur_pow2))) + r_pow3*(8*L_pow6*M*r_minus_twoM + L_pow4*r_pow2*(-100*M_pow2 + 4*M*r*(25 + E_pow2 + 2*ur_pow2) - r_pow2*(25 + 6*ur_pow2)) - L_pow2*r_pow4*(120*M_pow2 - 2*M*r*(71 + 12*E_pow2 - 3*ur_pow2) + r_pow2*(41 + 9*ur_pow2)) + r_pow6*(-24*M_pow2 + 2*M*r*(19 + 12*E_pow2 - 30*ur_pow2) + r_pow2*(-13 + 18*ur_pow2))) + a_pow4*r*(3*L_pow4*(32*M_pow2 + 4*(2 + E_pow2)*M*r + r_pow2) - L_pow2*(96*M_pow4 + 8*(-7 + 12*E_pow2)*M_pow3*r - 4*(53 + 24*E_pow2)*M_pow2*r_pow2 - 8*M*r_pow3*(-2 + 15*E_pow2 - 3*ur_pow2) + r_pow4*(26 + 3*ur_pow2)) + r_pow2*(12*M_pow4 + M_pow2*r_pow2*(55 + 288*E_pow2 - 105*ur_pow2) + 6*M*r_pow3*(-13 + 30*E_pow2 - 14*ur_pow2) + 3*r_pow4*(-10 + 7*ur_pow2) + 2*M_pow3*r*(58 + 33*ur_pow2))) + a_pow6*(2*L_pow2*(72*M_pow3 + 2*(23 + 24*E_pow2)*M_pow2*r + 6*(1 + 4*E_pow2)*M*r_pow2 + 3*r_pow3) + r*(12*E_pow2*M*(-8*M_pow3 + 12*M_pow2*r + 30*M*r_pow2 + 11*r_pow3) + r*(20*M_pow3 + r_pow3*(-4 + 3*ur_pow2) - 2*M*r_pow2*(29 + 18*ur_pow2) - M_pow2*r*(74 + 81*ur_pow2))))))/(3.*r_pow3*(a_pow2 + r*r_minus_twoM));
A0441 = (ur*(4*a_pow9*E*M*(147*M_pow2 + 134*M*r + 30*r_pow2) - a_pow8*L*M*(12*(49 + 90*E_pow2)*M_pow2 + (419 + 1152*E_pow2)*M*r + 3*(19 + 102*E_pow2)*r_pow2) - 12*a*E*M*r_pow3*(7*L_pow6*(8*M - 5*r) + 5*L_pow4*(22*M - 17*r)*r_pow2 + 3*L_pow2*(14*M - 17*r)*r_pow4 + 12*r_pow6*r_minus_twoM) + 4*a_pow3*E*M*r_pow2*(105*L_pow6 + 3*r_pow4*(24*M_pow2 + 2*M*r - 19*r_pow2) + 4*L_pow2*r_pow2*(-90*M_pow2 + 64*M*r + 121*r_pow2) + L_pow4*(-480*M_pow2 + 144*M*r + 516*r_pow2)) + 4*a_pow7*E*M*(2*L_pow2*(270*M_pow2 + 328*M*r + 93*r_pow2) + r*(-294*M_pow3 - 76*M_pow2*r + 200*M*r_pow2 + 73*r_pow3)) + 4*a_pow5*E*M*r*(3*L_pow4*(166*M + 87*r) + r_pow2*(-90*M_pow3 - 207*M_pow2*r + 4*M*r_pow2 + 22*r_pow3) + L_pow2*(-144*M_pow3 - 16*M_pow2*r + 1022*M*r_pow2 + 517*r_pow3)) - a_pow6*L*(L_pow2*M*(1080*M_pow2 + 4*(368 + 249*E_pow2)*M*r + 3*(125 + 172*E_pow2)*r_pow2) + r*(-24*(49 + 12*E_pow2)*M_pow4 + 2*(-89 + 612*E_pow2)*M_pow3*r + 5*r_pow4 + M_pow2*r_pow2*(592 + 2880*E_pow2 - 675*ur_pow2) + M*r_pow3*(95 + 1134*E_pow2 - 369*ur_pow2))) + L*r_pow3*(168*L_pow6*M*twoM_minus_r + 2*L_pow4*r_pow2*(438*M_pow2 + 11*r_pow2 + M*r*(-241 - 21*E_pow2 + 21*ur_pow2)) - r_pow6*(144*M_pow2 + 2*M*r*(-59 + 90*E_pow2 - 144*ur_pow2) + r_pow2*(23 + 54*ur_pow2)) + 2*L_pow2*r_pow4*(270*M_pow2 + r_pow2*(13 + 9*ur_pow2) + M*r*(-161 - 90*E_pow2 + 72*ur_pow2))) - a_pow4*L*r*(6*L_pow4*M*(166*M + (88 + 35*E_pow2)*r) + L_pow2*(-288*M_pow4 - 8*(161 + 120*E_pow2)*M_pow3*r + 4*(413 + 204*E_pow2)*M_pow2*r_pow2 - 17*r_pow4 + 2*M*r_pow3*(487 + 618*E_pow2 - 129*ur_pow2)) + r_pow2*(-144*M_pow4 + M_pow2*r_pow2*(49 + 2160*E_pow2 - 693*ur_pow2) + 9*M*r_pow3*(-3 + 170*E_pow2 - 102*ur_pow2) + 3*r_pow4*(11 + 9*ur_pow2) + 2*M_pow3*r*(-251 + 207*ur_pow2))) + a_pow2*L*r_pow2*(-210*L_pow6*M + L_pow4*(960*M_pow3 + 48*(5 + 7*E_pow2)*M_pow2*r - 6*(163 + 42*E_pow2)*M*r_pow2 + 22*r_pow3) + L_pow2*r_pow2*(1140*M_pow3 + 4*(67 + 57*E_pow2)*M_pow2*r - 3*M*r_pow2*(301 + 300*E_pow2 - 142*ur_pow2) + r_pow3*(43 + 18*ur_pow2)) + r_pow4*(-324*M_pow3 + 2*M_pow2*r*(26 - 216*E_pow2 + 9*ur_pow2) - 3*r_pow3*(17 + 27*ur_pow2) + 3*M*r_pow2*(61 - 294*E_pow2 + 261*ur_pow2)))))/(3.*r_pow4*(a_pow2 + r*r_minus_twoM));
A0600 = r_pow6;
A0601 = (L*r_pow5*ur)/2.;
A0620 = (12*a_pow5*E*L*M*(12*M + 5*r) + 8*a_pow3*E*L*M*r*(6*L_pow2 - 20*M_pow2 + 11*M*r + 18*r_pow2) - 6*a_pow6*(r*(M + r) + 6*E_pow2*M*twoM_plus_r) + 4*a*E*L*M*r_pow2*(-4*L_pow2*(4*M - 3*r) + r_pow2*(-26*M + 21*r)) + r_pow2*(16*L_pow4*M*twoM_minus_r + 4*r_pow4*(4*M_pow2 - 2*M*r*(3 + 2*E_pow2 - 5*ur_pow2) + r_pow2*(2 - 3*ur_pow2)) + L_pow2*r_pow2*(72*M_pow2 + 2*M*r*(-32 - 4*E_pow2 + ur_pow2) + r_pow2*(14 + 3*ur_pow2))) + a_pow2*r*(-24*L_pow4*M + L_pow2*(80*M_pow3 + 8*(-3 + 4*E_pow2)*M_pow2*r - 16*(3 + 2*E_pow2)*M*r_pow2 + r_pow3*(8 + 3*ur_pow2)) + 2*r_pow2*(4*M_pow3 + r_pow3*(5 - 9*ur_pow2) + 2*M_pow2*r*(-8 + 2*E_pow2 + 5*ur_pow2) + M*r_pow2*(1 - 34*E_pow2 + 17*ur_pow2))) - 2*a_pow4*(3*L_pow2*(12*M_pow2 + 4*(1 + E_pow2)*M*r + r_pow2) + r*(4*E_pow2*M*(-10*M_pow2 + 8*M*r + 11*r_pow2) + r*(-4*M_pow2 + r_pow2*(2 + 3*ur_pow2) - M*r*(10 + 3*ur_pow2)))))/(6.*(a_pow2 + r*r_minus_twoM));
A0621 = (ur*(4*a_pow7*E*M*(70*M + 33*r) - a_pow6*L*(8*(35 + 81*E_pow2)*M_pow2 + 3*(35 + 114*E_pow2)*M*r + 9*r_pow2) - 12*a*E*M*r_pow2*(L_pow4*(72*M - 46*r) + L_pow2*(78*M - 59*r)*r_pow2 + 8*r_pow4*r_minus_twoM) + 8*a_pow5*E*M*(3*L_pow2*(54*M + 31*r) + r*(-70*M_pow2 - 4*M*r + 25*r_pow2)) + 4*a_pow3*E*M*r*(138*L_pow4 + r_pow2*(24*M_pow2 - 46*M*r - 7*r_pow2) + L_pow2*(-372*M_pow2 + 60*M*r + 363*r_pow2)) + L*r_pow2*(216*L_pow4*M*twoM_minus_r + L_pow2*r_pow2*(564*M_pow2 - 4*M*r*(76 + 15*E_pow2 - 12*ur_pow2) + r_pow2*(11 + 6*ur_pow2)) - 4*r_pow4*(24*M_pow2 + 2*M*r*(-13 + 15*E_pow2 - 24*ur_pow2) + r_pow2*(7 + 9*ur_pow2))) - a_pow4*L*(3*L_pow2*(216*M_pow2 + 2*(67 + 46*E_pow2)*M*r + 3*r_pow2) + r*(-8*(70 + 93*E_pow2)*M_pow3 + 8*(2 + 57*E_pow2)*M_pow2*r + M*r_pow2*(146 + 828*E_pow2 - 135*ur_pow2) + r_pow3*(34 + 9*ur_pow2))) + a_pow2*L*r*(-276*L_pow4*M + 2*L_pow2*(372*M_pow3 - 3*(113 + 56*E_pow2)*M*r_pow2 + 108*M_pow2*(r + 2*E_pow2*r) + r_pow3*(1 + 3*ur_pow2)) + r_pow2*(-108*M_pow3 + 2*M_pow2*r*(86 + 120*E_pow2 + 3*ur_pow2) - r_pow3*(53 + 45*ur_pow2) + 3*M*r_pow2*(13 - 202*E_pow2 + 87*ur_pow2)))))/(12.*r*(a_pow2 + r*r_minus_twoM));
A0800 = (r_pow3*(r*(-3*a_pow2 + r*(-2*M + r - 3*r*ur_pow2)) + (4*M*(-3*a_pow4*E_pow2 + 6*a_pow3*E*L + 2*a*E*L*r*(-4*M + 3*r) + a_pow2*(-3*L_pow2 + 4*E_pow2*(M - r)*r) + r*(L_pow2*(4*M - 2*r) + r_pow3*(-E_pow2 + ur_pow2))))/(a_pow2 + r*r_minus_twoM)))/24.;
A0801 = -(r_pow2*ur*(-48*a_pow5*E*M + 3*a_pow4*L*(2*(8 + 21*E_pow2)*M + 3*r) - 12*a_pow3*E*M*(21*L_pow2 + 2*r*(-4*M + r)) + 12*a*E*M*r*(L_pow2*(32*M - 21*r) + 2*r_pow2*r_minus_twoM) + L*r*(-96*L_pow2*M*twoM_minus_r + r_pow2*(24*M_pow2 + 2*M*r*(-17 + 15*E_pow2 - 24*ur_pow2) + r_pow2*(11 + 9*ur_pow2))) + a_pow2*L*(126*L_pow2*M + r*(-96*(1 + 2*E_pow2)*M_pow2 + 6*(3 + 26*E_pow2)*M*r + r_pow2*(20 + 9*ur_pow2)))))/(48.*(a_pow2 + r*r_minus_twoM));
A1060 = 16*pow(L_pow2 + r_pow2 + (a_pow2*twoM_plus_r)/r,2)*((2*a_pow2*M)/r_pow2 - 2*r - ((-2*r_pow3*(-(a_pow2*M) + r_pow3)*(r_pow3 + a_pow2*twoM_plus_r)*ur_pow2)/(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2)) - 4*L*(-(a_pow3*E*M*r) + a_pow2*L*M*r - 3*a*E*M*r_pow3 + 2*L*M*r_pow3 - L*r_pow4 + (L*r_pow4*(a_pow2*M - r_pow3)*ur_pow2)/(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2))))/(r_pow3*(a_pow2 + r*r_minus_twoM)));
A1061 = (16*ur*(8*E_pow2*L*M*r*pow(r_pow3 + a_pow2*twoM_plus_r,3)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2)) + 2*a*E*M*(2*a_pow10*twoM_plus_r_pow2*(4*M + 3*r) + r_pow8*(L_pow2 + r_pow2)*(L_pow2*(26*M - 21*r) + 18*r_pow2*r_minus_twoM) + a_pow8*r*twoM_plus_r*(-32*M_pow3 - 24*M_pow2*r + 56*M*r_pow2 + 34*r_pow3 + L_pow2*(29*M + 12*r)) - a_pow2*r_pow5*(2*r_pow4*(72*M_pow2 + 16*M*r - 35*r_pow2) + L_pow2*r_pow2*(162*M_pow2 + 47*M*r - 13*r_pow2) + L_pow4*(142*M_pow2 - M*r + 18*r_pow2)) + a_pow4*r_pow2*(L_pow4*(-64*M_pow3 - 106*M_pow2*r + 32*M*r_pow2 + 9*r_pow3) + 4*r_pow4*(-36*M_pow3 - 54*M_pow2*r + 26*M*r_pow2 + 27*r_pow3) + L_pow2*r_pow2*(-348*M_pow3 - 326*M_pow2*r + 29*M*r_pow2 + 47*r_pow3)) + a_pow6*r*(3*L_pow4*r*(7*M + 2*r) + 4*r_pow3*(-48*M_pow3 - 10*M_pow2*r + 48*M*r_pow2 + 21*r_pow3) + L_pow2*(-128*M_pow4 - 308*M_pow3*r - 66*M_pow2*r_pow2 + 119*M*r_pow3 + 43*r_pow4))) - L*(a_pow10*M*(64*M_pow3 + 110*M_pow2*r + 51*M*r_pow2 + 6*r_pow3) + twoM_minus_r*r_pow8*(L_pow2 + r_pow2)*(2*L_pow2*(11*M - 6*r) + r_pow2*(-8*M + 3*r)) + a_pow8*M*r*(-128*M_pow4 - 176*M_pow3*r + 240*M_pow2*r_pow2 + 223*M*r_pow3 + 32*r_pow4 + L_pow2*(116*M_pow2 + 93*M*r + 12*r_pow2)) + a_pow2*r_pow5*(r_pow4*(-252*M_pow3 + 90*M_pow2*r + 38*M*r_pow2 - 9*r_pow3) - 2*L_pow4*(74*M_pow3 - 45*M_pow2*r + 19*M*r_pow2 - 6*r_pow3) + 2*L_pow2*r_pow2*(-140*M_pow3 + 60*M_pow2*r - 15*M*r_pow2 + 9*r_pow3)) - a_pow4*r_pow2*(2*L_pow4*M*(32*M_pow3 + 58*M_pow2*r - 44*M*r_pow2 + 5*r_pow3) + L_pow2*r_pow2*(340*M_pow4 + 304*M_pow3*r - 277*M_pow2*r_pow2 - 12*M*r_pow3 - 9*r_pow4) + r_pow4*(420*M_pow4 + 284*M_pow3*r - 313*M_pow2*r_pow2 - 54*M*r_pow3 + 9*r_pow4)) + a_pow6*r*(6*L_pow4*M*r*(7*M + r) + 2*L_pow2*M*(-64*M_pow4 - 180*M_pow3*r + 2*M_pow2*r_pow2 + 121*M*r_pow3 + 11*r_pow4) + r_pow2*(40*M_pow5 - 484*M_pow4*r + 74*M_pow3*r_pow2 + 379*M_pow2*r_pow3 + 56*M*r_pow4 - 3*r_pow5))) - L*r_pow3*(3*a_pow8*M*(22*M_pow2 + 27*M*r + 8*r_pow2) + r_pow8*(-4*L_pow2*(4*M - 3*r) + (38*M - 15*r)*r_pow2) + 2*a_pow6*M*r*(-34*M_pow3 + 111*M*r_pow2 + 55*r_pow3 + 6*L_pow2*(5*M + 2*r)) + 2*a_pow2*r_pow5*(3*(13*M - 5*r)*r_pow3 + 2*L_pow2*(8*M_pow2 + 4*M*r + 3*r_pow2)) + a_pow4*r_pow2*(4*L_pow2*M*(-22*M_pow2 + 11*M*r + 8*r_pow2) + 3*r_pow2*(-62*M_pow3 + 27*M_pow2*r + 42*M*r_pow2 - 5*r_pow3)))*ur_pow2))/(3.*r_pow6*pow(a_pow2 + r*r_minus_twoM,2));
A1080 = (-384*a*E_pow3*L*M_pow2*r*(r_pow3 + a_pow2*twoM_plus_r)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(2*L_pow4*r_pow4 + 5*L_pow2*r_pow6 + 2*a_pow6*twoM_plus_r_pow2 + a_pow4*r*twoM_plus_r*(5*L_pow2 + 4*r_pow2) + 2*a_pow2*r_pow2*(L_pow4 + r_pow4 + 5*L_pow2*r*(M + r))) - 16*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(3*a_pow12*M_pow2*r*(3*M + 2*r) - r_pow9*r_minus_twoM_pow2*(2*L_pow4*(8*M - 3*r) + 4*M*r_pow4 + L_pow2*r_pow2*(2*M + 3*r)) - a_pow10*M*(2*L_pow2*M*(40*M_pow2 + 29*M*r - 3*r_pow2) + r_pow2*(50*M_pow3 + 11*M_pow2*r - 19*M*r_pow2 + 6*r_pow3)) + a_pow2*twoM_minus_r*r_pow3*(-48*L_pow8*M_pow2 - 120*L_pow6*M_pow2*r_pow2 + 2*M*r_pow7*(30*M_pow2 - 29*M*r + 11*r_pow2) + 2*L_pow4*r_pow3*(116*M_pow3 - 104*M_pow2*r + 19*M*r_pow2 - 3*r_pow3) + L_pow2*r_pow5*(376*M_pow3 - 206*M_pow2*r + 9*M*r_pow2 + 6*r_pow3)) - a_pow8*M*r*(64*L_pow4*M_pow2 + L_pow2*(-32*M_pow4 + 216*M_pow3*r + 282*M_pow2*r_pow2 - 78*M*r_pow3 + 6*r_pow4) + r_pow2*(-92*M_pow4 + 20*M_pow3*r + 65*M_pow2*r_pow2 - 63*M*r_pow3 + 28*r_pow4)) + a_pow6*M*r*(-8*L_pow4*M*(48*M_pow3 + 22*M_pow2*r + 16*M*r_pow2 - 19*r_pow3) + r_pow3*(-56*M_pow5 + 36*M_pow4*r + 82*M_pow3*r_pow2 - 157*M_pow2*r_pow3 + 163*M*r_pow4 - 52*r_pow5) + L_pow2*r*(256*M_pow5 + 376*M_pow4*r + 24*M_pow3*r_pow2 - 830*M_pow2*r_pow3 + 286*M*r_pow4 - 17*r_pow5)) - a_pow4*r_pow2*(120*L_pow6*(4*M_pow4 - M_pow2*r_pow2) + 2*L_pow4*M*r*(-304*M_pow4 + 88*M_pow3*r + 300*M_pow2*r_pow2 - 180*M*r_pow3 + 11*r_pow4) + M*r_pow5*(48*M_pow4 - 124*M_pow3*r + 272*M_pow2*r_pow2 - 199*M*r_pow3 + 48*r_pow4) + L_pow2*r_pow3*(-296*M_pow5 - 800*M_pow4*r + 1254*M_pow3*r_pow2 - 430*M_pow2*r_pow3 + 18*M*r_pow4 + 3*r_pow5))) + 32*E_pow2*M*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(4*a_pow12*M*(10*M_pow2 + 11*M*r + 3*r_pow2) + twoM_minus_r*r_pow8*(12*L_pow6 + 30*L_pow4*r_pow2 + 17*L_pow2*r_pow4 + 5*r_pow6) + a_pow10*r*(-16*M_pow4 + 168*M_pow3*r + 252*M_pow2*r_pow2 + 78*M*r_pow3 - 3*r_pow4 + 4*L_pow2*M*(8*M + 3*r)) + a_pow2*r_pow5*(r_pow6*(-100*M_pow2 + 86*M*r - 23*r_pow2) + 4*L_pow2*r_pow4*(33*M_pow2 + 11*M*r - 18*r_pow2) + 30*L_pow4*r_pow2*(12*M_pow2 + 4*M*r - 3*r_pow2) + 24*L_pow6*(4*M_pow2 + 2*M*r - r_pow2)) + 2*a_pow4*r_pow3*(6*L_pow6*(12*M_pow2 + 2*M*r - r_pow2) + L_pow2*r_pow3*(-228*M_pow3 + 226*M_pow2*r + 6*M*r_pow2 - 57*r_pow3) + 15*L_pow4*r*(16*M_pow3 + 28*M_pow2*r + 2*M*r_pow2 - 3*r_pow3) - 7*r_pow5*(24*M_pow3 + 6*M_pow2*r - 16*M*r_pow2 + 3*r_pow3)) + 2*a_pow6*r_pow2*(15*L_pow4*(24*M_pow3 + 16*M_pow2*r - r_pow3) + 2*L_pow2*r*(-76*M_pow4 + 76*M_pow3*r + 179*M_pow2*r_pow2 + 2*M*r_pow3 - 20*r_pow4) + r_pow3*(-128*M_pow4 - 260*M_pow3*r + 116*M_pow2*r_pow2 + 142*M*r_pow3 - 19*r_pow4)) + a_pow8*r*(L_pow2*(576*M_pow4 + 664*M_pow3*r + 364*M_pow2*r_pow2 + 18*M*r_pow3 - 21*r_pow4) - r*(128*M_pow5 + 368*M_pow4*r + 120*M_pow3*r_pow2 - 424*M_pow2*r_pow3 - 202*M*r_pow4 + 17*r_pow5))) - 32*a*E*L*M*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(a_pow10*M*(80*M_pow2 + 73*M*r + 12*r_pow2) + a_pow8*r*(-32*M_pow4 + 276*M_pow3*r + 353*M_pow2*r_pow2 + 22*M*r_pow3 - 12*r_pow4 + 4*L_pow2*M*(16*M + 3*r)) - 2*a_pow2*r_pow3*(6*L_pow6*(-12*M_pow2 + 2*M*r + r_pow2) + 30*L_pow4*r*(-4*M_pow3 - 8*M_pow2*r + 2*M*r_pow2 + r_pow3) + 2*r_pow5*(192*M_pow3 - 81*M_pow2*r - 42*M*r_pow2 + 19*r_pow3) + L_pow2*r_pow3*(340*M_pow3 - 366*M_pow2*r + 83*M*r_pow2 + 23*r_pow3)) + r_pow5*(12*L_pow6*(4*M_pow2 - r_pow2) + L_pow2*r_pow4*(136*M_pow2 - 74*M*r + 3*r_pow2) - 2*r_pow6*(34*M_pow2 - 41*M*r + 12*r_pow2) + 30*L_pow4*(4*M_pow2*r_pow2 - r_pow4)) - a_pow4*r_pow2*(-30*L_pow4*(24*M_pow3 + 8*M_pow2*r - 4*M*r_pow2 - r_pow3) + L_pow2*r*(608*M_pow4 - 104*M_pow3*r - 816*M_pow2*r_pow2 + 252*M*r_pow3 + 79*r_pow4) + r_pow3*(420*M_pow4 + 876*M_pow3*r - 907*M_pow2*r_pow2 - 120*M*r_pow3 + 92*r_pow4)) + a_pow6*r*(2*L_pow2*(288*M_pow4 + 232*M_pow3*r + 142*M_pow2*r_pow2 - 52*M*r_pow3 - 15*r_pow4) - r*(256*M_pow5 + 556*M_pow4*r + 56*M_pow3*r_pow2 - 827*M_pow2*r_pow3 - 44*M*r_pow4 + 52*r_pow5))) + (-96*E_pow2*M*r_pow3*(r_pow3 + a_pow2*twoM_plus_r)*(a_pow10*twoM_plus_r_pow4*(16*M + 3*r) + r_pow7*(-4*L_pow8 - 14*L_pow6*r_pow2 - 25*L_pow4*r_pow4 - 10*L_pow2*r_pow6 + 5*r_pow8) + a_pow8*r*twoM_plus_r_pow3*(10*L_pow2*M + r_pow2*(74*M + 17*r)) + a_pow6*r_pow2*twoM_plus_r_pow2*(10*L_pow2*(M - r)*r_pow2 - L_pow4*(66*M + 13*r) + 2*r_pow4*(68*M + 19*r)) - a_pow2*r_pow4*(28*L_pow6*r_pow2*(4*M + r) + 4*L_pow8*(6*M + r) + 10*L_pow2*r_pow6*(5*M + 3*r) - r_pow8*(56*M + 23*r) + L_pow4*r_pow4*(166*M + 63*r)) - a_pow4*r_pow3*(30*L_pow2*r_pow4*(2*M_pow2 + 3*M*r + r_pow2) + 14*L_pow6*(12*M_pow2 + 8*M*r + r_pow2) - 2*r_pow6*(124*M_pow2 + 104*M*r + 21*r_pow2) + L_pow4*r_pow2*(364*M_pow2 + 284*M*r + 51*r_pow2))) + 32*a*E*L*M*r_pow3*(a_pow12*twoM_plus_r_pow2*(145*M_pow2 + 228*M*r + 90*r_pow2) + 3*r_pow7*(L_pow2 + r_pow2)*(-8*L_pow6*(7*M - 3*r) + 4*L_pow4*r_pow2*(-41*M + 19*r) + 2*L_pow2*r_pow4*(-74*M + 27*r) + r_pow6*(-158*M + 89*r)) - a_pow2*r_pow4*(L_pow2*r_pow6*(3408*M_pow2 + 1612*M*r - 1991*r_pow2) + 2*L_pow4*r_pow4*(2556*M_pow2 + 646*M*r - 905*r_pow2) + 4*r_pow8*(261*M_pow2 + 167*M*r - 295*r_pow2) + 6*L_pow6*r_pow2*(388*M_pow2 + 110*M*r - 145*r_pow2) + 12*L_pow8*(24*M_pow2 + 12*M*r - 11*r_pow2)) + a_pow10*twoM_plus_r*(1536*M_pow5 + 2204*M_pow4*r + 630*M_pow3*r_pow2 + 330*L_pow2*r_pow3 + 570*r_pow5 + M_pow2*(803*L_pow2*r + 890*r_pow3) + 2*M*(528*L_pow2*r_pow2 + 779*r_pow4)) + a_pow6*r_pow2*(270*L_pow6*r*twoM_plus_r - 2*L_pow4*(1584*M_pow4 + 3058*M_pow3*r + 736*M_pow2*r_pow2 - 2072*M*r_pow3 - 927*r_pow4) + 6*r_pow4*(1588*M_pow4 + 789*M_pow3*r - 147*M_pow2*r_pow2 + 667*M*r_pow3 + 399*r_pow4) + L_pow2*r_pow2*(828*M_pow4 - 6894*M_pow3*r - 2719*M_pow2*r_pow2 + 7304*M*r_pow3 + 3575*r_pow4)) + a_pow8*r*(2*L_pow4*r*(749*M_pow2 + 834*M*r + 225*r_pow2) + r_pow2*(8424*M_pow5 + 10844*M_pow4*r + 2018*M_pow3*r_pow2 + 2668*M_pow2*r_pow3 + 4732*M*r_pow4 + 1549*r_pow5) + L_pow2*(960*M_pow5 - 908*M_pow4*r - 2142*M_pow3*r_pow2 + 4739*M_pow2*r_pow3 + 6158*M*r_pow4 + 1716*r_pow5)) + a_pow4*r_pow3*(60*L_pow8*r - 12*L_pow6*(168*M_pow3 + 184*M_pow2*r - 45*M*r_pow2 - 70*r_pow3) + r_pow6*(2850*M_pow3 - 2005*M_pow2*r + 1186*M*r_pow2 + 2238*r_pow3) + L_pow2*r_pow4*(-2970*M_pow3 - 7863*M_pow2*r + 2168*M*r_pow2 + 3751*r_pow3) + L_pow4*(-6012*M_pow3*r_pow2 - 7778*M_pow2*r_pow3 + 2272*M*r_pow4 + 2824*r_pow5))) - 16*r_pow3*(6*a_pow14*M*twoM_plus_r_pow2*(12*M_pow2 + 15*M*r + 5*r_pow2) + r_pow7*(L_pow2 + r_pow2)*(-84*L_pow6*M*twoM_minus_r*r_pow2 + 24*L_pow8*M*r_minus_twoM + L_pow2*r_pow6*(-428*M_pow2 + 340*M*r - 63*r_pow2) + r_pow8*(8*M_pow2 - 10*M*r + 3*r_pow2) + 2*L_pow4*r_pow4*(-62*M_pow2 - 11*M*r + 21*r_pow2)) - a_pow2*r_pow4*(12*L_pow8*M*r_pow2*(120*M_pow2 + 44*M*r - 63*r_pow2) + 48*L_pow10*M*(6*M_pow2 + 2*M*r - 3*r_pow2) + 2*L_pow6*r_pow4*(1544*M_pow3 + 598*M_pow2*r - 755*M*r_pow2 - 21*r_pow3) + r_pow10*(-512*M_pow3 + 290*M_pow2*r + 5*M*r_pow2 - 12*r_pow3) + 3*L_pow4*r_pow6*(904*M_pow3 + 682*M_pow2*r - 673*M*r_pow2 + 14*r_pow3) + 12*L_pow2*r_pow8*(94*M_pow3 + 95*M_pow2*r - 111*M*r_pow2 + 15*r_pow3)) + 2*a_pow12*M*twoM_plus_r*(L_pow2*(290*M_pow3 + 772*M_pow2*r + 594*M*r_pow2 + 135*r_pow3) + r*(-284*M_pow4 - 480*M_pow3*r - 69*M_pow2*r_pow2 + 212*M*r_pow3 + 84*r_pow4)) + a_pow4*r_pow3*(120*L_pow10*M*r - 12*L_pow8*M*(168*M_pow3 + 172*M_pow2*r - 64*M*r_pow2 - 99*r_pow3) + 2*L_pow6*M*r_pow2*(-1784*M_pow3 - 4432*M_pow2*r + 1118*M*r_pow2 + 1777*r_pow3) + L_pow4*r_pow4*(1524*M_pow4 - 13582*M_pow3*r + 1268*M_pow2*r_pow2 + 5088*M*r_pow3 - 21*r_pow4) + 2*r_pow8*(1186*M_pow4 + 129*M_pow3*r - 594*M_pow2*r_pow2 + 52*M*r_pow3 + 9*r_pow4) - 2*L_pow2*r_pow6*(-2388*M_pow4 + 3838*M_pow3*r + 172*M_pow2*r_pow2 - 1539*M*r_pow3 + 90*r_pow4)) + a_pow6*r_pow2*(540*L_pow8*M*r*twoM_plus_r - 4*L_pow6*M*(792*M_pow4 + 1714*M_pow3*r + 653*M_pow2*r_pow2 - 1673*M*r_pow3 - 780*r_pow4) + L_pow4*M*r_pow2*(4128*M_pow4 - 12796*M_pow3*r - 11888*M_pow2*r_pow2 + 10756*M*r_pow3 + 6057*r_pow4) + 4*L_pow2*r_pow4*(3858*M_pow5 - 849*M_pow4*r - 3415*M_pow3*r_pow2 + 1266*M_pow2*r_pow3 + 1113*M*r_pow4 - 15*r_pow5) + 2*r_pow6*(1940*M_pow5 + 1748*M_pow4*r - 1430*M_pow3*r_pow2 - 843*M_pow2*r_pow3 + 160*M*r_pow4 + 6*r_pow5)) + a_pow8*r*(2*L_pow6*M*r*(1498*M_pow2 + 1734*M*r + 465*r_pow2) + 2*L_pow4*M*(480*M_pow5 - 1868*M_pow4*r - 4566*M_pow3*r_pow2 + 2847*M_pow2*r_pow3 + 5908*M*r_pow4 + 1710*r_pow5) + 2*L_pow2*M*r_pow2*(5496*M_pow5 + 3396*M_pow4*r - 7766*M_pow3*r_pow2 - 1746*M_pow2*r_pow3 + 4854*M*r_pow4 + 1809*r_pow5) + r_pow4*(2800*M_pow6 + 5000*M_pow5*r - 2080*M_pow4*r_pow2 - 4936*M_pow3*r_pow3 - 668*M_pow2*r_pow4 + 466*M*r_pow5 + 3*r_pow6)) + a_pow10*M*(2*L_pow4*r*(1606*M_pow3 + 3182*M_pow2*r + 1953*M*r_pow2 + 375*r_pow3) + 4*L_pow2*(768*M_pow6 + 908*M_pow5*r - 1142*M_pow4*r_pow2 - 875*M_pow3*r_pow3 + 1765*M_pow2*r_pow4 + 1687*M*r_pow5 + 378*r_pow6) + r_pow2*(1120*M_pow6 + 2400*M_pow5*r - 1320*M_pow4*r_pow2 - 5136*M_pow3*r_pow3 - 2172*M_pow2*r_pow4 + 678*M*r_pow5 + 383*r_pow6))))*ur_pow2 - 48*r_pow5*(-3*a_pow12*M*twoM_plus_r_pow2*(33*M_pow2 + 36*M*r + 10*r_pow2) - a_pow10*M*r*twoM_plus_r*(-140*M_pow4 + 687*M_pow2*r_pow2 + 659*M*r_pow3 + 168*r_pow4 + 30*L_pow2*M*(3*M + 2*r)) + r_pow8*(8*L_pow8*M + 28*L_pow6*M*r_pow2 + 10*L_pow2*(8*M - 3*r)*r_pow6 + r_pow8*(-16*M + 3*r) + 2*L_pow4*r_pow4*(13*M + 6*r)) + a_pow2*r_pow5*(-28*L_pow6*M*(2*M - 7*r)*r_pow2 + 16*L_pow8*M*(-2*M + 3*r) + 4*L_pow4*r_pow5*(73*M + 3*r) - 10*L_pow2*r_pow6*(8*M_pow2 - 21*M*r + 6*r_pow2) + r_pow8*(-34*M_pow2 - 97*M*r + 9*r_pow2)) + a_pow4*r_pow4*(40*L_pow8*M - 28*L_pow6*M*(8*M_pow2 - 8*M*r - 11*r_pow2) + 4*L_pow4*M*r_pow2*(-132*M_pow2 + 133*M*r + 150*r_pow2) - 30*L_pow2*r_pow4*(14*M_pow3 - M_pow2*r - 12*M*r_pow2 + r_pow3) + r_pow6*(134*M_pow3 - 407*M_pow2*r - 291*M*r_pow2 + 9*r_pow3)) + a_pow6*r_pow3*(140*L_pow6*M*twoM_plus_r + 10*L_pow2*M*r_pow2*(22*M_pow3 - 21*M_pow2*r + 24*M*r_pow2 + 29*r_pow3) + 4*L_pow4*M*(-50*M_pow3 + 25*M_pow2*r + 263*M*r_pow2 + 122*r_pow3) + r_pow4*(502*M_pow4 - 495*M_pow3*r - 1287*M_pow2*r_pow2 - 463*M*r_pow3 + 3*r_pow4)) + a_pow8*M*r_pow2*(2*L_pow4*(182*M_pow2 + 224*M*r + 65*r_pow2) + 10*L_pow2*(20*M_pow4 - 36*M_pow2*r_pow2 - 5*M*r_pow3 + 6*r_pow4) - r_pow2*(-592*M_pow4 + 116*M_pow3*r + 2007*M_pow2*r_pow2 + 1681*M*r_pow3 + 391*r_pow4)))*ur_pow4)/(3.*r_pow10*pow(a_pow2 + r*r_minus_twoM,2)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2)));
A1240 = (-32*a*E*L*M*(a_pow2 + 3*r_pow2)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2)) - 8*(a_pow6*r*twoM_plus_r - twoM_minus_r*r_pow3*(5*L_pow4 + 8*L_pow2*r_pow2 + 3*r_pow4) + a_pow4*(-2*L_pow2*(4*M_pow2 + M*r - r_pow2) + r_pow2*(-4*M_pow2 + 6*M*r + 5*r_pow2)) + a_pow2*r*(L_pow4*(-4*M + r) + 2*L_pow2*r*(-10*M_pow2 - 3*M*r + 5*r_pow2) + r_pow3*(-12*M_pow2 - 2*M*r + 7*r_pow2))) + 8*r_pow3*(-3*L_pow2*r_pow3 + 3*r_pow5 + a_pow4*twoM_plus_r + a_pow2*(L_pow2*(6*M + r) + 2*r_pow2*(3*M + 2*r)))*ur_pow2)/(r*(a_pow2 + r*r_minus_twoM));
A1241 = (ur*(16*E_pow2*L*M*(r_pow3 + a_pow2*twoM_plus_r)*(3*a_pow8*twoM_plus_r_pow2 + 3*a_pow6*r*twoM_plus_r*(2*L_pow2 + 4*M_pow2 + 8*M*r + 5*r_pow2) + 2*r_pow6*(L_pow4 + 4*L_pow2*r_pow2 + 3*r_pow4) + a_pow2*r_pow3*(L_pow4*(-2*M + 5*r) + 3*r_pow4*(10*M + 7*r) + 2*L_pow2*r_pow2*(10*M + 11*r)) + a_pow4*r_pow2*(3*L_pow4 + 3*r_pow2*pow(4*M + 3*r,2) + 4*L_pow2*(2*M_pow2 + 8*M*r + 5*r_pow2))) + 8*a*E*M*(2*a_pow10*twoM_plus_r_pow2*(14*M + 9*r) + r_pow6*(L_pow2 + r_pow2)*(L_pow4*(38*M - 27*r) - 24*L_pow2*r_pow3 + 54*r_pow4*r_minus_twoM) + a_pow2*r_pow3*(2*L_pow6*(8*M_pow2 - 11*M*r - 18*r_pow2) - L_pow4*r_pow2*(118*M_pow2 + 131*M*r + 84*r_pow2) + 2*r_pow6*(-252*M_pow2 - 38*M*r + 109*r_pow2) + L_pow2*r_pow4*(-498*M_pow2 - 217*M*r + 119*r_pow2)) - a_pow4*r_pow2*(3*L_pow6*(8*M + 3*r) + L_pow2*r_pow2*(660*M_pow3 + 922*M_pow2*r + 17*M*r_pow2 - 175*r_pow3) + 4*r_pow4*(180*M_pow3 + 180*M_pow2*r - 106*M*r_pow2 - 87*r_pow3) + L_pow4*(64*M_pow3 + 274*M_pow2*r + 172*M*r_pow2 + 33*r_pow3)) - a_pow8*twoM_plus_r*(L_pow2*(48*M_pow2 - 31*M*r - 27*r_pow2) - 2*r*(-56*M_pow3 + 116*M*r_pow2 + 55*r_pow3)) - a_pow6*r*(3*L_pow4*M*(32*M + 13*r) + L_pow2*(192*M_pow4 + 700*M_pow3*r + 402*M_pow2*r_pow2 - 177*M*r_pow3 - 113*r_pow4) - 4*r_pow2*(-72*M_pow4 - 204*M_pow3*r + 16*M_pow2*r_pow2 + 186*M*r_pow3 + 69*r_pow4))) - 4*L*(a_pow10*M*(224*M_pow3 + 298*M_pow2*r + 117*M*r_pow2 + 12*r_pow3) + twoM_minus_r*r_pow6*(L_pow2 + r_pow2)*(2*L_pow4*(11*M - 6*r) + 8*L_pow2*(5*M - 3*r)*r_pow2 + 3*r_pow4*(-8*M + 3*r)) + a_pow2*r_pow3*(3*r_pow6*(-208*M_pow3 + 64*M_pow2*r + 36*M*r_pow2 - 7*r_pow3) + 4*L_pow6*(4*M_pow3 - 3*M_pow2*r - 7*M*r_pow2 + 3*r_pow3) + 2*L_pow2*r_pow4*(-344*M_pow3 + 84*M_pow2*r - 15*M*r_pow2 + 27*r_pow3) + 2*L_pow4*r_pow2*(-108*M_pow3 + 24*M_pow2*r - 62*M*r_pow2 + 33*r_pow3)) - a_pow4*r_pow2*(6*L_pow6*M*(4*M + r) + L_pow2*r_pow2*(1132*M_pow4 + 816*M_pow3*r - 563*M_pow2*r_pow2 - 132*M*r_pow3 - 63*r_pow4) + 2*L_pow4*(32*M_pow4 + 130*M_pow3*r - 31*M_pow2*r_pow2 + M*r_pow3 - 15*r_pow4) + r_pow4*(1452*M_pow4 + 676*M_pow3*r - 773*M_pow2*r_pow2 - 174*M*r_pow3 + 9*r_pow4)) + a_pow8*(L_pow2*M*(-96*M_pow3 + 172*M_pow2*r + 159*M*r_pow2 + 18*r_pow3) + r*(-448*M_pow5 + 24*M_pow4*r + 1032*M_pow3*r_pow2 + 659*M_pow2*r_pow3 + 108*M*r_pow4 + 6*r_pow5)) + a_pow6*r*(6*L_pow4*M_pow2*(-16*M + 3*r) + r_pow2*(-792*M_pow5 - 1540*M_pow4*r + 562*M_pow3*r_pow2 + 1075*M_pow2*r_pow3 + 204*M*r_pow4 + 9*r_pow5) + 2*L_pow2*(-96*M_pow5 - 412*M_pow4*r + 66*M_pow3*r_pow2 + 311*M_pow2*r_pow3 + 67*M*r_pow4 + 12*r_pow5))) - 4*L*r_pow3*(21*a_pow8*M*(14*M_pow2 + 15*M*r + 4*r_pow2) + r_pow6*(-4*L_pow4*(4*M - 3*r) + 2*L_pow2*(22*M - 3*r)*r_pow2 + 3*(38*M - 15*r)*r_pow4) + 6*a_pow6*r*(-66*M_pow4 - 8*M_pow3*r + 99*M_pow2*r_pow2 + 37*M*r_pow3 - 4*r_pow4 + L_pow2*M*(29*M + 14*r)) + 2*a_pow2*r_pow3*(3*r_pow4*(28*M_pow2 + 33*M*r - 19*r_pow2) + L_pow2*r_pow2*(16*M_pow2 + 68*M*r - 9*r_pow2) + L_pow4*(8*M_pow2 + 4*M*r + 6*r_pow2)) + a_pow4*r_pow2*(3*r_pow2*(-106*M_pow3 + 121*M_pow2*r + 74*M*r_pow2 - 31*r_pow3) - 2*L_pow2*(110*M_pow3 - 67*M_pow2*r - 82*M*r_pow2 + 6*r_pow3)))*ur_pow2))/(3.*r_pow3*pow(a_pow2 + r*r_minus_twoM,2)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2)));
A1260 = (-4*(-2*a_pow13*E*L*M_pow2*twoM_plus_r*(16*(-16 + 9*E_pow2)*M_pow2 + (-293 + 144*E_pow2)*M*r + 6*(-13 + 6*E_pow2)*r_pow2) - a_pow14*M*twoM_plus_r*(-3*r*(21*M_pow2 + 23*M*r + 6*r_pow2) + 2*E_pow2*(128*M_pow3 + 172*M_pow2*r + 72*M*r_pow2 + 9*r_pow3)) + 2*a*E*L*M*r_pow6*(42*L_pow8*(4*M_pow2 - r_pow2) + 4*L_pow6*r_pow2*(206*M_pow2 - 3*r_pow2*(4 + 21*ur_pow2) + M*r*(-79 + 21*E_pow2 + 147*ur_pow2)) + L_pow4*r_pow4*(1040*M_pow2 + 3*r_pow2*(3 - 200*ur_pow2) + 2*M*r*(-269 + 102*E_pow2 + 798*ur_pow2)) + r_pow8*(-236*M_pow2 - 3*r_pow2*(22 + 313*ur_pow2) + 2*M*r*(125 + 819*ur_pow2)) + L_pow2*r_pow6*(148*M_pow2 - 3*r_pow2*(17 + 387*ur_pow2) + 2*M*r*(14 + 60*E_pow2 + 1281*ur_pow2))) - 2*a_pow11*E*L*M*(L_pow2*M*(864*M_pow3 + 16*(13 + 18*E_pow2)*M_pow2*r + (-481 + 288*E_pow2)*M*r_pow2 + 36*(-5 + 2*E_pow2)*r_pow3) + r*(-576*(1 + 3*E_pow2)*M_pow5 - 8*M_pow4*r*(311 + 252*E_pow2 - 144*ur_pow2) + 18*r_pow5*(2 + 19*ur_pow2) + 6*M*r_pow4*(-44 + 30*E_pow2 + 313*ur_pow2) + 2*M_pow3*r_pow2*(-1887 + 1655*ur_pow2) + M_pow2*r_pow3*(-2018 + 648*E_pow2 + 3755*ur_pow2))) + 2*a_pow3*E*L*M*r_pow4*(42*L_pow8*(12*M_pow2 - 2*M*r - r_pow2) + 2*L_pow6*r*(680*M_pow3 - 21*r_pow3*(4 + 11*ur_pow2) + 12*M*r_pow2*(-31 + 7*E_pow2 + 21*ur_pow2) + 4*M_pow2*r*(211 + 21*E_pow2 + 126*ur_pow2)) + 2*L_pow4*r_pow3*(964*M_pow3 + 12*M_pow2*r*(74 + 43*E_pow2 + 262*ur_pow2) + 2*M*r_pow2*(-311 + 138*E_pow2 + 468*ur_pow2) - r_pow3*(67 + 1065*ur_pow2)) + r_pow7*(-2680*M_pow3 + 2*M*r_pow2*(370 - 18*E_pow2 + 629*ur_pow2) + 4*M_pow2*r*(230 + 54*E_pow2 + 969*ur_pow2) - r_pow3*(272 + 3551*ur_pow2)) + L_pow2*r_pow5*(-1848*M_pow3 + 12*M_pow2*r*(111 + 96*E_pow2 + 644*ur_pow2) + 2*M*r_pow2*(45 + 192*E_pow2 + 1547*ur_pow2) - r_pow3*(235 + 4208*ur_pow2))) + 2*a_pow7*E*L*M*r_pow2*(-24*L_pow6*M*(9*M - r) + 2*L_pow4*(3744*M_pow4 + 8*(181 + 72*E_pow2)*M_pow3*r + M*r_pow3*(-275 + 36*E_pow2 - 876*ur_pow2) + 4*M_pow2*r_pow2*(-181 + 99*E_pow2 - 81*ur_pow2) - 3*r_pow4*(25 + 127*ur_pow2)) - r_pow3*(8200*M_pow5 - 6*M_pow3*r_pow2*(623 + 576*E_pow2 - 623*ur_pow2) + 4*M_pow4*r*(2374 - 648*E_pow2 + 1899*ur_pow2) + 4*M*r_pow4*(-181 + 90*E_pow2 + 2513*ur_pow2) + M_pow2*r_pow3*(-6422 - 432*E_pow2 + 3629*ur_pow2) + r_pow5*(396 + 4403*ur_pow2)) + L_pow2*r*(-1984*M_pow5 + M_pow2*r_pow3*(1919 + 2304*E_pow2 - 1280*ur_pow2) + 4*M_pow4*r*(761 + 672*E_pow2 + 1080*ur_pow2) + 2*M_pow3*r_pow2*(1712 + 2880*E_pow2 + 3653*ur_pow2) - r_pow5*(349 + 3708*ur_pow2) - 2*M*r_pow4*(23 + 12*E_pow2 + 4426*ur_pow2))) + 2*a_pow5*E*L*M*r_pow3*(2*L_pow6*(1728*M_pow3 + 28*(5 + 3*E_pow2)*M_pow2*r + 2*(-137 + 21*E_pow2)*M*r_pow2 - 15*r_pow3*(4 + 7*ur_pow2)) + L_pow4*r*(1856*M_pow4 + 6*M*r_pow3*(-231 + 76*E_pow2 - 302*ur_pow2) + 24*M_pow2*r_pow2*(4 + 79*E_pow2 + 216*ur_pow2) + 8*M_pow3*r*(857 + 156*E_pow2 + 666*ur_pow2) - r_pow4*(293 + 2292*ur_pow2)) - r_pow5*(7716*M_pow4 - 6*M_pow3*r*(-494 + 216*E_pow2 - 297*ur_pow2) - 3*M_pow2*r_pow2*(1445 + 216*E_pow2 + 1337*ur_pow2) + 2*M*r_pow3*(-459 + 90*E_pow2 + 2620*ur_pow2) + r_pow4*(456 + 5479*ur_pow2)) + L_pow2*r_pow3*(-4308*M_pow4 + 2*M*r_pow3*(9 + 180*E_pow2 - 2311*ur_pow2) + 6*M_pow3*r*(58 + 528*E_pow2 + 1381*ur_pow2) + 7*M_pow2*r_pow2*(397 + 432*E_pow2 + 1555*ur_pow2) - r_pow4*(425 + 5861*ur_pow2))) - 2*a_pow9*E*L*M*r*(2*L_pow4*M*(432*M_pow2 + 4*(23 + 9*E_pow2)*M*r + 9*(-7 + 2*E_pow2)*r_pow2) - L_pow2*(5184*M_pow5 + 32*(125 + 78*E_pow2)*M_pow4*r + M_pow2*r_pow3*(701 + 144*E_pow2 - 4637*ur_pow2) + 36*M_pow3*r_pow2*(11 + 64*E_pow2 - 52*ur_pow2) - 6*r_pow5*(18 + 149*ur_pow2) - 2*M*r_pow4*(-89 + 96*E_pow2 + 1815*ur_pow2)) + r*(3200*M_pow6 - 2*M_pow3*r_pow3*(3589 + 1296*E_pow2 - 2097*ur_pow2) - 4*M_pow4*r_pow2*(25 + 1224*E_pow2 - 1201*ur_pow2) - 8*M_pow5*r*(-715 + 216*E_pow2 - 408*ur_pow2) + 2*r_pow6*(91 + 939*ur_pow2) + 2*M*r_pow5*(-241 + 180*E_pow2 + 3535*ur_pow2) + M_pow2*r_pow4*(-4812 + 432*E_pow2 + 7991*ur_pow2))) + r_pow8*(-4*L_pow8*twoM_minus_r*(16*M_pow2 + 6*r_pow2 + M*r*(-20 + 21*E_pow2 + 21*ur_pow2)) + L_pow4*r_pow4*(-216*M_pow3 - 4*M_pow2*r*(-105 + 160*E_pow2 + 374*ur_pow2) + 3*r_pow3*(17 - 19*ur_pow2 + 24*ur_pow4) + 2*M*r_pow2*(-129 + 431*ur_pow2 + 78*ur_pow4 + E_pow2*(160 - 150*ur_pow2))) + L_pow6*r_pow2*(-304*M_pow3 + 3*r_pow3*(21 + 32*ur_pow2) - 4*M_pow2*r*(-139 + 136*E_pow2 + 104*ur_pow2) + 4*M*r_pow2*(-82 + 4*ur_pow2 + 21*ur_pow4 + E_pow2*(68 - 21*ur_pow2))) + 2*r_pow8*(-32*M_pow3 + 4*M_pow2*r*(11 - 10*E_pow2 + 4*ur_pow2) + 3*r_pow3*(1 + ur_pow2 + 6*ur_pow4) + 2*M*r_pow2*(-10 - 7*ur_pow2 - 48*ur_pow4 + 10*E_pow2*(1 + 3*ur_pow2))) - 2*L_pow2*r_pow6*(52*M_pow3 + 2*M_pow2*r*(-44 + 86*E_pow2 + 367*ur_pow2) + 3*r_pow3*(-3 + 35*ur_pow2 + 45*ur_pow4) + M*r_pow2*(49 - 577*ur_pow2 - 360*ur_pow4 + E_pow2*(-86 + 90*ur_pow2)))) + a_pow12*M*(L_pow2*(64*(-8 + 27*E_pow2)*M_pow4 + 4*(-185 + 376*E_pow2)*M_pow3*r - (65 + 16*E_pow2)*M_pow2*r_pow2 - 6*(-39 + 46*E_pow2)*M*r_pow3 + 18*(4 - 3*E_pow2)*r_pow4) + 2*r*(-(E_pow2*twoM_plus_r*(144*M_pow4 + 4*M_pow2*r_pow2*(232 - 117*ur_pow2) + 4*M*r_pow3*(103 - 63*ur_pow2) + r_pow4*(46 - 45*ur_pow2) - 8*M_pow3*r*(-85 + 36*ur_pow2))) + r*(-290*M_pow4 + r_pow4*(43 + 48*ur_pow2) + 6*M_pow2*r_pow2*(15 + 73*ur_pow2) + 2*M_pow3*r*(-155 + 126*ur_pow2) + M*r_pow3*(173 + 252*ur_pow2)))) + a_pow6*r_pow2*(6*L_pow8*M*(24*M_pow2 - 10*M*r + 3*r_pow2) + 2*L_pow6*M*(-2496*M_pow4 - 8*(37 + 432*E_pow2)*M_pow3*r + 4*M_pow2*r_pow2*(163 - 332*E_pow2 + 81*ur_pow2) + 6*M*r_pow3*(5 + 48*E_pow2 + 250*ur_pow2) + r_pow4*(88 + 101*E_pow2 + 726*ur_pow2)) + r_pow5*(616*M_pow6 + 4*M_pow5*r*(95 + 2072*E_pow2 + 1660*ur_pow2) + 3*r_pow6*(20 - 7*ur_pow2 + 9*ur_pow4) + M_pow3*r_pow3*(-331 - 5844*ur_pow2 - 2457*ur_pow4 + 72*E_pow2*(-55 + 188*ur_pow2)) + M*r_pow5*(10 + 527*ur_pow2 - 2505*ur_pow4 + 10*E_pow2*(29 + 210*ur_pow2)) + M_pow2*r_pow4*(137 - 3274*ur_pow2 - 6795*ur_pow4 + 28*E_pow2*(-89 + 324*ur_pow2)) + 2*M_pow4*r_pow2*(-487 + 2804*ur_pow2 + 1167*ur_pow4 + 8*E_pow2*(401 + 465*ur_pow2))) + L_pow2*r_pow3*(7640*M_pow6 + 3*r_pow6*(39 - 34*ur_pow2) + 4*M_pow5*r*(1461 - 952*E_pow2 + 3187*ur_pow2) + M_pow2*r_pow4*(695 + 10776*ur_pow2 + 2214*ur_pow4 + 4*E_pow2*(434 + 27*ur_pow2)) - M_pow3*r_pow3*(4513 + 12495*ur_pow2 + 666*ur_pow4 + 64*E_pow2*(14 + 81*ur_pow2)) - 2*M_pow4*r_pow2*(2921 + 3160*ur_pow2 - 18*ur_pow4 + 8*E_pow2*(439 + 414*ur_pow2)) + M*r_pow5*(583 + 7166*ur_pow2 + 1656*ur_pow4 + E_pow2*(868 + 468*ur_pow2))) + L_pow4*r*(3712*M_pow6 + 72*r_pow6 - 8*M_pow5*r*(157 + 1240*E_pow2 + 540*ur_pow2) + M*r_pow5*(597 + 6084*ur_pow2 + 1014*ur_pow4 + E_pow2*(824 - 78*ur_pow2)) + M_pow2*r_pow4*(227 + 12106*ur_pow2 + 1956*ur_pow4 - 4*E_pow2*(-877 + 321*ur_pow2)) - 4*M_pow4*r_pow2*(719 + 2537*ur_pow2 + 4*E_pow2*(1339 + 333*ur_pow2)) - 2*M_pow3*r_pow3*(979 + 1859*ur_pow2 + 4*E_pow2*(430 + 651*ur_pow2)))) + a_pow8*r*(2*L_pow6*M*(288*M_pow3 + 4*(-13 + 54*E_pow2)*M_pow2*r + 6*(-8 + 7*E_pow2)*M*r_pow2 - 9*(-4 + E_pow2)*r_pow3) + L_pow4*M*(-3456*M_pow5 - 64*(31 + 234*E_pow2)*M_pow4*r - 8*M_pow3*r_pow2*(9 + 1226*E_pow2 - 234*ur_pow2) + 6*r_pow5*(63 + 290*ur_pow2 + 5*E_pow2*(2 + 3*ur_pow2)) + M*r_pow4*(61 + 6456*ur_pow2 + 12*E_pow2*(97 + 42*ur_pow2)) + 2*M_pow2*r_pow3*(-665 + 3341*ur_pow2 + 4*E_pow2*(163 + 81*ur_pow2))) + L_pow2*r*(3200*M_pow7 + 33*r_pow7 + 16*M_pow6*r*(267 - 200*E_pow2 + 204*ur_pow2) - 4*M_pow4*r_pow3*(1450 + 1889*ur_pow2 + 36*E_pow2*(47 + 31*ur_pow2)) + M*r_pow6*(633 + 3852*ur_pow2 + 288*ur_pow4 + 16*E_pow2*(7 + 36*ur_pow2)) - 4*M_pow5*r_pow2*(123 - 218*ur_pow2 + 8*E_pow2*(457 + 135*ur_pow2)) + M_pow3*r_pow4*(-3433 + 4642*ur_pow2 + 126*ur_pow4 + 8*E_pow2*(92 + 189*ur_pow2)) + M_pow2*r_pow5*(733 + 11853*ur_pow2 + 612*ur_pow4 + 4*E_pow2*(112 + 621*ur_pow2))) + r_pow3*(-304*M_pow7 + 3*r_pow7*(10 - 3*ur_pow2) + 32*M_pow6*r*(1 + 250*E_pow2 + 70*ur_pow2) + M*r_pow6*(180 + 5*(143 + 300*E_pow2)*ur_pow2 - 1434*ur_pow4) - 2*M_pow3*r_pow4*(244 + 3406*ur_pow2 + 3321*ur_pow4 + E_pow2*(4064 - 8712*ur_pow2)) - 4*M_pow4*r_pow3*(179 + 1120*ur_pow2 + 87*ur_pow4 + E_pow2*(72 - 4332*ur_pow2)) + 12*M_pow5*r_pow2*(31 + 328*ur_pow2 + 113*ur_pow4 + 8*E_pow2*(132 + 79*ur_pow2)) + 12*M_pow2*r_pow5*(23 - 50*ur_pow2 - 494*ur_pow4 + E_pow2*(-252 + 694*ur_pow2)))) + a_pow4*r_pow3*(-4*L_pow8*M*(576*M_pow3 + 4*(-32 + 63*E_pow2)*M_pow2*r + 2*(-47 + 21*E_pow2)*M*r_pow2 - r_pow3*(5 + 21*E_pow2 + 105*ur_pow2)) + L_pow6*r*(832*M_pow5 + 69*r_pow5 - 16*M_pow4*r*(238 + 319*E_pow2 + 333*ur_pow2) + 2*M*r_pow4*(33 + 1588*ur_pow2 + 210*ur_pow4 + E_pow2*(365 - 42*ur_pow2)) + 4*M_pow2*r_pow3*(140 + 512*ur_pow2 - 3*E_pow2*(-51 + 56*ur_pow2)) - 8*M_pow3*r_pow2*(-26 + 645*ur_pow2 + E_pow2*(785 + 126*ur_pow2))) + L_pow2*r_pow5*(7704*M_pow5 - 4*M_pow4*r*(157 + 588*E_pow2 - 1161*ur_pow2) - 9*r_pow5*(-17 + 46*ur_pow2 + 24*ur_pow4) + M_pow2*r_pow3*(597 + 1193*ur_pow2 + 306*ur_pow4 + E_pow2*(812 - 2484*ur_pow2)) + M*r_pow4*(41 + 6714*ur_pow2 + 2358*ur_pow4 - 18*E_pow2*(-69 + 14*ur_pow2)) - 2*M_pow3*r_pow2*(2129 + 6912*ur_pow2 + 1458*ur_pow4 + 12*E_pow2*(110 + 171*ur_pow2))) + L_pow4*r_pow3*(6520*M_pow5 + 3*r_pow5*(65 + ur_pow2) - 4*M_pow4*r*(335 + 2832*E_pow2 + 1040*ur_pow2) + M_pow2*r_pow3*(343 + 3398*ur_pow2 + 1344*ur_pow4 + E_pow2*(2868 - 3888*ur_pow2)) + 2*M*r_pow4*(75 + 3881*ur_pow2 + 1116*ur_pow4 + E_pow2*(786 - 363*ur_pow2)) - 2*M_pow3*r_pow2*(1799 + 7994*ur_pow2 + 948*ur_pow4 + 4*E_pow2*(1039 + 708*ur_pow2))) + r_pow7*(912*M_pow5 + 8*M_pow4*r*(-51 + 446*E_pow2 + 717*ur_pow2) + 3*r_pow5*(20 - 3*ur_pow2 + 30*ur_pow4) + M*r_pow4*(-162 + 161*ur_pow2 - 2088*ur_pow4 + 6*E_pow2*(62 + 275*ur_pow2)) + 4*M_pow3*r_pow2*(-73 + 177*ur_pow2 + 198*ur_pow4 + E_pow2*(-52 + 966*ur_pow2)) + 2*M_pow2*r_pow3*(6*E_pow2*(-116 + 409*ur_pow2) - 5*(-21 + 284*ur_pow2 + 297*ur_pow4)))) - a_pow2*r_pow4*(168*L_pow10*M_pow2*twoM_minus_r + 2*L_pow8*r*(56*M_pow4 - 12*r_pow4 + 14*M_pow2*r_pow2*(-19 + 12*E_pow2 + 12*ur_pow2) + 12*M_pow3*r*(37 + 28*E_pow2 + 42*ur_pow2) - 3*M*r_pow3*(-13 + 28*E_pow2 + 84*ur_pow2)) - r_pow9*(136*M_pow4 + 8*M_pow3*r*(-25 + 44*E_pow2 + 194*ur_pow2) + 3*r_pow4*(10 + 3*ur_pow2 + 33*ur_pow4) + 6*M_pow2*r_pow2*(39 - 129*ur_pow2 - 67*ur_pow4 + 2*E_pow2*(-41 + 88*ur_pow2)) + M*r_pow3*(-144 - 23*ur_pow2 - 903*ur_pow4 + 6*E_pow2*(33 + 115*ur_pow2))) + L_pow4*r_pow5*(-2944*M_pow4 + 4*M_pow3*r*(575 + 1170*E_pow2 + 1538*ur_pow2) - 6*r_pow4*(29 - 9*ur_pow2 + 12*ur_pow4) + M*r_pow3*(435 - 4160*ur_pow2 - 1518*ur_pow4 + 6*E_pow2*(-197 + 143*ur_pow2)) + 4*M_pow2*r_pow2*(-147 + 970*ur_pow2 + 105*ur_pow4 + E_pow2*(26 + 525*ur_pow2))) - 2*L_pow6*r_pow3*(408*M_pow4 + 6*r_pow4*(11 + 8*ur_pow2) - 4*M_pow3*r*(168 + 455*E_pow2 + 536*ur_pow2) - 4*M_pow2*r_pow2*(-87 + 187*ur_pow2 + 42*ur_pow4 + E_pow2*(53 + 84*ur_pow2)) + M*r_pow3*(E_pow2*(391 - 84*ur_pow2) + 21*(-9 + 46*ur_pow2 + 12*ur_pow4))) + L_pow2*r_pow7*(-2296*M_pow4 + 4*M_pow3*r*(463 + 328*E_pow2 + 909*ur_pow2) + 3*r_pow4*(-29 + 174*ur_pow2 + 162*ur_pow4) + 2*M_pow2*r_pow2*(-245 + 1363*ur_pow2 + 378*ur_pow4 + E_pow2*(254 + 648*ur_pow2)) + M*r_pow3*(E_pow2*(-754 + 504*ur_pow2) - 3*(-81 + 1250*ur_pow2 + 534*ur_pow4)))) + a_pow10*(L_pow4*M*(576*M_pow4 + 32*(-7 + 54*E_pow2)*M_pow3*r + 2*(-257 + 524*E_pow2)*M_pow2*r_pow2 + 3*(31 - 4*E_pow2)*M*r_pow3 - 54*(-2 + E_pow2)*r_pow4) + L_pow2*M*r*(-576*(1 + 18*E_pow2)*M_pow5 - 16*M_pow4*r*(123 + 628*E_pow2 - 72*ur_pow2) + 2*r_pow5*(154 + 402*ur_pow2 + 15*E_pow2*(-5 + 6*ur_pow2)) + M_pow2*r_pow3*(-1615 + 6493*ur_pow2 + 288*E_pow2*(1 + 9*ur_pow2)) + 2*M_pow3*r_pow2*(-1871 + 2086*ur_pow2 + 72*E_pow2*(-5 + 13*ur_pow2)) + 3*M*r_pow4*(4*E_pow2*(-49 + 99*ur_pow2) + 5*(37 + 264*ur_pow2))) + r_pow2*(2*E_pow2*M*(1600*M_pow6 + 15*r_pow6*(-5 + 19*ur_pow2) + 32*M_pow5*r*(112 + 51*ur_pow2) + 48*M_pow4*r_pow2*(25 + 91*ur_pow2) + 6*M*r_pow5*(-195 + 316*ur_pow2) + 8*M_pow2*r_pow4*(-475 + 606*ur_pow2) + 8*M_pow3*r_pow3*(-454 + 771*ur_pow2)) + r*(808*M_pow6 + 6*r_pow6 - 28*M_pow5*r*(-15 + 76*ur_pow2) + M_pow2*r_pow4*(444 + 1144*ur_pow2 - 1737*ur_pow4) + 2*M*r_pow5*(90 + 220*ur_pow2 - 153*ur_pow4) - 2*M_pow4*r_pow2*(516 + 1888*ur_pow2 + 1035*ur_pow4) - M_pow3*r_pow3*(334 + 816*ur_pow2 + 3285*ur_pow4))))))/(3.*r_pow7*pow(a_pow2 + r*r_minus_twoM,2)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2)));
A1420 = 4*r_pow2*(L_pow2 + r_pow2 + (a_pow2*twoM_plus_r)/r)*(-r + (r_pow3*(r_pow3 + a_pow2*twoM_plus_r)*ur_pow2)/((a_pow2 + r*r_minus_twoM)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2)))) + r_pow4*((2*a_pow2*M)/r_pow2 - 2*r - ((-2*r_pow3*(-(a_pow2*M) + r_pow3)*(r_pow3 + a_pow2*twoM_plus_r)*ur_pow2)/(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2)) - 4*L*(-(a_pow3*E*M*r) + a_pow2*L*M*r - 3*a*E*M*r_pow3 + 2*L*M*r_pow3 - L*r_pow4 + (L*r_pow4*(a_pow2*M - r_pow3)*ur_pow2)/(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2))))/(r_pow3*(a_pow2 + r*r_minus_twoM)));
A1421 = (ur*(8*E_pow2*L*M*(r_pow3 + a_pow2*twoM_plus_r)*(2*L_pow2*r_pow5 + 3*r_pow7 + 3*a_pow6*twoM_plus_r + 3*a_pow4*r*(L_pow2 + r*(4*M + 3*r)) + a_pow2*r_pow2*(3*r_pow2*(2*M + 3*r) + L_pow2*(-2*M + 5*r))) + 2*a*E*M*(2*a_pow8*(32*M_pow2 + 34*M*r + 9*r_pow2) + r_pow5*(L_pow4*(22*M - 27*r) + 54*r_pow4*r_minus_twoM + 3*L_pow2*r_pow2*(-26*M + 5*r)) + a_pow2*r_pow2*(L_pow4*(32*M_pow2 - 62*M*r - 36*r_pow2) + 3*L_pow2*r_pow2*(-52*M_pow2 - 54*M*r + 13*r_pow2) + 4*r_pow4*(-90*M_pow2 - 14*M*r + 43*r_pow2)) - a_pow4*r*(L_pow4*(48*M + 9*r) + 3*L_pow2*r*(76*M_pow2 + 38*M*r - 11*r_pow2) + 8*r_pow2*(36*M_pow3 + 40*M_pow2*r - 31*M*r_pow2 - 25*r_pow3)) + a_pow6*(L_pow2*(-96*M_pow2 - 30*M*r + 9*r_pow2) + 4*r*(-32*M_pow3 + 18*M_pow2*r + 66*M*r_pow2 + 25*r_pow3))) + L*(-(a_pow8*(128*M_pow3 + 150*M_pow2*r + 60*M*r_pow2 + 9*r_pow3)) + twoM_minus_r*r_pow5*(-2*L_pow2*(7*M - 6*r)*r_pow2 + 3*(8*M - 3*r)*r_pow4 + L_pow4*(-26*M + 15*r)) + 2*a_pow2*r_pow2*(L_pow2*r_pow2*(98*M_pow3 + 27*M_pow2*r + 17*M*r_pow2 - 24*r_pow3) + L_pow4*(-16*M_pow3 + 30*M_pow2*r + 19*M*r_pow2 - 12*r_pow3) + 3*r_pow4*(66*M_pow3 - 13*M_pow2*r - 13*M*r_pow2 + r_pow3)) + 2*a_pow6*(3*L_pow2*(16*M_pow3 - 6*M_pow2*r - 11*M*r_pow2 - 3*r_pow3) - r*(-128*M_pow4 + 46*M_pow3*r + 173*M_pow2*r_pow2 + 81*M*r_pow3 + 15*r_pow4)) - a_pow4*r*(L_pow4*(-48*M_pow2 + 6*M*r + 9*r_pow2) + 2*r_pow2*(-264*M_pow4 - 184*M_pow3*r + 137*M_pow2*r_pow2 + 69*M*r_pow3 + 12*r_pow4) + L_pow2*(-264*M_pow3*r - 46*M_pow2*r_pow2 + 82*M*r_pow3 + 54*r_pow4))) + L*r_pow3*(-3*a_pow6*(38*M_pow2 + 14*M*r - 3*r_pow2) + 3*a_pow4*r*(44*M_pow3 + 3*L_pow2*r - 42*M_pow2*r - 26*M*r_pow2 + 19*r_pow3) + r_pow5*(L_pow2*(-22*M + 3*r) + 3*r_pow2*(-38*M + 15*r)) - a_pow2*r_pow2*(3*r_pow2*(36*M_pow2 + 46*M*r - 31*r_pow2) + 2*L_pow2*(16*M_pow2 + 17*M*r - 6*r_pow2)))*ur_pow2))/(3.*pow(a_pow2 + r*r_minus_twoM,2)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2)));
A1440 = -(-2*a_pow11*E*L*M*twoM_plus_r*(16*(-16 + 9*E_pow2)*M_pow2 + 12*(-13 + 6*E_pow2)*M*r - 3*r_pow2) - a_pow12*M*twoM_plus_r*(-9*r*(13*M + 7*r) + E_pow2*(256*M_pow2 + 264*M*r + 66*r_pow2)) + 2*a*E*L*M*r_pow5*(2*L_pow6*(200*M_pow2 - 94*M*r - 3*r_pow2) + L_pow4*r_pow2*(964*M_pow2 + 15*r_pow2*(1 - 14*ur_pow2) + 4*M*r*(-128 + 15*E_pow2 + 165*ur_pow2)) - 3*r_pow6*(100*M_pow2 + 3*r_pow2*(11 + 135*ur_pow2) - 2*M*r*(58 + 345*ur_pow2)) + 3*L_pow2*r_pow4*(88*M_pow2 - r_pow2*(26 + 345*ur_pow2) + 2*M*r*(4 + 10*E_pow2 + 395*ur_pow2))) - 2*a_pow7*E*L*M*r*(3*L_pow4*(216*M_pow2 + 4*(11 + 3*E_pow2)*M*r + 3*r_pow2) + L_pow2*(-3456*M_pow4 - 16*(19 + 66*E_pow2)*M_pow3*r + 3*r_pow4*(12 + 259*ur_pow2) + 4*M_pow2*r_pow2*(295 + 6*E_pow2 + 414*ur_pow2) + 2*M*r_pow3*(-61 + 192*E_pow2 + 1086*ur_pow2)) + 2*r*(1344*M_pow5 - 8*M_pow4*r*(-191 + 108*E_pow2 + 36*ur_pow2) - 2*M_pow3*r_pow2*(300 + 576*E_pow2 + 53*ur_pow2) + 4*M*r_pow4*(-107 + 81*E_pow2 + 899*ur_pow2) + r_pow5*(80 + 1203*ur_pow2) + 2*M_pow2*r_pow3*(-736 + 108*E_pow2 + 1327*ur_pow2))) - 2*a_pow9*E*L*M*(2*L_pow2*M*(432*M_pow2 + 4*(25 + 27*E_pow2)*M*r + 3*(-23 + 18*E_pow2)*r_pow2) + r*(-64*(5 + 18*E_pow2)*M_pow4 - 8*M_pow3*r*(197 + 36*E_pow2 - 270*ur_pow2) + 3*r_pow4*(7 + 169*ur_pow2) + 2*M*r_pow3*(-296 + 180*E_pow2 + 1179*ur_pow2) + 2*M_pow2*r_pow2*(-966 + 432*E_pow2 + 1889*ur_pow2))) + 2*a_pow5*E*L*M*r_pow2*(-6*L_pow6*(18*M + r) + L_pow4*(3168*M_pow3 + 8*(-101 + 30*E_pow2)*M_pow2*r - 27*r_pow3*(1 + 10*ur_pow2) - 4*M*r_pow2*(208 + 15*E_pow2 + 27*ur_pow2)) + 2*r_pow3*(-2376*M_pow4 + 2*M_pow3*r*(-470 + 432*E_pow2 + 639*ur_pow2) + M_pow2*r_pow2*(1268 + 288*E_pow2 + 1177*ur_pow2) - 2*M*r_pow3*(-213 + 126*E_pow2 + 1615*ur_pow2) - r_pow4*(172 + 2243*ur_pow2)) + L_pow2*r*(192*M_pow4 + 128*M_pow3*r*(17 + 12*E_pow2 + 36*ur_pow2) + 24*M_pow2*r_pow2*(-32 + 45*E_pow2 + 138*ur_pow2) - 2*M*r_pow3*(127 + 192*E_pow2 + 1359*ur_pow2) - r_pow4*(130 + 2529*ur_pow2))) + 2*a_pow3*E*L*M*r_pow3*(4*L_pow6*(180*M_pow2 - 92*M*r - 3*r_pow2) + L_pow4*r*(1568*M_pow3 + 12*M*r_pow2*(-97 + 3*E_pow2 + 50*ur_pow2) - 3*r_pow3*(1 + 160*ur_pow2) + 4*M_pow2*r*(253 + 84*E_pow2 + 360*ur_pow2)) + L_pow2*r_pow3*(192*M_pow3 - 2*M*r_pow2*(127 + 24*E_pow2 - 852*ur_pow2) + 4*M_pow2*r*(131 + 222*E_pow2 + 1356*ur_pow2) - r_pow3*(172 + 2787*ur_pow2)) + r_pow5*(-2304*M_pow3 + 2*M*r_pow2*(387 - 72*E_pow2 + 202*ur_pow2) + 4*M_pow2*r*(184 + 108*E_pow2 + 1251*ur_pow2) - r_pow3*(307 + 3802*ur_pow2))) + r_pow5*(-16*L_pow8*M*r_minus_twoM_pow2 - 2*L_pow6*twoM_minus_r*r_pow2*(50*M_pow2 + 2*r_pow2*(4 + 9*ur_pow2) + M*r*(-41 + 47*E_pow2 + 31*ur_pow2)) + 2*L_pow4*r_pow4*(-56*M_pow3 - 2*M_pow2*r*(-52 + 113*E_pow2 + 334*ur_pow2) + r_pow3*(12 - 47*ur_pow2 + 18*ur_pow4) + M*r_pow2*(-62 + 428*ur_pow2 + 39*ur_pow4 + E_pow2*(113 - 75*ur_pow2))) + r_pow8*(-96*M_pow3 + 4*M_pow2*r*(37 - 30*E_pow2 + 12*ur_pow2) + r_pow3*(13 + 5*ur_pow2 + 54*ur_pow4) + 2*M*r_pow2*(-38 - 17*ur_pow2 - 144*ur_pow4 + 30*E_pow2*(1 + 3*ur_pow2))) - L_pow2*r_pow6*(72*M_pow3 + 12*M_pow2*r*(-13 + 32*E_pow2 + 157*ur_pow2) + r_pow3*(-21 + 284*ur_pow2 + 270*ur_pow4) + 2*M*r_pow2*(51 - 755*ur_pow2 - 360*ur_pow4 + E_pow2*(-96 + 90*ur_pow2)))) + a_pow10*(L_pow2*M*(64*(-8 + 27*E_pow2)*M_pow3 + 8*(-44 + 133*E_pow2)*M_pow2*r + 3*(105 - 52*E_pow2)*M*r_pow2 + 6*(31 - 21*E_pow2)*r_pow3) + r*(-2*E_pow2*M*(160*M_pow4 + 2*M*r_pow3*(395 - 441*ur_pow2) + 12*M_pow2*r_pow2*(110 - 141*ur_pow2) - 153*r_pow4*(-1 + ur_pow2) - 72*M_pow3*r*(-11 + 15*ur_pow2)) + r*(-840*M_pow4 + 7*r_pow4 + 3*M*r_pow3*(111 + 34*ur_pow2) + 6*M_pow2*r_pow2*(124 + 61*ur_pow2) + 2*M_pow3*r*(-95 + 162*ur_pow2)))) + a_pow6*r*(6*L_pow6*M*(72*M_pow2 + (12 + E_pow2)*r_pow2 + 4*M*(r + 9*E_pow2*r)) + L_pow4*(-2304*M_pow5 + 39*r_pow5 - 16*M_pow4*(r + 396*E_pow2*r) + 8*M_pow3*r_pow2*(10 + 110*E_pow2 + 207*ur_pow2) + 2*M_pow2*r_pow3*(-221 + 1434*ur_pow2 + 18*E_pow2*(61 + 3*ur_pow2)) + M*r_pow4*(609 + 1284*ur_pow2 + 2*E_pow2*(-32 + 9*ur_pow2))) + r_pow3*(384*M_pow6 + 8*M_pow5*r*(109 + 636*E_pow2 + 345*ur_pow2) + r_pow6*(94 - 73*ur_pow2 + 27*ur_pow4) - 2*M_pow2*r_pow4*(277 + 1029*ur_pow2 + 1602*ur_pow4 + E_pow2*(940 - 4050*ur_pow2)) - 2*M_pow3*r_pow3*(887 + 1684*ur_pow2 + 486*ur_pow4 + E_pow2*(832 - 2772*ur_pow2)) + 4*M_pow4*r_pow2*(40 + 616*ur_pow2 + 207*ur_pow4 - 12*E_pow2*(-85 + 6*ur_pow2)) + M*r_pow5*(578 + 68*ur_pow2 - 1233*ur_pow4 + 12*E_pow2*(-23 + 222*ur_pow2))) + L_pow2*r*(2688*M_pow6 + r_pow6*(123 - 44*ur_pow2) - 64*M_pow5*r*(-34 + 84*E_pow2 + 9*ur_pow2) + 6*M*r_pow5*(215 + 561*ur_pow2 + 117*ur_pow4 + 8*E_pow2*(-7 + 15*ur_pow2)) - 4*M_pow3*r_pow3*(988 - 287*ur_pow2 + 12*E_pow2*(-79 + 60*ur_pow2)) - 4*M_pow4*r_pow2*(353 + 646*ur_pow2 + 4*E_pow2*(485 + 288*ur_pow2)) + M_pow2*r_pow4*(-847 + 6822*ur_pow2 + 1152*ur_pow4 + 4*E_pow2*(619 + 333*ur_pow2)))) - a_pow2*r_pow3*(2*L_pow8*M*(240*M_pow2 - 154*M*r + 17*r_pow2) + 2*L_pow6*r*(16*M_pow4 + M*r_pow3*(60 - 73*E_pow2 - 268*ur_pow2) - 6*M_pow2*r_pow2*(39 + 20*E_pow2 - 34*ur_pow2) - 2*r_pow4*(8 + 9*ur_pow2) + 4*M_pow3*r*(87 + 176*E_pow2 + 180*ur_pow2)) - r_pow7*(72*M_pow4 + 12*M_pow3*r*(13 + 28*E_pow2 + 132*ur_pow2) + r_pow4*(59 - 19*ur_pow2 + 135*ur_pow4) + M*r_pow3*(-175 - 54*ur_pow2 - 963*ur_pow4 + 18*E_pow2*(11 + 59*ur_pow2)) + 6*M_pow2*r_pow2*(3 - 106*ur_pow2 - 99*ur_pow4 + 2*E_pow2*(-37 + 66*ur_pow2))) + L_pow2*r_pow5*(-1968*M_pow4 + 8*M_pow3*r*(98 + 243*E_pow2 + 534*ur_pow2) + 3*r_pow4*(-35 + 200*ur_pow2 + 144*ur_pow4) + 2*M*r_pow3*(44 - 1855*ur_pow2 - 657*ur_pow4 + E_pow2*(-263 + 144*ur_pow2)) + 4*M_pow2*r_pow2*(86 + 444*ur_pow2 + 198*ur_pow4 + E_pow2*(-76 + 333*ur_pow2))) + L_pow4*r_pow3*(-1480*M_pow4 + 4*M_pow3*r*(199 + 944*E_pow2 + 1136*ur_pow2) + r_pow4*(-99 + 80*ur_pow2 - 36*ur_pow4) + M*r_pow3*(89 - 2628*ur_pow2 - 642*ur_pow4 + E_pow2*(-496 + 330*ur_pow2)) + 2*M_pow2*r_pow2*(95 + 972*ur_pow2 + 210*ur_pow4 + E_pow2*(-494 + 402*ur_pow2)))) + a_pow4*r_pow2*(6*L_pow8*M*(12*M + r) + 2*L_pow6*(-1056*M_pow4 - 8*(-49 + 90*E_pow2)*M_pow3*r + 8*r_pow4 + 2*M_pow2*r_pow2*(59 + 137*E_pow2 + 27*ur_pow2) + M*r_pow3*(33 + 29*E_pow2 + 261*ur_pow2)) + L_pow4*r*(1536*M_pow5 + 2*r_pow5*(57 + 7*ur_pow2) - 16*M_pow4*r*(75 + 386*E_pow2 + 288*ur_pow2) + M*r_pow4*(479 + 3272*ur_pow2 + 516*ur_pow4 + E_pow2*(260 - 162*ur_pow2)) - 4*M_pow3*r_pow2*(87 + 936*ur_pow2 + 8*E_pow2*(109 + 45*ur_pow2)) - 4*M_pow2*r_pow3*(225 - 583*ur_pow2 + 3*E_pow2*(-265 + 66*ur_pow2))) + r_pow5*(720*M_pow5 + 12*M_pow4*r*(43 + 252*E_pow2 + 363*ur_pow2) + r_pow5*(106 - 75*ur_pow2 + 108*ur_pow4) - 9*M_pow2*r_pow3*(75 + 236*ur_pow2 + 253*ur_pow4 + E_pow2*(108 - 484*ur_pow2)) + 6*M_pow3*r_pow2*(-38 + 133*ur_pow2 + 63*ur_pow4 + 24*E_pow2*(1 + 6*ur_pow2)) + 3*M*r_pow4*(25 - 18*ur_pow2 - 513*ur_pow4 + 6*E_pow2*(7 + 134*ur_pow2))) + L_pow2*r_pow3*(4848*M_pow5 - 12*M_pow4*r*(-71 + 456*E_pow2 + 135*ur_pow2) - 3*r_pow5*(-59 + 120*ur_pow2 + 54*ur_pow4) + 2*M*r_pow4*(324 + 2363*ur_pow2 + 756*ur_pow4 + 6*E_pow2*(25 + 24*ur_pow2)) + M_pow2*r_pow3*(-1487 + 2865*ur_pow2 + 216*ur_pow4 - 36*E_pow2*(-71 + 41*ur_pow2)) - 8*M_pow3*r_pow2*(328 + 837*ur_pow2 + 207*ur_pow4 + E_pow2*(145 + 531*ur_pow2)))) + a_pow8*(L_pow4*M*(576*M_pow3 + 8*(-11 + 162*E_pow2)*M_pow2*r + 24*(1 + 19*E_pow2)*M*r_pow2 + 27*(7 - 2*E_pow2)*r_pow3) + L_pow2*r*(-64*(5 + 108*E_pow2)*M_pow5 + 30*r_pow5 - 16*M_pow4*r*(98 + 73*E_pow2 - 135*ur_pow2) + 4*M_pow3*r_pow2*(-592 + 1043*ur_pow2 + 6*E_pow2*(167 + 69*ur_pow2)) + 2*M*r_pow4*(421 + 432*ur_pow2 + 2*E_pow2*(-107 + 81*ur_pow2)) + M_pow2*r_pow3*(407 + 3177*ur_pow2 + 4*E_pow2*(113 + 369*ur_pow2))) + r_pow2*(4*E_pow2*M*(672*M_pow5 - 24*M_pow4*r*(-41 + 6*ur_pow2) + 18*r_pow5*(-7 + 20*ur_pow2) + 32*M_pow2*r_pow3*(-26 + 63*ur_pow2) + 4*M_pow3*r_pow2*(7 + 135*ur_pow2) + M*r_pow4*(-604 + 1575*ur_pow2)) - r*(-552*M_pow5 + r_pow5*(-41 + 22*ur_pow2) + 4*M_pow4*r*(257 + 507*ur_pow2) + M*r_pow4*(-674 - 204*ur_pow2 + 369*ur_pow4) + 3*M_pow2*r_pow3*(-164 + 68*ur_pow2 + 471*ur_pow4) + 2*M_pow3*r_pow2*(859 + 1165*ur_pow2 + 675*ur_pow4)))))/(3.*r_pow4*pow(a_pow2 + r*r_minus_twoM,2)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2)));
A1600 = (r_pow4*(-r + (r_pow3*(r_pow3 + a_pow2*twoM_plus_r)*ur_pow2)/((a_pow2 + r*r_minus_twoM)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2)))))/2.;
A1601 = (r_pow3*ur*(12*a_pow7*E*M*twoM_plus_r + 3*a_pow6*L*(8*(-1 + E_pow2)*M_pow2 + 4*(-3 + E_pow2)*M*r - 3*r_pow2) - 4*a*E*M*r_pow4*(8*L_pow2*M + 9*twoM_minus_r*r_pow2) - 12*a_pow5*E*M*(4*L_pow2*M + r*(4*M_pow2 - 6*M*r - 5*r_pow2)) + 4*a_pow3*E*M*r*(4*L_pow2*M*(2*M - 5*r) + 3*r_pow2*(-12*M_pow2 - 2*M*r + 7*r_pow2)) + a_pow4*L*(3*L_pow2*(8*M_pow2 - 4*M*r - 3*r_pow2) + r*(-16*(-3 + E_pow2)*M_pow3 + 4*(5 + 8*E_pow2)*M_pow2*r + 2*(-19 + 16*E_pow2)*M*r_pow2 + 3*r_pow3*(-5 + 3*ur_pow2))) + L*r_pow4*(L_pow2*(-8*M_pow2 + 10*M*r - 3*r_pow2) + r_pow2*(16*M_pow2 + 2*M*r*(-7 + 4*E_pow2 - 19*ur_pow2) + 3*r_pow2*(1 + 5*ur_pow2))) + a_pow2*L*r*(-2*L_pow2*(8*M_pow3 - 24*M_pow2*r - 5*M*r_pow2 + 6*r_pow3) + r_pow2*(56*M_pow3 + 2*M*r_pow2*(-8 + 14*E_pow2 - 13*ur_pow2) + 4*M_pow2*r*(3 + 2*E_pow2 - 4*ur_pow2) + 3*r_pow3*(-1 + 8*ur_pow2)))))/(12.*pow(a_pow2 + r*r_minus_twoM,2)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2)));
A1620 = (6*a_pow9*E*L*M*(12*(-4 + E_pow2)*M - 11*r)*twoM_plus_r + 3*a_pow10*twoM_plus_r*(3*r*(-3*M + r) + 2*E_pow2*M*(24*M + 13*r)) + 2*a_pow7*E*L*M*(3*L_pow2*(72*M_pow2 + 4*(-7 + 3*E_pow2)*M*r - 19*r_pow2) + r*((176 - 240*E_pow2)*M_pow3 + 3*r_pow3*(-32 + 119*ur_pow2) + 8*M_pow2*r*(-43 + 15*E_pow2 + 162*ur_pow2) + 6*M*r_pow2*(-81 + 26*E_pow2 + 223*ur_pow2))) - 2*a*E*L*M*r_pow4*(2*L_pow4*(124*M_pow2 - 92*M*r + 15*r_pow2) + 3*L_pow2*r_pow2*(28*M_pow2 + 242*M*r*ur_pow2 - r_pow2*(7 + 101*ur_pow2)) + r_pow4*(-164*M_pow2 - 3*r_pow2*(17 + 227*ur_pow2) + 2*M*r*(92 + 561*ur_pow2))) - 2*a_pow3*E*L*M*r_pow2*(L_pow4*(360*M_pow2 - 352*M*r + 54*r_pow2) + L_pow2*r*(96*M_pow3 + 3*r_pow3*(21 - 190*ur_pow2) - 2*M*r_pow2*(158 + 42*E_pow2 - 111*ur_pow2) + 4*M_pow2*r*(41 + 54*E_pow2 + 276*ur_pow2)) + r_pow3*(-728*M_pow3 - 2*M*r_pow2*(-121 + 42*E_pow2 + 147*ur_pow2) - 3*r_pow3*(24 + 557*ur_pow2) + 4*M_pow2*r*(32 + 54*E_pow2 + 639*ur_pow2))) - 2*a_pow5*E*L*M*r*(-12*L_pow4*(9*M - 2*r) + L_pow2*(720*M_pow3 + 24*(-18 + 5*E_pow2)*M_pow2*r + 3*r_pow3*(47 - 89*ur_pow2) - 8*M*r_pow2*(17 + 15*E_pow2 + 45*ur_pow2)) + r*(-800*M_pow4 + 3*r_pow4*(14 - 449*ur_pow2) + 12*M_pow2*r_pow2*(13 + 14*E_pow2 + 29*ur_pow2) + 24*M_pow3*r*(-23 + 18*E_pow2 + 62*ur_pow2) - 2*M*r_pow3*(-167 + 102*E_pow2 + 1329*ur_pow2))) - a_pow8*(3*L_pow2*(48*(-2 + 3*E_pow2)*M_pow3 + 8*(-5 + E_pow2)*M_pow2*r + (7 - 34*E_pow2)*M*r_pow2 - 6*r_pow3) + 2*r*(2*r*(-43*M_pow3 - 7*r_pow3 + 6*M_pow2*r*(8 + 3*ur_pow2) + M*r_pow2*(32 + 9*ur_pow2)) + E_pow2*M*(88*M_pow3 + 9*r_pow3*(-16 + 19*ur_pow2) + 8*M_pow2*r*(-19 + 81*ur_pow2) + 2*M*r_pow2*(-190 + 333*ur_pow2)))) + r_pow4*(8*L_pow6*M*r_minus_twoM_pow2 - L_pow4*twoM_minus_r*r_pow2*(20*M_pow2 + r_pow2*(7 + 18*ur_pow2) - 4*M*r*(6 + 11*E_pow2 + 49*ur_pow2)) + L_pow2*r_pow4*(-8*M_pow3 + 4*M_pow2*r*(1 + 42*E_pow2 + 261*ur_pow2) + r_pow3*(-1 + 143*ur_pow2 + 90*ur_pow4) + 2*M*r_pow2*(1 - 404*ur_pow2 - 120*ur_pow4 + 6*E_pow2*(-7 + 5*ur_pow2))) - 4*r_pow6*(-16*M_pow3 + 4*M_pow2*r*(6 - 5*E_pow2 + 2*ur_pow2) + r_pow3*(2 + ur_pow2 + 9*ur_pow4) + 2*M*r_pow2*(5*E_pow2*(1 + 3*ur_pow2) - 3*(2 + ur_pow2 + 8*ur_pow4)))) + a_pow2*r_pow2*(8*L_pow6*M*(30*M_pow2 - 29*M*r + 7*r_pow2) - L_pow4*r*(336*M_pow4 + 4*M_pow2*r_pow2*(10 + 126*E_pow2 - 63*ur_pow2) + r_pow4*(1 + 18*ur_pow2) - 16*M_pow3*r*(17 + 56*E_pow2 + 69*ur_pow2) + 2*M*r_pow3*(2 + 8*E_pow2 + 233*ur_pow2)) + r_pow5*(40*M_pow4 - 4*M_pow3*r*(59 + 24*E_pow2 + 140*ur_pow2) + r_pow4*(-23 + 12*ur_pow2 - 81*ur_pow4) + 2*M_pow2*r_pow2*(57 + 50*E_pow2 + 80*ur_pow2 + 195*ur_pow4) + M*r_pow3*(43 + 44*ur_pow2 + 381*ur_pow4 - 66*E_pow2*(1 + 11*ur_pow2))) + L_pow2*r_pow3*(-632*M_pow4 + 12*M_pow3*r*(7 + 68*E_pow2 + 179*ur_pow2) + r_pow4*(-9 + 226*ur_pow2 + 126*ur_pow4) + M*r_pow3*(-89 - 1507*ur_pow2 - 342*ur_pow4 + E_pow2*(-86 + 24*ur_pow2)) + 2*M_pow2*r_pow2*(E_pow2*(-202 + 228*ur_pow2) + 3*(55 + 54*ur_pow2 + 46*ur_pow4)))) + a_pow4*r*(24*L_pow6*M*(-3*M + r) + L_pow4*(480*M_pow4 + 24*(-13 + 30*E_pow2)*M_pow3*r + 2*M*r_pow3*(-1 + 26*E_pow2 - 195*ur_pow2) + r_pow4*(1 - 36*ur_pow2) - 4*M_pow2*r_pow2*(-11 + 178*E_pow2 + 90*ur_pow2)) + L_pow2*r*(-800*M_pow5 + 16*M_pow4*r*(-17 + 87*E_pow2 + 93*ur_pow2) + r_pow5*(3 + 47*ur_pow2 + 36*ur_pow4) + 4*M_pow2*r_pow3*(151 - 357*ur_pow2 + 6*E_pow2*(-49 + 8*ur_pow2)) - M*r_pow4*(301 + 1362*ur_pow2 + 234*ur_pow4 + 2*E_pow2*(-91 + 90*ur_pow2)) + 4*M_pow3*r_pow2*(93 + 216*ur_pow2 + E_pow2*(98 + 276*ur_pow2))) - 2*r_pow3*(88*M_pow5 + 8*M_pow4*r*(19 + 57*E_pow2 + 62*ur_pow2) + 3*r_pow5*(2 - 6*ur_pow2 + 9*ur_pow4) - 2*M_pow3*r_pow2*(25 - 52*ur_pow2 + 3*ur_pow4 + 34*E_pow2*(-2 + 9*ur_pow2)) + M*r_pow4*(84 - 38*ur_pow2 - 153*ur_pow4 + E_pow2*(-60 + 717*ur_pow2)) + 2*M_pow2*r_pow3*(E_pow2*(-30 + 357*ur_pow2) - 2*(54 + 65*ur_pow2 + 66*ur_pow4)))) + a_pow6*(-3*L_pow4*(48*M_pow3 + 8*(-5 + 9*E_pow2)*M_pow2*r - 4*(1 + 2*E_pow2)*M*r_pow2 - 3*r_pow3) - L_pow2*r*(-16*(-11 + 90*E_pow2)*M_pow4 + r_pow4*(-29 + 36*ur_pow2) + 24*M_pow3*r*(-16 + 33*E_pow2 + 54*ur_pow2) + M*r_pow3*(231 + 615*ur_pow2 + 2*E_pow2*(-143 + 72*ur_pow2)) + 2*M_pow2*r_pow2*(-151 + 672*ur_pow2 + 2*E_pow2*(157 + 90*ur_pow2))) + r_pow2*(-2*E_pow2*M*(400*M_pow4 + 4*M_pow2*r_pow2*(20 + 21*ur_pow2) + 20*M*r_pow3*(-14 + 69*ur_pow2) - 8*M_pow3*r*(-52 + 93*ur_pow2) + r_pow4*(-178 + 585*ur_pow2)) + r*(-40*M_pow4 + 4*M_pow3*r*(143 + 160*ur_pow2) + r_pow4*(22 + 20*ur_pow2 - 9*ur_pow4) + M*r_pow3*(-282 + 20*ur_pow2 + 117*ur_pow4) + 2*M_pow2*r_pow2*(42 + 176*ur_pow2 + 135*ur_pow4)))))/(12.*r*pow(a_pow2 + r*r_minus_twoM,2)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2)));
A1800 = (r_pow2*(-4*a*E*L*M*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2))*(15*a_pow4 + 2*a_pow2*r*(-11*M + 9*r) + r_pow2*(-16*M_pow2 + 2*M*r + 3*r_pow2)) + 2*E_pow2*M*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2))*(15*a_pow6 + 5*twoM_minus_r*r_pow5 + a_pow4*r*(-22*M + 25*r) + a_pow2*r_pow2*(-16*M_pow2 - 12*M*r + 5*r_pow2)) + (a_pow2 + r*r_minus_twoM)*(9*a_pow6*r*twoM_plus_r + twoM_minus_r*r_pow2*(L_pow2 + r_pow2)*(8*L_pow2*M + r_pow2*(-4*M + r)) + a_pow4*(L_pow2*(60*M_pow2 + 30*M*r + 9*r_pow2) + r_pow2*(-28*M_pow2 + 2*M*r + 17*r_pow2)) + a_pow2*r*(30*L_pow4*M + 8*L_pow2*(4*M_pow3 + M*r_pow2 + r_pow3) + r_pow2*(-16*M_pow3 + 4*M_pow2*r - 10*M*r_pow2 + 7*r_pow3))) + r_pow2*(twoM_minus_r*r_pow4*(L_pow2*(104*M - 9*r) + 2*r_pow2*r_minus_twoM) + a_pow4*(8*M_pow2*r_pow2 - 2*r_pow4 - 3*L_pow2*(84*M_pow2 + 26*M*r - 3*r_pow2)) + 12*a*E*L*M*(a_pow4*(42*M + 17*r) + r_pow4*(-36*M + 23*r) + 2*a_pow2*r*(-32*M_pow2 + 9*M*r + 20*r_pow2)) - 6*E_pow2*M*(5*r_pow7 + 21*a_pow6*twoM_plus_r + a_pow2*r_pow4*(-22*M + 31*r) + a_pow4*r*(-64*M_pow2 + 20*M*r + 47*r_pow2)) + 2*a_pow2*r*(-2*r_pow2*(4*M_pow3 - 2*M_pow2*r - 2*M*r_pow2 + r_pow3) + L_pow2*(192*M_pow3 - 48*M_pow2*r - 100*M*r_pow2 + 9*r_pow3)))*ur_pow2 - 3*r_pow5*(3*a_pow4*twoM_plus_r + r_pow4*(-16*M + 3*r) + 2*a_pow2*r*(-16*M_pow2 - 5*M*r + 3*r_pow2))*ur_pow4))/(48.*pow(a_pow2 + r*r_minus_twoM,2)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2)));
A2040 = (48*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2))*((a_pow2 + r*r_minus_twoM)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2)) + r_pow2*(r_pow3 + a_pow2*twoM_plus_r)*ur_pow2))/pow(a_pow2 + r*r_minus_twoM,2);
A2041 = (ur*(-16*a*E*M*(a_pow2 + 3*r_pow2)*(-(L_pow4*r_pow2) + r_pow6 + 2*a_pow2*r_pow3*twoM_plus_r + a_pow4*twoM_plus_r_pow2) - 8*L*((3*M - 2*r)*r_pow4*pow(L_pow2 + r_pow2,2) + a_pow6*(-8*M_pow3 + 4*M_pow2*r + 6*M*r_pow2 + r_pow3) + a_pow4*r_pow2*(2*L_pow2*(4*M + r) + M*(-36*M_pow2 - 20*M*r + 3*r_pow2)) + a_pow2*r_pow2*(L_pow4*twoM_plus_r - 2*L_pow2*r*(6*M_pow2 - M*r + r_pow2) - 3*(4*M_pow2*r_pow3 + r_pow5))) + 8*L_pow3*r_pow4*(-(a_pow2*M) + r_pow3)*ur_pow2))/(r_pow2*pow(a_pow2 + r*r_minus_twoM,2));
A2060 = (8*(4*E_pow2*M*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(r_pow8*(L_pow2 - r_pow2) + 3*a_pow8*(2*M_pow2 + 3*M*r + r_pow2) + a_pow6*r*(-32*M_pow3 - 60*M_pow2*r - 9*M*r_pow2 + 8*r_pow3 + 3*L_pow2*(4*M + r)) + a_pow2*r_pow5*(-39*M*r_pow2 + L_pow2*(52*M + 5*r)) + a_pow4*r_pow2*(3*r_pow2*(-30*M_pow2 - 19*M*r + 2*r_pow2) + L_pow2*(-8*M_pow2 + 40*M*r + 7*r_pow2))) - 4*a*E*L*M*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(a_pow6*(12*M_pow2 + 23*M*r + 3*r_pow2) + r_pow5*(L_pow2*(67*M - 36*r) + (17*M - 15*r)*r_pow2) + a_pow4*r*(-64*M_pow3 - 104*M_pow2*r + 55*M*r_pow2 + 7*r_pow3 + 3*L_pow2*(8*M + r)) - a_pow2*r_pow2*(L_pow2*(16*M_pow2 - 73*M*r + 3*r_pow2) + r_pow2*(196*M_pow2 - 17*M*r + 11*r_pow2))) - (a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(a_pow8*M*r*(M + 6*r) - twoM_minus_r*r_pow5*(8*L_pow4*(5*M - 3*r) + 6*L_pow2*(9*M - 5*r)*r_pow2 + (20*M - 9*r)*r_pow4) + a_pow6*(2*r_pow4*(31*M + 3*r) - 2*L_pow2*M*(12*M_pow2 + 28*M*r - 3*r_pow2)) + 2*a_pow2*r_pow2*(r_pow4*(58*M_pow3 - 69*M_pow2*r + 33*M*r_pow2 - 6*r_pow3) + L_pow2*r_pow2*(194*M_pow3 - 171*M_pow2*r + 57*M*r_pow2 - 6*r_pow3) + 2*L_pow4*(8*M_pow3 - 33*M_pow2*r + 10*M*r_pow2 + 3*r_pow3)) + a_pow4*r*(-48*L_pow4*M_pow2 + r_pow2*(-4*M_pow4 - 20*M_pow3*r - 159*M_pow2*r_pow2 + 84*M*r_pow3 + 3*r_pow4) + 2*L_pow2*(64*M_pow4 + 88*M_pow3*r - 109*M_pow2*r_pow2 + 51*M*r_pow3 + 9*r_pow4))) + r_pow3*(2*a_pow12*M*twoM_plus_r_pow2*(31*M + 21*r) + twoM_minus_r*r_pow8*(L_pow2 + r_pow2)*(L_pow4*(88*M - 60*r) + 6*r_pow4*(-5*M + 2*r) + L_pow2*r_pow2*(-128*M + 45*r)) - 8*E_pow2*M*pow(r_pow3 + a_pow2*twoM_plus_r,3)*(3*L_pow4*r_pow2 + 4*L_pow2*r_pow4 + r_pow6 + a_pow4*twoM_plus_r_pow2 + 2*a_pow2*r*twoM_plus_r*(2*L_pow2 + r_pow2)) + a_pow10*twoM_plus_r*(-440*M_pow4*r - 288*M_pow3*r_pow2 + 450*M_pow2*r_pow3 + 276*M*r_pow4 + 6*r_pow5 + L_pow2*M*(64*M_pow2 + 403*M*r + 156*r_pow2)) + a_pow2*r_pow5*(L_pow2*r_pow4*(-1664*M_pow3 + 12*M_pow2*r + 788*M*r_pow2 - 171*r_pow3) - 4*L_pow6*(146*M_pow3 - 81*M_pow2*r + 26*M*r_pow2 - 12*r_pow3) + 6*r_pow6*(22*M_pow3 - 45*M_pow2*r + 32*M*r_pow2 - 7*r_pow3) + 2*L_pow4*r_pow2*(-818*M_pow3 + 117*M_pow2*r + 153*M*r_pow2 + 6*r_pow3)) - a_pow4*r_pow2*(4*L_pow6*(48*M_pow4 + 138*M_pow3*r - 82*M_pow2*r_pow2 - 8*M*r_pow3 + 3*r_pow4) + 6*r_pow6*(-240*M_pow4 + 136*M_pow3*r + 95*M_pow2*r_pow2 - 69*M*r_pow3 + 8*r_pow4) + L_pow4*r_pow2*(292*M_pow4 + 2508*M_pow3*r - 1145*M_pow2*r_pow2 - 636*M*r_pow3 + 21*r_pow4) + L_pow2*r_pow4*(804*M_pow4 + 3556*M_pow3*r - 1271*M_pow2*r_pow2 - 1230*M*r_pow3 + 171*r_pow4)) + a_pow6*r*(12*L_pow6*M*r*(19*M + 6*r) + L_pow2*r_pow2*(2392*M_pow5 - 3180*M_pow4*r - 3106*M_pow3*r_pow2 + 2641*M_pow2*r_pow3 + 1340*M*r_pow4 - 57*r_pow5) + 4*r_pow4*(564*M_pow5 + 30*M_pow4*r - 706*M_pow3*r_pow2 - 7*M_pow2*r_pow3 + 168*M*r_pow4 - 3*r_pow5) - 2*L_pow4*(256*M_pow5 + 776*M_pow4*r + 572*M_pow3*r_pow2 - 706*M_pow2*r_pow3 - 263*M*r_pow4 + 9*r_pow5)) + a_pow8*(L_pow4*M*r*(520*M_pow2 + 713*M*r + 186*r_pow2) + L_pow2*M*(-256*M_pow5 - 640*M_pow4*r - 3192*M_pow3*r_pow2 + 112*M_pow2*r_pow3 + 2413*M*r_pow4 + 782*r_pow5) + 2*r_pow2*(384*M_pow6 + 240*M_pow5*r - 1436*M_pow4*r_pow2 - 840*M_pow3*r_pow3 + 552*M_pow2*r_pow4 + 321*M*r_pow5 + 6*r_pow6)) - 4*a*E*L*M*(2*a_pow10*twoM_plus_r_pow2*(4*M + 9*r) - a_pow8*twoM_plus_r*(64*M_pow4 - 65*L_pow2*M*r + 128*M_pow3*r - 36*L_pow2*r_pow2 + 216*M_pow2*r_pow2 - 96*M*r_pow3 - 118*r_pow4) + r_pow8*(L_pow2 + r_pow2)*(L_pow2*(66*M - 45*r) + 2*r_pow2*(-106*M + 51*r)) - a_pow2*r_pow5*(L_pow2*r_pow2*(522*M_pow2 + 203*M*r - 193*r_pow2) + 2*r_pow4*(392*M_pow2 + 104*M*r - 185*r_pow2) + 3*L_pow4*(98*M_pow2 - 7*M*r + 10*r_pow2)) + a_pow4*r_pow2*(L_pow4*(-96*M_pow3 - 210*M_pow2*r + 96*M*r_pow2 + 33*r_pow3) + 4*r_pow4*(-156*M_pow3 - 282*M_pow2*r + 98*M*r_pow2 + 129*r_pow3) + L_pow2*r_pow2*(-588*M_pow3 - 830*M_pow2*r + 113*M*r_pow2 + 251*r_pow3)) + a_pow6*r*(3*L_pow4*r*(19*M + 6*r) + 4*r_pow2*(32*M_pow4 - 192*M_pow3*r - 118*M_pow2*r_pow2 + 160*M*r_pow3 + 87*r_pow4) + L_pow2*(-256*M_pow4 - 644*M_pow3*r - 234*M_pow2*r_pow2 + 307*M*r_pow3 + 151*r_pow4))))*ur_pow2 + r_pow5*(3*a_pow10*M*twoM_plus_r_pow2*(17*M + 8*r) + a_pow8*M*r*twoM_plus_r*(-140*M_pow3 + 237*M*r_pow2 + 98*r_pow3 + 3*L_pow2*(35*M + 32*r)) + r_pow9*(L_pow2*(206*M - 87*r)*r_pow2 + r_pow4*(2*M + 3*r) + L_pow4*(-48*M + 36*r)) + a_pow2*r_pow6*(6*L_pow2*(61*M - 29*r)*r_pow3 + 12*L_pow4*(8*M_pow2 + 4*M*r + 3*r_pow2) + r_pow4*(4*M_pow2 + 50*M*r + 9*r_pow2)) + 3*a_pow4*r_pow3*(4*L_pow4*M*(-22*M_pow2 + 11*M*r + 8*r_pow2) + L_pow2*r_pow2*(-302*M_pow3 + 99*M_pow2*r + 186*M*r_pow2 - 29*r_pow3) + r_pow4*(-26*M_pow3 + 61*M_pow2*r + 48*M*r_pow2 + 3*r_pow3)) + a_pow6*r_pow2*(36*L_pow4*M*(5*M + 2*r) + 2*L_pow2*M*(-82*M_pow3 + 471*M*r_pow2 + 247*r_pow3) + r_pow2*(-296*M_pow4 + 120*M_pow3*r + 465*M_pow2*r_pow2 + 170*M*r_pow3 + 3*r_pow4)))*ur_pow4))/(3.*r_pow6*pow(a_pow2 + r*r_minus_twoM,3)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2)));
A2061 = (ur*(-96*a*E_pow3*M_pow2*(r_pow3 + a_pow2*twoM_plus_r)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(-2*L_pow6*r_pow5 - 5*L_pow4*r_pow7 + 15*L_pow2*r_pow9 + 2*a_pow8*twoM_plus_r_pow3 + a_pow6*r*twoM_plus_r_pow2*(5*L_pow2 + 6*r_pow2) + a_pow4*r_pow2*twoM_plus_r*(-5*L_pow4 + 6*r_pow4 + 5*L_pow2*r*(6*M + 5*r)) + a_pow2*r_pow3*(-2*L_pow6 + 2*r_pow6 - 10*L_pow4*r*(M + r) + 5*L_pow2*r_pow3*(12*M + 7*r))) - 8*E_pow2*L*M*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(a_pow12*(4*M_pow3 - 82*M_pow2*r - 132*M*r_pow2 - 45*r_pow3) + r_pow8*(24*L_pow6*twoM_minus_r + 51*L_pow4*twoM_minus_r*r_pow2 - 2*L_pow2*(7*M - 5*r)*r_pow4 + r_pow6*(-8*M + 7*r)) + 2*a_pow2*r_pow5*(L_pow2*r_pow4*(-684*M_pow2 + 220*M*r - 63*r_pow2) + 3*L_pow4*r_pow2*(18*M_pow2 + 90*M*r - 43*r_pow2) + L_pow6*(36*M_pow2 + 72*M*r - 39*r_pow2) + r_pow6*(-1436*M_pow2 + 769*M*r - 13*r_pow2)) - a_pow4*r_pow3*(-12*L_pow6*(12*M_pow2 + 8*M*r - 7*r_pow2) + 12*L_pow4*r*(16*M_pow3 - 112*M_pow2*r - 47*M*r_pow2 + 39*r_pow3) + r_pow5*(6924*M_pow3 + 2586*M_pow2*r - 4844*M*r_pow2 + 219*r_pow3) + 2*L_pow2*r_pow3*(4884*M_pow3 + 482*M_pow2*r - 801*M*r_pow2 + 279*r_pow3)) - 2*a_pow10*(576*M_pow5 + 284*M_pow4*r - 852*M_pow3*r_pow2 + 60*L_pow2*r_pow3 + 117*r_pow5 + 4*M_pow2*(17*L_pow2*r - 252*r_pow3) + 9*M*(19*L_pow2*r_pow2 - 9*r_pow4)) - 2*a_pow6*r_pow2*(15*L_pow6*r + L_pow4*(-360*M_pow3 - 618*M_pow2*r + 42*M*r_pow2 + 183*r_pow3) + 2*r_pow3*(910*M_pow4 + 2158*M_pow3*r - 1030*M_pow2*r_pow2 - 1367*M*r_pow3 + 119*r_pow4) + L_pow2*r*(3416*M_pow4 + 4396*M_pow3*r - 1696*M_pow2*r_pow2 - 607*M*r_pow3 + 409*r_pow4)) - a_pow8*r*(105*L_pow4*r*twoM_plus_r + 4*L_pow2*(360*M_pow4 - 16*M_pow3*r - 577*M_pow2*r_pow2 + 69*M*r_pow3 + 129*r_pow4) + r*(2432*M_pow5 + 5456*M_pow4*r + 1512*M_pow3*r_pow2 - 5932*M_pow2*r_pow3 - 2464*M*r_pow4 + 479*r_pow5))) + 8*a*E*M*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(a_pow12*(98*M_pow3 + 57*M_pow2*r - 32*M*r_pow2 - 18*r_pow3) - r_pow6*(-60*L_pow8*twoM_minus_r + 48*L_pow6*r*(8*M_pow2 - 14*M*r + 5*r_pow2) + 6*r_pow7*(70*M_pow2 - 67*M*r + 16*r_pow2) + L_pow4*r_pow3*(656*M_pow2 - 550*M*r + 105*r_pow2) + L_pow2*r_pow5*(2540*M_pow2 - 2368*M*r + 543*r_pow2)) + a_pow2*r_pow3*(24*L_pow8*(6*M_pow2 + 5*M*r - 5*r_pow2) + L_pow2*r_pow5*(-12816*M_pow3 + 2592*M_pow2*r + 5906*M*r_pow2 - 1877*r_pow3) + 2*r_pow7*(144*M_pow3 - 580*M_pow2*r + 657*M*r_pow2 - 197*r_pow3) - 6*L_pow6*r*(184*M_pow3 - 248*M_pow2*r - 134*M*r_pow2 + 115*r_pow3) - 2*L_pow4*r_pow3*(5548*M_pow3 - 2578*M_pow2*r - 1031*M*r_pow2 + 563*r_pow3)) + a_pow10*(L_pow2*(8*M_pow3 - 197*M_pow2*r - 412*M*r_pow2 - 126*r_pow3) - 2*r*(148*M_pow4 - 203*M_pow3*r - 361*M_pow2*r_pow2 + 11*M*r_pow3 + 65*r_pow4)) - a_pow4*r_pow2*(60*L_pow8*r - 12*L_pow6*(60*M_pow3 + 146*M_pow2*r - 24*M*r_pow2 - 55*r_pow3) + r_pow5*(-2844*M_pow4 + 2124*M_pow3*r + 1025*M_pow2*r_pow2 - 1892*M*r_pow3 + 682*r_pow4) + L_pow4*r*(9344*M_pow4 + 7368*M_pow3*r - 10760*M_pow2*r_pow2 - 164*M*r_pow3 + 1961*r_pow4) + L_pow2*r_pow3*(5052*M_pow4 + 15228*M_pow3*r - 14205*M_pow2*r_pow2 - 5138*M*r_pow3 + 2661*r_pow4)) - a_pow8*(2*L_pow4*r*(136*M_pow2 + 400*M*r + 129*r_pow2) + 2*r_pow2*(-100*M_pow5 + 766*M_pow4*r + 627*M_pow3*r_pow2 - 942*M_pow2*r_pow3 - 261*M*r_pow4 + 194*r_pow5) + L_pow2*(1152*M_pow5 - 1168*M_pow4*r - 4020*M_pow3*r_pow2 - 3771*M_pow2*r_pow3 + 1042*M*r_pow4 + 788*r_pow5)) - a_pow6*r*(210*L_pow6*r*twoM_plus_r + 2*L_pow4*(720*M_pow4 - 1144*M_pow3*r - 2402*M_pow2*r_pow2 + 840*M*r_pow3 + 599*r_pow4) - 2*r_pow3*(588*M_pow5 + 180*M_pow4*r - 2179*M_pow3*r_pow2 + 467*M_pow2*r_pow3 + 746*M*r_pow4 - 330*r_pow5) + L_pow2*r*(4864*M_pow5 + 6724*M_pow4*r + 432*M_pow3*r_pow2 - 13689*M_pow2*r_pow3 - 970*M*r_pow4 + 1989*r_pow5))) - 4*L*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(a_pow12*M*(196*M_pow3 + 78*M_pow2*r - 79*M*r_pow2 - 18*r_pow3) + r_pow5*(-12*L_pow8*M*r_minus_twoM_pow2 - 42*L_pow6*M*r_pow2*r_minus_twoM_pow2 + L_pow4*r_pow4*(112*M_pow3 - 370*M_pow2*r + 289*M*r_pow2 - 66*r_pow3) + r_pow8*(-164*M_pow3 + 182*M_pow2*r - 56*M*r_pow2 + 3*r_pow3) + L_pow2*r_pow6*(-652*M_pow3 + 772*M_pow2*r - 277*M*r_pow2 + 27*r_pow3)) + a_pow2*r_pow3*(24*L_pow8*M*(4*M_pow2 + 4*M*r - 3*r_pow2) - 6*L_pow6*M*r*(224*M_pow3 - 208*M_pow2*r - 50*M*r_pow2 + 49*r_pow3) + r_pow7*(-1512*M_pow4 + 860*M_pow3*r + 468*M_pow2*r_pow2 - 269*M*r_pow3 + 3*r_pow4) - L_pow4*r_pow3*(6536*M_pow4 - 5508*M_pow3*r + 500*M_pow2*r_pow2 + 217*M*r_pow3 + 45*r_pow4) + L_pow2*r_pow5*(-10040*M_pow4 + 7628*M_pow3*r + 418*M_pow2*r_pow2 - 999*M*r_pow3 + 69*r_pow4)) - a_pow10*M*(L_pow2*(-8*M_pow3 + 230*M_pow2*r + 575*M*r_pow2 + 126*r_pow3) + r*(592*M_pow4 - 842*M_pow3*r - 1199*M_pow2*r_pow2 + 437*M*r_pow3 + 150*r_pow4)) - a_pow4*r_pow2*(60*L_pow8*M*r - 6*L_pow6*M*(80*M_pow3 + 252*M_pow2*r - 48*M*r_pow2 - 77*r_pow3) + L_pow2*r_pow3*(2660*M_pow5 + 15188*M_pow4*r - 17207*M_pow3*r_pow2 + 1298*M_pow2*r_pow3 + 1683*M*r_pow4 - 57*r_pow5) + L_pow4*r*(7904*M_pow5 + 2912*M_pow4*r - 9692*M_pow3*r_pow2 + 1548*M_pow2*r_pow3 + 1034*M*r_pow4 - 21*r_pow5) + r_pow5*(-5820*M_pow5 + 7476*M_pow4*r - 3779*M_pow3*r_pow2 - 418*M_pow2*r_pow3 + 621*M*r_pow4 + 9*r_pow5)) - a_pow8*(2*L_pow4*M*r*(136*M_pow2 + 458*M*r + 129*r_pow2) + L_pow2*M*(768*M_pow5 - 1936*M_pow4*r - 3480*M_pow3*r_pow2 - 3735*M_pow2*r_pow3 + 2180*M*r_pow4 + 720*r_pow5) + r_pow2*(-400*M_pow6 + 2864*M_pow5*r + 1800*M_pow4*r_pow2 - 4583*M_pow3*r_pow3 + 717*M_pow2*r_pow4 + 497*M*r_pow5 + 6*r_pow6)) - a_pow6*r*(210*L_pow6*M*r*twoM_plus_r + 4*L_pow4*M*(240*M_pow4 - 752*M_pow3*r - 1068*M_pow2*r_pow2 + 561*M*r_pow3 + 240*r_pow4) + L_pow2*r*(4864*M_pow6 + 4072*M_pow5*r + 1240*M_pow4*r_pow2 - 14836*M_pow3*r_pow3 + 2597*M_pow2*r_pow4 + 1555*M*r_pow5 - 15*r_pow6) + r_pow3*(-2120*M_pow6 - 292*M_pow5*r + 9250*M_pow4*r_pow2 - 6289*M_pow3*r_pow3 + 227*M_pow2*r_pow4 + 773*M*r_pow5 + 15*r_pow6))) + 4*r_pow2*(-12*E_pow2*L*M*r*(r_pow3 + a_pow2*twoM_plus_r)*(5*a_pow10*M*twoM_plus_r_pow4 + r_pow7*(L_pow8 + 7*L_pow6*r_pow2 + 26*L_pow4*r_pow4 + 15*L_pow2*r_pow6 - 5*r_pow8) + 5*a_pow8*r*twoM_plus_r_pow3*(twoM_minus_r*r_pow2 + L_pow2*(4*M + r)) + a_pow6*r_pow2*twoM_plus_r_pow2*(30*L_pow2*r_pow2*(3*M + r) - 10*r_pow4*(M + 2*r) + L_pow4*(51*M + 11*r)) + a_pow2*r_pow4*(14*L_pow6*r_pow2*(4*M + r) + L_pow8*(6*M + r) - 5*r_pow8*(7*M + 4*r) + 10*L_pow2*r_pow6*(11*M + 5*r) + L_pow4*r_pow4*(155*M + 63*r)) + a_pow4*r_pow3*(7*L_pow6*(12*M_pow2 + 8*M*r + r_pow2) + 30*L_pow2*r_pow4*(10*M_pow2 + 9*M*r + 2*r_pow2) - 10*r_pow6*(8*M_pow2 + 10*M*r + 3*r_pow2) + 2*L_pow4*r_pow2*(154*M_pow2 + 125*M*r + 24*r_pow2))) + 2*a*E*M*(a_pow14*twoM_plus_r_pow3*(293*M_pow2 + 312*M*r + 90*r_pow2) + 3*r_pow8*(L_pow2 + r_pow2)*(20*L_pow8*twoM_minus_r + 20*L_pow6*(9*M - 4*r)*r_pow2 + 10*L_pow4*(22*M - r)*r_pow4 + L_pow2*(758*M - 369*r)*r_pow6 + 61*r_pow8*r_minus_twoM) + a_pow12*r*twoM_plus_r_pow2*(-980*M_pow4 - 594*M_pow3*r + 2127*M_pow2*r_pow2 + 2318*M*r_pow3 + 636*r_pow4 + 4*L_pow2*(299*M_pow2 + 276*M*r + 45*r_pow2)) + a_pow2*r_pow5*(L_pow4*r_pow6*(5736*M_pow2 + 6568*M*r - 3653*r_pow2) + 4*L_pow2*r_pow8*(642*M_pow2 + 869*M*r - 745*r_pow2) + 4*L_pow6*r_pow4*(1956*M_pow2 + 655*M*r - 455*r_pow2) + 6*L_pow8*r_pow2*(388*M_pow2 + 110*M*r - 145*r_pow2) + 24*L_pow10*(6*M_pow2 + 5*M*r - 5*r_pow2) + r_pow10*(-2328*M_pow2 - 532*M*r + 1043*r_pow2)) + a_pow4*r_pow4*(-60*L_pow10*r + L_pow4*r_pow4*(-990*M_pow3 + 15675*M_pow2*r + 6472*M*r_pow2 - 4579*r_pow3) + 2*L_pow6*r_pow2*(3138*M_pow3 + 5639*M_pow2*r - 310*M*r_pow2 - 1465*r_pow3) + 12*L_pow8*(168*M_pow3 + 184*M_pow2*r - 45*M*r_pow2 - 70*r_pow3) - 4*L_pow2*r_pow6*(3594*M_pow3 - 1021*M_pow2*r - 1352*M*r_pow2 + 771*r_pow3) + r_pow8*(-5550*M_pow3 - 6493*M_pow2*r + 2522*M*r_pow2 + 2618*r_pow3)) + a_pow6*r_pow3*(-270*L_pow8*r*twoM_plus_r + L_pow4*r_pow2*(468*M_pow4 + 7206*M_pow3*r + 19171*M_pow2*r_pow2 + 4000*M*r_pow3 - 2807*r_pow4) + 4*L_pow6*(1224*M_pow4 + 1579*M_pow3*r + 1036*M_pow2*r_pow2 - 620*M*r_pow3 - 435*r_pow4) - 24*L_pow2*r_pow4*(1116*M_pow4 + 1017*M_pow3*r - 765*M_pow2*r_pow2 - 532*M*r_pow3 + 18*r_pow4) + r_pow6*(-6708*M_pow4 - 16738*M_pow3*r - 2695*M_pow2*r_pow2 + 9404*M*r_pow3 + 3792*r_pow4)) + a_pow10*r*twoM_plus_r*(L_pow4*r*(1393*M_pow2 + 672*M*r - 60*r_pow2) + 4*L_pow2*(240*M_pow5 - 620*M_pow4*r + 18*M_pow3*r_pow2 + 2542*M_pow2*r_pow3 + 1673*M*r_pow4 + 213*r_pow5) + r_pow2*(-1464*M_pow5 - 7240*M_pow4*r - 4760*M_pow3*r_pow2 + 6486*M_pow2*r_pow3 + 7486*M*r_pow4 + 1955*r_pow5)) + a_pow8*r_pow2*(-10*L_pow6*r*(35*M_pow2 + 96*M*r + 36*r_pow2) + L_pow4*(3840*M_pow5 + 1820*M_pow4*r + 7926*M_pow3*r_pow2 + 10441*M_pow2*r_pow3 + 1714*M*r_pow4 - 804*r_pow5) + 4*L_pow2*r_pow2*(-1272*M_pow5 - 6140*M_pow4*r + 1462*M_pow3*r_pow2 + 8516*M_pow2*r_pow3 + 3875*M*r_pow4 + 317*r_pow5) + r_pow4*(-5448*M_pow5 - 21680*M_pow4*r - 13940*M_pow3*r_pow2 + 12230*M_pow2*r_pow3 + 14102*M*r_pow4 + 3443*r_pow5))) + L*(-(a_pow14*M*twoM_plus_r_pow2*(1172*M_pow3 + 844*M_pow2*r - 135*M*r_pow2 - 174*r_pow3)) + r_pow8*(L_pow2 + r_pow2)*(-126*L_pow6*M*twoM_minus_r*r_pow2 + 24*L_pow8*M*r_minus_twoM + L_pow2*r_pow6*(-2186*M_pow2 + 1837*M*r - 366*r_pow2) + r_pow8*(14*M_pow2 - 43*M*r + 21*r_pow2) + L_pow4*r_pow4*(-244*M_pow2 - 178*M*r + 153*r_pow2)) + a_pow12*M*r*twoM_plus_r*(3920*M_pow5 - 348*M_pow4*r - 10960*M_pow3*r_pow2 - 7323*M_pow2*r_pow3 + 806*M*r_pow4 + 1092*r_pow5 - 4*L_pow2*(1196*M_pow3 + 661*M_pow2*r - 435*M*r_pow2 - 228*r_pow3)) - a_pow2*r_pow5*(6*L_pow8*M*r_pow2*(184*M_pow2 + 200*M*r - 175*r_pow2) + 144*L_pow10*M*(M_pow2 + M*r - r_pow2) + L_pow6*r_pow4*(4024*M_pow3 + 4130*M_pow2*r - 3025*M*r_pow2 - 135*r_pow3) - r_pow10*(4808*M_pow3 - 3116*M_pow2*r + 223*M*r_pow2 + 111*r_pow3) + 3*L_pow4*r_pow6*(1392*M_pow3 + 3376*M_pow2*r - 2459*M*r_pow2 + 145*r_pow3) + 3*L_pow2*r_pow8*(208*M_pow3 + 2670*M_pow2*r - 2187*M*r_pow2 + 333*r_pow3)) + a_pow4*r_pow4*(120*L_pow10*M*r - 6*L_pow8*M*(336*M_pow3 + 344*M_pow2*r - 30*M*r_pow2 - 275*r_pow3) + L_pow2*r_pow6*(33888*M_pow4 - 28184*M_pow3*r - 13892*M_pow2*r_pow2 + 13881*M*r_pow3 - 927*r_pow4) + L_pow4*r_pow4*(23862*M_pow4 - 37687*M_pow3*r - 10504*M_pow2*r_pow2 + 15879*M*r_pow3 - 231*r_pow4) + L_pow6*r_pow2*(884*M_pow4 - 16426*M_pow3*r - 1576*M_pow2*r_pow2 + 7127*M*r_pow3 - 18*r_pow4) + r_pow8*(20678*M_pow4 + 1513*M_pow3*r - 11354*M_pow2*r_pow2 + 1766*M*r_pow3 + 234*r_pow4)) + a_pow6*r_pow3*(30*L_pow8*M*r*(36*M + 25*r) - 2*L_pow6*M*(2448*M_pow4 + 2116*M_pow3*r + 5349*M_pow2*r_pow2 - 3267*M*r_pow3 - 3048*r_pow4) + L_pow2*r_pow4*(63984*M_pow5 + 15480*M_pow4*r - 76624*M_pow3*r_pow2 - 2394*M_pow2*r_pow3 + 18843*M*r_pow4 - 237*r_pow5) + L_pow4*r_pow2*(15852*M_pow5 - 6724*M_pow4*r - 56366*M_pow3*r_pow2 + 8119*M_pow2*r_pow3 + 17259*M*r_pow4 - 9*r_pow5) + r_pow6*(27940*M_pow5 + 29724*M_pow4*r - 25196*M_pow3*r_pow2 - 14585*M_pow2*r_pow3 + 4100*M*r_pow4 + 246*r_pow5)) + a_pow8*r_pow2*(2*L_pow6*M*r*(350*M_pow2 + 2031*M*r + 852*r_pow2) + L_pow4*M*(-3840*M_pow5 + 5000*M_pow4*r - 24954*M_pow3*r_pow2 - 20439*M_pow2*r_pow3 + 15824*M*r_pow4 + 8910*r_pow5) + L_pow2*r_pow2*(21216*M_pow6 + 48240*M_pow5*r - 59080*M_pow4*r_pow2 - 65592*M_pow3*r_pow3 + 14700*M_pow2*r_pow4 + 14229*M*r_pow5 + 36*r_pow6) + r_pow4*(16360*M_pow6 + 42716*M_pow5*r - 9952*M_pow4*r_pow2 - 42002*M_pow3*r_pow3 - 6314*M_pow2*r_pow4 + 4753*M*r_pow5 + 129*r_pow6)) + a_pow10*r*(L_pow4*M*r*(-5572*M_pow3 + 1144*M_pow2*r + 5715*M*r_pow2 + 1812*r_pow3) - 4*L_pow2*M*(480*M_pow6 - 3200*M_pow5*r + 2576*M_pow4*r_pow2 + 13256*M_pow3*r_pow3 + 4685*M_pow2*r_pow4 - 3151*M*r_pow5 - 1353*r_pow6) + r_pow2*(9904*M_pow7 + 31040*M_pow6*r + 6908*M_pow5*r_pow2 - 40500*M_pow4*r_pow3 - 26204*M_pow3*r_pow4 + 2206*M_pow2*r_pow5 + 3071*M*r_pow6 + 27*r_pow7))))*ur_pow2 + 24*L*r_pow5*(15*a_pow12*M_pow2*twoM_plus_r_pow2*(3*M + 2*r) + r_pow8*(2*L_pow8*M + 14*L_pow6*M*r_pow2 + 30*L_pow2*(5*M - 2*r)*r_pow6 + 5*r_pow8*(-8*M + 3*r) + L_pow4*r_pow4*(22*M + 15*r)) + 5*a_pow10*M*r*twoM_plus_r*(-20*M_pow4 + 45*M_pow2*r_pow2 + 11*M*r_pow3 - 6*r_pow4 + 2*L_pow2*(14*M_pow2 + 14*M*r + 5*r_pow2)) + a_pow2*r_pow5*(4*L_pow8*M*(-2*M + 3*r) + 14*L_pow6*M*r_pow2*(-2*M + 7*r) + L_pow4*r_pow5*(281*M + 15*r) - 30*L_pow2*r_pow6*(4*M_pow2 - 13*M*r + 4*r_pow2) + 5*r_pow8*(-8*M_pow2 - 23*M*r + 9*r_pow2)) + a_pow4*r_pow4*(10*L_pow8*M - 14*L_pow6*M*(8*M_pow2 - 8*M*r - 11*r_pow2) + L_pow4*M*r_pow2*(-534*M_pow2 + 455*M*r + 561*r_pow2) - 20*L_pow2*r_pow4*(36*M_pow3 - 15*M_pow2*r - 37*M*r_pow2 + 3*r_pow3) + 5*r_pow6*(58*M_pow3 - 37*M_pow2*r - 45*M*r_pow2 + 9*r_pow3)) + 5*a_pow8*M*r_pow2*(L_pow4*(49*M_pow2 + 70*M*r + 22*r_pow2) + r_pow2*(-64*M_pow4 + 20*M_pow3*r + 9*M_pow2*r_pow2 - 77*M*r_pow3 - 35*r_pow4) - 6*L_pow2*(8*M_pow4 - 20*M_pow2*r_pow2 - 26*M*r_pow3 - 9*r_pow4)) + a_pow6*r_pow3*(70*L_pow6*M*twoM_plus_r + 60*L_pow2*M*r_pow2*(2*M_pow3 + 3*M_pow2*r + 20*M*r_pow2 + 12*r_pow3) + L_pow4*M*(-82*M_pow3 + 41*M_pow2*r + 895*M*r_pow2 + 442*r_pow3) + 5*r_pow4*(62*M_pow4 + 57*M_pow3*r - 99*M_pow2*r_pow2 - 59*M*r_pow3 + 3*r_pow4)))*ur_pow4))/(3.*r_pow7*pow(a_pow2 + r*r_minus_twoM,3)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2));
A2220 = (24*r_pow3*((a_pow2 + r*r_minus_twoM)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2)) + r_pow2*(r_pow3 + a_pow2*twoM_plus_r)*ur_pow2))/pow(a_pow2 + r*r_minus_twoM,2);
A2221 = (4*r*ur*(-2*a*E*M*(a_pow2 + 3*r_pow2)*(-(L_pow4*r_pow2) + r_pow6 + 2*a_pow2*r_pow3*twoM_plus_r + a_pow4*twoM_plus_r_pow2) + L*(a_pow6*M*(8*M_pow2 + 2*M*r - r_pow2) + a_pow4*r_pow2*(-3*L_pow2*M + 24*M_pow3 + 16*M_pow2*r + 3*M*r_pow2 + 2*r_pow3) + r_pow4*(L_pow2 + r_pow2)*(r_pow2*(-3*M + 2*r) + L_pow2*(-5*M + 3*r)) + a_pow2*r_pow2*(-2*L_pow4*M + r_pow3*(6*M_pow2 + M*r + 4*r_pow2) + L_pow2*r*(2*M_pow2 - M*r + 5*r_pow2))) + L*r_pow3*(2*L_pow2*r_pow4 + a_pow4*(6*M_pow2 + 5*M*r + r_pow2) + a_pow2*r*(L_pow2*(M + r) + r_pow2*(3*M + r)))*ur_pow2))/(pow(a_pow2 + r*r_minus_twoM,2)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2)));
A2240 = (-8*E_pow2*M*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(6*a_pow8*M*twoM_plus_r + 3*a_pow6*r*(-(L_pow2*M) + 8*M_pow3 + 36*M_pow2*r + 20*M*r_pow2 + r_pow3) + r_pow6*(-L_pow4 + 3*r_pow4) - a_pow2*r_pow3*(27*L_pow2*M*r_pow2 + L_pow4*twoM_plus_r - 9*r_pow4*(8*M + r)) + 9*a_pow4*r_pow3*(-2*L_pow2*M + r*(16*M_pow2 + 14*M*r + r_pow2))) + 8*a*E*L*M*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(-4*L_pow4*M*r_pow3 - 9*L_pow2*(12*M - 7*r)*r_pow5 + 6*r_pow7*(-9*M + 7*r) + a_pow6*(24*M_pow2 + 19*M*r + 9*r_pow2) + a_pow4*r*(48*M_pow3 + 142*M_pow2*r + 76*M*r_pow2 + 50*r_pow3 + L_pow2*(-6*M + 9*r)) + a_pow2*r_pow3*(-6*L_pow2*(9*M - 8*r) + r*(114*M_pow2 + 23*M*r + 83*r_pow2))) - 2*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(a_pow8*r*(49*M_pow2 + 42*M*r + 6*r_pow2) - r_pow3*(4*L_pow6*M*twoM_minus_r + 12*L_pow2*r_pow4*(28*M_pow2 - 32*M*r + 9*r_pow2) + 3*r_pow6*(40*M_pow2 - 46*M*r + 13*r_pow2) + 2*L_pow4*r_pow2*(118*M_pow2 - 131*M*r + 36*r_pow2)) + 2*a_pow6*(M*r_pow2*(-106*M_pow2 - 37*M*r + 39*r_pow2) + L_pow2*(24*M_pow3 + 26*M_pow2*r + 39*M*r_pow2 + 6*r_pow3)) - 2*a_pow2*r_pow3*(-36*M_pow3*r_pow3 + 42*M_pow2*r_pow4 - 93*M*r_pow5 + 45*r_pow6 + L_pow4*(72*M_pow2 - 71*M*r + 15*r_pow2) + 3*L_pow2*r*(-32*M_pow3 + 38*M_pow2*r - 61*M*r_pow2 + 25*r_pow3)) + a_pow4*r*(6*L_pow4*(-2*M_pow2 + 6*M*r + r_pow2) + 2*L_pow2*(48*M_pow4 + 68*M_pow3*r - 52*M_pow2*r_pow2 + 84*M*r_pow3 - 15*r_pow4) - 3*r_pow2*(-76*M_pow4 + 12*M_pow3*r + 57*M_pow2*r_pow2 - 28*M*r_pow3 + 19*r_pow4))) + 4*r_pow2*(a_pow12*r*twoM_plus_r_pow2*(145*M_pow2 + 84*M*r + 3*r_pow2) + r_pow7*(L_pow2 + r_pow2)*(4*L_pow6*(8*M_pow2 - 10*M*r + 3*r_pow2) - 3*r_pow6*(30*M_pow2 - 23*M*r + 4*r_pow2) + 2*L_pow4*r_pow2*(4*M_pow2 - 32*M*r + 15*r_pow2) - 3*L_pow2*r_pow4*(118*M_pow2 - 95*M*r + 18*r_pow2)) - a_pow2*r_pow4*(-2*L_pow8*(4*M_pow3 - 5*M*r_pow2 + 3*r_pow3) + 3*r_pow8*(36*M_pow3 + 94*M_pow2*r - 97*M*r_pow2 + 17*r_pow3) + L_pow4*r_pow4*(2080*M_pow3 + 228*M_pow2*r - 777*M*r_pow2 + 33*r_pow3) - L_pow6*r_pow2*(-662*M_pow3 + 9*M_pow2*r + 65*M*r_pow2 + 60*r_pow3) + 3*L_pow2*r_pow6*(666*M_pow3 + 93*M_pow2*r - 371*M*r_pow2 + 66*r_pow3)) - a_pow10*twoM_plus_r*(r_pow2*(1048*M_pow4 + 516*M_pow3*r - 804*M_pow2*r_pow2 - 429*M*r_pow3 - 9*r_pow4) + L_pow2*(96*M_pow4 - 224*M_pow3*r - 638*M_pow2*r_pow2 - 243*M*r_pow3 - 3*r_pow4)) - a_pow4*r_pow3*(6*L_pow8*(2*M_pow2 + M*r + r_pow2) + L_pow6*(128*M_pow4 + 652*M_pow3*r - 359*M_pow2*r_pow2 - 196*M*r_pow3 - 3*r_pow4) + L_pow4*r_pow2*(1516*M_pow4 + 3532*M_pow3*r - 1279*M_pow2*r_pow2 - 1287*M*r_pow3 + 3*r_pow4) + 3*r_pow6*(-372*M_pow4 + 460*M_pow3*r + 89*M_pow2*r_pow2 - 206*M*r_pow3 + 27*r_pow4) + L_pow2*r_pow4*(1656*M_pow4 + 4736*M_pow3*r - 1435*M_pow2*r_pow2 - 1842*M*r_pow3 + 195*r_pow4)) - a_pow6*r_pow2*(-2880*M_pow5*r_pow4 + 720*M_pow4*r_pow5 + 3368*M_pow3*r_pow6 - 628*M_pow2*r_pow7 - 894*M*r_pow8 + 54*r_pow9 + 3*L_pow6*(32*M_pow3 - 66*M_pow2*r - 15*M*r_pow2 + 5*r_pow3) + L_pow4*(288*M_pow5 + 2200*M_pow4*r + 904*M_pow3*r_pow2 - 2194*M_pow2*r_pow3 - 935*M*r_pow4 + 3*r_pow5) + L_pow2*r_pow2*(-1128*M_pow5 + 5252*M_pow4*r + 3626*M_pow3*r_pow2 - 3811*M_pow2*r_pow3 - 2010*M*r_pow4 + 57*r_pow5)) + a_pow8*r*(L_pow4*(-240*M_pow4 + 596*M_pow3*r + 841*M_pow2*r_pow2 + 204*M*r_pow3 - 9*r_pow4) + L_pow2*r*(-1472*M_pow5 - 3788*M_pow4*r + 1116*M_pow3*r_pow2 + 3665*M_pow2*r_pow3 + 1176*M*r_pow4 + 9*r_pow5) + r_pow2*(1872*M_pow6 + 720*M_pow5*r - 4592*M_pow4*r_pow2 - 1920*M_pow3*r_pow3 + 1872*M_pow2*r_pow4 + 849*M*r_pow5 - 6*r_pow6)) - 2*E_pow2*M*(r_pow3 + a_pow2*twoM_plus_r)*(6*a_pow10*twoM_plus_r_pow3 + 2*r_pow7*(L_pow6 + 10*L_pow4*r_pow2 + 12*L_pow2*r_pow4 + 3*r_pow6) + 3*a_pow8*r*twoM_plus_r_pow2*(5*L_pow2 + 2*r*(4*M + 5*r)) + a_pow2*r_pow4*(L_pow6*(-2*M + 5*r) + 6*r_pow6*(6*M + 5*r) + 4*L_pow4*r_pow2*(14*M + 13*r) + 3*L_pow2*r_pow4*(38*M + 29*r)) + 3*a_pow6*r_pow2*twoM_plus_r*(4*L_pow4 + 4*r_pow2*(2*M_pow2 + 8*M*r + 5*r_pow2) + L_pow2*(12*M_pow2 + 32*M*r + 23*r_pow2)) + a_pow4*r_pow3*(3*L_pow6 + 12*r_pow4*(6*M_pow2 + 12*M*r + 5*r_pow2) + 4*L_pow4*(8*M_pow2 + 20*M*r + 11*r_pow2) + 3*L_pow2*r_pow2*(56*M_pow2 + 96*M*r + 39*r_pow2))) + 2*a*E*L*M*(2*a_pow10*twoM_plus_r_pow2*(24*M_pow2 - 22*M*r - 27*r_pow2) + r_pow7*(L_pow2 + r_pow2)*(9*L_pow2*(14*M - 3*r)*r_pow2 + 6*(74*M - 35*r)*r_pow4 + L_pow4*(-28*M + 18*r)) + a_pow2*r_pow4*(L_pow2*r_pow4*(1902*M_pow2 + 677*M*r - 763*r_pow2) + 2*r_pow6*(972*M_pow2 + 214*M*r - 407*r_pow2) + L_pow4*r_pow2*(530*M_pow2 + 217*M*r - 90*r_pow2) - 8*L_pow6*(M_pow2 - M*r - 3*r_pow2)) + a_pow8*r*twoM_plus_r*(L_pow2*(120*M_pow2 - 119*M*r - 102*r_pow2) + 2*r*(232*M_pow3 + 216*M_pow2*r - 256*M*r_pow2 - 173*r_pow3)) + a_pow4*r_pow3*(6*L_pow6*twoM_plus_r + L_pow2*r_pow2*(1668*M_pow3 + 2666*M_pow2*r - 479*M*r_pow2 - 917*r_pow3) + 4*r_pow4*(612*M_pow3 + 756*M_pow2*r - 290*M*r_pow2 - 309*r_pow3) + L_pow4*(128*M_pow3 + 518*M_pow2*r + 8*M*r_pow2 - 123*r_pow3)) + a_pow6*r_pow2*(L_pow4*(96*M_pow2 - 51*M*r - 42*r_pow2) + L_pow2*(288*M_pow4 + 1628*M_pow3*r + 846*M_pow2*r_pow2 - 909*M*r_pow3 - 493*r_pow4) + 4*r_pow2*(168*M_pow4 + 780*M_pow3*r + 208*M_pow2*r_pow2 - 522*M*r_pow3 - 231*r_pow4))))*ur_pow2 + 2*r_pow5*(3*a_pow10*M*twoM_plus_r_pow2*(29*M + 14*r) + r_pow7*(-4*L_pow6*(4*M - 3*r) + 2*L_pow4*(82*M - 21*r)*r_pow2 + 12*L_pow2*(38*M - 15*r)*r_pow4 + 3*r_pow6*(2*M + 3*r)) + 3*a_pow8*r*twoM_plus_r*(-52*M_pow4 + 40*M_pow3*r + 167*M_pow2*r_pow2 + 70*M*r_pow3 + 2*r_pow4 + 2*L_pow2*M*(79*M + 49*r)) + a_pow2*r_pow4*(6*L_pow2*r_pow4*(86*M_pow2 + 135*M*r - 71*r_pow2) + 2*L_pow4*r_pow2*(64*M_pow2 + 188*M*r - 51*r_pow2) + 4*L_pow6*(4*M_pow2 + 2*M*r + 3*r_pow2) + 3*r_pow6*(8*M_pow2 + 44*M*r + 11*r_pow2)) + a_pow4*r_pow3*(-54*M_pow3*r_pow4 + 495*M_pow2*r_pow5 + 384*M*r_pow6 + 45*r_pow7 + L_pow4*(-724*M_pow3 + 338*M_pow2*r + 428*M*r_pow2 - 60*r_pow3) - 6*L_pow2*r_pow2*(226*M_pow3 - 217*M_pow2*r - 167*M*r_pow2 + 52*r_pow3)) + 3*a_pow6*r_pow2*(6*L_pow4*M*(29*M + 14*r) + L_pow2*(-376*M_pow4 - 8*M_pow3*r + 768*M_pow2*r_pow2 + 314*M*r_pow3 - 22*r_pow4) + r_pow2*(-104*M_pow4 + 192*M_pow3*r + 379*M_pow2*r_pow2 + 146*M*r_pow3 + 9*r_pow4)))*ur_pow4)/(3.*r_pow3*pow(a_pow2 + r*r_minus_twoM,3)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2));
A2241 = -(ur*(-2*a_pow15*E*M*twoM_plus_r_pow2*(36*E_pow2*M*twoM_plus_r_pow2 + r*(245*M_pow2 + 126*M*r - 6*r_pow2)) + a_pow14*L*M*twoM_plus_r*(r*(980*M_pow3 + 742*M_pow2*r + 129*M*r_pow2 + 6*r_pow3) + 4*E_pow2*(432*M_pow4 + 814*M_pow3*r + 509*M_pow2*r_pow2 + 87*M*r_pow3 - 9*r_pow4)) - 2*a*E*M*r_pow7*(336*L_pow10*M*twoM_minus_r + 4*L_pow8*r_pow2*(700*M_pow2 + 81*r_pow2 + M*r*(-506 + 21*E_pow2 + 21*ur_pow2)) - 9*twoM_minus_r*r_pow10*(70*M + r*(-34 + 61*ur_pow2)) + L_pow6*r_pow4*(-232*M_pow2 + 3*r_pow2*(-5 + 108*ur_pow2) + 2*M*r*(115 + 12*E_pow2 + 156*ur_pow2)) - L_pow4*r_pow6*(8228*M_pow2 + 2*M*r*(-3683 + 210*E_pow2 - 2409*ur_pow2) + 3*r_pow2*(526 + 573*ur_pow2)) - 3*L_pow2*r_pow8*(2376*M_pow2 + 2*M*r*(-1115 + 60*E_pow2 - 624*ur_pow2) + r_pow2*(515 + 624*ur_pow2))) + 2*a_pow11*E*M*r*(L_pow4*(864*M_pow4 + 16*(-68 + 45*E_pow2)*M_pow3*r + 3*(-601 + 240*E_pow2)*M_pow2*r_pow2 + 6*(-73 + 30*E_pow2)*M*r_pow3 + 36*r_pow4) + 2*L_pow2*(5184*M_pow6 + 16*(167 + 90*E_pow2)*M_pow5*r + 2*M_pow2*r_pow4*(-4727 + 738*E_pow2 - 3495*ur_pow2) + M*r_pow5*(-895 + 234*E_pow2 - 2602*ur_pow2) + 4*M_pow3*r_pow3*(-4644 + 864*E_pow2 - 1757*ur_pow2) + 8*M_pow4*r_pow2*(-1459 + 450*E_pow2 - 234*ur_pow2) + 3*r_pow6*(109 - 105*ur_pow2)) + 2*r_pow2*(8*(-197 + 216*E_pow2)*M_pow6 + M*r_pow5*(199 - 270*E_pow2 - 5916*ur_pow2) + r_pow6*(463 - 1024*ur_pow2) + 9*M_pow3*r_pow3*(-104 + 96*E_pow2 - 545*ur_pow2) + 4*M_pow5*r*(1218 + 1656*E_pow2 + 961*ur_pow2) + 4*M_pow4*r_pow2*(2134 + 1512*E_pow2 + 1329*ur_pow2) - 3*M_pow2*r_pow4*(1111 + 300*E_pow2 + 3679*ur_pow2))) - 4*a_pow3*E*M*r_pow5*(84*L_pow10*M*(3*M - 2*r) + L_pow8*r*(1768*M_pow3 + 165*r_pow3 + 4*M_pow2*r*(107 + 21*E_pow2 - 21*ur_pow2) + 6*M*r_pow2*(-219 + 14*E_pow2 + 42*ur_pow2)) + L_pow6*r_pow3*(-3776*M_pow3 + 3*r_pow3*(-23 + 47*ur_pow2) + 6*M_pow2*r*(-25 + 62*E_pow2 + 156*ur_pow2) + 6*M*r_pow2*(116 - 9*E_pow2 + 231*ur_pow2)) + r_pow9*(-2232*M_pow3 + M*r_pow2*(2055 + 18*E_pow2 - 703*ur_pow2) - 4*M_pow2*r*(-61 + 27*E_pow2 + 765*ur_pow2) + r_pow3*(-805 + 1409*ur_pow2)) + L_pow2*r_pow7*(-19032*M_pow3 + 2*M_pow2*r*(1817 - 666*E_pow2 + 576*ur_pow2) + 2*M*r_pow2*(4792 - 441*E_pow2 + 1217*ur_pow2) - r_pow3*(3140 + 2423*ur_pow2)) + L_pow4*r_pow5*(-21552*M_pow3 + 4*M_pow2*r*(631 - 180*E_pow2 + 237*ur_pow2) - 2*r_pow3*(1217 + 896*ur_pow2) + M*r_pow2*(9173 - 930*E_pow2 + 4667*ur_pow2))) + 2*a_pow7*E*M*r_pow3*(6*L_pow8*(108*M_pow2 + 22*M*r + r_pow2) - 2*L_pow6*(1440*M_pow4 + 4*(-475 + 138*E_pow2)*M_pow3*r - 3*r_pow4*(59 + 9*ur_pow2) + 2*M_pow2*r_pow2*(-455 + 6*E_pow2 + 492*ur_pow2) + M*r_pow3*(-197 - 186*E_pow2 + 522*ur_pow2)) + L_pow4*r*(32704*M_pow5 + M_pow2*r_pow3*(-44021 + 6480*E_pow2 - 14600*ur_pow2) + 8*M*r_pow4*(-1128 + 345*E_pow2 - 1240*ur_pow2) + 4*r_pow5*(830 - 23*ur_pow2) + 4*M_pow4*r*(15173 - 240*E_pow2 + 1032*ur_pow2) + 2*M_pow3*r_pow2*(-2908 + 1080*E_pow2 + 2329*ur_pow2)) + 2*L_pow2*r_pow3*(33408*M_pow5 + M*r_pow4*(-5673 + 1764*E_pow2 - 9236*ur_pow2) + 6*M_pow2*r_pow3*(-6620 + 1260*E_pow2 - 1343*ur_pow2) + 5*r_pow5*(825 - 148*ur_pow2) + 24*M_pow4*r*(2219 + 186*E_pow2 + 759*ur_pow2) + 4*M_pow3*r_pow2*(-2807 + 2592*E_pow2 + 5049*ur_pow2)) + r_pow5*(-13680*M_pow5 + 90*r_pow5*(45 - 83*ur_pow2) + 12*M_pow4*r*(323 + 432*E_pow2 + 786*ur_pow2) + M_pow2*r_pow3*(-11737 + 720*E_pow2 + 4146*ur_pow2) + 6*M_pow3*r_pow2*(1362 + 1008*E_pow2 + 4823*ur_pow2) - 2*M*r_pow4*(205 + 270*E_pow2 + 9323*ur_pow2))) + 2*a_pow9*E*M*r_pow2*(2*L_pow6*(1080*M_pow3 + 2*(229 + 54*E_pow2)*M_pow2*r + 3*(5 + 18*E_pow2)*M*r_pow2 + 12*r_pow3) + L_pow4*(8640*M_pow5 + 64*(101 - 15*E_pow2)*M_pow4*r + M_pow2*r_pow3*(-15543 + 3600*E_pow2 - 7489*ur_pow2) + 2*M*r_pow4*(-1065 + 570*E_pow2 - 1619*ur_pow2) + 4*M_pow3*r_pow2*(-3625 + 540*E_pow2 - 1032*ur_pow2) + 78*r_pow5*(11 - 3*ur_pow2)) + L_pow2*r*(26880*M_pow6 + 4*M_pow2*r_pow4*(-13619 + 2556*E_pow2 - 8291*ur_pow2) + 4*M*r_pow5*(-1147 + 468*E_pow2 - 4376*ur_pow2) + r_pow6*(3463 - 2236*ur_pow2) + 8*M_pow3*r_pow3*(-8600 + 2484*E_pow2 - 539*ur_pow2) + 32*M_pow5*r*(2143 + 126*E_pow2 + 270*ur_pow2) + 16*M_pow4*r_pow2*(1161 + 990*E_pow2 + 1559*ur_pow2)) + r_pow3*(-11376*M_pow6 + r_pow6*(2630 - 5263*ur_pow2) + 8*M_pow5*r*(-1214 + 864*E_pow2 + 315*ur_pow2) + 4*M_pow4*r_pow2*(4992 + 3600*E_pow2 + 5857*ur_pow2) + 2*M_pow3*r_pow3*(3328 + 3456*E_pow2 + 8483*ur_pow2) - 2*M_pow2*r_pow4*(4493 + 360*E_pow2 + 9514*ur_pow2) - 2*M*r_pow5*(-765 + 360*E_pow2 + 10748*ur_pow2))) + 2*a_pow5*E*M*r_pow4*(-4*L_pow8*M*(828*M_pow2 + 2*(-257 + 21*E_pow2)*M*r + r_pow2*(-340 + 21*E_pow2 + 105*ur_pow2)) + L_pow6*r*(5248*M_pow4 + 6*M*r_pow3*(-199 + 66*E_pow2 - 480*ur_pow2) + 3*r_pow4*(151 + 32*ur_pow2) - 8*M_pow3*r*(-823 + 174*E_pow2 + 96*ur_pow2) - 12*M_pow2*r_pow2*(107 + 82*E_pow2 + 274*ur_pow2)) + 4*L_pow2*r_pow5*(18576*M_pow4 + M*r_pow3*(-5147 + 873*E_pow2 - 1824*ur_pow2) + M_pow2*r_pow2*(-13868 + 2574*E_pow2 + 615*ur_pow2) + r_pow4*(2538 + 775*ur_pow2) + 6*M_pow3*r*(2050 + 306*E_pow2 + 1101*ur_pow2)) + L_pow4*r_pow3*(67164*M_pow4 + M_pow2*r_pow2*(-41093 + 5040*E_pow2 - 6871*ur_pow2) + 6*M*r_pow3*(-3052 + 540*E_pow2 - 1943*ur_pow2) + r_pow4*(5788 + 2007*ur_pow2) + 2*M_pow3*r*(25406 + 360*E_pow2 + 5667*ur_pow2)) + r_pow7*(-108*M_pow4 + 2*r_pow4*(1753 - 3091*ur_pow2) - 2*M*r_pow3*(2111 + 108*E_pow2 + 3042*ur_pow2) + 2*M_pow3*r*(3982 + 864*E_pow2 + 5967*ur_pow2) + M_pow2*r_pow2*(-8295 + 792*E_pow2 + 14581*ur_pow2))) + L*r_pow7*(126*L_pow10*M*r_minus_twoM_pow2 + 2*L_pow8*twoM_minus_r*r_pow2*(664*M_pow2 + 48*r_pow2 + M*r*(-425 + 63*E_pow2 - 21*ur_pow2)) - 3*r_pow10*(164*M_pow3 + 2*M_pow2*r*(-113 + 8*E_pow2 + 7*ur_pow2) + r_pow3*(-13 + 7*ur_pow2 + 90*ur_pow4) + M*r_pow2*(98 - 15*ur_pow2 - 240*ur_pow4 + 2*E_pow2*(-7 + 30*ur_pow2))) + L_pow6*r_pow4*(3672*M_pow3 - 3*r_pow3*(57 + 68*ur_pow2) + M*r_pow2*(1569 + 556*ur_pow2 - 84*ur_pow4 + 4*E_pow2*(-73 + 21*ur_pow2)) + 2*M_pow2*r*(304*E_pow2 - 5*(429 + 32*ur_pow2))) + L_pow2*r_pow8*(-1544*M_pow3 + 2*M_pow2*r*(1129 - 68*E_pow2 + 2474*ur_pow2) + 3*r_pow3*(51 + 307*ur_pow2 + 252*ur_pow4) + M*r_pow2*(-1049 - 4364*ur_pow2 - 1992*ur_pow4 + 4*E_pow2*(29 + 120*ur_pow2))) + L_pow4*r_pow6*(468*M_pow3 + 2*M_pow2*r*(-93 + 134*E_pow2 + 1999*ur_pow2) + 3*r_pow3*(13 + 183*ur_pow2 - 36*ur_pow4) + M*r_pow2*(-102 - 3139*ur_pow2 - 276*ur_pow4 + E_pow2*(-92 + 492*ur_pow2)))) + a_pow10*L*r*(L_pow4*M*(-576*M_pow4 - 80*(-19 + 54*E_pow2)*M_pow3*r + 2*(1111 - 1538*E_pow2)*M_pow2*r_pow2 + 3*(215 - 212*E_pow2)*M*r_pow3 + 18*(5 - 6*E_pow2)*r_pow4) + L_pow2*(-6912*M_pow7 - 32*(-13 + 540*E_pow2)*M_pow6*r + 90*r_pow7 - 16*M_pow5*r_pow2*(-951 + 1754*E_pow2 - 234*ur_pow2) + 2*M*r_pow6*(247 - 687*ur_pow2 + 15*E_pow2*(-8 + 19*ur_pow2)) + 16*M_pow4*r_pow3*(1713 + 1316*ur_pow2 + 6*E_pow2*(32 + 43*ur_pow2)) + M_pow2*r_pow5*(1902 - 617*ur_pow2 + 72*E_pow2*(97 + 46*ur_pow2)) + M_pow3*r_pow4*(13816 + 13845*ur_pow2 + 72*E_pow2*(292 + 89*ur_pow2))) + r_pow2*((6304 - 37248*E_pow2)*M_pow7 + 3*r_pow7*(25 - 18*ur_pow2) + 4*M_pow4*r_pow3*(1924 + 7701*ur_pow2 + 63*ur_pow4 + 108*E_pow2*(221 + ur_pow2)) - 4*M_pow5*r_pow2*(5672 + 2925*ur_pow2 + 36*E_pow2*(413 + 92*ur_pow2)) + M_pow2*r_pow5*(-2458 + 1879*ur_pow2 + 1188*ur_pow4 + 24*E_pow2*(1018 + 201*ur_pow2)) + 2*M*r_pow6*(-181 - 1046*ur_pow2 + 144*ur_pow4 + E_pow2*(76 + 378*ur_pow2)) - 16*M_pow6*r*(1403 + 961*ur_pow2 + E_pow2*(7604 + 540*ur_pow2)) + M_pow3*r_pow4*(3948 + 28027*ur_pow2 + 1350*ur_pow4 + 16*E_pow2*(6110 + 567*ur_pow2)))) - 2*a_pow13*E*M*twoM_plus_r*(2*L_pow2*(432*M_pow4 + (980 - 72*E_pow2)*M_pow3*r + 24*(38 - 3*E_pow2)*M_pow2*r_pow2 - 9*(-27 + 2*E_pow2)*M*r_pow3 - 12*r_pow4) + r*(-72*E_pow2*M*twoM_plus_r_pow2*(6*M_pow2 + M*r - 3*r_pow2) + r*(-1768*M_pow4 + 170*M_pow3*r*(3 + 13*ur_pow2) + 6*r_pow4*(-25 + 57*ur_pow2) + 21*M_pow2*r_pow2*(115 + 169*ur_pow2) + 2*M*r_pow3*(295 + 953*ur_pow2)))) - a_pow6*L*r_pow3*(24*L_pow8*M*(18*M_pow2 + M*r - r_pow2) - 2*L_pow6*(960*M_pow5 + 4*(-205 + 828*E_pow2)*M_pow4*r + 63*r_pow5 - 2*M_pow3*r_pow2*(269 + 496*E_pow2 - 492*ur_pow2) + M*r_pow4*(646 - 603*ur_pow2 + 5*E_pow2*(-32 + 21*ur_pow2)) + 3*M_pow2*r_pow3*(65 - 16*ur_pow2 + E_pow2*(-436 + 70*ur_pow2))) + L_pow2*r_pow3*(35584*M_pow6 - 9*r_pow6*(27 + 37*ur_pow2) + 4*M_pow5*r*(14904 + 25352*E_pow2 + 14617*ur_pow2) + 2*M_pow4*r_pow2*(-17956 + 18696*ur_pow2 + 1443*ur_pow4 + 32*E_pow2*(2201 + 57*ur_pow2)) - M_pow3*r_pow3*(41516 + 68037*ur_pow2 - 1119*ur_pow4 + 8*E_pow2*(1984 + 927*ur_pow2)) + M*r_pow5*(3287 + 16556*ur_pow2 + 3612*ur_pow4 - 4*E_pow2*(296 + 1227*ur_pow2)) + M_pow2*r_pow4*(12400 - 12453*ur_pow2 + 5253*ur_pow4 - 8*E_pow2*(5618 + 1791*ur_pow2))) + r_pow5*(-13632*M_pow6 + 24*M_pow5*r*(643 + 5236*E_pow2 + 1673*ur_pow2) + 3*r_pow6*(-82 - 5*ur_pow2 + 72*ur_pow4) + M_pow2*r_pow4*(7151 - 27653*ur_pow2 - 7236*ur_pow4 + 60*E_pow2*(-863 + 48*ur_pow2)) + M*r_pow5*(2542 + 3585*ur_pow2 - 3582*ur_pow4 - 4*E_pow2*(295 + 54*ur_pow2)) + 4*M_pow4*r_pow2*(-1792 + 12945*ur_pow2 + 1449*ur_pow4 + 36*E_pow2*(817 + 103*ur_pow2)) + M_pow3*r_pow3*(-15504 - 37657*ur_pow2 + 2970*ur_pow4 + 4*E_pow2*(-14335 + 3564*ur_pow2))) + L_pow4*r*(28672*M_pow6 - 9*r_pow6*(15 + 2*ur_pow2) + 8*M_pow5*r*(3933 + 296*E_pow2 + 516*ur_pow2) + 2*M*r_pow5*(-597 + 4131*ur_pow2 + 498*ur_pow4 + E_pow2*(244 - 1182*ur_pow2)) - 4*M_pow4*r_pow2*(3532 - 2161*ur_pow2 + 4*E_pow2*(-1133 + 48*ur_pow2)) + M_pow2*r_pow4*(3235 - 3619*ur_pow2 + 1884*ur_pow4 - 4*E_pow2*(23 + 1542*ur_pow2)) - M_pow3*r_pow3*(4*E_pow2*(-4447 + 924*ur_pow2) + 5*(3872 + 5811*ur_pow2)))) + a_pow12*L*(2*L_pow2*M*(576*M_pow5 + 8*(227 - 108*E_pow2)*M_pow4*r - 104*(-27 + E_pow2)*M_pow3*r_pow2 + (1493 + 476*E_pow2)*M_pow2*r_pow3 + 3*(91 + 16*E_pow2)*M*r_pow4 + 3*(7 - 18*E_pow2)*r_pow5) + r*(-2*E_pow2*M*twoM_plus_r*(5184*M_pow5 + 3064*M_pow4*r + r_pow5*(43 - 90*ur_pow2) - 8*M_pow3*r_pow2*(1067 + 117*ur_pow2) - 2*M*r_pow4*(1414 + 297*ur_pow2) - 2*M_pow2*r_pow3*(4997 + 648*ur_pow2)) + r*(-7072*M_pow6 + 18*r_pow6 + 2*M*r_pow5*(19 - 147*ur_pow2) + M_pow2*r_pow4*(262 + 89*ur_pow2) + 4*M_pow5*r*(197 + 2210*ur_pow2) + 4*M_pow4*r_pow2*(2237 + 3439*ur_pow2) + M_pow3*r_pow3*(3927 + 6022*ur_pow2)))) + a_pow8*L*r_pow2*(-2*L_pow6*M*(720*M_pow3 + 2*(49 + 324*E_pow2)*M_pow2*r + 12*(-9 + 19*E_pow2)*M*r_pow2 + 3*(-13 + 6*E_pow2)*r_pow3) + L_pow4*(-5760*M_pow6 + 32*(23 + 180*E_pow2)*M_pow5*r + 162*r_pow6 - 8*M_pow4*r_pow2*(-1513 + 1285*E_pow2 - 516*ur_pow2) + 12*M*r_pow5*(104 - 173*ur_pow2 + E_pow2*(-29 + 50*ur_pow2)) + 2*M_pow2*r_pow4*(1229 - 611*ur_pow2 + 12*E_pow2*(-43 + 91*ur_pow2)) + M_pow3*r_pow3*(10563 + 8570*ur_pow2 + 4*E_pow2*(-2441 + 492*ur_pow2))) + r_pow3*(23568*M_pow7 + 3*r_pow7*(53 - 32*ur_pow2) - 8*M_pow6*r*(-896 + 13116*E_pow2 + 807*ur_pow2) + M_pow3*r_pow4*(6618 + 57147*ur_pow2 + 3888*ur_pow4 - 8*E_pow2*(-15715 + 432*ur_pow2)) + M_pow2*r_pow5*(-7262 + 14459*ur_pow2 + 6138*ur_pow4 + 8*E_pow2*(6155 + 441*ur_pow2)) + 2*M*r_pow6*(-785 - 2066*ur_pow2 + 972*ur_pow4 + E_pow2*(395 + 522*ur_pow2)) - 2*M_pow4*r_pow3*(-3964 - 3697*ur_pow2 + 648*ur_pow4 + 8*E_pow2*(382 + 1341*ur_pow2)) - 4*M_pow5*r_pow2*(6888 + 11795*ur_pow2 - 18*ur_pow4 + E_pow2*(49468 + 4392*ur_pow2))) - L_pow2*r*(23424*M_pow7 + 6*r_pow7*(-35 + 12*ur_pow2) + 64*M_pow6*r*(656 + 700*E_pow2 + 135*ur_pow2) + 8*M_pow4*r_pow3*(-5292 - 3305*ur_pow2 + 12*E_pow2*(604 + 7*ur_pow2)) + 8*M_pow5*r_pow2*(2009 + 4580*ur_pow2 + 4*E_pow2*(3800 + 129*ur_pow2)) + M_pow2*r_pow5*(4628 - 138*ur_pow2 + 723*ur_pow4 - 8*E_pow2*(3535 + 1389*ur_pow2)) - M_pow3*r_pow4*(22948 + 52520*ur_pow2 + 411*ur_pow4 + 8*E_pow2*(5818 + 1557*ur_pow2)) + 2*M*r_pow6*(-2*E_pow2*(59 + 654*ur_pow2) + 3*(84 + 1363*ur_pow2 + 83*ur_pow4)))) + a_pow4*L*r_pow4*(2*L_pow8*(1104*M_pow4 + 8*(-130 + 63*E_pow2)*M_pow3*r + 18*r_pow4 + M*r_pow3*(313 - 63*E_pow2 - 105*ur_pow2) - 2*M_pow2*r_pow2*(212 + 21*E_pow2 - 105*ur_pow2)) + 2*L_pow6*r*(-3104*M_pow5 + 6*r_pow5*(-5 + 3*ur_pow2) + 16*M_pow4*r*(20 + 241*E_pow2 + 24*ur_pow2) + 4*M_pow3*r_pow2*(24 + 360*ur_pow2 + E_pow2*(394 - 21*ur_pow2)) + 4*M_pow2*r_pow3*(-478 + 421*ur_pow2 + 9*E_pow2*(-59 + 7*ur_pow2)) + M*r_pow4*(1295 - 1172*ur_pow2 - 105*ur_pow4 + 4*E_pow2*(-103 + 63*ur_pow2))) + L_pow2*r_pow5*(-49752*M_pow5 - 4*M_pow4*r*(2278 + 21084*E_pow2 + 11937*ur_pow2) + 3*r_pow5*(123 + 601*ur_pow2 + 207*ur_pow4) + 2*M_pow3*r_pow2*(23207 + 12635*ur_pow2 + 2106*ur_pow4 + 228*E_pow2*(-73 + 3*ur_pow2)) + 2*M_pow2*r_pow3*(-3708 + 10522*ur_pow2 - 1095*ur_pow4 + 476*E_pow2*(34 + 9*ur_pow2)) + M*r_pow4*(-4345 - 16950*ur_pow2 - 5373*ur_pow4 + 12*E_pow2*(113 + 394*ur_pow2))) - r_pow7*(7956*M_pow5 + 2*M_pow4*r*(2054 + 32892*E_pow2 + 19683*ur_pow2) + 3*r_pow5*(-88 - 27*ur_pow2 + 234*ur_pow4) + M*r_pow4*(2270 + 1627*ur_pow2 - 2988*ur_pow4 + 14*E_pow2*(-61 + 54*ur_pow2)) + 2*M_pow2*r_pow3*(1067 - 10325*ur_pow2 - 1377*ur_pow4 + 18*E_pow2*(-771 + 133*ur_pow2)) + M_pow3*r_pow2*(-14547 + 6893*ur_pow2 + 4428*ur_pow4 + 4*E_pow2*(2887 + 1674*ur_pow2))) + L_pow4*r_pow3*(-41716*M_pow5 + 3*r_pow5*(-59 + 87*ur_pow2) - 2*M_pow4*r*(4342 + 4788*E_pow2 + 12089*ur_pow2) + M*r_pow4*(462 - 12283*ur_pow2 - 2340*ur_pow4 + 228*E_pow2*(-2 + 15*ur_pow2)) + M_pow3*r_pow2*(30275 + 20263*ur_pow2 + 1416*ur_pow4 + 4*E_pow2*(-4051 + 360*ur_pow2)) + M_pow2*r_pow3*(12*E_pow2*(109 + 458*ur_pow2) - 7*(998 - 2023*ur_pow2 + 252*ur_pow4)))) + a_pow2*L*r_pow5*(42*L_pow10*M*(8*M_pow2 - 10*M*r + 3*r_pow2) + 4*L_pow8*r*(536*M_pow4 - 15*r_pow4 + 6*M_pow3*r*(22 + 49*E_pow2 - 7*ur_pow2) - 3*M*r_pow3*(-115 + 21*E_pow2 + 14*ur_pow2) + M_pow2*r_pow2*(-827 + 42*E_pow2 + 126*ur_pow2)) + r_pow9*(-5424*M_pow4 - 4*M_pow3*r*(-1037 + 3090*E_pow2 + 2634*ur_pow2) + 3*r_pow4*(53 + ur_pow2 - 252*ur_pow4) + 4*M_pow2*r_pow2*(253 + 1406*ur_pow2 + 171*ur_pow4 + E_pow2*(1486 - 414*ur_pow2)) + M*r_pow3*(-1198 - 331*ur_pow2 + 1782*ur_pow4 - 76*E_pow2*(-4 + 9*ur_pow2))) + L_pow4*r_pow5*(-21088*M_pow4 - 28*M_pow3*r*(-623 + 204*E_pow2 - 44*ur_pow2) - 3*r_pow4*(37 - 264*ur_pow2 + 36*ur_pow4) + 4*M*r_pow3*(81 - 2147*ur_pow2 - 459*ur_pow4 + E_pow2*(-75 + 537*ur_pow2)) + 2*M_pow2*r_pow2*(-1842 + 6569*ur_pow2 - 84*ur_pow4 + E_pow2*(544 + 756*ur_pow2))) - L_pow6*r_pow3*(2264*M_pow4 - 8*M_pow3*r*(594 + 688*E_pow2 - 23*ur_pow2) + 21*r_pow4*(17 + 8*ur_pow2) + M*r_pow3*(-3227 + 1062*ur_pow2 + 294*ur_pow4 + E_pow2*(832 - 378*ur_pow2)) - 2*M_pow2*r_pow2*(E_pow2*(-740 + 42*ur_pow2) + 7*(-487 + 236*ur_pow2 + 6*ur_pow4))) + L_pow2*r_pow7*(-22968*M_pow4 - 4*M_pow3*r*(-4474 + 5672*E_pow2 + 171*ur_pow2) + 3*r_pow4*(133 + 773*ur_pow2 + 459*ur_pow4) + 2*M_pow2*r_pow2*(629 + 6403*ur_pow2 + 333*ur_pow4 + 20*E_pow2*(217 + 51*ur_pow2)) + M*r_pow3*(E_pow2*(656 + 2346*ur_pow2) - 3*(1021 + 3854*ur_pow2 + 1327*ur_pow4))))))/(3.*r_pow5*pow(a_pow2 + r*r_minus_twoM,3)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2));
A2400 = (3*r_pow6*(a_pow2 + r*r_minus_twoM)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2)) + 3*r_pow8*(r_pow3 + a_pow2*twoM_plus_r)*ur_pow2)/(pow(a_pow2 + r*r_minus_twoM,2)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2)));
A2401 = (r_pow4*ur*(-2*a*E*M*(a_pow2 + 3*r_pow2)*(-(L_pow4*r_pow2) + r_pow6 + 2*a_pow2*r_pow3*twoM_plus_r + a_pow4*twoM_plus_r_pow2) + L*(a_pow6*(8*M_pow3 + 8*M_pow2*r + 4*M*r_pow2 + r_pow3) + a_pow4*r_pow2*(12*M_pow3 + 12*M_pow2*r + 9*M*r_pow2 + 4*r_pow3 + 2*L_pow2*(M + r)) + r_pow4*(L_pow2 + r_pow2)*(r_pow2*(-3*M + 2*r) + L_pow2*(-7*M + 4*r)) + a_pow2*r_pow2*(L_pow4*r_minus_twoM + r_pow4*(2*M + 5*r) + L_pow2*(-8*M_pow2*r + 8*r_pow3))) + L*r_pow3*(3*L_pow2*r_pow4 + 2*a_pow4*(6*M_pow2 + 5*M*r + r_pow2) + a_pow2*r*(2*r_pow2*(3*M + r) + L_pow2*(3*M + 2*r)))*ur_pow2))/(2.*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2));
A2420 = (-12*E_pow2*M*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(r_pow7 + a_pow6*(7*M + 3*r) + a_pow4*r*(2*L_pow2 - 8*M_pow2 + 10*M*r + 7*r_pow2) + a_pow2*r_pow2*(L_pow2*(-4*M + 2*r) + r_pow2*(7*M + 5*r))) + 12*a*E*L*M*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(2*a_pow4*(7*M + 4*r) + a_pow2*r*(4*L_pow2 - 16*M_pow2 + 9*M*r + 23*r_pow2) + r_pow2*(L_pow2*(-8*M + 4*r) + r_pow2*(-19*M + 13*r))) - (a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(3*a_pow6*r*(10*M + 3*r) - twoM_minus_r*r_pow2*(24*L_pow4*M + L_pow2*(114*M - 59*r)*r_pow2 + (60*M - 41*r)*r_pow4) + a_pow4*(r_pow2*(-78*M_pow2 + 14*M*r - 17*r_pow2) + L_pow2*(84*M_pow2 + 60*M*r + 9*r_pow2)) + a_pow2*r*(24*L_pow4*M + r_pow2*(36*M_pow3 - 22*M_pow2*r + 114*M*r_pow2 - 67*r_pow3) - 2*L_pow2*(48*M_pow3 + 6*M_pow2*r - 78*M*r_pow2 + 25*r_pow3))) + r_pow2*(6*a_pow10*(11*M - 3*r)*r*twoM_plus_r_pow2 - r_pow6*(-3*L_pow6*(16*M_pow2 - 18*M*r + 5*r_pow2) + 2*r_pow6*(90*M_pow2 - 67*M*r + 11*r_pow2) + 2*L_pow4*r_pow2*(174*M_pow2 - 139*M*r + 26*r_pow2) + L_pow2*r_pow4*(648*M_pow2 - 538*M*r + 107*r_pow2)) - 2*a_pow2*r_pow3*(L_pow6*(-48*M_pow3 + 36*M_pow2*r + 15*M*r_pow2 - 6*r_pow3) + L_pow4*r_pow2*(462*M_pow3 + 133*M_pow2*r - 255*M*r_pow2 + 37*r_pow3) + r_pow6*(234*M_pow3 + 111*M_pow2*r - 249*M*r_pow2 + 56*r_pow3) + L_pow2*r_pow4*(1032*M_pow3 + 88*M_pow2*r - 639*M*r_pow2 + 147*r_pow3)) - a_pow8*(3*L_pow2*(128*M_pow4 - 64*M_pow3*r - 166*M_pow2*r_pow2 - 24*M*r_pow3 + 13*r_pow4) + 2*r_pow2*(516*M_pow4 + 40*M_pow3*r - 351*M_pow2*r_pow2 - 21*M*r_pow3 + 50*r_pow4)) - a_pow4*r_pow2*(3*L_pow6*(32*M_pow2 + 4*M*r + r_pow2) - 2*L_pow4*(96*M_pow4 - 432*M_pow3*r + 141*M_pow2*r_pow2 + 203*M*r_pow3 - 23*r_pow4) + 6*r_pow4*(-48*M_pow4 + 212*M_pow3*r - 81*M_pow2*r_pow2 - 108*M*r_pow3 + 37*r_pow4) + 2*L_pow2*r_pow2*(564*M_pow4 + 1360*M_pow3*r - 757*M_pow2*r_pow2 - 639*M*r_pow3 + 153*r_pow4)) - 2*a_pow6*r*(3*L_pow4*(64*M_pow3 - 16*M_pow2*r - 11*M*r_pow2 + 4*r_pow3) + L_pow2*(-192*M_pow5 + 576*M_pow4*r + 264*M_pow3*r_pow2 - 902*M_pow2*r_pow3 - 305*M*r_pow4 + 79*r_pow5) + r_pow2*(-504*M_pow5 + 292*M_pow4*r + 550*M_pow3*r_pow2 - 519*M_pow2*r_pow3 - 166*M*r_pow4 + 107*r_pow5)) - 24*E_pow2*M*(r_pow3 + a_pow2*twoM_plus_r)*(2*a_pow8*twoM_plus_r_pow2 + a_pow6*r*twoM_plus_r*(4*L_pow2 - 4*M_pow2 + 4*M*r + 7*r_pow2) + r_pow6*(L_pow4 + 3*L_pow2*r_pow2 + r_pow4) + a_pow2*r_pow3*(L_pow4*(-2*M + 3*r) + 2*L_pow2*r_pow2*(2*M + 5*r) + r_pow4*(2*M + 5*r)) + a_pow4*r_pow2*(2*L_pow4 + r_pow2*(-4*M_pow2 + 12*M*r + 9*r_pow2) + L_pow2*(-4*M_pow2 + 12*M*r + 11*r_pow2))) + 12*a*E*L*M*(2*a_pow8*(32*M_pow3 + 16*M_pow2*r - 10*M*r_pow2 - 5*r_pow3) + r_pow6*(L_pow2*(74*M - 25*r)*r_pow2 + 2*(42*M - 19*r)*r_pow4 + L_pow4*(-6*M + 7*r)) + a_pow2*r_pow3*(L_pow2*r_pow2*(96*M_pow2 + 100*M*r - 51*r_pow2) + 4*r_pow4*(62*M_pow2 + 20*M*r - 29*r_pow2) - 2*L_pow4*(8*M_pow2 - 7*M*r - 6*r_pow2)) + a_pow6*r*(-64*M_pow4 + 96*M_pow3*r + 104*M_pow2*r_pow2 - 96*M*r_pow3 - 60*r_pow4 + L_pow2*(64*M_pow2 + 24*M*r - 5*r_pow2)) + a_pow4*r_pow2*(L_pow4*(16*M + 5*r) + L_pow2*(-32*M_pow3 + 112*M_pow2*r + 58*M*r_pow2 - 31*r_pow3) + 16*r_pow2*(8*M_pow3 + 18*M_pow2*r - 5*M*r_pow2 - 8*r_pow3))))*ur_pow2 + 3*r_pow5*(a_pow8*twoM_plus_r_pow2*(8*M + r) + r_pow6*(12*L_pow2*(8*M - 3*r)*r_pow2 + L_pow4*(2*M + 3*r) + r_pow4*(2*M + 3*r)) + 2*a_pow2*r_pow4*(L_pow4*(7*M + 2*r) + 2*L_pow2*r*(10*M_pow2 + 33*M*r - 16*r_pow2) + r_pow3*(4*M_pow2 + 15*M*r + 5*r_pow2)) + 2*a_pow6*r*(L_pow2*(73*M_pow2 + 40*M*r + r_pow2) + r*(28*M_pow3 + 52*M_pow2*r + 25*M*r_pow2 + 3*r_pow3)) + a_pow4*r_pow2*(L_pow4*(8*M + r) + 2*r_pow2*(4*M_pow3 + 38*M_pow2*r + 33*M*r_pow2 + 6*r_pow3) - 2*L_pow2*(98*M_pow3 - 41*M_pow2*r - 64*M*r_pow2 + 13*r_pow3)))*ur_pow4)/(6.*pow(a_pow2 + r*r_minus_twoM,3)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2));
A2421 = -(ur*(-2*a_pow13*E*M*twoM_plus_r_pow2*(72*E_pow2*M*twoM_plus_r + r*(200*M + 63*r)) + a_pow12*L*twoM_plus_r*(r*(800*M_pow3 + 760*M_pow2*r + 180*M*r_pow2 + 9*r_pow3) + 2*E_pow2*M*(864*M_pow3 + 1580*M_pow2*r + 924*M*r_pow2 + 171*r_pow3)) - 2*a*E*M*r_pow6*(12*L_pow8*(156*M_pow2 - 129*M*r + 26*r_pow2) - 9*twoM_minus_r*r_pow8*(70*M + r*(-31 + 61*ur_pow2)) + L_pow6*r_pow2*(4004*M_pow2 + 20*M*r*(-188 + 3*E_pow2 - 18*ur_pow2) + 3*r_pow2*(303 + 110*ur_pow2)) - 3*L_pow2*r_pow6*(1372*M_pow2 + 4*M*r*(-304 + 15*E_pow2 - 147*ur_pow2) + r_pow2*(259 + 324*ur_pow2)) + L_pow4*r_pow4*(-724*M_pow2 + 3*r_pow2*(33 - 137*ur_pow2) + 2*M*r*(124 - 60*E_pow2 + 891*ur_pow2))) + 2*a_pow7*E*M*r_pow2*(3*L_pow6*(288*M_pow2 + 4*(-121 + 3*E_pow2)*M*r - 271*r_pow2) + L_pow4*(1728*M_pow4 - 384*(-41 + 2*E_pow2)*M_pow3*r + 24*M_pow2*r_pow2*(175 + 28*E_pow2 - 122*ur_pow2) + 28*M*r_pow3*(-391 + 24*E_pow2 - 99*ur_pow2) - r_pow4*(4114 + 423*ur_pow2)) - 2*r_pow3*(576*M_pow5 + 2*M_pow2*r_pow3*(880 + 216*E_pow2 - 317*ur_pow2) - 48*M_pow4*r*(1 + 54*E_pow2 + 36*ur_pow2) - 24*M_pow3*r_pow2*(-27 + 108*E_pow2 + 290*ur_pow2) + 8*M*r_pow4*(-52 + 72*E_pow2 + 699*ur_pow2) + 3*r_pow5*(-228 + 739*ur_pow2)) + 2*L_pow2*r*(2688*M_pow5 + 2*M*r_pow4*(-3260 + 234*E_pow2 - 1855*ur_pow2) + 4*M_pow2*r_pow3*(-1251 + 378*E_pow2 - 503*ur_pow2) - 95*r_pow5*(13 + 8*ur_pow2) + 8*M_pow4*r*(1259 + 36*E_pow2 + 576*ur_pow2) + 4*M_pow3*r_pow2*(1942 + 342*E_pow2 + 1533*ur_pow2))) + 2*a_pow5*E*M*r_pow3*(12*L_pow8*(9*M - 17*r) - L_pow6*(2304*M_pow3 + 80*(-112 + 3*E_pow2)*M_pow2*r - 4*M*r_pow2*(44 + 15*E_pow2 - 249*ur_pow2) + 3*r_pow3*(893 + 86*ur_pow2)) + L_pow4*r*(-7232*M_pow4 + 6*M*r_pow3*(-1004 + 172*E_pow2 - 881*ur_pow2) - 16*M_pow3*r*(-679 + 78*E_pow2 - 228*ur_pow2) + 28*M_pow2*r_pow2*(689 + 18*ur_pow2) - r_pow4*(5168 + 711*ur_pow2)) + r_pow5*(3888*M_pow4 + r_pow4*(1955 - 4662*ur_pow2) + 36*M_pow2*r_pow2*(-185 + 20*E_pow2 + 283*ur_pow2) + 24*M_pow3*r*(110 + 108*E_pow2 + 327*ur_pow2) - 4*M*r_pow3*(393 + 162*E_pow2 + 1177*ur_pow2)) + 2*L_pow2*r_pow3*(7032*M_pow4 + 2*M*r_pow3*(-2290 + 306*E_pow2 - 815*ur_pow2) + r_pow4*(41 - 154*ur_pow2) + 2*M_pow2*r_pow2*(-1334 + 684*E_pow2 + 1677*ur_pow2) + 4*M_pow3*r*(2380 + 162*E_pow2 + 1809*ur_pow2))) - 2*a_pow3*E*M*r_pow4*(12*L_pow8*(60*M_pow2 - 128*M*r + 43*r_pow2) + L_pow4*r_pow3*(3248*M_pow3 + 8*M_pow2*r*(-1145 + 48*E_pow2 - 336*ur_pow2) - 12*M*r_pow2*(35 + 52*E_pow2 - 312*ur_pow2) + r_pow3*(2230 - 123*ur_pow2)) + L_pow6*r*(8704*M_pow3 + 4*M_pow2*r*(-1267 + 84*E_pow2 - 240*ur_pow2) + 12*M*r_pow2*(-473 + 3*E_pow2 + 61*ur_pow2) + 3*r_pow3*(925 + 196*ur_pow2)) - L_pow2*r_pow5*(13920*M_pow3 + 4*M*r_pow2*(-1909 + 189*E_pow2 - 279*ur_pow2) + 9*r_pow3*(193 + 176*ur_pow2) + 4*M_pow2*r*(-1 + 216*E_pow2 + 486*ur_pow2)) + r_pow7*(-4752*M_pow3 + 4*M*r_pow2*(747 + 36*E_pow2 - 304*ur_pow2) - 8*M_pow2*r*(-170 + 54*E_pow2 + 657*ur_pow2) + r_pow3*(-1204 + 2507*ur_pow2))) + 2*a_pow9*E*M*r*(L_pow4*(432*M_pow3 + 16*(-247 + 18*E_pow2)*M_pow2*r + 16*(-275 + 9*E_pow2)*M*r_pow2 - 1077*r_pow3) + L_pow2*(6912*M_pow5 + 64*(160 + 9*E_pow2)*M_pow4*r + 4*M_pow2*r_pow3*(-3823 + 324*E_pow2 - 1605*ur_pow2) + 4*M*r_pow4*(-2790 + 81*E_pow2 - 898*ur_pow2) + 48*M_pow3*r_pow2*(-10 + 33*E_pow2 - 69*ur_pow2) - r_pow5*(2123 + 600*ur_pow2)) + r_pow2*(64*(-35 + 54*E_pow2)*M_pow5 + r_pow5*(229 - 2165*ur_pow2) + 16*M_pow4*r*(81 + 468*E_pow2 + 350*ur_pow2) + 8*M_pow3*r_pow2*(398 + 216*E_pow2 + 497*ur_pow2) - 4*M_pow2*r_pow3*(-13 + 648*E_pow2 + 2123*ur_pow2) - 2*M*r_pow4*(42 + 504*E_pow2 + 4435*ur_pow2))) + L*r_pow6*(12*L_pow8*M*(128*M_pow2 - 130*M*r + 33*r_pow2) + L_pow6*r_pow2*(4676*M_pow3 + 4*M_pow2*r*(-1213 + 45*E_pow2 - 120*ur_pow2) - 2*r_pow3*(13 + 18*ur_pow2) + M*r_pow2*(1309 - 84*E_pow2 + 306*ur_pow2)) - r_pow8*(492*M_pow3 + 2*M_pow2*r*(-380 + 24*E_pow2 + 21*ur_pow2) + 2*r_pow3*(-32 + 7*ur_pow2 + 135*ur_pow4) + M*r_pow2*(385 - 31*ur_pow2 - 720*ur_pow4 + 6*E_pow2*(-7 + 30*ur_pow2))) + L_pow4*r_pow4*(3484*M_pow3 + 2*M_pow2*r*(-1580 + 68*E_pow2 + 751*ur_pow2) + 2*r_pow3*(48 + 182*ur_pow2 - 9*ur_pow4) + M*r_pow2*(517 - 1509*ur_pow2 - 144*ur_pow4 + 2*E_pow2*(-19 + 90*ur_pow2))) + L_pow2*r_pow6*(-148*M_pow3 + 4*M_pow2*r*(223 - 23*E_pow2 + 845*ur_pow2) + 2*r_pow3*(93 + 352*ur_pow2 + 216*ur_pow4) + M*r_pow2*(-781 - 3140*ur_pow2 - 1284*ur_pow4 + E_pow2*(88 + 420*ur_pow2)))) - a_pow4*L*r_pow3*(12*L_pow8*M*(6*M - 17*r) - L_pow6*(1536*M_pow4 + 32*(-259 + 45*E_pow2)*M_pow3*r + (2917 + 396*E_pow2)*M*r_pow3 - 4*M_pow2*r_pow2*(13 + 429*E_pow2 - 249*ur_pow2) + 2*r_pow4*(-52 + 9*ur_pow2)) + r_pow5*(8592*M_pow5 + 8*M_pow4*r*(-262 + 3852*E_pow2 + 2559*ur_pow2) + r_pow5*(-229 - 462*ur_pow2 + 594*ur_pow4) - 2*M*r_pow4*(-490 + 1321*E_pow2 + 477*ur_pow2 + 981*ur_pow4) + 2*M_pow2*r_pow3*(906 - 4981*ur_pow2 - 1026*ur_pow4 + 6*E_pow2*(-1051 + 282*ur_pow2)) + 4*M_pow3*r_pow2*(-1723 + 1935*ur_pow2 + 810*ur_pow4 + 6*E_pow2*(433 + 288*ur_pow2))) + L_pow4*r*(-7808*M_pow5 - 32*M_pow4*r*(-65 + 389*E_pow2 - 114*ur_pow2) + r_pow5*(459 + 8*ur_pow2) + 4*M_pow3*r_pow2*(4989 + 240*ur_pow2 + 20*E_pow2*(79 + 12*ur_pow2)) - 4*M_pow2*r_pow3*(476 + 1297*ur_pow2 + 3*E_pow2*(-583 + 68*ur_pow2)) + M*r_pow4*(-6145 + 1269*ur_pow2 + 258*ur_pow4 - 4*E_pow2*(662 + 309*ur_pow2))) + 2*L_pow2*r_pow3*(3752*M_pow5 + 8*M_pow4*r*(32 + 579*E_pow2 + 1207*ur_pow2) - 3*r_pow5*(-16 + 160*ur_pow2 + 45*ur_pow4) + M_pow2*r_pow3*(150 - 4745*ur_pow2 + 363*ur_pow4 - 36*E_pow2*(52 + 51*ur_pow2)) + 2*M_pow3*r_pow2*(392 + 45*ur_pow2 - 201*ur_pow4 + 12*E_pow2*(443 + 68*ur_pow2)) - 3*M*r_pow4*(345 - 681*ur_pow2 - 268*ur_pow4 + E_pow2*(836 + 654*ur_pow2)))) + a_pow6*L*r_pow2*(3*L_pow6*(-192*M_pow3 + (532 - 72*E_pow2)*M_pow2*r + 4*(73 + 17*E_pow2)*M*r_pow2 + 3*r_pow3) + L_pow4*(-1152*M_pow5 + 48*(-295 + 96*E_pow2)*M_pow4*r - 16*M_pow3*r_pow2*(466 + 686*E_pow2 - 183*ur_pow2) + 3*r_pow5*(-71 + 3*ur_pow2) + 4*M_pow2*r_pow3*(2362 + 600*ur_pow2 + 3*E_pow2*(-137 + 83*ur_pow2)) + M*r_pow4*(4065 - 174*ur_pow2 + 4*E_pow2*(617 + 129*ur_pow2))) - 2*r_pow3*(1872*M_pow6 + 16*M_pow5*r*(-32 + 1272*E_pow2 + 459*ur_pow2) + r_pow6*(-23 - 194*ur_pow2 + 81*ur_pow4) - M*r_pow5*(-209 + 668*ur_pow2 + 945*ur_pow4 + 72*E_pow2*(32 + 7*ur_pow2)) - M_pow2*r_pow4*(-1154 + 7695*ur_pow2 + 2196*ur_pow4 + 4*E_pow2*(3061 + 54*ur_pow2)) + 4*M_pow4*r_pow2*(-1053 + 3101*ur_pow2 + 414*ur_pow4 + 18*E_pow2*(355 + 91*ur_pow2)) + 2*M_pow3*r_pow3*(-189 - 3376*ur_pow2 + 306*ur_pow4 + 8*E_pow2*(-391 + 315*ur_pow2))) - 2*L_pow2*r*(960*M_pow6 + r_pow6*(183 - 37*ur_pow2) + 16*M_pow5*r*(133 - 172*E_pow2 + 288*ur_pow2) + 2*M_pow3*r_pow3*(1106 - 3019*ur_pow2 + 4*E_pow2*(1345 + 3*ur_pow2)) - 3*M_pow2*r_pow4*(1286 + 1410*ur_pow2 - 159*ur_pow4 + 36*E_pow2*(53 + 31*ur_pow2)) + 8*M_pow4*r_pow2*(610 + 885*ur_pow2 + 2*E_pow2*(785 + 114*ur_pow2)) + M*r_pow5*(-1432 + 1123*ur_pow2 + 333*ur_pow4 - 2*E_pow2*(1654 + 753*ur_pow2)))) + a_pow8*L*r*(L_pow4*(-288*M_pow4 - 64*(-64 + 27*E_pow2)*M_pow3*r + 20*(248 + 51*E_pow2)*M_pow2*r_pow2 + 6*(223 + 125*E_pow2)*M*r_pow3 + 27*r_pow4) + r_pow2*(-128*(-35 + 123*E_pow2)*M_pow6 + 2*r_pow6*(-23 + 32*ur_pow2) + 4*M_pow2*r_pow4*(11 + 2116*ur_pow2 + 639*ur_pow4 + 18*E_pow2*(337 + 59*ur_pow2)) + 4*M_pow3*r_pow3*(-916 + 5301*ur_pow2 + 576*ur_pow4 + 4*E_pow2*(2149 + 90*ur_pow2)) - 16*M_pow5*r*(-313 + 700*ur_pow2 + 4*E_pow2*(797 + 144*ur_pow2)) + M*r_pow5*(111 + 103*ur_pow2 + 702*ur_pow4 + 2*E_pow2*(2071 + 522*ur_pow2)) - 16*M_pow4*r_pow2*(220 - 214*ur_pow2 + E_pow2*(993 + 648*ur_pow2))) + L_pow2*(-4608*M_pow6 - 64*(133 + 54*E_pow2)*M_pow5*r - 16*M_pow4*r_pow2*(535 + 1281*E_pow2 - 207*ur_pow2) - 6*r_pow6*(19 + 6*ur_pow2) + M*r_pow5*(2175 - 486*ur_pow2 + 8*E_pow2*(494 + 105*ur_pow2)) + 4*M_pow3*r_pow3*(147*(11 + 14*ur_pow2) + E_pow2*(-884 + 732*ur_pow2)) + 2*M_pow2*r_pow4*(4960 + 1369*ur_pow2 + 2*E_pow2*(2855 + 786*ur_pow2)))) - 2*a_pow11*E*M*twoM_plus_r*(L_pow2*(864*M_pow3 - 8*(-287 + 9*E_pow2)*M_pow2*r + 2*(1115 - 18*E_pow2)*M*r_pow2 + 531*r_pow3) + r*(-144*E_pow2*M*(8*M_pow3 + 2*M_pow2*r - 7*M*r_pow2 - 3*r_pow3) + r*(-1360*M_pow3 + 8*M_pow2*r*(-9 + 193*ur_pow2) + r_pow3*(172 + 435*ur_pow2) + 2*M*r_pow2*(398 + 821*ur_pow2)))) + a_pow10*L*(L_pow2*(1152*M_pow5 + 16*(287 - 54*E_pow2)*M_pow4*r + 160*(47 + 22*E_pow2)*M_pow3*r_pow2 + 4*(1103 + 942*E_pow2)*M_pow2*r_pow3 + 24*(36 + 37*E_pow2)*M*r_pow4 + 27*r_pow5) + r*(-4*E_pow2*M*(3456*M_pow5 + 3856*M_pow4*r - 72*M_pow2*r_pow3*(89 + 16*ur_pow2) - r_pow5*(470 + 81*ur_pow2) - 4*M_pow3*r_pow2*(811 + 207*ur_pow2) - M*r_pow4*(3071 + 531*ur_pow2)) + r*(-5440*M_pow5 + M*r_pow4*(391 - 312*ur_pow2) - r_pow5*(5 + 27*ur_pow2) + 32*M_pow4*r*(-179 + 193*ur_pow2) + 4*M_pow2*r_pow3*(486 + 197*ur_pow2) + 4*M_pow3*r_pow2*(177 + 1424*ur_pow2)))) + a_pow2*L*r_pow4*(12*L_pow8*M*(40*M_pow2 - 123*M*r + 53*r_pow2) + L_pow6*r*(7456*M_pow4 - 8*M_pow2*r_pow2*(794 + 183*E_pow2 - 81*ur_pow2) + 24*M_pow3*r*(-159 + 120*E_pow2 - 40*ur_pow2) - r_pow4*(139 + 18*ur_pow2) + 2*M*r_pow3*(1771 + 54*E_pow2 + 123*ur_pow2)) + r_pow7*(-4344*M_pow4 - 8*M_pow3*r*(-449 + 912*E_pow2 + 831*ur_pow2) + r_pow4*(215 + 151*ur_pow2 - 702*ur_pow4) + 2*M_pow2*r_pow2*(238 + 1199*ur_pow2 + 324*ur_pow4 + E_pow2*(1294 - 846*ur_pow2)) + M*r_pow3*(-1029 + 64*ur_pow2 + 1494*ur_pow4 + E_pow2*(680 - 468*ur_pow2))) - L_pow4*r_pow3*(-8328*M_pow4 - 8*M_pow3*r*(-575 + 434*E_pow2 - 325*ur_pow2) + r_pow4*(123 - 347*ur_pow2 + 18*ur_pow4) + 2*M_pow2*r_pow2*(3604 - 2267*ur_pow2 + 2*E_pow2*(1049 + 57*ur_pow2)) + M*r_pow3*(-4031 + 1824*ur_pow2 + 426*ur_pow4 - 4*E_pow2*(223 + 225*ur_pow2))) + L_pow2*r_pow5*(-5008*M_pow4 - 8*M_pow3*r*(-591 + 882*E_pow2 + 290*ur_pow2) + 3*r_pow4*(105 + 518*ur_pow2 + 234*ur_pow4) + 4*M_pow2*r_pow2*(-452 + 1265*ur_pow2 - 15*ur_pow4 + 6*E_pow2*(-6 + 5*ur_pow2)) + 2*M*r_pow3*(2*E_pow2*(388 + 543*ur_pow2) - 3*(44 + 911*ur_pow2 + 317*ur_pow4))))))/(12.*r_pow2*pow(a_pow2 + r*r_minus_twoM,3)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2));
A2600 = (-4*E_pow2*M*r_pow3*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(6*a_pow6 + r_pow5*r_minus_twoM + a_pow4*r*(-22*M + 13*r) + 4*a_pow2*r_pow2*(5*M_pow2 - 6*M*r + 2*r_pow2)) + 16*a*E*L*M*r_pow3*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(3*a_pow4 + a_pow2*r*(-11*M + 6*r) + r_pow2*(10*M_pow2 - 11*M*r + 3*r_pow2)) - r_pow3*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(3*a_pow4*r - twoM_minus_r*r*(20*L_pow2*M + (20*M - 11*r)*r_pow2) + 2*a_pow2*(12*L_pow2*M + (7*M - 4*r)*r_pow2)) + (-4*E_pow2*M*r_pow5*(r_pow3 + a_pow2*twoM_plus_r)*(6*a_pow6*twoM_plus_r + 2*r_pow5*(2*L_pow2 + r_pow2) + a_pow4*r*(9*L_pow2 - 16*M_pow2 + 8*M*r + 14*r_pow2) + a_pow2*r_pow2*(2*r_pow2*(-2*M + 5*r) + L_pow2*(-10*M + 13*r))) + 4*a*E*L*M*r_pow5*(6*a_pow6*(8*M_pow2 + 6*M*r + r_pow2) + a_pow4*r*(-64*M_pow3 + 8*M_pow2*r + 44*M*r_pow2 + 6*r_pow3 + 9*L_pow2*(4*M + r)) + r_pow5*(2*(10*M - 3*r)*r_pow2 + L_pow2*(10*M + 3*r)) + 2*a_pow2*r_pow2*(r_pow2*(4*M_pow2 + 14*M*r - 3*r_pow2) + L_pow2*(-20*M_pow2 + 17*M*r + 6*r_pow2))) - 2*r_pow5*(12*a_pow8*r*twoM_plus_r_pow2 + twoM_minus_r*r_pow5*(L_pow4*(13*M - 9*r) + 17*L_pow2*twoM_minus_r*r_pow2 + 5*(3*M - r)*r_pow4) + a_pow6*(3*L_pow2*(16*M_pow3 + 8*M_pow2*r + 7*M*r_pow2 + 4*r_pow3) + r_pow2*(-156*M_pow3 - 88*M_pow2*r + 77*M*r_pow2 + 41*r_pow3)) + a_pow2*r_pow2*(L_pow4*(-40*M_pow3 + 36*M_pow2*r - 13*M*r_pow2 + 9*r_pow3) + r_pow4*(120*M_pow3 - 40*M_pow2*r - 69*M*r_pow2 + 27*r_pow3) + L_pow2*r_pow2*(116*M_pow3 - 44*M_pow2*r - 95*M*r_pow2 + 46*r_pow3)) + a_pow4*r*(36*L_pow4*M_pow2 + L_pow2*(-64*M_pow4 + 16*M_pow3*r - 68*M_pow2*r_pow2 - 6*M*r_pow3 + 41*r_pow4) + r_pow2*(120*M_pow4 + 20*M_pow3*r - 206*M_pow2*r_pow2 - 15*M*r_pow3 + 51*r_pow4))))*ur_pow2 + r_pow8*(3*a_pow6*twoM_plus_r_pow2 + a_pow4*r*(8*M_pow3 + 6*L_pow2*(M - r) + 20*M_pow2*r + 26*M*r_pow2 + 9*r_pow3) + r_pow5*(4*L_pow2*(10*M - 3*r) + r_pow2*(2*M + 3*r)) + a_pow2*r_pow2*(2*L_pow2*(10*M_pow2 + 17*M*r - 9*r_pow2) + r_pow2*(8*M_pow2 + 16*M*r + 9*r_pow2)))*ur_pow4)/(24.*pow(a_pow2 + r*r_minus_twoM,3)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2));
A2601 = (r*ur*(6*a_pow11*E*M*twoM_plus_r_pow2*(12*E_pow2*M + 17*r) - 3*a_pow10*L*twoM_plus_r*(r*(68*M_pow2 - 14*M*r - 9*r_pow2) + 16*E_pow2*M*(9*M_pow2 + 16*M*r + 6*r_pow2)) - 2*a*E*M*r_pow5*(-12*L_pow6*(108*M_pow2 - 101*M*r + 24*r_pow2) + 4*L_pow2*r_pow4*(92*M_pow2 + 3*r_pow2*(1 + 2*ur_pow2) + M*r*(-55 + 18*ur_pow2)) + L_pow4*r_pow2*(-1348*M_pow2 + 2*M*r*(670 + 51*ur_pow2) - 3*r_pow2*(115 + 57*ur_pow2)) + 3*twoM_minus_r*r_pow6*(70*M + r*(-23 + 61*ur_pow2))) + 2*a_pow5*E*M*r_pow2*(-36*L_pow6*(3*M - 5*r) + 4*L_pow2*r*(400*M_pow4 + 3*r_pow4*(88 + 49*ur_pow2) - 6*M_pow2*r_pow2*(128 + 71*ur_pow2) + 2*M*r_pow3*(127 + 105*ur_pow2) - 4*M_pow3*r*(143 + 138*ur_pow2)) + L_pow4*r*(8*(-446 + 15*E_pow2)*M_pow2 + 3*r_pow2*(433 + 63*ur_pow2) + 4*M*r*(59 - 30*E_pow2 + 162*ur_pow2)) - 6*r_pow3*(280*M_pow4 + M*r_pow3*(8 - 48*E_pow2 - 191*ur_pow2) + r_pow4*(35 - 183*ur_pow2) + 4*M_pow3*r*(-6 + 36*E_pow2 + 61*ur_pow2) + 2*M_pow2*r_pow2*(-140 + 18*E_pow2 + 175*ur_pow2))) + 2*a_pow3*E*M*r_pow3*(12*L_pow6*(30*M_pow2 - 100*M*r + 39*r_pow2) + L_pow4*r*(3392*M_pow3 + 4*M_pow2*r*(-515 + 54*E_pow2 - 186*ur_pow2) - 6*M*r_pow2*(368 + 14*E_pow2 - 77*ur_pow2) + 45*r_pow3*(27 + 8*ur_pow2)) + 2*L_pow2*r_pow3*(32*M_pow3 + 2*M*r_pow2*(4 - 69*ur_pow2) + 3*r_pow3*(60 + 47*ur_pow2) - 4*M_pow2*r*(139 + 210*ur_pow2)) + 3*r_pow5*(-560*M_pow3 + 2*M*r_pow2*(102 + 14*E_pow2 - 57*ur_pow2) - 4*M_pow2*r*(-55 + 18*E_pow2 + 122*ur_pow2) + r_pow3*(-75 + 244*ur_pow2))) - 2*a_pow7*E*M*r*(3*L_pow4*(4*(-76 + 3*E_pow2)*M - 143*r)*r + 2*L_pow2*(720*M_pow4 + 1888*M_pow3*r + 12*M_pow2*r_pow2*(17 - 30*ur_pow2) - 3*r_pow4*(164 + 47*ur_pow2) - 2*M*r_pow3*(620 + 237*ur_pow2)) - 6*r_pow2*(-72*(-1 + 2*E_pow2)*M_pow4 + 4*M_pow2*r_pow2*(-4 + 15*E_pow2 + 4*ur_pow2) - 4*M_pow3*r*(-50 + 42*E_pow2 + 57*ur_pow2) + r_pow4*(5 + 122*ur_pow2) + M*r_pow3*(-56 + 60*E_pow2 + 309*ur_pow2))) - L*r_pow5*(6*L_pow6*M*(180*M_pow2 - 184*M*r + 47*r_pow2) + L_pow4*r_pow2*(1660*M_pow3 + 3*M*r_pow2*(71 + 2*E_pow2 - 33*ur_pow2) - 6*M_pow2*r*(248 + 11*ur_pow2) + r_pow3*(58 + 63*ur_pow2)) + 2*L_pow2*r_pow4*(208*M_pow3 - 2*M_pow2*r*(30 + 4*E_pow2 - 151*ur_pow2) + r_pow3*(43 + 89*ur_pow2 + 18*ur_pow4) + M*r_pow2*(-108 - 335*ur_pow2 - 96*ur_pow4 + 10*E_pow2*(1 + 6*ur_pow2))) - r_pow6*(164*M_pow3 + 2*M_pow2*r*(-132 + 8*E_pow2 + 7*ur_pow2) + 2*r_pow3*(-14 + 7*ur_pow2 + 45*ur_pow4) + M*r_pow2*(147 - 29*ur_pow2 - 240*ur_pow4 + 2*E_pow2*(-7 + 30*ur_pow2)))) + 6*a_pow9*E*M*twoM_plus_r*(4*L_pow2*(18*M_pow2 + 55*M*r + 25*r_pow2) + r*(8*E_pow2*M*(-10*M_pow2 + 5*M*r + 8*r_pow2) + r*(-104*M_pow2 + 2*M*r*(-15 + 61*ur_pow2) + r_pow2*(45 + 61*ur_pow2)))) + a_pow2*L*r_pow3*(-6*L_pow6*M*(40*M_pow2 - 180*M*r + 83*r_pow2) - L_pow4*r*(3392*M_pow4 - 4*M_pow2*r_pow2*(641 + 372*E_pow2 - 117*ur_pow2) + 24*M_pow3*r*(-77 + 81*E_pow2 - 31*ur_pow2) + r_pow4*(41 + 45*ur_pow2) + M*r_pow3*(1280 + 264*E_pow2 + 147*ur_pow2)) + r_pow5*(1088*M_pow4 + 8*M_pow3*r*(-123 + 93*E_pow2 + 115*ur_pow2) + r_pow4*(-85 - 87*ur_pow2 + 216*ur_pow4) + 4*M_pow2*r_pow2*(17 + 85*ur_pow2 - 51*ur_pow4 + 16*E_pow2*(4 + 9*ur_pow2)) + M*r_pow3*(240 - 187*ur_pow2 - 402*ur_pow4 + 4*E_pow2*(-88 + 21*ur_pow2))) + L_pow2*r_pow3*(-1632*M_pow4 - 44*M_pow3*r*(-12 + 28*E_pow2 - 23*ur_pow2) - r_pow4*(156 + 419*ur_pow2 + 45*ur_pow4) + 2*M_pow2*r_pow2*(752 + 90*ur_pow2 + 3*ur_pow4 + 8*E_pow2*(109 + 15*ur_pow2)) + M*r_pow3*(-398 + 513*ur_pow2 + 261*ur_pow4 - 2*E_pow2*(304 + 303*ur_pow2)))) - a_pow8*L*(6*L_pow2*(48*M_pow4 + 232*M_pow3*r + 8*(26 + 19*E_pow2)*M_pow2*r_pow2 + (19 + 78*E_pow2)*M*r_pow3 - 9*r_pow4) + r*(2*E_pow2*M*(-1440*M_pow4 - 1888*M_pow3*r + r_pow4*(587 + 72*ur_pow2) + 4*M*r_pow3*(460 + 81*ur_pow2) + 4*M_pow2*r_pow2*(193 + 90*ur_pow2)) + r*(-1248*M_pow4 + r_pow4*(-80 + 81*ur_pow2) + 3*M*r_pow3*(-29 + 206*ur_pow2) + 4*M_pow3*r*(103 + 366*ur_pow2) + 4*M_pow2*r_pow2*(211 + 411*ur_pow2)))) - a_pow4*L*r_pow2*(-36*L_pow6*M*(2*M - 5*r) + L_pow4*r*(16*(-223 + 45*E_pow2)*M_pow3 - 8*M_pow2*r*(-29 + 195*E_pow2 - 81*ur_pow2) - 2*r_pow3*(22 + 9*ur_pow2) + M*r_pow2*(1361 + 438*E_pow2 + 36*ur_pow2)) + L_pow2*r*(2464*M_pow5 + 32*M_pow4*r*(-23 + 106*E_pow2 - 69*ur_pow2) + r_pow5*ur_pow2*(304 + 9*ur_pow2) + 4*M_pow2*r_pow3*(114 + 245*ur_pow2 + 6*E_pow2*(-100 + 19*ur_pow2)) - 8*M_pow3*r_pow2*(599 + 240*ur_pow2 + E_pow2*(284 + 93*ur_pow2)) + M*r_pow4*(1366 + 496*ur_pow2 - 135*ur_pow4 + 4*E_pow2*(406 + 207*ur_pow2))) + r_pow3*(-1520*M_pow5 - 8*M_pow4*r*(-114 + 240*E_pow2 + 223*ur_pow2) + 3*r_pow5*(20 + 99*ur_pow2 - 54*ur_pow4) + 2*M_pow2*r_pow3*(-162 + 133*ur_pow2 + 204*ur_pow4 + E_pow2*(264 - 348*ur_pow2)) + M*r_pow4*(66 + 1097*ur_pow2 + 324*ur_pow4 + 12*E_pow2*(105 + 13*ur_pow2)) - 4*M_pow3*r_pow2*(-62 + 757*ur_pow2 + 138*ur_pow4 + E_pow2*(802 + 504*ur_pow2)))) + a_pow6*L*r*(3*L_pow4*r*(8*(-38 + 9*E_pow2)*M_pow2 - 10*(13 + 6*E_pow2)*M*r + 9*r_pow2) + L_pow2*(960*M_pow5 + 3776*M_pow4*r + 8*M_pow3*r_pow2*(169 + 446*E_pow2 - 90*ur_pow2) + r_pow5*(124 - 63*ur_pow2) - 8*M_pow2*r_pow3*(362 + 156*ur_pow2 + E_pow2*(30 + 81*ur_pow2)) - M*r_pow4*(866 + 339*ur_pow2 + 2*E_pow2*(752 + 171*ur_pow2))) + r_pow2*(32*(-27 + 31*E_pow2)*M_pow5 + r_pow5*(50 - 277*ur_pow2 + 36*ur_pow4) + 16*M_pow4*r*(10 + 171*ur_pow2 + 6*E_pow2*(61 + 23*ur_pow2)) - 4*M_pow2*r_pow3*(183 + 607*ur_pow2 + 117*ur_pow4 + 4*E_pow2*(194 + 33*ur_pow2)) + 4*M_pow3*r_pow2*(7*(32 + 29*ur_pow2) + E_pow2*(722 + 372*ur_pow2)) - M*r_pow4*(4*E_pow2*(452 + 81*ur_pow2) + 3*(56 + 519*ur_pow2 + 54*ur_pow4))))))/(48.*pow(a_pow2 + r*r_minus_twoM,3)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2));
A3040 = (-8*(4*a*E*L*M*(a_pow2 + 3*r_pow2)*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2) + (a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(a_pow4*r + r_pow2*(r_pow2*(-5*M + 2*r) + L_pow2*(-9*M + 4*r)) + a_pow2*(L_pow2*(-4*M + r) + r*(2*M_pow2 - 3*M*r + 3*r_pow2))) + r_pow2*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2))*(6*a*E*L*M*r_pow5 + 2*a_pow5*E*L*M*twoM_plus_r + a_pow6*twoM_plus_r_pow2 + 4*a_pow3*E*L*M*r_pow2*(3*M + 2*r) - r_pow5*(L_pow2*(15*M - 7*r) + M*r_pow2) + a_pow2*r_pow3*(-8*L_pow2*(M - r) + r*(-4*M_pow2 - 2*M*r + r_pow2)) + a_pow4*(L_pow2*(-4*M_pow2 - 5*M*r + r_pow2) + r*(-4*M_pow3 - 4*M_pow2*r + 3*M*r_pow2 + 2*r_pow3)))*ur_pow2 + r_pow4*(-3*L_pow2*r + 2*r_pow3 + 2*a_pow2*twoM_plus_r)*(-r_pow6 - a_pow2*r_pow3*(M + r) + a_pow4*M*twoM_plus_r)*ur_pow4))/(r*pow(a_pow2 + r*r_minus_twoM,3)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2)));
A3041 = (ur*(16*E_pow2*L*M*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(3*a_pow8*(4*M_pow2 - r_pow2) + r_pow8*(-L_pow2 + 3*r_pow2) + a_pow2*r_pow5*(6*r_pow2*(22*M + r) - L_pow2*(52*M + 5*r)) + a_pow4*r_pow2*(12*M*r_pow2*(23*M + 18*r) + L_pow2*(8*M_pow2 - 40*M*r - 7*r_pow2)) - 3*a_pow6*r*(L_pow2*(4*M + r) + 2*(-8*M_pow3 - 32*M_pow2*r - 14*M*r_pow2 + r_pow3))) + 8*a*E*M*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(a_pow8*(38*M_pow2 + 55*M*r + 18*r_pow2) + r_pow5*(L_pow4*(101*M - 60*r) + 3*L_pow2*r_pow2*(-59*M + 24*r) + 3*r_pow4*(-44*M + 25*r)) + a_pow2*r_pow2*(L_pow4*(-32*M_pow2 + 119*M*r + 27*r_pow2) + 3*L_pow2*r_pow2*(-366*M_pow2 - 56*M*r + 55*r_pow2) + r_pow4*(-222*M_pow2 - 91*M*r + 197*r_pow2)) + a_pow6*(L_pow2*(-48*M_pow2 + 90*M*r + 39*r_pow2) + r*(-100*M_pow3 - 150*M_pow2*r + 99*M*r_pow2 + 83*r_pow3)) + a_pow4*r*(3*L_pow4*(16*M + 7*r) - 3*L_pow2*(64*M_pow3 + 266*M_pow2*r - 21*M*r_pow2 - 44*r_pow3) + r_pow2*(84*M_pow3 - 226*M_pow2*r + 85*M*r_pow2 + 187*r_pow3))) - 4*L*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(a_pow8*M*(76*M_pow2 + 105*M*r + 18*r_pow2) + r_pow5*(-4*L_pow2*r_pow2*(M_pow2 + 4*M*r - 3*r_pow2) - 3*r_pow4*(22*M_pow2 - 22*M*r + 5*r_pow2) + L_pow4*(50*M_pow2 - 70*M*r + 24*r_pow2)) - 2*a_pow2*r_pow2*(2*L_pow2*r_pow2*(239*M_pow3 - 99*M_pow2*r - 16*M*r_pow2 + 3*r_pow3) + 3*r_pow4*(98*M_pow3 - 35*M_pow2*r - 21*M*r_pow2 + 5*r_pow3) + L_pow4*(16*M_pow3 - 39*M_pow2*r - 4*M*r_pow2 + 12*r_pow3)) + 2*a_pow6*M*(L_pow2*(-24*M_pow2 + 90*M*r + 24*r_pow2) + r*(-100*M_pow3 - 136*M_pow2*r + 172*M*r_pow2 + 45*r_pow3)) + a_pow4*r*(6*L_pow4*M*(8*M + 5*r) + r_pow2*(204*M_pow4 - 640*M_pow3*r + 455*M_pow2*r_pow2 + 132*M*r_pow3 - 15*r_pow4) - 4*L_pow2*(48*M_pow4 + 207*M_pow3*r - 91*M_pow2*r_pow2 - 14*M*r_pow3 + 6*r_pow4))) + 8*r_pow2*(4*E_pow2*L*M*r*pow(r_pow3 + a_pow2*twoM_plus_r,3)*(2*a_pow4*twoM_plus_r_pow2 + a_pow2*r*twoM_plus_r*(3*L_pow2 + 4*r_pow2) + r_pow2*(L_pow4 + 3*L_pow2*r_pow2 + 2*r_pow4)) + a*E*M*(a_pow12*twoM_plus_r_pow3*(25*M + 12*r) + a_pow10*r*twoM_plus_r_pow2*(-100*M_pow3 + 6*M_pow2*r + 173*M*r_pow2 + 71*r_pow3 + 14*L_pow2*(2*M + 3*r)) + r_pow9*(L_pow2 + r_pow2)*(L_pow4*(62*M - 39*r) + 9*r_pow4*r_minus_twoM + L_pow2*r_pow2*(-434*M + 201*r)) - a_pow2*r_pow6*(2*L_pow2*r_pow4*(884*M_pow2 + 246*M*r - 385*r_pow2) + 2*L_pow4*r_pow2*(450*M_pow2 + 215*M*r - 229*r_pow2) + r_pow6*(162*M_pow2 + 19*M*r - 59*r_pow2) + L_pow6*(250*M_pow2 - 27*M*r + 22*r_pow2)) + a_pow4*r_pow3*(L_pow6*(-64*M_pow3 - 174*M_pow2*r + 96*M*r_pow2 + 35*r_pow3) + r_pow6*(-540*M_pow3 - 434*M_pow2*r + 217*M*r_pow2 + 158*r_pow3) + 2*L_pow4*r_pow2*(-252*M_pow3 - 614*M_pow2*r + 53*M*r_pow2 + 239*r_pow3) + 4*L_pow2*r_pow4*(-444*M_pow3 - 696*M_pow2*r + 190*M*r_pow2 + 273*r_pow3)) + a_pow6*r_pow2*(L_pow6*r*(55*M + 18*r) + 2*r_pow4*(-396*M_pow4 - 660*M_pow3*r + 6*M_pow2*r_pow2 + 341*M*r_pow3 + 111*r_pow4) + 4*L_pow2*r_pow2*(-88*M_pow4 - 636*M_pow3*r - 332*M_pow2*r_pow2 + 346*M*r_pow3 + 189*r_pow4) + L_pow4*(-384*M_pow4 - 808*M_pow3*r - 516*M_pow2*r_pow2 + 318*M*r_pow3 + 230*r_pow4)) + a_pow8*r*twoM_plus_r*(2*L_pow4*r*(29*M + 24*r) + r_pow2*(-216*M_pow4 - 592*M_pow3*r + 16*M_pow2*r_pow2 + 478*M*r_pow3 + 173*r_pow4) + L_pow2*(-256*M_pow4 - 496*M_pow3*r - 528*M_pow2*r_pow2 + 248*M*r_pow3 + 266*r_pow4))) - L*(a_pow12*M*twoM_plus_r_pow2*(50*M_pow2 + 63*M*r + 30*r_pow2) + twoM_minus_r*r_pow9*(L_pow2 + r_pow2)*(L_pow4*(19*M - 16*r) + r_pow4*(-44*M + 21*r) + L_pow2*r_pow2*(-73*M + 29*r)) + a_pow10*r*twoM_plus_r*(-200*M_pow5 - 236*M_pow4*r + 224*M_pow3*r_pow2 + 586*M_pow2*r_pow3 + 266*M*r_pow4 + 12*r_pow5 + L_pow2*M*(56*M_pow2 + 211*M*r + 87*r_pow2)) - a_pow2*r_pow6*(L_pow6*(102*M_pow3 - 51*M_pow2*r + 11*M*r_pow2 - 10*r_pow3) + 2*L_pow4*r_pow2*(294*M_pow3 + 31*M_pow2*r - 123*M*r_pow2 + 13*r_pow3) + 2*r_pow6*(70*M_pow3 + 69*M_pow2*r - 125*M*r_pow2 + 36*r_pow3) + L_pow2*r_pow4*(818*M_pow3 + 155*M_pow2*r - 555*M*r_pow2 + 132*r_pow3)) - a_pow4*r_pow3*(L_pow6*(32*M_pow4 + 126*M_pow3*r - 44*M_pow2*r_pow2 - 23*M*r_pow3 + 6*r_pow4) + L_pow4*r_pow2*(-276*M_pow4 + 1136*M_pow3*r - 229*M_pow2*r_pow2 - 388*M*r_pow3 + 13*r_pow4) + 2*L_pow2*r_pow4*(102*M_pow4 + 1124*M_pow3*r - 180*M_pow2*r_pow2 - 429*M*r_pow3 + 48*r_pow4) + r_pow6*(-480*M_pow4 + 986*M_pow3*r + 109*M_pow2*r_pow2 - 434*M*r_pow3 + 78*r_pow4)) + a_pow6*r_pow2*(L_pow6*M*r*(55*M + 27*r) - 2*L_pow4*M*(96*M_pow4 + 212*M_pow3*r + 340*M_pow2*r_pow2 - 246*M*r_pow3 - 153*r_pow4) + 4*r_pow4*(196*M_pow5 - 305*M_pow4*r - 514*M_pow3*r_pow2 + 149*M_pow2*r_pow3 + 173*M*r_pow4 - 3*r_pow5) + 2*L_pow2*r_pow2*(432*M_pow5 - 1060*M_pow4*r - 1110*M_pow3*r_pow2 + 725*M_pow2*r_pow3 + 503*M*r_pow4 + 2*r_pow5)) + a_pow8*r*(L_pow4*M*r*(116*M_pow2 + 257*M*r + 84*r_pow2) + L_pow2*(-256*M_pow6 - 608*M_pow5*r - 1660*M_pow4*r_pow2 + 232*M_pow3*r_pow3 + 1554*M_pow2*r_pow4 + 573*M*r_pow5 + 18*r_pow6) + r_pow2*(-64*M_pow6 - 1176*M_pow5*r - 2468*M_pow4*r_pow2 - 236*M_pow3*r_pow3 + 1590*M_pow2*r_pow4 + 682*M*r_pow5 + 27*r_pow6))))*ur_pow2 - 4*L*r_pow5*(3*a_pow10*M*twoM_plus_r_pow2*(31*M + 16*r) + r_pow9*(-4*L_pow4*(4*M - 3*r) + 6*L_pow2*(22*M - 9*r)*r_pow2 + (22*M - 3*r)*r_pow4) + a_pow8*M*r*twoM_plus_r*(-244*M_pow3 + 483*M*r_pow2 + 214*r_pow3 + 18*L_pow2*(5*M + 4*r)) + a_pow2*r_pow6*(36*L_pow2*(7*M - 3*r)*r_pow3 + r_pow4*(44*M_pow2 + 118*M*r - 9*r_pow2) + 4*L_pow4*(8*M_pow2 + 4*M*r + 3*r_pow2)) + a_pow4*r_pow3*(4*L_pow4*M*(-22*M_pow2 + 11*M*r + 8*r_pow2) + 3*r_pow4*(-70*M_pow3 + 131*M_pow2*r + 96*M*r_pow2 - 3*r_pow3) - 18*L_pow2*r_pow2*(34*M_pow3 - 13*M_pow2*r - 22*M*r_pow2 + 3*r_pow3)) + a_pow6*r_pow2*(12*L_pow4*M*(5*M + 2*r) + 12*L_pow2*M*(-14*M_pow3 + 57*M*r_pow2 + 29*r_pow3) + r_pow2*(-664*M_pow4 + 168*M_pow3*r + 975*M_pow2*r_pow2 + 358*M*r_pow3 - 3*r_pow4)))*ur_pow4))/(3.*r_pow3*pow(a_pow2 + r*r_minus_twoM,4)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2));
A3060 = (-96*a*E_pow3*L*M_pow2*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(3*a_pow10*(2*M_pow2 + 3*M*r + r_pow2) + r_pow8*(7*L_pow4 + 19*L_pow2*r_pow2 + 9*r_pow4) + a_pow8*r*(48*M_pow3 + 78*M_pow2*r + 78*M*r_pow2 + 27*r_pow3 + L_pow2*(8*M + 3*r)) + a_pow2*r_pow5*(45*r_pow4*(-M + r) + 14*L_pow4*(M + r) + 16*L_pow2*r_pow2*(7*M + 4*r)) + 2*a_pow6*r_pow2*(4*L_pow2*(7*M_pow2 + 13*M*r + 4*r_pow2) + 3*r_pow2*(-M_pow2 + 18*M*r + 12*r_pow2)) + a_pow4*r_pow3*(7*L_pow4*twoM_plus_r + 6*r_pow3*(-21*M_pow2 - M*r + 14*r_pow2) + 2*L_pow2*r*(20*M_pow2 + 96*M*r + 37*r_pow2))) + 8*E_pow2*M*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(a_pow12*(140*M_pow3 + 154*M_pow2*r + 36*M*r_pow2 - 3*r_pow3) + r_pow8*(42*L_pow6*twoM_minus_r + L_pow4*(222*M - 113*r)*r_pow2 + 2*L_pow2*(85*M - 46*r)*r_pow4 + (44*M - 27*r)*r_pow6) - 2*a_pow2*r_pow5*(-42*L_pow6*(4*M_pow2 + 2*M*r - r_pow2) + 3*L_pow4*r_pow2*(-362*M_pow2 + 2*M*r + 61*r_pow2) + r_pow6*(274*M_pow2 - 241*M*r + 67*r_pow2) + 2*L_pow2*r_pow4*(87*M_pow2 - 251*M*r + 100*r_pow2)) + a_pow4*r_pow3*(42*L_pow6*(12*M_pow2 + 2*M*r - r_pow2) + 2*L_pow2*r_pow3*(-2976*M_pow3 + 1018*M_pow2*r + 831*M*r_pow2 - 327*r_pow3) + 4*L_pow4*r*(180*M_pow3 + 1172*M_pow2*r + 87*M*r_pow2 - 99*r_pow3) - r_pow5*(1428*M_pow3 + 270*M_pow2*r - 1148*M*r_pow2 + 269*r_pow3)) + 2*a_pow10*(L_pow2*(108*M_pow3 + 218*M_pow2*r + 57*M*r_pow2 - 3*r_pow3) + r*(-12*M_pow4 + 268*M_pow3*r + 426*M_pow2*r_pow2 + 113*M*r_pow3 - 19*r_pow4)) + 2*a_pow6*r_pow2*(L_pow4*(1008*M_pow3 + 1450*M_pow2*r + 138*M*r_pow2 - 73*r_pow3) + L_pow2*r*(-472*M_pow4 - 1168*M_pow3*r + 2244*M_pow2*r_pow2 + 593*M*r_pow3 - 241*r_pow4) - 2*r_pow3*(134*M_pow4 + 474*M_pow3*r - 260*M_pow2*r_pow2 - 295*M*r_pow3 + 69*r_pow4)) + a_pow8*r*(3*L_pow4*(96*M_pow2 + 26*M*r - r_pow2) + 2*L_pow2*(864*M_pow4 + 1028*M_pow3*r + 1350*M_pow2*r_pow2 + 236*M*r_pow3 - 71*r_pow4) - r*(448*M_pow5 + 1232*M_pow4*r + 680*M_pow3*r_pow2 - 1460*M_pow2*r_pow3 - 660*M*r_pow4 + 149*r_pow5))) - 8*a*E*L*M*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(2*a_pow10*M*(140*M_pow2 + 127*M*r + 15*r_pow2) + r_pow5*(r_pow6*(-184*M_pow2 + 204*M*r - 57*r_pow2) + L_pow2*r_pow4*(212*M_pow2 - 92*M*r - 3*r_pow2) + 42*L_pow6*(4*M_pow2 - r_pow2) + 2*L_pow4*r_pow2*(486*M_pow2 - 340*M*r + 51*r_pow2)) - a_pow2*r_pow3*(42*L_pow6*(-12*M_pow2 + 2*M*r + r_pow2) + 4*L_pow4*r_pow2*(-829*M_pow2 + 214*M*r + 84*r_pow2) + 2*L_pow2*r_pow3*(3230*M_pow3 - 2685*M_pow2*r + 109*M*r_pow2 + 214*r_pow3) + r_pow5*(3444*M_pow3 - 1922*M_pow2*r - 424*M*r_pow2 + 257*r_pow3)) + 2*a_pow8*(L_pow2*M*(108*M_pow2 + 274*M*r + 39*r_pow2) + r*(-24*M_pow4 + 430*M_pow3*r + 588*M_pow2*r_pow2 - 45*M*r_pow3 - 30*r_pow4)) - a_pow4*r_pow2*(L_pow4*(-2016*M_pow3 - 2056*M_pow2*r + 416*M*r_pow2 + 174*r_pow3) + r_pow3*(768*M_pow4 + 3292*M_pow3*r - 4364*M_pow2*r_pow2 + 18*M*r_pow3 + 403*r_pow4) + L_pow2*r*(1888*M_pow4 + 3220*M_pow3*r - 6048*M_pow2*r_pow2 + 1068*M*r_pow3 + 617*r_pow4)) + a_pow6*r*(48*L_pow4*M*(6*M + r) + 2*L_pow2*(864*M_pow4 + 652*M_pow3*r + 1271*M_pow2*r_pow2 - 202*M*r_pow3 - 96*r_pow4) - r*(896*M_pow5 + 1840*M_pow4*r + 612*M_pow3*r_pow2 - 3076*M_pow2*r_pow3 + 358*M*r_pow4 + 263*r_pow5))) - 4*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(3*a_pow12*M*r*(8*M_pow2 + 3*M*r - 2*r_pow2) - twoM_minus_r*r_pow7*(r_pow6*(58*M_pow2 - 54*M*r + 15*r_pow2) + 2*L_pow6*(54*M_pow2 - 71*M*r + 24*r_pow2) + L_pow2*r_pow4*(110*M_pow2 - 115*M*r + 39*r_pow2) + L_pow4*r_pow2*(136*M_pow2 - 179*M*r + 66*r_pow2)) - a_pow10*M*(L_pow2*(280*M_pow3 + 200*M_pow2*r - 21*M*r_pow2 + 18*r_pow3) + r_pow2*(134*M_pow3 - 21*M_pow2*r - 69*M*r_pow2 + 58*r_pow3)) + a_pow2*r_pow3*(-168*L_pow8*M_pow2*twoM_minus_r + L_pow4*r_pow3*(4168*M_pow4 - 5764*M_pow3*r + 2332*M_pow2*r_pow2 - 85*M*r_pow3 - 81*r_pow4) + 2*L_pow6*r*(240*M_pow4 - 932*M_pow3*r + 498*M_pow2*r_pow2 + 23*M*r_pow3 - 36*r_pow4) + L_pow2*r_pow5*(3640*M_pow4 - 4956*M_pow3*r + 2182*M_pow2*r_pow2 - 243*M*r_pow3 - 27*r_pow4) + r_pow7*(696*M_pow4 - 1260*M_pow3*r + 816*M_pow2*r_pow2 - 205*M*r_pow3 + 15*r_pow4)) - a_pow8*(2*L_pow4*(72*M_pow4 + 220*M_pow3*r + 9*M*r_pow3) + L_pow2*M*r*(-48*M_pow4 + 648*M_pow3*r + 869*M_pow2*r_pow2 - 570*M*r_pow3 + 96*r_pow4) + r_pow3*(-264*M_pow5 + 92*M_pow4*r + 135*M_pow3*r_pow2 - 189*M_pow2*r_pow3 + 361*M*r_pow4 + 30*r_pow5)) - a_pow4*r_pow2*(2*L_pow6*M*(672*M_pow3 + 404*M_pow2*r - 308*M*r_pow2 - 31*r_pow3) + r_pow5*(180*M_pow5 + 12*M_pow4*r + 1449*M_pow3*r_pow2 - 1752*M_pow2*r_pow3 + 421*M*r_pow4 + 45*r_pow5) + L_pow4*r*(-1888*M_pow5 - 1912*M_pow4*r + 5216*M_pow3*r_pow2 - 2676*M_pow2*r_pow3 + 158*M*r_pow4 + 147*r_pow5) + L_pow2*r_pow3*(-364*M_pow5 - 3052*M_pow4*r + 6129*M_pow3*r_pow2 - 3860*M_pow2*r_pow3 + 543*M*r_pow4 + 171*r_pow5)) - a_pow6*r*(6*L_pow6*M*(32*M_pow2 + 2*M*r + r_pow2) + 4*L_pow4*M*(288*M_pow4 + 92*M_pow3*r + 389*M_pow2*r_pow2 - 250*M*r_pow3 - 6*r_pow4) + r_pow3*(184*M_pow6 - 44*M_pow5*r - 222*M_pow4*r_pow2 + 77*M_pow3*r_pow3 - 1231*M_pow2*r_pow4 + 609*M*r_pow5 + 75*r_pow6) + L_pow2*r*(-896*M_pow6 - 1216*M_pow5*r - 336*M_pow4*r_pow2 + 3286*M_pow3*r_pow3 - 1991*M_pow2*r_pow4 + 571*M*r_pow5 + 105*r_pow6))) + 4*r_pow2*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(-18*a_pow14*M*r*(34*M_pow3 + 55*M_pow2*r + 31*M*r_pow2 + 6*r_pow3) - r_pow8*(84*L_pow8*M*r_minus_twoM_pow2 + L_pow4*r_pow4*(5216*M_pow3 - 6746*M_pow2*r + 2771*M*r_pow2 - 351*r_pow3) + L_pow2*r_pow6*(1960*M_pow3 - 2752*M_pow2*r + 1252*M*r_pow2 - 183*r_pow3) + r_pow8*(-88*M_pow3 + 114*M_pow2*r - 47*M*r_pow2 + 6*r_pow3) + 8*L_pow6*r_pow2*(60*M_pow3 + 40*M_pow2*r - 89*M*r_pow2 + 27*r_pow3)) - a_pow2*r_pow5*(84*L_pow8*M*(24*M_pow3 - 8*M_pow2*r - 16*M*r_pow2 + 7*r_pow3) + L_pow4*r_pow4*(28312*M_pow4 - 9652*M_pow3*r - 16868*M_pow2*r_pow2 + 8763*M*r_pow3 - 705*r_pow4) + L_pow2*r_pow6*(-4960*M_pow4 + 12892*M_pow3*r - 12012*M_pow2*r_pow2 + 4225*M*r_pow3 - 393*r_pow4) + 8*L_pow6*r_pow2*(1704*M_pow4 - 800*M_pow3*r - 618*M_pow2*r_pow2 + 279*M*r_pow3 + 9*r_pow4) + r_pow8*(-3800*M_pow4 + 4120*M_pow3*r - 988*M_pow2*r_pow2 - 140*M*r_pow3 + 39*r_pow4)) - 2*a_pow12*M*(r_pow2*(-1704*M_pow4 - 2260*M_pow3*r - 291*M_pow2*r_pow2 + 777*M*r_pow3 + 292*r_pow4) + L_pow2*(-424*M_pow4 + 114*M_pow3*r + 1483*M_pow2*r_pow2 + 1437*M*r_pow3 + 348*r_pow4)) + a_pow4*r_pow3*(84*L_pow8*M*(8*M_pow3 + 12*M_pow2*r + 12*M*r_pow2 - 11*r_pow3) + 8*L_pow6*r*(-1512*M_pow5 - 2028*M_pow4*r + 2570*M_pow3*r_pow2 + 753*M_pow2*r_pow3 - 747*M*r_pow4 + 18*r_pow5) + 3*L_pow2*r_pow5*(20616*M_pow5 - 18384*M_pow4*r - 1582*M_pow3*r_pow2 + 8276*M_pow2*r_pow3 - 2971*M*r_pow4 + 27*r_pow5) - 2*r_pow7*(-4692*M_pow5 + 1428*M_pow4*r + 4955*M_pow3*r_pow2 - 2627*M_pow2*r_pow3 + 67*M*r_pow4 + 48*r_pow5) + L_pow4*r_pow3*(26624*M_pow5 - 85344*M_pow4*r + 49736*M_pow3*r_pow2 + 20984*M_pow2*r_pow3 - 14997*M*r_pow4 + 357*r_pow5)) - a_pow10*r*(2*L_pow4*M*(-1088*M_pow3 - 185*M_pow2*r + 2022*M*r_pow2 + 744*r_pow3) + 4*L_pow2*M*(1448*M_pow5 + 260*M_pow4*r - 2907*M_pow3*r_pow2 - 2064*M_pow2*r_pow3 + 1980*M*r_pow4 + 951*r_pow5) + r_pow2*(6512*M_pow6 + 7096*M_pow5*r - 4712*M_pow4*r_pow2 - 8024*M_pow3*r_pow3 - 76*M_pow2*r_pow4 + 1376*M*r_pow5 + 15*r_pow6)) - a_pow6*r_pow3*(420*L_pow8*M*r + 8*L_pow6*M*(126*M_pow3 - 2013*M_pow2*r + 103*M*r_pow2 + 634*r_pow3) + L_pow4*(-2944*M_pow6 + 936*M_pow5*r + 46448*M_pow4*r_pow2 - 69710*M_pow3*r_pow3 - 5496*M_pow2*r_pow4 + 14885*M*r_pow5 - 3*r_pow6) + 2*r_pow4*(-3208*M_pow6 - 2964*M_pow5*r + 9382*M_pow4*r_pow2 + 1465*M_pow3*r_pow3 - 4299*M_pow2*r_pow4 + 516*M*r_pow5 + 57*r_pow6) + L_pow2*r_pow2*(-22480*M_pow6 - 15008*M_pow5*r + 88556*M_pow4*r_pow2 - 38160*M_pow3*r_pow3 - 18388*M_pow2*r_pow4 + 12571*M*r_pow5 + 285*r_pow6)) - a_pow8*r*(-24*L_pow6*M*r*(103*M_pow2 - 72*M*r - 55*r_pow2) + 2*L_pow4*M*(-1344*M_pow5 + 944*M_pow4*r - 2288*M_pow3*r_pow2 - 13694*M_pow2*r_pow3 + 4009*M*r_pow4 + 3684*r_pow5) + r_pow3*(-4288*M_pow7 - 3808*M_pow6*r + 11128*M_pow5*r_pow2 + 12384*M_pow4*r_pow3 - 9224*M_pow3*r_pow4 - 5518*M_pow2*r_pow5 + 1705*M*r_pow6 + 66*r_pow7) + L_pow2*r*(-8576*M_pow7 - 784*M_pow6*r + 25432*M_pow5*r_pow2 + 18244*M_pow4*r_pow3 - 40484*M_pow3*r_pow4 + 2226*M_pow2*r_pow5 + 9739*M*r_pow6 + 156*r_pow7)) - 24*a*E_pow3*L*M_pow2*r*pow(r_pow3 + a_pow2*twoM_plus_r,2)*(7*L_pow4*r_pow4 - 20*L_pow2*r_pow6 + 15*r_pow8 + 7*a_pow6*twoM_plus_r_pow2 + a_pow4*r_pow2*(60*M_pow2 + 88*M*r + 29*r_pow2) + a_pow2*r_pow2*(7*L_pow4 - 20*L_pow2*r*twoM_plus_r + r_pow3*(60*M + 37*r))) - 2*a*E*L*M*(a_pow12*(848*M_pow4 + 766*M_pow3*r - 297*M_pow2*r_pow2 - 630*M*r_pow3 - 198*r_pow4) - r_pow8*(42*L_pow6*(24*M_pow2 - 26*M*r + 7*r_pow2) + 6*L_pow4*r_pow2*(384*M_pow2 - 282*M*r + 41*r_pow2) + r_pow6*(2536*M_pow2 - 2834*M*r + 789*r_pow2) + L_pow2*r_pow4*(13072*M_pow2 - 12842*M*r + 3135*r_pow2)) - a_pow2*r_pow5*(42*L_pow6*(40*M_pow3 - 16*M_pow2*r - 44*M*r_pow2 + 19*r_pow3) + 12*L_pow4*r_pow2*(2012*M_pow3 - 668*M_pow2*r - 694*M*r_pow2 + 259*r_pow3) + 2*r_pow6*(-5654*M_pow3 + 5449*M_pow2*r - 4214*M*r_pow2 + 1550*r_pow3) + L_pow2*r_pow4*(37908*M_pow3 + 1406*M_pow2*r - 30896*M*r_pow2 + 9865*r_pow3)) + a_pow4*r_pow3*(42*L_pow6*(24*M_pow3 + 32*M_pow2*r + 18*M*r_pow2 - 17*r_pow3) + L_pow2*r_pow3*(26148*M_pow4 - 60824*M_pow3*r + 34045*M_pow2*r_pow2 + 30402*M*r_pow3 - 12737*r_pow4) - 24*L_pow4*r*(584*M_pow4 + 920*M_pow3*r - 905*M_pow2*r_pow2 - 276*M*r_pow3 + 222*r_pow4) - 3*r_pow5*(-12796*M_pow4 + 1784*M_pow3*r + 6405*M_pow2*r_pow2 - 3844*M*r_pow3 + 1742*r_pow4)) + a_pow6*r_pow3*(-210*L_pow6*r - 12*L_pow4*(84*M_pow3 - 1212*M_pow2*r - 106*M*r_pow2 + 257*r_pow3) + L_pow2*(5824*M_pow5 + 9644*M_pow4*r - 30596*M_pow3*r_pow2 + 43501*M_pow2*r_pow3 + 13218*M*r_pow4 - 9025*r_pow5) + 2*r_pow2*(7772*M_pow5 + 9704*M_pow4*r - 18403*M_pow3*r_pow2 - 3599*M_pow2*r_pow3 + 4315*M*r_pow4 - 2583*r_pow5)) - a_pow10*r*(L_pow2*(-2176*M_pow3 - 2181*M_pow2*r + 882*M*r_pow2 + 606*r_pow3) + 2*(2896*M_pow5 + 2904*M_pow4*r + 15*M_pow3*r_pow2 - 936*M_pow2*r_pow3 + 873*M*r_pow4 + 627*r_pow5)) + a_pow8*r*(-6*L_pow4*r*(-412*M_pow2 + 42*M*r + 103*r_pow2) + L_pow2*(4032*M_pow5 + 800*M_pow4*r + 752*M_pow3*r_pow2 + 17919*M_pow2*r_pow3 - 12*M*r_pow4 - 3624*r_pow5) + r*(8576*M_pow6 + 6536*M_pow5*r - 9924*M_pow4*r_pow2 - 16798*M_pow3*r_pow3 + 5824*M_pow2*r_pow4 + 1576*M*r_pow5 - 3307*r_pow6))) + 2*E_pow2*M*(a_pow14*twoM_plus_r_pow2*(106*M_pow2 + 114*M*r + 45*r_pow2) + r_pow13*((44*M - 25*r)*r_pow4 + 2*L_pow2*r_pow2*(M + 4*r) + L_pow4*(-126*M + 75*r)) + a_pow2*r_pow8*(-168*L_pow6*M*(M - 2*r) + r_pow6*(2060*M_pow2 - 986*M*r - 71*r_pow2) + 2*L_pow2*r_pow4*(-5572*M_pow2 + 3056*M*r + 31*r_pow2) + 3*L_pow4*r_pow2*(-704*M_pow2 + 60*M*r + 67*r_pow2)) + a_pow12*r*twoM_plus_r*(-1448*M_pow4 - 1920*M_pow3*r - 578*M_pow2*r_pow2 + 510*M*r_pow3 + 279*r_pow4 + L_pow2*(544*M_pow2 + 726*M*r + 90*r_pow2)) + a_pow4*r_pow5*(-336*L_pow6*M*(M_pow2 - 3*M*r - 2*r_pow2) + 6*L_pow4*r_pow2*(-3172*M_pow3 - 386*M_pow2*r + 558*M*r_pow2 + 33*r_pow3) + r_pow6*(8708*M_pow3 + 1338*M_pow2*r - 4260*M*r_pow2 + 65*r_pow3) + 2*L_pow2*r_pow4*(-6600*M_pow3 - 5466*M_pow2*r + 9107*M*r_pow2 + 129*r_pow3)) + a_pow6*r_pow3*(168*L_pow6*M*(6*M_pow2 + 7*M*r + 2*r_pow2) + 6*L_pow4*r*(-1648*M_pow4 - 2808*M_pow3*r + 1098*M_pow2*r_pow2 + 916*M*r_pow3 + 23*r_pow4) + 4*L_pow2*r_pow3*(5452*M_pow4 - 2096*M_pow3*r + 1484*M_pow2*r_pow2 + 5272*M*r_pow3 + 143*r_pow4) + r_pow5*(12592*M_pow4 + 11656*M_pow3*r - 8738*M_pow2*r_pow2 - 6238*M*r_pow3 + 515*r_pow4)) + a_pow8*r_pow3*(L_pow4*(-504*M_pow3 + 6492*M_pow2*r + 3066*M*r_pow2 + 111*r_pow3) + 2*L_pow2*(3616*M_pow5 + 9280*M_pow4*r - 2280*M_pow3*r_pow2 + 5428*M_pow2*r_pow3 + 6439*M*r_pow4 + 334*r_pow5) + r_pow2*(8272*M_pow5 + 13544*M_pow4*r - 4864*M_pow3*r_pow2 - 14292*M_pow2*r_pow3 - 3380*M*r_pow4 + 865*r_pow5)) + a_pow10*r*(3*L_pow4*r*(412*M_pow2 + 204*M*r + 15*r_pow2) + L_pow2*(4032*M_pow5 + 4432*M_pow4*r + 480*M_pow3*r_pow2 + 7128*M_pow2*r_pow3 + 4800*M*r_pow4 + 390*r_pow5) + r*(4288*M_pow6 + 6144*M_pow5*r - 2904*M_pow4*r_pow2 - 11768*M_pow3*r_pow3 - 6576*M_pow2*r_pow4 + 402*M*r_pow5 + 695*r_pow6))))*ur_pow2 + (-48*E_pow2*M*r_pow5*pow(r_pow3 + a_pow2*twoM_plus_r,2)*(a_pow10*twoM_plus_r_pow4*(23*M + 4*r) + r_pow7*(-7*L_pow8 - 37*L_pow6*r_pow2 - 20*L_pow4*r_pow4 + 15*L_pow2*r_pow6 + 5*r_pow8) + a_pow8*r*twoM_plus_r_pow3*(5*L_pow2*(4*M + r) + 3*r_pow2*(34*M + 7*r)) + a_pow6*r_pow2*twoM_plus_r_pow2*(30*L_pow2*r_pow2*(3*M + r) - L_pow4*(43*M + 9*r) + 2*r_pow4*(89*M + 22*r)) - a_pow2*r_pow4*(7*L_pow8*(6*M + r) - 10*L_pow2*r_pow6*(11*M + 5*r) - 3*r_pow8*(21*M + 8*r) + 6*L_pow6*r_pow2*(26*M + 9*r) + L_pow4*r_pow4*(123*M + 49*r)) + a_pow4*r_pow3*(30*L_pow2*r_pow4*(10*M_pow2 + 9*M*r + 2*r_pow2) - L_pow6*(164*M_pow2 + 116*M*r + 17*r_pow2) - 2*L_pow4*r_pow2*(126*M_pow2 + 101*M*r + 19*r_pow2) + 2*r_pow6*(152*M_pow2 + 122*M*r + 23*r_pow2))) + 8*a*E*L*M*r_pow5*(a_pow14*twoM_plus_r_pow3*(455*M_pow2 + 528*M*r + 90*r_pow2) - 3*r_pow10*(L_pow2 + r_pow2)*(28*L_pow6*(7*M - 3*r) + 4*L_pow4*(121*M - 24*r)*r_pow2 + 3*L_pow2*(766*M - 393*r)*r_pow4 + r_pow6*(-622*M + 261*r)) - a_pow2*r_pow7*(3*L_pow4*r_pow4*(5048*M_pow2 + 4816*M*r - 4155*r_pow2) + 12*L_pow2*r_pow6*(882*M_pow2 + 506*M*r - 885*r_pow2) + 8*L_pow6*r_pow2*(1626*M_pow2 + 545*M*r - 430*r_pow2) + 42*L_pow8*(52*M_pow2 + 14*M*r - 17*r_pow2) + r_pow8*(-9528*M_pow2 - 3932*M*r + 3403*r_pow2)) + a_pow4*r_pow4*(r_pow8*(15702*M_pow3 + 26705*M_pow2*r + 2378*M*r_pow2 - 5662*r_pow3) - 9*L_pow4*r_pow4*(314*M_pow3 + 4031*M_pow2*r + 480*M*r_pow2 - 1871*r_pow3) - 84*L_pow8*(24*M_pow3 + 24*M_pow2*r - 5*M*r_pow2 - 8*r_pow3) + 4*L_pow6*r_pow2*(-2478*M_pow3 - 4789*M_pow2*r + 410*M*r_pow2 + 1385*r_pow3) + 6*L_pow2*r_pow6*(3154*M_pow3 - 2365*M_pow2*r + 1258*M*r_pow2 + 2812*r_pow3)) + a_pow12*twoM_plus_r_pow2*(4416*M_pow5 + 6244*M_pow4*r + 3450*M_pow3*r_pow2 + 480*r_pow3*(L_pow2 + r_pow2) + 3*M_pow2*(546*L_pow2*r + 1895*r_pow3) + 2*M*(708*L_pow2*r_pow2 + 1903*r_pow4)) + a_pow6*r_pow3*(210*L_pow8*r*twoM_plus_r + r_pow6*(17028*M_pow4 + 47594*M_pow3*r + 43235*M_pow2*r_pow2 + 4724*M*r_pow3 - 4188*r_pow4) - 8*L_pow6*(984*M_pow4 + 1349*M_pow3*r + 866*M_pow2*r_pow2 - 640*M*r_pow3 - 420*r_pow4) + 12*L_pow2*r_pow4*(3644*M_pow4 + 2295*M_pow3*r - 633*M_pow2*r_pow2 + 1737*M*r_pow3 + 1243*r_pow4) + 3*L_pow4*r_pow2*(-5324*M_pow4 - 11178*M_pow3*r - 10197*M_pow2*r_pow2 + 3728*M*r_pow3 + 4161*r_pow4)) + a_pow10*r*twoM_plus_r*(9*L_pow4*r*(147*M_pow2 + 232*M*r + 100*r_pow2) + 12*L_pow2*(320*M_pow5 + 126*M_pow4*r + 299*M_pow3*r_pow2 + 681*M_pow2*r_pow3 + 697*M*r_pow4 + 248*r_pow5) + r_pow2*(26520*M_pow5 + 34088*M_pow4*r + 29368*M_pow3*r_pow2 + 27858*M_pow2*r_pow3 + 11050*M*r_pow4 + 749*r_pow5)) + a_pow8*r_pow2*(20*L_pow6*r*(49*M_pow2 + 102*M*r + 36*r_pow2) - 3*L_pow4*(2752*M_pow5 + 6020*M_pow4*r + 5370*M_pow3*r_pow2 - 673*M_pow2*r_pow3 - 4430*M*r_pow4 - 1728*r_pow5) + r_pow4*(39720*M_pow5 + 69040*M_pow4*r + 85348*M_pow3*r_pow2 + 57890*M_pow2*r_pow3 + 12302*M*r_pow4 - 787*r_pow5) + 6*L_pow2*r_pow2*(1896*M_pow5 + 3772*M_pow4*r + 786*M_pow3*r_pow2 + 1948*M_pow2*r_pow3 + 3872*M*r_pow4 + 1401*r_pow5))) - 4*r_pow5*(-3*a_pow16*M*twoM_plus_r_pow3*(208*M_pow2 + 213*M*r + 58*r_pow2) + r_pow10*(L_pow2 + r_pow2)*(-168*L_pow8*M*twoM_minus_r + L_pow4*r_pow4*(-6320*M_pow2 + 5584*M*r - 1191*r_pow2) + r_pow8*(274*M_pow2 - 209*M*r + 33*r_pow2) + 6*L_pow6*r_pow2*(-126*M_pow2 - 29*M*r + 48*r_pow2) + L_pow2*r_pow6*(422*M_pow2 - 331*M*r + 66*r_pow2)) + a_pow2*r_pow7*(-168*L_pow10*M*(4*M_pow2 + 10*M*r - 7*r_pow2) + 6*L_pow4*r_pow6*(106*M_pow3 - 3394*M_pow2*r + 2914*M*r_pow2 - 507*r_pow3) + 24*L_pow8*r_pow2*(-259*M_pow3 - 358*M_pow2*r + 254*M*r_pow2 + 9*r_pow3) + 2*r_pow10*(654*M_pow3 + 544*M_pow2*r - 642*M*r_pow2 + 69*r_pow3) + 3*L_pow2*r_pow8*(6024*M_pow3 - 2434*M_pow2*r - 613*M*r_pow2 + 186*r_pow3) - L_pow6*r_pow4*(9576*M_pow3 + 24934*M_pow2*r - 19935*M*r_pow2 + 1734*r_pow3)) + a_pow14*M*twoM_plus_r_pow2*(2*L_pow2*(910*M_pow3 + 1118*M_pow2*r + 297*M*r_pow2 + 72*r_pow3) + r*(3028*M_pow4 + 984*M_pow3*r - 6177*M_pow2*r_pow2 - 5713*M*r_pow3 - 1410*r_pow4)) - a_pow4*r_pow4*(168*L_pow10*M*(12*M_pow3 + 10*M_pow2*r + 3*M*r_pow2 - 11*r_pow3) + r_pow10*(-1554*M_pow4 - 11387*M_pow3*r + 636*M_pow2*r_pow2 + 4425*M*r_pow3 - 195*r_pow4) + 4*L_pow8*r_pow2*(-456*M_pow4 + 7408*M_pow3*r + 922*M_pow2*r_pow2 - 3471*M*r_pow3 + 18*r_pow4) - 2*L_pow2*r_pow8*(28410*M_pow4 + 12541*M_pow3*r - 15944*M_pow2*r_pow2 - 750*M*r_pow3 + 621*r_pow4) + L_pow6*r_pow4*(-43680*M_pow4 + 84652*M_pow3*r + 19116*M_pow2*r_pow2 - 40032*M*r_pow3 + 759*r_pow4) + 3*L_pow4*r_pow6*(-21902*M_pow4 + 20675*M_pow3*r + 9406*M_pow2*r_pow2 - 12004*M*r_pow3 + 792*r_pow4)) + a_pow6*r_pow3*(840*L_pow10*M*r*(M + r) - 8*L_pow8*M*(984*M_pow4 + 1018*M_pow3*r + 2320*M_pow2*r_pow2 - 1561*M*r_pow3 - 1461*r_pow4) + 3*L_pow4*r_pow4*(30352*M_pow5 + 424*M_pow4*r - 44145*M_pow3*r_pow2 + 7001*M_pow2*r_pow3 + 16410*M*r_pow4 - 42*r_pow5) + r_pow8*(-584*M_pow5 + 33792*M_pow4*r + 23599*M_pow3*r_pow2 - 14965*M_pow2*r_pow3 - 9754*M*r_pow4 + 60*r_pow5) + L_pow6*r_pow2*(5960*M_pow5 - 36092*M_pow4*r - 102524*M_pow3*r_pow2 + 34738*M_pow2*r_pow3 + 42343*M*r_pow4 + 72*r_pow5) + 2*L_pow2*r_pow6*(21096*M_pow5 + 51566*M_pow4*r - 7024*M_pow3*r_pow2 - 22751*M_pow2*r_pow3 + 615*M*r_pow4 + 684*r_pow5)) + a_pow8*r_pow2*(2*L_pow8*M*r*(980*M_pow2 + 3834*M*r + 1593*r_pow2) - 4*L_pow6*M*(2064*M_pow5 + 4470*M_pow4*r + 11488*M_pow3*r_pow2 + 2032*M_pow2*r_pow3 - 12362*M*r_pow4 - 5295*r_pow5) - r_pow6*(1920*M_pow6 - 53056*M_pow5*r - 77216*M_pow4*r_pow2 + 4276*M_pow3*r_pow3 + 40613*M_pow2*r_pow4 + 13305*M*r_pow5 + 105*r_pow6) + 3*L_pow4*r_pow2*(7528*M_pow6 + 7556*M_pow5*r - 30206*M_pow4*r_pow2 - 14523*M_pow3*r_pow3 + 23525*M_pow2*r_pow4 + 12137*M*r_pow5 + 111*r_pow6) + L_pow2*r_pow4*(13968*M_pow6 + 82608*M_pow5*r + 80520*M_pow4*r_pow2 - 32792*M_pow3*r_pow3 - 28980*M_pow2*r_pow4 + 2544*M*r_pow5 + 747*r_pow6)) + a_pow12*twoM_plus_r*(3*L_pow4*M*r*(2184*M_pow3 + 3904*M_pow2*r + 2915*M*r_pow2 + 772*r_pow3) + 2*L_pow2*M*(4416*M_pow6 + 5096*M_pow5*r + 1336*M_pow4*r_pow2 + 5924*M_pow3*r_pow3 + 2979*M_pow2*r_pow4 + 166*M*r_pow5 + 264*r_pow6) - r_pow2*(1744*M_pow7 - 6864*M_pow6*r - 26848*M_pow5*r_pow2 - 8124*M_pow4*r_pow3 + 26685*M_pow3*r_pow4 + 22780*M_pow2*r_pow5 + 5225*M*r_pow6 + 27*r_pow7)) + a_pow10*r*(12*L_pow6*M*r*(441*M_pow3 + 1619*M_pow2*r + 1446*M*r_pow2 + 362*r_pow3) + 3*L_pow4*M*(2560*M_pow6 - 2464*M_pow5*r - 10580*M_pow4*r_pow2 - 5520*M_pow3*r_pow3 + 14581*M_pow2*r_pow4 + 16399*M*r_pow5 + 4426*r_pow6) - 2*r_pow4*(1488*M_pow7 - 21968*M_pow6*r - 51900*M_pow5*r_pow2 - 16752*M_pow4*r_pow3 + 30959*M_pow3*r_pow4 + 25329*M_pow2*r_pow5 + 5472*M*r_pow6 + 51*r_pow7) + L_pow2*r_pow2*(55680*M_pow7 + 67504*M_pow6*r + 79600*M_pow5*r_pow2 + 45840*M_pow4*r_pow3 - 10300*M_pow3*r_pow4 - 7150*M_pow2*r_pow5 + 1497*M*r_pow6 + 162*r_pow7))))*ur_pow4 + 24*r_pow7*(a_pow14*M*twoM_plus_r_pow3*(147*M_pow2 + 154*M*r + 40*r_pow2) + r_pow11*(-14*L_pow8*M + 30*L_pow2*(5*M - 2*r)*r_pow6 + r_pow8*(8*M + r) - 2*L_pow6*r_pow2*(17*M + 10*r) + L_pow4*r_pow4*(-298*M + 129*r)) + a_pow12*M*r*twoM_plus_r_pow2*(-220*M_pow4 + 1138*M_pow2*r_pow2 + 1051*M*r_pow3 + 254*r_pow4 + 10*L_pow2*(14*M_pow2 + 14*M*r + 5*r_pow2)) + a_pow2*r_pow8*(14*L_pow8*M*(2*M - 7*r) - 4*L_pow6*r_pow3*(103*M + 5*r) + 60*L_pow2*r_pow6*(3*M_pow2 + 7*M*r - 3*r_pow2) + r_pow8*(48*M_pow2 + 101*M*r + 4*r_pow2) + L_pow4*r_pow4*(244*M_pow2 - 681*M*r + 258*r_pow2)) + a_pow4*r_pow5*(4*L_pow6*M*r_pow2*(192*M_pow2 - 175*M*r - 208*r_pow2) + 14*L_pow8*M*(8*M_pow2 - 8*M*r - 11*r_pow2) + r_pow8*(-18*M_pow3 + 695*M_pow2*r + 410*M*r_pow2 + 6*r_pow3) - 10*L_pow2*r_pow6*(96*M_pow3 - 96*M_pow2*r - 89*M*r_pow2 + 18*r_pow3) + 3*L_pow4*r_pow4*(418*M_pow3 - 131*M_pow2*r - 416*M*r_pow2 + 43*r_pow3)) - a_pow6*r_pow4*(70*L_pow8*M*twoM_plus_r + 4*L_pow6*M*(-46*M_pow3 + 23*M_pow2*r + 345*M*r_pow2 + 166*r_pow3) + L_pow4*M*r_pow2*(482*M_pow3 + 513*M_pow2*r + 1992*M*r_pow2 + 1219*r_pow3) + 20*L_pow2*r_pow4*(66*M_pow4 - 3*M_pow3*r - 149*M_pow2*r_pow2 - 67*M*r_pow3 + 3*r_pow4) - r_pow6*(-730*M_pow4 + 1635*M_pow3*r + 2658*M_pow2*r_pow2 + 838*M*r_pow3 + 4*r_pow4)) - a_pow10*M*r_pow2*twoM_plus_r*(3*L_pow4*(119*M_pow2 + 98*M*r + 30*r_pow2) + 20*L_pow2*(12*M_pow4 - 37*M_pow2*r_pow2 - 46*M*r_pow3 - 16*r_pow4) - r_pow2*(-1116*M_pow4 + 188*M_pow3*r + 3682*M_pow2*r_pow2 + 3010*M*r_pow3 + 677*r_pow4)) + a_pow8*r_pow3*(-10*L_pow6*M*(42*M_pow2 + 56*M*r + 17*r_pow2) + 30*L_pow2*M*r_pow3*(16*M_pow3 + 106*M_pow2*r + 114*M*r_pow2 + 33*r_pow3) + L_pow4*M*(740*M_pow4 - 1164*M_pow2*r_pow2 - 1313*M*r_pow3 - 444*r_pow4) + r_pow4*(-2028*M_pow5 + 1132*M_pow4*r + 6548*M_pow3*r_pow2 + 4702*M_pow2*r_pow3 + 984*M*r_pow4 + r_pow5)))*ur_pow6)/(3.*r_pow7*pow(a_pow2 + r*r_minus_twoM,4)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3));
A3220 = (4*r_pow2*(-2*a*E*L*M*(a_pow2 + 3*r_pow2)*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2) - (a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(a_pow4*(3*M + 2*r) + r_pow2*(r_pow2*(-5*M + 2*r) + L_pow2*(-7*M + 3*r)) - 2*a_pow2*(L_pow2*(M - r) + r*(2*M_pow2 + M*r - 2*r_pow2))) + r_pow2*(-(a_pow8*twoM_plus_r_pow3) + r_pow6*(L_pow2 + r_pow2)*(L_pow2*(7*M - 3*r) + M*r_pow2) - a_pow6*r*twoM_plus_r*(-4*M_pow3 - 4*M_pow2*r + 5*M*r_pow2 + 3*r_pow3 + L_pow2*(M + 2*r)) + a_pow2*r_pow3*(L_pow2*r_pow2*(14*M_pow2 + 7*M*r - 8*r_pow2) + r_pow4*(6*M_pow2 + 3*M*r - r_pow2) - 4*L_pow4*(M_pow2 - M*r + r_pow2)) - a_pow4*r_pow2*(L_pow4*(-M + r) + 3*r_pow2*(-4*M_pow3 - 4*M_pow2*r + M*r_pow2 + r_pow3) + L_pow2*(4*M_pow3 - 8*M_pow2*r + 6*M*r_pow2 + 7*r_pow3)))*ur_pow2 + r_pow4*(r_pow3 + a_pow2*twoM_plus_r)*(2*r_pow6 + a_pow4*(2*M_pow2 + 3*M*r + r_pow2) + a_pow2*r*(L_pow2*(3*M + r) + r_pow2*(5*M + 3*r)))*ur_pow4))/(pow(a_pow2 + r*r_minus_twoM,3)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2));
A3221 = (ur*(4*E_pow2*L*M*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(15*a_pow8*M*twoM_plus_r + 2*r_pow8*(L_pow2 + 3*r_pow2) + 3*a_pow6*r*(-(L_pow2*M) + 16*M_pow3 + 84*M_pow2*r + 47*M*r_pow2 + 2*r_pow3) + a_pow2*r_pow5*(9*r_pow2*(19*M + 2*r) + L_pow2*(-19*M + 4*r)) + a_pow4*r_pow2*(2*L_pow2*(4*M_pow2 - 5*M*r + r_pow2) + 9*r_pow2*(38*M_pow2 + 33*M*r + 2*r_pow2))) + 2*a*E*M*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(a_pow8*(146*M_pow2 + 163*M*r + 45*r_pow2) + r_pow5*(L_pow4*(89*M - 66*r) + 6*r_pow4*(-44*M + 25*r) + 3*L_pow2*r_pow2*(-125*M + 56*r)) - a_pow2*r_pow2*(r_pow4*(750*M_pow2 + 115*M*r - 437*r_pow2) + 3*L_pow2*r_pow2*(444*M_pow2 + 125*M*r - 108*r_pow2) + L_pow4*(32*M_pow2 - 23*M*r + 9*r_pow2)) + a_pow6*(L_pow2*(-120*M_pow2 + 87*M*r + 60*r_pow2) + r*(-340*M_pow3 - 30*M_pow2*r + 507*M*r_pow2 + 227*r_pow3)) + a_pow4*r*(3*L_pow4*(4*M + 5*r) - 3*L_pow2*(64*M_pow3 + 364*M_pow2*r + 19*M*r_pow2 - 72*r_pow3) + r_pow2*(-444*M_pow3 - 694*M_pow2*r + 493*M*r_pow2 + 469*r_pow3))) - 2*L*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(a_pow8*M*(146*M_pow2 + 126*M*r + 21*r_pow2) + r_pow5*(L_pow2*M*r_pow2*(-38*M + 25*r) - 3*r_pow4*(22*M_pow2 - 22*M*r + 5*r_pow2) + L_pow4*(40*M_pow2 - 53*M*r + 18*r_pow2)) - a_pow2*r_pow2*(L_pow4*(16*M_pow3 - 3*M_pow2*r + 2*M*r_pow2 + 3*r_pow3) + L_pow2*r_pow2*(688*M_pow3 - 207*M_pow2*r - 86*M*r_pow2 + 6*r_pow3) + 3*r_pow4*(188*M_pow3 - 68*M_pow2*r - 43*M*r_pow2 + 11*r_pow3)) + a_pow4*r*(3*L_pow4*M*(2*M + 5*r) + r_pow2*(-468*M_pow4 - 458*M_pow3*r + 532*M_pow2*r_pow2 + 129*M*r_pow3 - 21*r_pow4) + L_pow2*(-96*M_pow4 - 588*M_pow3*r + 254*M_pow2*r_pow2 + 85*M*r_pow3 - 6*r_pow4)) + a_pow6*(3*L_pow2*M*(-20*M_pow2 + 39*M*r + 12*r_pow2) + r*(-340*M_pow4 + 92*M_pow3*r + 436*M_pow2*r_pow2 + 87*M*r_pow3 - 3*r_pow4))) + 2*r_pow2*(4*E_pow2*L*M*pow(r_pow3 + a_pow2*twoM_plus_r,2)*(3*a_pow4 + 4*r_pow4 + a_pow2*r*(2*M + 7*r))*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2) + a*E*M*(a_pow12*twoM_plus_r_pow3*(31*M + 15*r) + 2*r_pow9*(L_pow2 + r_pow2)*(9*r_pow4*r_minus_twoM + L_pow4*(-62*M + 15*r) + L_pow2*r_pow2*(-350*M + 159*r)) - a_pow2*r_pow6*(L_pow2*r_pow4*(3062*M_pow2 + 839*M*r - 1265*r_pow2) + L_pow4*r_pow2*(2154*M_pow2 + 1025*M*r - 1015*r_pow2) + L_pow6*(478*M_pow2 + 211*M*r - 127*r_pow2) + r_pow6*(306*M_pow2 + 25*M*r - 107*r_pow2)) - a_pow10*twoM_plus_r_pow2*(L_pow2*(96*M_pow2 - 25*M*r - 75*r_pow2) - r*(-124*M_pow3 + 30*M_pow2*r + 239*M*r_pow2 + 95*r_pow3)) + a_pow4*r_pow3*(-2*L_pow6*(32*M_pow3 + 229*M_pow2*r - 5*M*r_pow2 - 71*r_pow3) + r_pow6*(-972*M_pow3 - 698*M_pow2*r + 397*M*r_pow2 + 263*r_pow3) + 2*L_pow2*r_pow4*(-1740*M_pow3 - 2541*M_pow2*r + 650*M*r_pow2 + 927*r_pow3) + L_pow4*r_pow2*(-1140*M_pow3 - 3098*M_pow2*r + 143*M*r_pow2 + 1091*r_pow3)) - a_pow8*r*twoM_plus_r*(L_pow4*(192*M_pow2 - 47*M*r - 105*r_pow2) + 2*L_pow2*(64*M_pow4 + 434*M_pow3*r + 555*M_pow2*r_pow2 - 228*M*r_pow3 - 241*r_pow4) - 2*r_pow2*(-180*M_pow4 - 416*M_pow3*r + 56*M_pow2*r_pow2 + 359*M*r_pow3 + 124*r_pow4)) + a_pow6*r_pow2*(L_pow6*(-96*M_pow2 + 53*M*r + 45*r_pow2) + 2*r_pow4*(-684*M_pow4 - 1020*M_pow3*r + 78*M_pow2*r_pow2 + 551*M*r_pow3 + 171*r_pow4) + L_pow4*(-256*M_pow4 - 1724*M_pow3*r - 1578*M_pow2*r_pow2 + 601*M*r_pow3 + 529*r_pow4) + 2*L_pow2*r_pow2*(-364*M_pow4 - 2526*M_pow3*r - 1261*M_pow2*r_pow2 + 1249*M*r_pow3 + 666*r_pow4))) - L*(a_pow12*twoM_plus_r_pow2*(62*M_pow3 + 213*M_pow2*r + 120*M*r_pow2 + 9*r_pow3) - twoM_minus_r*r_pow9*(L_pow2 + r_pow2)*(L_pow2*(192*M - 85*r)*r_pow2 + 2*(44*M - 21*r)*r_pow4 + 2*L_pow4*(7*M + r)) - a_pow2*r_pow6*(L_pow6*(222*M_pow3 + 57*M_pow2*r - 76*M*r_pow2 - 5*r_pow3) + L_pow4*r_pow2*(1110*M_pow3 + 337*M_pow2*r - 780*M*r_pow2 + 163*r_pow3) + r_pow6*(538*M_pow3 + 51*M_pow2*r - 506*M*r_pow2 + 171*r_pow3) + L_pow2*r_pow4*(1786*M_pow3 + 151*M_pow2*r - 1300*M*r_pow2 + 384*r_pow3)) + a_pow4*r_pow3*(L_pow2*r_pow4*(-420*M_pow4 - 4134*M_pow3*r + 929*M_pow2*r_pow2 + 1674*M*r_pow3 - 363*r_pow4) + r_pow6*(204*M_pow4 - 1622*M_pow3*r + 453*M_pow2*r_pow2 + 700*M*r_pow3 - 255*r_pow4) + 2*L_pow4*r_pow2*(96*M_pow4 - 1205*M_pow3*r + 46*M_pow2*r_pow2 + 502*M*r_pow3 - 25*r_pow4) - 2*L_pow6*(16*M_pow4 + 157*M_pow3*r - 6*M_pow2*r_pow2 - 67*M*r_pow3 - 6*r_pow4)) - a_pow10*twoM_plus_r*(L_pow2*(96*M_pow4 - 98*M_pow3*r - 650*M_pow2*r_pow2 - 342*M*r_pow3 - 27*r_pow4) + r*(248*M_pow5 + 1096*M_pow4*r + 148*M_pow3*r_pow2 - 1225*M_pow2*r_pow3 - 616*M*r_pow4 - 33*r_pow5)) + a_pow6*r_pow2*(L_pow6*(-48*M_pow3 + 101*M_pow2*r + 84*M*r_pow2 + 9*r_pow3) + 2*r_pow4*(820*M_pow5 - 1040*M_pow4*r - 1538*M_pow3*r_pow2 + 677*M_pow2*r_pow3 + 470*M*r_pow4 - 75*r_pow5) + L_pow2*r_pow2*(1760*M_pow5 - 3936*M_pow4*r - 4904*M_pow3*r_pow2 + 2569*M_pow2*r_pow3 + 1980*M*r_pow4 - 55*r_pow5) + L_pow4*(-128*M_pow5 - 1084*M_pow4*r - 1702*M_pow3*r_pow2 + 959*M_pow2*r_pow3 + 920*M*r_pow4 + 57*r_pow5)) + a_pow8*r*(L_pow4*(-192*M_pow4 + 190*M_pow3*r + 706*M_pow2*r_pow2 + 324*M*r_pow3 + 27*r_pow4) + 2*M*r_pow2*(488*M_pow5 - 540*M_pow4*r - 2628*M_pow3*r_pow2 - 542*M_pow2*r_pow3 + 1377*M*r_pow4 + 550*r_pow5) + L_pow2*(-128*M_pow6 - 1160*M_pow5*r - 4344*M_pow4*r_pow2 - 382*M_pow3*r_pow3 + 3383*M_pow2*r_pow4 + 1468*M*r_pow5 + 78*r_pow6))))*ur_pow2 - 2*L*r_pow5*(3*a_pow10*M*twoM_plus_r_pow2*(29*M + 14*r) + r_pow9*(L_pow4*(22*M - 3*r) + L_pow2*(134*M - 51*r)*r_pow2 + (22*M - 3*r)*r_pow4) + a_pow8*r*twoM_plus_r*(-220*M_pow4 + 24*M_pow3*r + 405*M_pow2*r_pow2 + 154*M*r_pow3 - 6*r_pow4 + 3*L_pow2*M*(43*M + 28*r)) + a_pow2*r_pow6*(6*L_pow2*r_pow2*(20*M_pow2 + 43*M*r - 19*r_pow2) + r_pow4*(104*M_pow2 + 100*M*r - 15*r_pow2) + L_pow4*(16*M_pow2 + 68*M*r - 9*r_pow2)) + a_pow6*r_pow2*(3*L_pow4*M*(29*M + 14*r) + r_pow2*(-376*M_pow4 + 384*M_pow3*r + 801*M_pow2*r_pow2 + 214*M*r_pow3 - 21*r_pow4) + L_pow2*(-260*M_pow4 + 48*M_pow3*r + 726*M_pow2*r_pow2 + 314*M*r_pow3 - 12*r_pow4)) + a_pow4*r_pow3*(3*r_pow4*(14*M_pow3 + 149*M_pow2*r + 64*M*r_pow2 - 9*r_pow3) + L_pow4*(-110*M_pow3 + 67*M_pow2*r + 82*M*r_pow2 - 6*r_pow3) + L_pow2*(-426*M_pow3*r_pow2 + 393*M_pow2*r_pow3 + 354*M*r_pow4 - 75*r_pow5)))*ur_pow4))/(3.*pow(a_pow2 + r*r_minus_twoM,4)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3));
A3240 = (24*a*E_pow3*L*M_pow2*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(3*a_pow8*M - 19*L_pow2*r_pow7 - 18*r_pow9 - 9*a_pow6*r*(8*M_pow2 + 5*M*r + 2*r_pow2) - a_pow2*r_pow4*(9*r_pow2*(-M + 6*r) + L_pow2*(38*M + 36*r)) - a_pow4*r_pow2*(17*L_pow2*twoM_plus_r + 9*r*(8*M_pow2 + 7*M*r + 6*r_pow2))) - 4*a*E*L*M*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(a_pow8*(226*M_pow2 + 57*M*r - 3*r_pow2) - r_pow4*(3*r_pow4*(84*M_pow2 - 104*M*r + 33*r_pow2) + L_pow2*r_pow2*(-314*M_pow2 + 83*M*r + 42*r_pow2) + L_pow4*(-240*M_pow2 + 22*M*r + 51*r_pow2)) + a_pow6*(3*L_pow2*(-18*M_pow2 + 8*M*r + r_pow2) + r*(124*M_pow3 + 981*M_pow2*r + 37*M*r_pow2 - 69*r_pow3)) + a_pow2*r_pow2*(L_pow4*(612*M_pow2 - 92*M*r - 45*r_pow2) + r_pow3*(-2250*M_pow3 + 955*M_pow2*r + 441*M*r_pow2 - 211*r_pow3) + L_pow2*r*(16*M_pow3 + 818*M_pow2*r - 370*M*r_pow2 - 45*r_pow3)) + a_pow4*r*(6*L_pow4*r + L_pow2*(1296*M_pow3 + 282*M_pow2*r - 371*M*r_pow2 - 60*r_pow3) + r*(-1008*M_pow4 - 1282*M_pow3*r + 2010*M_pow2*r_pow2 + 209*M*r_pow3 - 178*r_pow4))) + 2*E_pow2*M*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(2*a_pow10*(113*M_pow2 + 81*M*r + 9*r_pow2) + r_pow7*(L_pow4*(222*M - 113*r) + 4*L_pow2*(85*M - 46*r)*r_pow2 + 3*(44*M - 27*r)*r_pow4) + 2*a_pow2*r_pow4*(2*L_pow2*r_pow2*(127*M_pow2 + 243*M*r - 132*r_pow2) + 2*L_pow4*(231*M_pow2 + 101*M*r - 51*r_pow2) - 3*r_pow4*(194*M_pow2 - 166*M*r + 49*r_pow2)) + a_pow8*(-12*L_pow2*(9*M_pow2 - 2*M*r - 2*r_pow2) + r*(124*M_pow3 + 982*M_pow2*r + 686*M*r_pow2 + 3*r_pow3)) + a_pow4*r_pow2*(L_pow4*(1224*M_pow2 + 214*M*r - 85*r_pow2) + 4*L_pow2*r*(328*M_pow3 + 379*M_pow2*r + 21*M*r_pow2 - 120*r_pow3) - 6*r_pow3*(326*M_pow3 + 109*M_pow2*r - 293*M*r_pow2 + 63*r_pow3)) + 2*a_pow6*r*(3*L_pow4*r + 2*L_pow2*(648*M_pow3 + 273*M_pow2*r - 35*M*r_pow2 - 28*r_pow3) + r*(-504*M_pow4 - 828*M_pow3*r + 433*M_pow2*r_pow2 + 709*M*r_pow3 - 90*r_pow4))) - (a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(21*a_pow10*M*r*(7*M + 2*r) - twoM_minus_r*r_pow4*(2*L_pow6*M*(6*M - 5*r) + 3*r_pow6*(58*M_pow2 - 56*M*r + 13*r_pow2) + 2*L_pow4*r_pow2*(64*M_pow2 - 81*M*r + 24*r_pow2) + L_pow2*r_pow4*(152*M_pow2 - 167*M*r + 45*r_pow2)) + a_pow8*(L_pow2*(-452*M_pow3 + 96*M_pow2*r + 90*M*r_pow2) - 3*r_pow2*(179*M_pow3 - 70*M_pow2*r + 30*M*r_pow2 + 10*r_pow3)) + a_pow2*r_pow2*(2*L_pow6*M*(-408*M_pow2 + 194*M*r + 5*r_pow2) + 8*L_pow4*M*r*(104*M_pow3 - 219*M_pow2*r + 115*M*r_pow2 - 17*r_pow3) + L_pow2*r_pow3*(4696*M_pow4 - 5376*M_pow3*r + 2082*M_pow2*r_pow2 - 261*M*r_pow3 - 15*r_pow4) + 3*r_pow5*(464*M_pow4 - 748*M_pow3*r + 528*M_pow2*r_pow2 - 166*M*r_pow3 + 15*r_pow4)) + a_pow6*(12*L_pow4*M*(6*M_pow2 - 4*M*r + 3*r_pow2) - 3*r_pow3*(-192*M_pow4 + 210*M_pow3*r - 381*M_pow2*r_pow2 + 160*M*r_pow3 + 31*r_pow4) - 2*L_pow2*r*(124*M_pow4 + 980*M_pow3*r - 361*M_pow2*r_pow2 + 43*M*r_pow3 + 39*r_pow4)) - a_pow4*r*(12*L_pow6*M*r + 2*L_pow4*(864*M_pow4 + 12*M_pow3*r - 386*M_pow2*r_pow2 + 17*M*r_pow3 + 24*r_pow4) + 3*r_pow3*(60*M_pow5 - 92*M_pow4*r + 751*M_pow3*r_pow2 - 774*M_pow2*r_pow3 + 200*M*r_pow4 + 19*r_pow5) + 2*L_pow2*r*(-1008*M_pow5 - 908*M_pow4*r + 2650*M_pow3*r_pow2 - 1330*M_pow2*r_pow3 + 117*M*r_pow4 + 69*r_pow5))) + r_pow2*(-12*a_pow16*M*r*twoM_plus_r_pow3*(29*M + 25*r) - r_pow9*(L_pow2 + r_pow2)*(2*L_pow4*r_pow4*(6850*M_pow3 - 9193*M_pow2*r + 4018*M*r_pow2 - 567*r_pow3) + L_pow2*r_pow6*(4844*M_pow3 - 6696*M_pow2*r + 3067*M*r_pow2 - 465*r_pow3) + 4*L_pow6*r_pow2*(1978*M_pow3 - 2389*M_pow2*r + 886*M*r_pow2 - 93*r_pow3) + 3*r_pow8*(-88*M_pow3 + 126*M_pow2*r - 53*M*r_pow2 + 6*r_pow3) + 8*L_pow8*(50*M_pow3 + 17*M_pow2*r - 57*M*r_pow2 + 18*r_pow3)) - a_pow2*r_pow6*(L_pow6*r_pow4*(106328*M_pow4 - 28920*M_pow3*r - 73114*M_pow2*r_pow2 + 36553*M*r_pow3 - 2991*r_pow4) + L_pow2*r_pow8*(4528*M_pow4 + 14436*M_pow3*r - 26844*M_pow2*r_pow2 + 12978*M*r_pow3 - 1869*r_pow4) + 2*L_pow10*(2560*M_pow4 - 672*M_pow3*r - 1754*M_pow2*r_pow2 + 699*M*r_pow3 + 12*r_pow4) - 4*L_pow8*r_pow2*(-11072*M_pow4 + 2384*M_pow3*r + 7347*M_pow2*r_pow2 - 2949*M*r_pow3 + 30*r_pow4) + r_pow10*(-8832*M_pow4 + 9616*M_pow3*r - 1900*M_pow2*r_pow2 - 593*M*r_pow3 + 111*r_pow4) - 2*L_pow4*r_pow6*(-41340*M_pow4 + 9034*M_pow3*r + 36089*M_pow2*r_pow2 - 20133*M*r_pow3 + 2481*r_pow4)) + a_pow14*twoM_plus_r*(L_pow2*M*(80*M_pow4 - 1404*M_pow3*r - 10253*M_pow2*r_pow2 - 9216*M*r_pow3 - 2214*r_pow4) - 2*r_pow2*(-3516*M_pow5 - 6032*M_pow4*r + 345*M_pow3*r_pow2 + 3609*M_pow2*r_pow3 + 1244*M*r_pow4 + 30*r_pow5)) + a_pow4*r_pow4*(4*L_pow10*(384*M_pow4 + 478*M_pow3*r + 638*M_pow2*r_pow2 - 597*M*r_pow3 + 30*r_pow4) + r_pow9*(48792*M_pow5 - 27200*M_pow4*r - 26858*M_pow3*r_pow2 + 16014*M_pow2*r_pow3 + 42*M*r_pow4 - 345*r_pow5) + 4*L_pow8*r*(-10232*M_pow5 - 8206*M_pow4*r + 14675*M_pow3*r_pow2 + 5541*M_pow2*r_pow3 - 5118*M*r_pow4 + 42*r_pow5) + L_pow6*r_pow3*(-127316*M_pow5 - 163584*M_pow4*r + 208091*M_pow3*r_pow2 + 70655*M_pow2*r_pow3 - 64230*M*r_pow4 + 1512*r_pow5) + L_pow2*r_pow7*(93252*M_pow5 - 140228*M_pow4*r + 33173*M_pow3*r_pow2 + 57512*M_pow2*r_pow3 - 31512*M*r_pow4 + 2742*r_pow5) + L_pow4*r_pow5*(-56808*M_pow5 - 237548*M_pow4*r + 220574*M_pow3*r_pow2 + 89649*M_pow2*r_pow3 - 79080*M*r_pow4 + 4980*r_pow5)) - a_pow6*r_pow3*(6*L_pow10*M*(72*M_pow2 + 38*M*r + 177*r_pow2) - 4*L_pow8*(1104*M_pow5 + 3592*M_pow4*r + 10741*M_pow3*r_pow2 - 1170*M_pow2*r_pow3 - 3760*M*r_pow4 + 69*r_pow5) + L_pow2*r_pow5*(-275288*M_pow6 + 155844*M_pow5*r + 247114*M_pow4*r_pow2 - 218679*M_pow3*r_pow3 - 43988*M_pow2*r_pow4 + 55826*M*r_pow5 - 1218*r_pow6) + L_pow4*r_pow3*(-40984*M_pow6 + 348748*M_pow5*r + 50706*M_pow4*r_pow2 - 449191*M_pow3*r_pow3 + 1993*M_pow2*r_pow4 + 105846*M*r_pow5 - 1158*r_pow6) + L_pow6*r*(83648*M_pow6 + 155280*M_pow5*r - 58172*M_pow4*r_pow2 - 266686*M_pow3*r_pow3 + 14828*M_pow2*r_pow4 + 66249*M*r_pow5 - 75*r_pow6) + 2*r_pow7*(-50952*M_pow6 - 1716*M_pow5*r + 65274*M_pow4*r_pow2 - 4429*M_pow3*r_pow3 - 18087*M_pow2*r_pow4 + 1995*M*r_pow5 + 345*r_pow6)) - a_pow12*(L_pow4*M*(-2304*M_pow5 - 11872*M_pow4*r + 6636*M_pow3*r_pow2 + 39697*M_pow2*r_pow3 + 28680*M*r_pow4 + 5904*r_pow5) + L_pow2*r*(7616*M_pow7 + 12928*M_pow6*r - 92896*M_pow5*r_pow2 - 78032*M_pow4*r_pow3 + 58831*M_pow3*r_pow4 + 69148*M_pow2*r_pow5 + 16720*M*r_pow6 + 264*r_pow7) + r_pow3*(25536*M_pow7 + 55232*M_pow6*r - 34536*M_pow5*r_pow2 - 93984*M_pow4*r_pow3 - 22406*M_pow3*r_pow4 + 20382*M_pow2*r_pow5 + 8172*M*r_pow6 + 321*r_pow7)) - a_pow8*r_pow2*(12*L_pow8*M*(96*M_pow3 - 78*M_pow2*r + 691*M*r_pow2 + 375*r_pow3) - L_pow6*(4992*M_pow6 + 28784*M_pow5*r + 140728*M_pow4*r_pow2 + 89391*M_pow3*r_pow3 - 59259*M_pow2*r_pow4 - 34420*M*r_pow5 + 48*r_pow6) + L_pow4*r*(36096*M_pow7 + 132304*M_pow6*r + 198076*M_pow5*r_pow2 - 347184*M_pow4*r_pow3 - 302555*M_pow3*r_pow4 + 124847*M_pow2*r_pow5 + 85905*M*r_pow6 + 771*r_pow7) + L_pow2*r_pow3*(-223072*M_pow7 - 38976*M_pow6*r + 466756*M_pow5*r_pow2 - 73924*M_pow4*r_pow3 - 298270*M_pow3*r_pow4 + 50634*M_pow2*r_pow5 + 66780*M*r_pow6 + 813*r_pow7) + r_pow5*(-83616*M_pow7 - 62656*M_pow6*r + 192112*M_pow5*r_pow2 + 95840*M_pow4*r_pow3 - 94100*M_pow3*r_pow4 - 31358*M_pow2*r_pow5 + 10385*M*r_pow6 + 900*r_pow7)) - a_pow10*r*(4*L_pow6*M*(-144*M_pow4 - 2170*M_pow3*r + 3833*M_pow2*r_pow2 + 6312*M*r_pow3 + 1857*r_pow4) - L_pow4*(4608*M_pow7 + 17344*M_pow6*r + 124512*M_pow5*r_pow2 + 221026*M_pow4*r_pow3 + 6605*M_pow3*r_pow4 - 108981*M_pow2*r_pow5 - 35880*M*r_pow6 - 312*r_pow7) + r_pow3*(-17088*M_pow8 - 35744*M_pow7*r + 114976*M_pow6*r_pow2 + 147984*M_pow5*r_pow3 - 75400*M_pow4*r_pow4 - 100108*M_pow3*r_pow5 + 1416*M_pow2*r_pow6 + 12651*M*r_pow7 + 723*r_pow8) + L_pow2*r*(-16896*M_pow8 - 32096*M_pow7*r + 232536*M_pow6*r_pow2 + 108596*M_pow5*r_pow3 - 283648*M_pow4*r_pow4 - 92474*M_pow3*r_pow5 + 113140*M_pow2*r_pow6 + 46902*M*r_pow7 + 975*r_pow8)) - 24*a*E_pow3*L*M_pow2*(r_pow3 + a_pow2*twoM_plus_r)*(6*a_pow12*twoM_plus_r_pow3 + 3*a_pow10*r*twoM_plus_r_pow2*(L_pow2 + 8*M_pow2 + 28*M*r + 18*r_pow2) - 5*r_pow9*(L_pow6 + 5*L_pow4*r_pow2 - 2*L_pow2*r_pow4 - 6*r_pow6) + a_pow2*r_pow6*(L_pow6*(44*M - 25*r) + 6*r_pow6*(34*M + 25*r) + L_pow2*r_pow4*(42*M + 55*r) - L_pow4*r_pow2*(28*M + 75*r)) + a_pow4*r_pow4*(L_pow6*(32*M - 29*r) + L_pow4*r*(44*M_pow2 - 32*M*r - 87*r_pow2) + 6*L_pow2*r_pow3*(8*M_pow2 + 35*M*r + 18*r_pow2) + 6*r_pow5*(84*M_pow2 + 134*M*r + 51*r_pow2)) + 2*a_pow8*r_pow2*twoM_plus_r*(-6*L_pow4 + L_pow2*(26*M_pow2 + 41*M*r + 17*r_pow2) + 3*r*(16*M_pow3 + 68*M_pow2*r + 86*M*r_pow2 + 31*r_pow3)) + a_pow6*r_pow3*(-9*L_pow6 + L_pow4*(92*M_pow2 - 28*M*r - 49*r_pow2) + 12*r_pow3*(44*M_pow3 + 120*M_pow2*r + 102*M*r_pow2 + 27*r_pow3) + 2*L_pow2*r*(4*M_pow3 + 126*M_pow2*r + 153*M*r_pow2 + 47*r_pow3))) + 2*E_pow2*M*(2*a_pow16*twoM_plus_r_pow3*(5*M_pow2 + 42*M*r + 27*r_pow2) + r_pow12*(L_pow2 + r_pow2)*(3*L_pow2*(44*M - 19*r)*r_pow4 + 3*(44*M - 25*r)*r_pow6 + L_pow6*(-82*M + 53*r) + L_pow4*r_pow2*(-262*M + 161*r)) + a_pow2*r_pow9*(L_pow2*r_pow6*(-9384*M_pow2 + 6778*M*r - 635*r_pow2) + r_pow8*(4212*M_pow2 - 1522*M*r - 457*r_pow2) + 4*L_pow8*(11*M_pow2 - 88*M*r + 38*r_pow2) + L_pow4*r_pow4*(-32060*M_pow2 + 16000*M*r + 533*r_pow2) + L_pow6*r_pow2*(-18060*M_pow2 + 7348*M*r + 773*r_pow2)) + a_pow4*r_pow6*(r_pow8*(25812*M_pow3 + 4958*M_pow2*r - 10368*M*r_pow2 - 1113*r_pow3) + 2*L_pow2*r_pow6*(-24960*M_pow3 + 1024*M_pow2*r + 13743*M*r_pow2 - 548*r_pow3) + L_pow8*(-448*M_pow3 + 32*M_pow2*r - 180*M*r_pow2 + 82*r_pow3) + 4*L_pow6*r_pow2*(-8388*M_pow3 - 3938*M_pow2*r + 5232*M*r_pow2 + 225*r_pow3) + L_pow4*r_pow4*(-109716*M_pow3 - 22614*M_pow2*r + 57682*M*r_pow2 + 1065*r_pow3)) + a_pow14*twoM_plus_r_pow2*(L_pow2*(864*M_pow3 + 1772*M_pow2*r + 996*M*r_pow2 + 99*r_pow3) + r*(-952*M_pow4 - 3704*M_pow3*r - 3184*M_pow2*r_pow2 - 238*M*r_pow3 + 317*r_pow4)) + a_pow6*r_pow4*(4*L_pow8*(576*M_pow3 + 83*M_pow2*r - 60*M*r_pow2 - 20*r_pow3) + r_pow7*(65400*M_pow4 + 54992*M_pow3*r - 27948*M_pow2*r_pow2 - 24214*M*r_pow3 - 1281*r_pow4) + L_pow2*r_pow5*(-80832*M_pow4 - 52944*M_pow3*r + 80296*M_pow2*r_pow2 + 49860*M*r_pow3 - 575*r_pow4) + 2*L_pow6*r*(-9176*M_pow4 - 10656*M_pow3*r + 6412*M_pow2*r_pow2 + 9560*M*r_pow3 + 101*r_pow4) + 2*L_pow4*r_pow3*(-56476*M_pow4 - 59104*M_pow3*r + 42772*M_pow2*r_pow2 + 39500*M*r_pow3 + 505*r_pow4)) + a_pow8*r_pow3*(-3*L_pow8*(216*M_pow2 + 110*M*r + 21*r_pow2) + 2*L_pow6*(3312*M_pow4 + 4024*M_pow3*r + 5684*M_pow2*r_pow2 + 2900*M*r_pow3 - 137*r_pow4) + 4*L_pow2*r_pow3*(-11424*M_pow5 - 15616*M_pow4*r + 21524*M_pow3*r_pow2 + 36764*M_pow2*r_pow3 + 12469*M*r_pow4 + 145*r_pow5) + 2*L_pow4*r*(-20720*M_pow5 - 35264*M_pow4*r + 18888*M_pow3*r_pow2 + 61870*M_pow2*r_pow3 + 25417*M*r_pow4 + 205*r_pow5) - r_pow5*(-78192*M_pow5 - 125992*M_pow4*r + 6220*M_pow3*r_pow2 + 77826*M_pow2*r_pow3 + 27828*M*r_pow4 + 455*r_pow5)) + a_pow12*r*twoM_plus_r*(L_pow4*(432*M_pow3 + 2386*M_pow2*r + 1284*M*r_pow2 - 27*r_pow3) + 2*L_pow2*(1728*M_pow5 + 7064*M_pow4*r + 13876*M_pow3*r_pow2 + 12658*M_pow2*r_pow3 + 4283*M*r_pow4 + 260*r_pow5) + r*(4224*M_pow6 + 14336*M_pow5*r + 1280*M_pow4*r_pow2 - 29024*M_pow3*r_pow3 - 24514*M_pow2*r_pow4 - 4306*M*r_pow5 + 693*r_pow6)) + a_pow10*r_pow2*(-3*L_pow6*(576*M_pow3 + 228*M_pow2*r + 28*M*r_pow2 + 45*r_pow3) + L_pow4*(7488*M_pow5 + 27256*M_pow4*r + 59568*M_pow3*r_pow2 + 52596*M_pow2*r_pow3 + 14616*M*r_pow4 + 9*r_pow5) + r_pow3*(42336*M_pow6 + 110080*M_pow5*r + 33120*M_pow4*r_pow2 - 94560*M_pow3*r_pow3 - 78228*M_pow2*r_pow4 - 15870*M*r_pow5 + 525*r_pow6) + L_pow2*r*(-8832*M_pow6 - 5984*M_pow5*r + 69264*M_pow4*r_pow2 + 155568*M_pow3*r_pow3 + 114488*M_pow2*r_pow4 + 29202*M*r_pow5 + 983*r_pow6))) - 2*a*E*L*M*(a_pow14*twoM_plus_r_pow2*(40*M_pow3 - 183*M_pow2*r - 1152*M*r_pow2 - 564*r_pow3) - r_pow9*(L_pow2 + r_pow2)*(2*L_pow6*(848*M_pow2 - 706*M*r + 129*r_pow2) + 6*r_pow6*(1090*M_pow2 - 1207*M*r + 334*r_pow2) + 2*L_pow4*r_pow2*(10136*M_pow2 - 9694*M*r + 2283*r_pow2) + 3*L_pow2*r_pow4*(9032*M_pow2 - 9186*M*r + 2329*r_pow2)) + a_pow2*r_pow6*(L_pow4*r_pow4*(-173868*M_pow3 + 27106*M_pow2*r + 114758*M*r_pow2 - 41563*r_pow3) + 2*L_pow2*r_pow6*(-67542*M_pow3 + 15845*M_pow2*r + 49687*M*r_pow2 - 20383*r_pow3) + 2*L_pow6*r_pow2*(-32098*M_pow3 + 1607*M_pow2*r + 22235*M*r_pow2 - 7272*r_pow3) + 2*r_pow8*(-8694*M_pow3 + 2353*M_pow2*r + 11972*M*r_pow2 - 5753*r_pow3) + L_pow8*(-4064*M_pow3 + 392*M_pow2*r + 4152*M*r_pow2 - 1566*r_pow3)) + a_pow4*r_pow4*(2*L_pow8*(1152*M_pow3 + 800*M_pow2*r + 746*M*r_pow2 - 951*r_pow3) + L_pow2*r_pow5*(-163476*M_pow4 - 166152*M_pow3*r + 252871*M_pow2*r_pow2 + 86608*M*r_pow3 - 76926*r_pow4) + L_pow4*r_pow3*(-202152*M_pow4 - 175676*M_pow3*r + 231130*M_pow2*r_pow2 + 93594*M*r_pow3 - 61235*r_pow4) + r_pow7*(38004*M_pow4 - 29456*M_pow3*r + 52953*M_pow2*r_pow2 + 18370*M*r_pow3 - 28078*r_pow4) - 2*L_pow6*r*(19936*M_pow4 + 19294*M_pow3*r - 29928*M_pow2*r_pow2 - 14353*M*r_pow3 + 8955*r_pow4)) + a_pow12*twoM_plus_r*(L_pow2*(1728*M_pow4 + 6224*M_pow3*r + 333*M_pow2*r_pow2 - 5658*M*r_pow3 - 2286*r_pow4) - r*(3808*M_pow5 + 10640*M_pow4*r - 4198*M_pow3*r_pow2 - 833*M_pow2*r_pow3 + 10270*M*r_pow4 + 4350*r_pow5)) - a_pow6*r_pow3*(6*L_pow8*(108*M_pow2 + 56*M*r + 99*r_pow2) - 2*L_pow6*(3312*M_pow4 + 7400*M_pow3*r + 17325*M_pow2*r_pow2 - 473*M*r_pow3 - 5268*r_pow4) + r_pow5*(-155616*M_pow5 - 36204*M_pow4*r + 35764*M_pow3*r_pow2 - 67713*M_pow2*r_pow3 + 24880*M*r_pow4 + 37896*r_pow5) + 2*L_pow2*r_pow3*(35724*M_pow5 + 125016*M_pow4*r - 47863*M_pow3*r_pow2 - 171219*M_pow2*r_pow3 + 3783*M*r_pow4 + 39189*r_pow5) + L_pow4*r*(83456*M_pow5 + 155560*M_pow4*r - 95812*M_pow3*r_pow2 - 247618*M_pow2*r_pow3 - 10566*M*r_pow4 + 47467*r_pow5)) - a_pow8*r_pow2*(6*L_pow6*(288*M_pow3 - 60*M_pow2*r + 681*M*r_pow2 + 391*r_pow3) - 2*L_pow4*(3744*M_pow5 + 17608*M_pow4*r + 61798*M_pow3*r_pow2 + 39237*M_pow2*r_pow3 - 12894*M*r_pow4 - 9858*r_pow5) + 2*r_pow3*(-66600*M_pow6 - 68240*M_pow5*r + 53672*M_pow4*r_pow2 + 17420*M_pow3*r_pow3 - 11239*M_pow2*r_pow4 + 28729*M*r_pow5 + 15392*r_pow6) + L_pow2*r*(31488*M_pow6 + 97480*M_pow5*r + 26988*M_pow4*r_pow2 - 280790*M_pow3*r_pow3 - 192388*M_pow2*r_pow4 + 61690*M*r_pow5 + 46373*r_pow6)) + 2*a_pow10*r*(L_pow4*(432*M_pow4 + 4556*M_pow3*r - 1464*M_pow2*r_pow2 - 5286*M*r_pow3 - 1737*r_pow4) + L_pow2*(3456*M_pow6 + 14432*M_pow5*r + 56152*M_pow4*r_pow2 + 74499*M_pow3*r_pow3 + 13256*M_pow2*r_pow4 - 21160*M*r_pow5 - 7716*r_pow6) - r*(-8448*M_pow7 - 24472*M_pow6*r + 32784*M_pow5*r_pow2 + 53256*M_pow4*r_pow3 - 10*M_pow3*r_pow4 + 8094*M_pow2*r_pow5 + 23236*M*r_pow6 + 7625*r_pow7))))*ur_pow2 + (-6*E_pow2*M*r_pow4*(r_pow3 + a_pow2*twoM_plus_r)*(2*a_pow12*twoM_plus_r_pow3*(37*M + 20*r) + 10*r_pow10*(-5*L_pow6 - 7*L_pow4*r_pow2 + 8*L_pow2*r_pow4 + 3*r_pow6) + a_pow2*r_pow7*(-104*L_pow4*r_pow2*(5*M + r) + 17*L_pow2*r_pow4*(20*M + 23*r) + 4*r_pow6*(65*M + 48*r) - L_pow6*(250*M + 93*r)) + 2*a_pow4*r_pow4*(-2*L_pow6*(111*M_pow2 + 53*M*r + 7*r_pow2) + 2*L_pow4*r_pow2*(-328*M_pow2 - 151*M*r + 18*r_pow2) + 2*L_pow2*r_pow4*(57*M_pow2 + 357*M*r + 197*r_pow2) + r_pow6*(458*M_pow2 + 685*M*r + 254*r_pow2)) + a_pow10*r*twoM_plus_r_pow2*(L_pow2*(172*M + 95*r) + 4*(38*M_pow3 + 98*M_pow2*r + 151*M*r_pow2 + 58*r_pow3)) + 2*a_pow8*r_pow2*twoM_plus_r*(L_pow4*(76*M + 35*r) + L_pow2*(-172*M_pow3 + 58*M_pow2*r + 490*M*r_pow2 + 218*r_pow3) + r_pow2*(388*M_pow3 + 952*M_pow2*r + 928*M*r_pow2 + 279*r_pow3)) + a_pow6*r_pow3*(3*L_pow6*(18*M + 5*r) - 16*L_pow4*(69*M_pow3 + 54*M_pow2*r - 13*M*r_pow2 - 11*r_pow3) + 8*r_pow4*(207*M_pow3 + 465*M_pow2*r + 358*M*r_pow2 + 89*r_pow3) + 2*L_pow2*r_pow2*(-304*M_pow3 + 618*M_pow2*r + 1194*M*r_pow2 + 409*r_pow3))) + 2*a*E*L*M*r_pow4*(a_pow12*twoM_plus_r_pow2*(1776*M_pow3 + 3635*M_pow2*r + 1746*M*r_pow2 + 150*r_pow3) + 3*r_pow10*(-9*L_pow2*(266*M - 153*r)*r_pow4 + (1222*M - 491*r)*r_pow6 + L_pow6*(-428*M + 104*r) + 2*L_pow4*r_pow2*(-1952*M + 881*r)) - a_pow2*r_pow7*(L_pow2*r_pow4*(17844*M_pow2 + 4258*M*r - 14543*r_pow2) + 2*L_pow4*r_pow2*(9240*M_pow2 + 6974*M*r - 7081*r_pow2) + 2*L_pow6*(2976*M_pow2 + 968*M*r - 721*r_pow2) + 2*r_pow6*(-8052*M_pow2 - 3727*M*r + 2891*r_pow2)) + a_pow10*r*twoM_plus_r*(3648*M_pow5 + 5236*M_pow4*r + 23178*M_pow3*r_pow2 + 27982*M_pow2*r_pow3 + 9608*M*r_pow4 + 420*r_pow5 + L_pow2*(4128*M_pow3 + 5495*M_pow2*r + 3298*M*r_pow2 + 870*r_pow3)) + a_pow4*r_pow4*(r_pow6*(17382*M_pow3 + 40801*M_pow2*r + 5516*M*r_pow2 - 8538*r_pow3) - 4*L_pow6*(1332*M_pow3 + 1172*M_pow2*r - 295*M*r_pow2 - 425*r_pow3) + 2*L_pow4*r_pow2*(-5118*M_pow3 - 11873*M_pow2*r + 912*M*r_pow2 + 7128*r_pow3) + L_pow2*r_pow4*(-4266*M_pow3 - 15147*M_pow2*r + 21400*M*r_pow2 + 20343*r_pow3)) + a_pow6*r_pow3*(2*L_pow6*(324*M_pow2 + 668*M*r + 285*r_pow2) - 2*L_pow4*(6624*M_pow4 + 6386*M_pow3*r + 2620*M_pow2*r_pow2 - 4544*M*r_pow3 - 3335*r_pow4) + 6*r_pow4*(-764*M_pow4 + 7635*M_pow3*r + 10255*M_pow2*r_pow2 + 1515*M*r_pow3 - 917*r_pow4) + L_pow2*r_pow2*(1260*M_pow4 + 570*M_pow3*r + 16237*M_pow2*r_pow2 + 34404*M*r_pow3 + 14451*r_pow4)) + a_pow8*r_pow2*(2*L_pow4*(1824*M_pow3 + 2485*M_pow2*r + 2014*M*r_pow2 + 645*r_pow3) + r_pow2*(-4872*M_pow5 + 18676*M_pow4*r + 86590*M_pow3*r_pow2 + 72812*M_pow2*r_pow3 + 15464*M*r_pow4 - 1003*r_pow5) + L_pow2*(-8256*M_pow5 - 4412*M_pow4*r + 14786*M_pow3*r_pow2 + 28151*M_pow2*r_pow3 + 20966*M*r_pow4 + 5390*r_pow5))) - r_pow4*(-3*a_pow14*M*r*twoM_plus_r_pow3*(215*M + 142*r) + r_pow10*(L_pow4*r_pow4*(-9530*M_pow2 + 8649*M*r - 1903*r_pow2) + 9*L_pow2*r_pow6*(196*M_pow2 - 156*M*r + 29*r_pow2) + 3*r_pow8*(274*M_pow2 - 213*M*r + 35*r_pow2) - 8*L_pow6*r_pow2*(1223*M_pow2 - 1008*M*r + 193*r_pow2) + L_pow8*(-572*M_pow2 - 90*M*r + 200*r_pow2)) + a_pow2*r_pow7*(2*L_pow4*r_pow4*(744*M_pow3 - 13081*M_pow2*r + 12009*M*r_pow2 - 2340*r_pow3) - 4*L_pow8*(562*M_pow3 + 1094*M_pow2*r - 711*M*r_pow2 - 32*r_pow3) + 4*r_pow8*(1065*M_pow3 + 430*M_pow2*r - 800*M*r_pow2 + 114*r_pow3) - 4*L_pow6*r_pow2*(2392*M_pow3 + 6374*M_pow2*r - 5225*M*r_pow2 + 553*r_pow3) + L_pow2*r_pow6*(30168*M_pow3 - 10042*M_pow2*r - 3823*M*r_pow2 + 741*r_pow3)) - a_pow4*r_pow4*(L_pow2*r_pow6*(-82236*M_pow4 - 36698*M_pow3*r + 43072*M_pow2*r_pow2 + 3811*M*r_pow3 - 873*r_pow4) + r_pow8*(-6114*M_pow4 - 21239*M_pow3*r + 3792*M_pow2*r_pow2 + 8536*M*r_pow3 - 720*r_pow4) + 2*L_pow8*(2664*M_pow4 + 2084*M_pow3*r + 802*M_pow2*r_pow2 - 2227*M*r_pow3 + 36*r_pow4) + 4*L_pow6*r_pow2*(-3830*M_pow4 + 12017*M_pow3*r + 3193*M_pow2*r_pow2 - 7644*M*r_pow3 + 122*r_pow4) + 3*L_pow4*r_pow4*(-18050*M_pow4 + 19791*M_pow3*r + 9513*M_pow2*r_pow2 - 13455*M*r_pow3 + 1043*r_pow4)) + a_pow12*twoM_plus_r*(2*L_pow2*M*(1776*M_pow4 + 5422*M_pow3*r + 2933*M_pow2*r_pow2 + 684*M*r_pow3 + 198*r_pow4) - r_pow2*(-4884*M_pow5 - 512*M_pow4*r + 15453*M_pow3*r_pow2 + 14232*M_pow2*r_pow3 + 3602*M*r_pow4 + 54*r_pow5)) + a_pow6*r_pow3*(8*L_pow8*M*(81*M_pow2 + 271*M*r + 258*r_pow2) - 4*L_pow6*(3312*M_pow5 + 2138*M_pow4*r + 8132*M_pow3*r_pow2 - 4512*M_pow2*r_pow3 - 5431*M*r_pow4 - 45*r_pow5) + L_pow4*r_pow2*(30080*M_pow5 - 10680*M_pow4*r - 91175*M_pow3*r_pow2 + 25641*M_pow2*r_pow3 + 45378*M*r_pow4 + 170*r_pow5) + r_pow6*(204*M_pow5 + 49776*M_pow4*r + 33186*M_pow3*r_pow2 - 25669*M_pow2*r_pow3 - 15230*M*r_pow4 + 420*r_pow5) + L_pow2*r_pow4*(44640*M_pow5 + 107292*M_pow4*r - 26420*M_pow3*r_pow2 - 52002*M_pow2*r_pow3 + 975*M*r_pow4 + 783*r_pow5)) + a_pow8*r_pow2*(4*L_pow6*M*(912*M_pow3 + 1153*M_pow2*r + 3097*M*r_pow2 + 1344*r_pow3) - r_pow4*(1992*M_pow6 - 50396*M_pow5*r - 84632*M_pow4*r_pow2 + 6738*M_pow3*r_pow3 + 52226*M_pow2*r_pow4 + 17315*M*r_pow5 + 75*r_pow6) + L_pow4*(-8256*M_pow6 - 3352*M_pow5*r - 23226*M_pow4*r_pow2 + 1685*M_pow3*r_pow3 + 51101*M_pow2*r_pow4 + 24516*M*r_pow5 + 522*r_pow6) + L_pow2*r_pow2*(-22896*M_pow6 + 28600*M_pow5*r + 48980*M_pow4*r_pow2 - 27600*M_pow3*r_pow3 - 15388*M_pow2*r_pow4 + 5507*M*r_pow5 + 606*r_pow6)) + a_pow10*r*(L_pow4*M*(8256*M_pow4 + 13292*M_pow3*r + 19283*M_pow2*r_pow2 + 15581*M*r_pow3 + 4134*r_pow4) + 2*r_pow2*(1128*M_pow7 + 11816*M_pow6*r + 32814*M_pow5*r_pow2 + 10742*M_pow4*r_pow3 - 28940*M_pow3*r_pow4 - 24741*M_pow2*r_pow5 - 5672*M*r_pow6 - 90*r_pow7) + 4*L_pow2*(1824*M_pow7 - 380*M_pow6*r + 11708*M_pow5*r_pow2 + 13839*M_pow4*r_pow3 + 4526*M_pow3*r_pow4 + 1877*M_pow2*r_pow5 + 884*M*r_pow6 + 54*r_pow7))))*ur_pow4 + 3*r_pow7*(2*a_pow12*M*twoM_plus_r_pow3*(169*M + 86*r) + 2*r_pow10*(2*L_pow2*(166*M - 63*r)*r_pow4 + 3*r_pow6*(8*M + r) - 2*L_pow6*(13*M + 6*r) + 2*L_pow4*r_pow2*(-209*M + 87*r)) + a_pow2*r_pow7*(L_pow2*r_pow4*(1106*M_pow2 + 1487*M*r - 711*r_pow2) + 2*L_pow6*(70*M_pow2 - 253*M*r - 12*r_pow2) + 8*r_pow6*(36*M_pow2 + 58*M*r + 3*r_pow2) + 4*L_pow4*r_pow2*(192*M_pow2 - 422*M*r + 159*r_pow2)) + 2*a_pow4*r_pow4*(4*L_pow6*M*(79*M_pow2 - 56*M*r - 93*r_pow2) + L_pow2*r_pow4*(-924*M_pow3 + 1581*M_pow2*r + 1100*M*r_pow2 - 333*r_pow3) + r_pow6*(174*M_pow3 + 1337*M_pow2*r + 750*M*r_pow2 + 18*r_pow3) + 2*L_pow4*r_pow2*(774*M_pow3 - 125*M_pow2*r - 636*M*r_pow2 + 72*r_pow3)) - a_pow10*M*r*twoM_plus_r*(L_pow2*(137*M_pow2 - 241*M*r - 166*r_pow2) + 8*(114*M_pow4 - 47*M_pow3*r - 584*M_pow2*r_pow2 - 494*M*r_pow3 - 114*r_pow4)) + a_pow6*r_pow3*(-2*L_pow6*M*(326*M + 169*r) - 4*L_pow4*M*(82*M_pow3 - 37*M_pow2*r + 721*M*r_pow2 + 479*r_pow3) + L_pow2*r_pow2*(-1846*M_pow4 + 429*M_pow3*r + 6063*M_pow2*r_pow2 + 2581*M*r_pow3 - 207*r_pow4) + 8*r_pow4*(-123*M_pow4 + 660*M_pow3*r + 940*M_pow2*r_pow2 + 296*M*r_pow3 + 3*r_pow4)) + 2*a_pow8*r_pow2*(-2*L_pow4*M*(83*M_pow2 + 206*M*r + 86*r_pow2) + L_pow2*M*(962*M_pow4 + 854*M_pow3*r + 1869*M_pow2*r_pow2 + 2200*M*r_pow3 + 685*r_pow4) + r_pow2*(-1368*M_pow5 + 1700*M_pow4*r + 6708*M_pow3*r_pow2 + 4770*M_pow2*r_pow3 + 1012*M*r_pow4 + 3*r_pow5)))*ur_pow6)/(3.*r_pow4*pow(a_pow2 + r*r_minus_twoM,4)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3));
A3400 = -(r_pow5*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(3*a_pow4 + a_pow2*r*(-11*M + 5*r) + r_pow2*(10*M_pow2 - 9*M*r + 2*r_pow2)) + r_pow7*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2))*(-6*a*E*L*M*r_pow5 - 2*a_pow5*E*L*M*twoM_plus_r + a_pow6*twoM_plus_r_pow2 - 4*a_pow3*E*L*M*r_pow2*(3*M + 2*r) - r_pow5*(M*r_pow2 + L_pow2*(-M + r)) + a_pow2*(8*L_pow2*M_pow2*r_pow2 + r_pow4*(-4*M_pow2 - 2*M*r + r_pow2)) + a_pow4*(L_pow2*(4*M_pow2 + 3*M*r + r_pow2) + r*(-4*M_pow3 - 4*M_pow2*r + 3*M*r_pow2 + 2*r_pow3)))*ur_pow2 - r_pow9*(r_pow3 + a_pow2*twoM_plus_r)*(3*L_pow2*r_pow4 + 2*r_pow6 + 2*a_pow4*twoM_plus_r_pow2 + a_pow2*r*(4*r_pow2*twoM_plus_r + L_pow2*(3*M + 2*r)))*ur_pow4)/(2.*pow(a_pow2 + r*r_minus_twoM,3)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3));
A3401 = (r_pow3*ur*(12*E_pow2*L*M*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(r_pow8*r_minus_twoM + a_pow8*(3*M + r) + a_pow2*r_pow5*(-22*M_pow2 + 5*M*r + 4*r_pow2) + a_pow6*r*(-6*M_pow2 + 11*M*r + 4*r_pow2) + a_pow4*r_pow3*(-20*M_pow2 + 15*M*r + 6*r_pow2)) + 6*a*E*M*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(9*a_pow6*twoM_plus_r + r_pow4*(L_pow2*(-22*M + 7*r) + r_pow2*(-44*M + 25*r)) + a_pow4*(L_pow2*(-12*M + r) + r*(-40*M_pow2 + 40*M*r + 39*r_pow2)) + a_pow2*r_pow2*(-38*L_pow2*M + r*(-88*M_pow2 - 14*M*r + 55*r_pow2))) - 3*L*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(r_pow6*(-22*M_pow2 + 22*M*r - 5*r_pow2) + a_pow6*(36*M_pow2 + 20*M*r + 3*r_pow2) + L_pow2*(-2*M_pow2*r_pow4 + r_pow6) + a_pow2*r_pow2*(L_pow2*(-36*M_pow2 + 2*M*r + 6*r_pow2) + r*(-136*M_pow3 + 44*M_pow2*r + 32*M*r_pow2 - 7*r_pow3)) + a_pow4*(3*L_pow2*(-4*M_pow2 + 2*M*r + r_pow2) + r*(-80*M_pow3 + 62*M_pow2*r + 30*M*r_pow2 + r_pow3))) + 2*r_pow2*(4*E_pow2*L*M*pow(r_pow3 + a_pow2*twoM_plus_r,2)*(3*L_pow2*r_pow5 + 2*r_pow7 + 3*a_pow6*twoM_plus_r + a_pow4*r*(3*L_pow2 - 4*M_pow2 + 8*M*r + 8*r_pow2) + a_pow2*r_pow3*(6*L_pow2 + r*(2*M + 7*r))) + a*E*M*(3*a_pow10*twoM_plus_r_pow3 + r_pow8*(-48*L_pow4*(5*M - 2*r) + 9*r_pow4*r_minus_twoM + L_pow2*r_pow2*(-266*M + 117*r)) - a_pow2*r_pow5*(6*L_pow2*r_pow2*(136*M_pow2 + 47*M*r - 61*r_pow2) + 4*L_pow4*(84*M_pow2 + 64*M*r - 53*r_pow2) + 3*r_pow4*(36*M_pow2 + 2*M*r - 13*r_pow2)) - 2*a_pow4*r_pow3*(4*L_pow4*(40*M_pow2 + 4*M*r - 19*r_pow2) + 3*L_pow2*r*(84*M_pow3 + 174*M_pow2*r - 39*M*r_pow2 - 70*r_pow3) + 3*r_pow3*(36*M_pow3 + 24*M_pow2*r - 18*M*r_pow2 - 11*r_pow3)) - 3*a_pow8*twoM_plus_r*(L_pow2*(32*M_pow2 - 6*M*r - 13*r_pow2) - r*(-8*M_pow3 + 8*M_pow2*r + 20*M*r_pow2 + 7*r_pow3)) + 2*a_pow6*r*(L_pow4*(-48*M_pow2 + 8*M*r + 18*r_pow2) + 9*r_pow2*(-8*M_pow4 - 12*M_pow3*r + 4*M_pow2*r_pow2 + 10*M*r_pow3 + 3*r_pow4) + L_pow2*(64*M_pow4 - 228*M_pow3*r - 192*M_pow2*r_pow2 + 173*M*r_pow3 + 105*r_pow4))) + L*(-3*a_pow10*twoM_plus_r_pow2*(2*M_pow2 + 24*M*r + 3*r_pow2) + twoM_minus_r*r_pow8*(L_pow4*(69*M - 32*r) + 7*L_pow2*(17*M - 8*r)*r_pow2 + (44*M - 21*r)*r_pow4) + a_pow2*r_pow5*(L_pow4*(156*M_pow3 + 126*M_pow2*r - 177*M*r_pow2 + 41*r_pow3) + r_pow4*(222*M_pow3 - 3*M_pow2*r - 212*M*r_pow2 + 78*r_pow3) + L_pow2*r_pow2*(486*M_pow3 + 79*M_pow2*r - 432*M*r_pow2 + 136*r_pow3)) + a_pow4*r_pow3*(L_pow4*M*(224*M_pow2 + 32*M*r - 147*r_pow2) + 3*r_pow3*(-56*M_pow4 + 140*M_pow3*r - 45*M_pow2*r_pow2 - 70*M*r_pow3 + 33*r_pow4) + L_pow2*r*(-48*M_pow4 + 840*M_pow3*r - 81*M_pow2*r_pow2 - 410*M*r_pow3 + 86*r_pow4)) + a_pow8*(L_pow2*(96*M_pow4 - 84*M_pow3*r - 361*M_pow2*r_pow2 - 183*M*r_pow3 - 18*r_pow4) + r*(48*M_pow5 + 860*M_pow4*r + 384*M_pow3*r_pow2 - 489*M_pow2*r_pow3 - 260*M*r_pow4 - 12*r_pow5)) + a_pow6*r*(L_pow4*(48*M_pow3 - 64*M_pow2*r - 75*M*r_pow2 - 9*r_pow3) - L_pow2*(64*M_pow5 - 392*M_pow4*r - 758*M_pow3*r_pow2 + 339*M_pow2*r_pow3 + 392*M*r_pow4 + 12*r_pow5) + r_pow2*(-520*M_pow5 + 188*M_pow4*r + 870*M_pow3*r_pow2 - 203*M_pow2*r_pow3 - 236*M*r_pow4 + 39*r_pow5))))*ur_pow2 + L*r_pow6*(9*a_pow8*twoM_plus_r_pow2 + r_pow7*(r_pow2*(-22*M + 3*r) + L_pow2*(-114*M + 45*r)) - 3*a_pow2*r_pow4*(L_pow2*(36*M_pow2 + 46*M*r - 31*r_pow2) + 2*r_pow2*(20*M_pow2 + 11*M*r - 3*r_pow2)) + 3*a_pow4*r*(-2*r_pow2*(36*M_pow3 + 46*M_pow2*r + 5*M*r_pow2 - 6*r_pow3) + L_pow2*(44*M_pow3 - 42*M_pow2*r - 26*M*r_pow2 + 19*r_pow3)) - a_pow6*(3*L_pow2*(38*M_pow2 + 14*M*r - 3*r_pow2) + 2*(64*M_pow4 + 132*M_pow3*r + 60*M_pow2*r_pow2 - 25*M*r_pow3 - 15*r_pow4)))*ur_pow4))/(12.*pow(a_pow2 + r*r_minus_twoM,4)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3));
A3420 = (72*a*E_pow3*L*M_pow2*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(a_pow8 + 3*twoM_minus_r*r_pow7 + 2*a_pow6*r*(-5*M + r) - 6*a_pow2*r_pow4*(-4*M_pow2 + M*r + r_pow2) - 2*a_pow4*r_pow2*(-8*M_pow2 + 11*M*r + r_pow2)) + 2*E_pow2*M*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(3*a_pow8*(50*M + 19*r) + r_pow6*(2*L_pow2*(85*M - 46*r) + 3*(44*M - 27*r)*r_pow2) + 6*a_pow6*(L_pow2*(-18*M + 4*r) + r*(2*M_pow2 + 61*M*r + 15*r_pow2)) - 2*a_pow2*r_pow3*(3*r_pow2*(114*M_pow2 - 91*M*r + 31*r_pow2) + L_pow2*(-428*M_pow2 + 16*M*r + 64*r_pow2)) - 6*a_pow4*r*(L_pow2*(-144*M_pow2 + 41*M*r + 2*r_pow2) + r*(88*M_pow3 + 64*M_pow2*r - 97*M*r_pow2 + 12*r_pow3))) - 4*a*E*L*M*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(6*a_pow6*(25*M + 7*r) + 3*a_pow4*(L_pow2*(-18*M + 8*r) + r*(4*M_pow2 + 71*M*r + 20*r_pow2)) - r_pow3*(L_pow2*(-208*M_pow2 + 64*M*r + 27*r_pow2) + 3*r_pow2*(76*M_pow2 - 103*M*r + 36*r_pow2)) - 3*a_pow2*r*(L_pow2*(-144*M_pow2 + 64*M*r + r_pow2) + 2*r*(88*M_pow3 + 10*M_pow2*r - 36*M*r_pow2 + 13*r_pow3))) + (a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(3*a_pow8*r*(8*M + 9*r) + twoM_minus_r*r_pow3*(-8*L_pow4*M*(M - r) + L_pow2*r_pow2*(-26*M_pow2 + 25*M*r - 4*r_pow2) + r_pow4*(174*M_pow2 - 169*M*r + 38*r_pow2)) + a_pow6*(3*L_pow2*(100*M_pow2 + 18*M*r + 9*r_pow2) + r_pow2*(-312*M_pow2 - 25*M*r + 61*r_pow2)) + a_pow4*(24*L_pow4*M*(-3*M + 2*r) + L_pow2*r*(24*M_pow3 + 120*M_pow2*r - 69*M*r_pow2 - 2*r_pow3) + r_pow3*(876*M_pow3 - 512*M_pow2*r + 63*M*r_pow2 + 15*r_pow3)) + a_pow2*r*(12*L_pow4*M*(48*M_pow2 - 29*M*r + r_pow2) + r_pow3*(-696*M_pow4 + 824*M_pow3*r - 664*M_pow2*r_pow2 + 333*M*r_pow3 - 57*r_pow4) + L_pow2*r*(-1056*M_pow4 + 528*M_pow3*r + 140*M_pow2*r_pow2 - 36*M*r_pow3 - 25*r_pow4))) + 2*r_pow2*(-3*a_pow13*E*L*M*twoM_plus_r_pow2*(8*(-34 + 9*E_pow2)*M_pow2 + 4*(-127 + 9*E_pow2)*M*r - 223*r_pow2) - 3*a_pow14*twoM_plus_r_pow3*(r*(65*M + 3*r) + E_pow2*M*(68*M + 23*r)) + 3*a*E*L*M*r_pow8*(L_pow2 + r_pow2)*(4*L_pow2*r_pow2*(1114*M_pow2 + 3*(-377 + 5*E_pow2)*M*r + 287*r_pow2) + L_pow4*(1704*M_pow2 - 1574*M*r + 355*r_pow2) + r_pow4*(1824*M_pow2 - 2*(979 + 30*E_pow2)*M*r + 529*r_pow2)) - r_pow8*(L_pow2 + r_pow2)*(L_pow2*twoM_minus_r*r_pow4*(1018*M_pow2 - (871 + 63*E_pow2)*M*r + 186*r_pow2) + L_pow4*r_pow2*(3940*M_pow3 + 6*(-879 + 23*E_pow2)*M_pow2*r + 2*(1153 - 39*E_pow2)*M*r_pow2 - 327*r_pow3) + L_pow6*(1196*M_pow3 - 1470*M_pow2*r + 562*M*r_pow2 - 63*r_pow3) + 3*r_pow6*(-44*M_pow3 + (64 - 44*E_pow2)*M_pow2*r + (-27 + 25*E_pow2)*M*r_pow2 + 3*r_pow3)) + a_pow3*E*L*M*r_pow5*(L_pow6*(4704*M_pow3 + 3080*M_pow2*r - 6532*M*r_pow2 + 1947*r_pow3) + 6*L_pow4*r_pow2*(7748*M_pow3 + 2*(-731 + 6*E_pow2)*M_pow2*r + (-5551 + 120*E_pow2)*M*r_pow2 + 2145*r_pow3) + 2*r_pow6*(13260*M_pow3 - 2*(3319 + 198*E_pow2)*M_pow2*r - 5*(1603 + 108*E_pow2)*M*r_pow2 + 4182*r_pow3) + 3*L_pow2*r_pow4*(24624*M_pow3 - 9432*M_pow2*r - 14732*M*r_pow2 + 6693*r_pow3)) - a_pow2*r_pow5*(L_pow2*r_pow6*(7980*M_pow4 + 8*(-292 + 489*E_pow2)*M_pow3*r - (7247 + 3876*E_pow2)*M_pow2*r_pow2 + (4745 + 882*E_pow2)*M*r_pow3 - 774*r_pow4) + 3*L_pow4*r_pow4*(8836*M_pow4 + 2*(-2015 + 1602*E_pow2)*M_pow3*r - 2*(2683 + 829*E_pow2)*M_pow2*r_pow2 + (3594 + 11*E_pow2)*M*r_pow3 - 502*r_pow4) + L_pow8*(2640*M_pow4 + 328*M_pow3*r - 2702*M_pow2*r_pow2 + 929*M*r_pow3 + 6*r_pow4) + r_pow8*(-2604*M_pow4 + 2*(1403 - 858*E_pow2)*M_pow3*r + 2*(-239 + 25*E_pow2)*M_pow2*r_pow2 + 29*(-7 + 19*E_pow2)*M*r_pow3 + 27*r_pow4) - L_pow6*r_pow2*(-17412*M_pow4 + 4*(1373 - 930*E_pow2)*M_pow3*r + (12019 + 1048*E_pow2)*M_pow2*r_pow2 + (-6481 + 232*E_pow2)*M*r_pow3 + 630*r_pow4)) + a_pow11*E*L*M*twoM_plus_r*(L_pow2*(-1296*M_pow3 + 984*M_pow2*r + 3534*M*r_pow2 + 1647*r_pow3) + 2*r*(144*(-27 + 2*E_pow2)*M_pow4 - 4*(1313 + 162*E_pow2)*M_pow3*r - 4*(-532 + 297*E_pow2)*M_pow2*r_pow2 + (6313 - 396*E_pow2)*M*r_pow3 + 2322*r_pow4)) - a_pow5*E*L*M*r_pow3*(L_pow6*(864*M_pow3 + 792*M_pow2*r + 2674*M*r_pow2 - 1191*r_pow3) + r_pow5*(-44640*M_pow4 + 48*(-97 + 9*E_pow2)*M_pow3*r + 12*(5377 + 366*E_pow2)*M_pow2*r_pow2 + 4*(811 + 657*E_pow2)*M*r_pow3 - 18207*r_pow4) - 6*L_pow4*r*(5120*M_pow4 + 4*(869 - 24*E_pow2)*M_pow3*r + 4*(-1832 + 27*E_pow2)*M_pow2*r_pow2 + 3*(-915 + 56*E_pow2)*M*r_pow3 + 2266*r_pow4) - 6*L_pow2*r_pow3*(16320*M_pow4 + 5076*M_pow3*r - 19990*M_pow2*r_pow2 - 3182*M*r_pow3 + 5291*r_pow4)) - a_pow4*r_pow3*(L_pow8*(-288*M_pow4 - 792*M_pow3*r - 1298*M_pow2*r_pow2 + 898*M*r_pow3 + 51*r_pow4) + L_pow2*r_pow5*(9024*M_pow5 + 252*(69 + 98*E_pow2)*M_pow4*r - 12*(1949 + 666*E_pow2)*M_pow3*r_pow2 - (6527 + 11010*E_pow2)*M_pow2*r_pow3 + (9163 + 2364*E_pow2)*M*r_pow4 - 1299*r_pow5) + 3*L_pow4*r_pow3*(13048*M_pow5 + 60*(103 + 142*E_pow2)*M_pow4*r + 4*(-4251 + 235*E_pow2)*M_pow3*r_pow2 - 3*(953 + 1492*E_pow2)*M_pow2*r_pow3 + 2*(2648 + 69*E_pow2)*M*r_pow4 - 497*r_pow5) + L_pow6*r*(15360*M_pow5 + 744*(11 + 2*E_pow2)*M_pow4*r + 4*(-5289 + 850*E_pow2)*M_pow3*r_pow2 - 16*(439 + 138*E_pow2)*M_pow2*r_pow3 + (7595 - 152*E_pow2)*M*r_pow4 - 171*r_pow5) + r_pow7*(-12456*M_pow5 + 24*(316 - 253*E_pow2)*M_pow4*r + 16*(387 - 311*E_pow2)*M_pow3*r_pow2 + 2*(-1961 + 1452*E_pow2)*M_pow2*r_pow3 + (95 + 1699*E_pow2)*M*r_pow4 + 15*r_pow5)) - 3*a_pow7*E*L*M*r_pow2*(-(L_pow6*(216*M_pow2 + 40*M*r + 103*r_pow2)) - 2*L_pow4*r*(-8*(361 + 6*E_pow2)*M_pow3 + 2*(-1873 + 66*E_pow2)*M_pow2*r + (247 + 96*E_pow2)*M*r_pow2 + 1087*r_pow3) - 4*r_pow3*(2952*M_pow5 + 4*(493 + 42*E_pow2)*M_pow4*r - 20*(335 + 18*E_pow2)*M_pow3*r_pow2 - 2*(2351 + 378*E_pow2)*M_pow2*r_pow3 + (2635 - 276*E_pow2)*M*r_pow4 + 1748*r_pow5) - 2*L_pow2*r*(8512*M_pow5 + 8128*M_pow4*r - 15360*M_pow3*r_pow2 - 15186*M_pow2*r_pow3 + 3940*M*r_pow4 + 4171*r_pow5)) - a_pow6*r_pow2*(3*L_pow8*(72*M_pow3 + 2*M_pow2*r + 77*M*r_pow2 - 6*r_pow3) + L_pow6*r*(-24*(361 + 36*E_pow2)*M_pow4 + 24*(-479 + 33*E_pow2)*M_pow3*r + (2421 - 800*E_pow2)*M_pow2*r_pow2 + (4843 + 80*E_pow2)*M*r_pow3 + 24*r_pow4) + 2*L_pow2*r_pow3*(2792*M_pow6 + 444*(33 + 52*E_pow2)*M_pow5*r + 4*(-1253 + 1236*E_pow2)*M_pow4*r_pow2 - (21533 + 20640*E_pow2)*M_pow3*r_pow3 - 6*(-479 + 946*E_pow2)*M_pow2*r_pow4 + 2*(2929 + 849*E_pow2)*M*r_pow5 - 507*r_pow6) + 3*L_pow4*r*(8128*M_pow6 + 32*(279 + 160*E_pow2)*M_pow5*r + 32*(-397 + 132*E_pow2)*M_pow4*r_pow2 - 2*(8365 + 3018*E_pow2)*M_pow3*r_pow3 + (3783 - 3760*E_pow2)*M_pow2*r_pow4 + 2*(2492 + 149*E_pow2)*M*r_pow5 - 181*r_pow6) - r_pow5*(22800*M_pow6 + 24*(-117 + 242*E_pow2)*M_pow5*r + 216*(-131 + 83*E_pow2)*M_pow4*r_pow2 + 12*(354 + 127*E_pow2)*M_pow3*r_pow3 + 2*(3579 - 4547*E_pow2)*M_pow2*r_pow4 - (1087 + 2855*E_pow2)*M*r_pow5 + 21*r_pow6)) + a_pow9*E*L*M*r*(3*L_pow4*r*(8*(44 + 9*E_pow2)*M_pow2 + 4*(229 + 9*E_pow2)*M*r + 429*r_pow2) + 3*L_pow2*(1152*M_pow5 - 11936*M_pow4*r - 20216*M_pow3*r_pow2 - 3356*M_pow2*r_pow3 + 8270*M*r_pow4 + 3325*r_pow5) + r*(16896*M_pow6 + 32*(515 + 72*E_pow2)*M_pow5*r + 32*(-1477 + 27*E_pow2)*M_pow4*r_pow2 - 192*(362 + 45*E_pow2)*M_pow3*r_pow3 - 488*(-19 + 18*E_pow2)*M_pow2*r_pow4 + 2*(21211 - 1134*E_pow2)*M*r_pow5 + 13521*r_pow6)) - a_pow8*r*(3*L_pow6*r*(8*(22 + 27*E_pow2)*M_pow3 + 2*(341 + 37*E_pow2)*M_pow2*r + (311 + 26*E_pow2)*M*r_pow2 - 15*r_pow3) + 3*L_pow4*(384*M_pow6 - 5632*M_pow5*r - 8*(1359 + 361*E_pow2)*M_pow4*r_pow2 - 12*(188 + 305*E_pow2)*M_pow3*r_pow3 + (5817 - 712*E_pow2)*M_pow2*r_pow4 + (2573 + 251*E_pow2)*M*r_pow5 - 24*r_pow6) + L_pow2*r*(8448*M_pow7 + 32*(493 + 906*E_pow2)*M_pow6*r + 8*(13 + 2856*E_pow2)*M_pow5*r_pow2 - 4*(11405 + 11724*E_pow2)*M_pow4*r_pow3 - 2*(11173 + 21072*E_pow2)*M_pow3*r_pow4 + 2*(10034 - 1395*E_pow2)*M_pow2*r_pow5 + 2*(5041 + 1377*E_pow2)*M*r_pow6 - 333*r_pow7) + r_pow3*(-14496*M_pow7 + 32*(-167 + 165*E_pow2)*M_pow6*r - 8*(-4919 + 2050*E_pow2)*M_pow5*r_pow2 - 8*(-1447 + 2266*E_pow2)*M_pow4*r_pow3 + 4*(-5009 + 2544*E_pow2)*M_pow3*r_pow4 + 4*(-1045 + 3239*E_pow2)*M_pow2*r_pow5 + 25*(85 + 113*E_pow2)*M*r_pow6 - 9*r_pow7)) + a_pow12*twoM_plus_r*(3*L_pow2*(16*(-17 + 27*E_pow2)*M_pow4 + 4*(-231 + 13*E_pow2)*M_pow3*r - (1007 + 222*E_pow2)*M_pow2*r_pow2 - (317 + 72*E_pow2)*M*r_pow3 - 3*r_pow4) + r*twoM_plus_r*(E_pow2*M*(1944*M_pow3 - 92*M_pow2*r - 1772*M*r_pow2 - 521*r_pow3) + r*(2388*M_pow3 + 370*M_pow2*r - 1009*M*r_pow2 - 33*r_pow3))) - a_pow10*(3*L_pow4*(-288*M_pow5 + 328*M_pow4*r + 4*(519 + 44*E_pow2)*M_pow3*r_pow2 + (1895 + 234*E_pow2)*M_pow2*r_pow3 + 3*(158 + 25*E_pow2)*M*r_pow4 - 9*r_pow5) + L_pow2*r*(864*(-9 + 4*E_pow2)*M_pow6 - 64*(334 + 327*E_pow2)*M_pow5*r - 20*(893 + 1704*E_pow2)*M_pow4*r_pow2 - 18*(-585 + 644*E_pow2)*M_pow3*r_pow3 + 7*(2485 + 324*E_pow2)*M_pow2*r_pow4 + (4915 + 1194*E_pow2)*M*r_pow5 - 12*r_pow6) + r_pow2*twoM_plus_r*(r*(10056*M_pow5 + 2672*M_pow4*r - 10946*M_pow3*r_pow2 - 1916*M_pow2*r_pow3 + 2081*M*r_pow4 + 33*r_pow5) + E_pow2*M*(4224*M_pow5 - 1760*M_pow4*r - 8936*M_pow3*r_pow2 + 2588*M_pow2*r_pow3 + 6532*M*r_pow4 + 1645*r_pow5))))*ur_pow2 + r_pow4*(9*a_pow12*r*twoM_plus_r_pow3*(52*M + 3*r) + r_pow9*(r_pow6*(-822*M_pow2 + 641*M*r - 106*r_pow2) - 2*L_pow2*r_pow4*(720*M_pow2 - 593*M*r + 112*r_pow2) + 4*L_pow6*(735*M_pow2 - 646*M*r + 137*r_pow2) + L_pow4*r_pow2*(3762*M_pow2 - 3419*M*r + 760*r_pow2)) + a_pow2*r_pow6*(2*L_pow2*r_pow4*(-6576*M_pow3 + 1374*M_pow2*r + 1296*M*r_pow2 - 169*r_pow3) + 4*L_pow6*(564*M_pow3 + 1264*M_pow2*r - 1055*M*r_pow2 + 137*r_pow3) - r_pow6*(4596*M_pow3 + 298*M_pow2*r - 2545*M*r_pow2 + 461*r_pow3) + L_pow4*r_pow2*(132*M_pow3 + 6462*M_pow2*r - 7761*M*r_pow2 + 1831*r_pow3)) - a_pow10*twoM_plus_r*(6*L_pow2*(664*M_pow4 + 528*M_pow3*r + 328*M_pow2*r_pow2 + 154*M*r_pow3 + 9*r_pow4) - r_pow2*(-4560*M_pow4 + 116*M_pow3*r + 6304*M_pow2*r_pow2 + 2695*M*r_pow3 + 71*r_pow4)) + a_pow4*r_pow3*(r_pow6*(-7848*M_pow4 - 11232*M_pow3*r + 5328*M_pow2*r_pow2 + 4736*M*r_pow3 - 757*r_pow4) + 4*L_pow6*(1152*M_pow4 + 560*M_pow3*r + 254*M_pow2*r_pow2 - 1019*M*r_pow3 - 27*r_pow4) + 12*L_pow2*r_pow4*(-2082*M_pow4 - 1317*M_pow3*r + 1026*M_pow2*r_pow2 + 254*M*r_pow3 + 16*r_pow4) + L_pow4*r_pow2*(-4872*M_pow4 + 8684*M_pow3*r + 4552*M_pow2*r_pow2 - 9599*M*r_pow3 + 1169*r_pow4)) - a_pow6*r_pow2*(4*L_pow6*(414*M_pow3 + 433*M_pow2*r + 390*M*r_pow2 + 27*r_pow3) + L_pow4*(-7296*M_pow5 - 3504*M_pow4*r - 6344*M_pow3*r_pow2 + 6734*M_pow2*r_pow3 + 8527*M*r_pow4 + 91*r_pow5) - 4*L_pow2*r_pow2*(-1260*M_pow5 - 6028*M_pow4*r + 1010*M_pow3*r_pow2 + 3201*M_pow2*r_pow3 + 424*M*r_pow4 + 112*r_pow5) + 2*r_pow4*(1272*M_pow5 + 10420*M_pow4*r + 4480*M_pow3*r_pow2 - 6846*M_pow2*r_pow3 - 2989*M*r_pow4 + 269*r_pow5)) + a_pow8*r*(-(L_pow4*(5856*M_pow4 + 6888*M_pow3*r + 7306*M_pow2*r_pow2 + 3222*M*r_pow3 + 189*r_pow4)) + r_pow2*(2688*M_pow6 - 9392*M_pow5*r - 21736*M_pow4*r_pow2 + 4568*M_pow3*r_pow3 + 17450*M_pow2*r_pow4 + 5353*M*r_pow5 - 92*r_pow6) + 2*L_pow2*(3840*M_pow6 + 576*M_pow5*r - 3036*M_pow4*r_pow2 + 1402*M_pow3*r_pow3 + 264*M_pow2*r_pow4 - 489*M*r_pow5 + 44*r_pow6)) - 12*E_pow2*M*(r_pow3 + a_pow2*twoM_plus_r)*(a_pow10*twoM_plus_r_pow2*(83*M + 43*r) + 5*r_pow9*(-3*L_pow4 + 7*L_pow2*r_pow2 + 3*r_pow4) + a_pow8*r*twoM_plus_r*(-160*M_pow3 + 56*M_pow2*r + 440*M*r_pow2 + 189*r_pow3 + 2*L_pow2*(61*M + 35*r)) + a_pow2*r_pow6*(-9*L_pow4*(9*M + r) + r_pow4*(41*M + 105*r) + L_pow2*r_pow2*(10*M + 181*r)) + a_pow4*r_pow3*(-96*M_pow2*r_pow4 + 390*M*r_pow5 + 268*r_pow6 - 3*L_pow4*(64*M_pow2 + 8*M*r - 11*r_pow2) + L_pow2*r_pow2*(-272*M_pow2 + 306*M*r + 327*r_pow2)) + a_pow6*r_pow2*(3*L_pow4*(23*M + 9*r) + 12*r_pow2*(-33*M_pow3 + 28*M_pow2*r + 76*M*r_pow2 + 27*r_pow3) + L_pow2*(-304*M_pow3 - 4*M_pow2*r + 558*M*r_pow2 + 251*r_pow3))) + 2*a*E*L*M*(3*a_pow10*twoM_plus_r_pow2*(664*M_pow2 + 436*M*r + 3*r_pow2) - 3*r_pow9*(3*L_pow4*(374*M - 157*r) + 28*L_pow2*(28*M - 19*r)*r_pow2 + r_pow4*(-578*M + 199*r)) + a_pow2*r_pow6*(3*r_pow4*(1816*M_pow2 + 1408*M*r - 669*r_pow2) + 24*L_pow2*r_pow2*(-306*M_pow2 + 66*M*r + 203*r_pow2) + L_pow4*(-4752*M_pow2 - 2600*M*r + 3109*r_pow2)) + a_pow4*r_pow3*(6*r_pow4*(-156*M_pow3 + 2550*M_pow2*r + 974*M*r_pow2 - 405*r_pow3) + 4*L_pow2*r_pow2*(-2502*M_pow3 - 285*M_pow2*r + 3028*M*r_pow2 + 1399*r_pow3) + L_pow4*(-4608*M_pow3 - 2560*M_pow2*r + 1754*M*r_pow2 + 2287*r_pow3)) + a_pow6*r_pow2*(L_pow4*(1656*M_pow2 + 1604*M*r + 591*r_pow2) - 8*L_pow2*(912*M_pow4 + 453*M_pow3*r - 1594*M_pow2*r_pow2 - 1501*M*r_pow3 - 365*r_pow4) + 6*r_pow2*(-2272*M_pow4 + 1232*M_pow3*r + 4330*M_pow2*r_pow2 + 1216*M*r_pow3 - 203*r_pow4)) + a_pow8*r*(4*L_pow2*(1464*M_pow3 + 2013*M_pow2*r + 938*M*r_pow2 + 150*r_pow3) + 3*(-2560*M_pow5 - 1024*M_pow4*r + 8168*M_pow3*r_pow2 + 7796*M_pow2*r_pow3 + 1762*M*r_pow4 - 63*r_pow5))))*ur_pow4 + 6*r_pow7*(43*a_pow10*M*twoM_plus_r_pow3 + r_pow9*(-15*L_pow4*(8*M - 3*r) + 2*L_pow2*(107*M - 36*r)*r_pow2 + 3*r_pow4*(8*M + r)) + a_pow2*r_pow6*(3*L_pow2*r_pow2*(146*M_pow2 + 129*M*r - 63*r_pow2) + r_pow4*(144*M_pow2 + 161*M*r + 12*r_pow2) + 3*L_pow4*(44*M_pow2 - 73*M*r + 24*r_pow2)) + a_pow8*r*twoM_plus_r*(3*L_pow2*M*(53*M + 37*r) + r*(284*M_pow3 + 554*M_pow2*r + 212*M*r_pow2 + 3*r_pow3)) + a_pow4*r_pow3*(3*L_pow4*(92*M_pow3 - 12*M_pow2*r - 84*M*r_pow2 + 9*r_pow3) + 2*r_pow4*(144*M_pow3 + 375*M_pow2*r + 191*M*r_pow2 + 9*r_pow3) - 3*L_pow2*r_pow2*(38*M_pow3 - 255*M_pow2*r - 117*M*r_pow2 + 54*r_pow3)) + a_pow6*r_pow2*(-3*L_pow4*M*(64*M + 39*r) + L_pow2*(-268*M_pow4 + 108*M_pow3*r + 816*M_pow2*r_pow2 + 289*M*r_pow3 - 45*r_pow4) + 6*r_pow2*(32*M_pow4 + 194*M_pow3*r + 221*M_pow2*r_pow2 + 70*M*r_pow3 + 2*r_pow4)))*ur_pow6)/(12.*r*pow(a_pow2 + r*r_minus_twoM,4)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3));
A3600 = (2*E_pow2*M*r_pow2*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(36*a_pow8 + a_pow6*r*(-100*M + 73*r) + r_pow6*(-88*M_pow2 + 98*M*r - 27*r_pow2) + a_pow4*r_pow2*(-12*M_pow2 - 70*M*r + 11*r_pow2) + a_pow2*r_pow3*(136*M_pow3 - 132*M_pow2*r + 128*M*r_pow2 - 53*r_pow3)) - 4*a*E*L*M*r_pow2*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(36*a_pow6 + a_pow4*r*(-100*M + 57*r) + 2*a_pow2*r_pow2*(-6*M_pow2 - 8*M*r + 3*r_pow2) + r_pow3*(136*M_pow3 - 176*M_pow2*r + 84*M*r_pow2 - 15*r_pow3)) + r_pow2*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(21*a_pow6*r + a_pow4*(72*L_pow2*M + r_pow2*(-53*M + 28*r)) + a_pow2*r*(2*L_pow2*M*(-28*M + 5*r) + r_pow2*(-36*M_pow2 + 30*M*r - 7*r_pow2)) + twoM_minus_r*r_pow2*(L_pow2*(-68*M_pow2 + 42*M*r) + r_pow2*(58*M_pow2 - 55*M*r + 14*r_pow2))) + r_pow4*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2))*(-6*a_pow9*E*L*M*(4*(-26 + 3*E_pow2)*M - 35*r)*twoM_plus_r - 12*a_pow10*(13*E_pow2*M - 3*r)*twoM_plus_r_pow2 + 2*a*E*L*M*r_pow6*(8*L_pow2*(235*M_pow2 - 218*M*r + 51*r_pow2) + r_pow2*(1468*M_pow2 - 1376*M*r + 327*r_pow2)) + r_pow6*(2*r_pow4*(44*M_pow3 + 4*(-15 + 11*E_pow2)*M_pow2*r - 25*(-1 + E_pow2)*M*r_pow2 - 3*r_pow3) + L_pow2*r_pow2*(-1100*M_pow3 + 8*(149 + 10*E_pow2)*M_pow2*r - (369 + 46*E_pow2)*M*r_pow2 + 24*r_pow3) + L_pow4*(-1356*M_pow3 + 1540*M_pow2*r - 521*M*r_pow2 + 45*r_pow3)) + 4*a_pow7*E*L*M*(-6*L_pow2*(18*M_pow2 - 9*M*r - 8*r_pow2) + r*(8*(-212 + 15*E_pow2)*M_pow3 - 4*(178 + 15*E_pow2)*M_pow2*r + (761 - 78*E_pow2)*M*r_pow2 + 321*r_pow3)) + 4*a_pow3*E*L*M*r_pow3*(2*L_pow2*(748*M_pow3 - 200*M_pow2*r - 547*M*r_pow2 + 216*r_pow3) + r_pow2*(2516*M_pow3 + 12*(-100 + 9*E_pow2)*M_pow2*r - 3*(379 + 14*E_pow2)*M*r_pow2 + 543*r_pow3)) + 2*a_pow2*r_pow3*(2*r_pow4*(88*M_pow4 - 2*(38 + 87*E_pow2)*M_pow3*r + 6*(1 + 40*E_pow2)*M_pow2*r_pow2 - 95*E_pow2*M*r_pow3 + 3*r_pow4) + L_pow4*(-1280*M_pow4 + 584*M_pow3*r + 828*M_pow2*r_pow2 - 470*M*r_pow3 + 33*r_pow4) + L_pow2*r_pow2*(-2256*M_pow4 - 4*(-327 + 275*E_pow2)*M_pow3*r + 4*(229 + 197*E_pow2)*M_pow2*r_pow2 - (613 + 148*E_pow2)*M*r_pow3 + 54*r_pow4)) + 4*a_pow5*E*L*M*r*(4*L_pow2*(90*M_pow3 - 244*M_pow2*r - 54*M*r_pow2 + 69*r_pow3) + r*(2096*M_pow4 + 4*(-17 + 54*E_pow2)*M_pow3*r + 6*(-493 + 14*E_pow2)*M_pow2*r_pow2 - 51*(-1 + 2*E_pow2)*M*r_pow3 + 648*r_pow4)) + a_pow4*r*(L_pow4*(-480*M_pow4 + 1832*M_pow3*r + 80*M_pow2*r_pow2 - 557*M*r_pow3 + 21*r_pow4) + 4*L_pow2*r*(-1048*M_pow5 - 4*(-33 + 268*E_pow2)*M_pow4*r + (1379 + 24*E_pow2)*M_pow3*r_pow2 + (-139 + 648*E_pow2)*M_pow2*r_pow3 - (343 + 139*E_pow2)*M*r_pow4 + 45*r_pow5) + 4*r_pow3*(88*M_pow5 + 2*(8 + 249*E_pow2)*M_pow3*r_pow2 + 6*(-5 + 66*E_pow2)*M_pow2*r_pow3 - 3*(13 + 83*E_pow2)*M*r_pow4 + 27*r_pow5 - 32*M_pow4*(r + 30*E_pow2*r))) + a_pow8*(3*L_pow2*(16*(-13 + 9*E_pow2)*M_pow3 - 140*M_pow2*r - (9 + 34*E_pow2)*M*r_pow2 + 12*r_pow3) + 2*r*twoM_plus_r*(E_pow2*M*(848*M_pow2 + 38*M*r - 349*r_pow2) + 3*r*(-42*M_pow2 + M*r + 23*r_pow2))) + 2*a_pow6*(9*L_pow4*M*(8*M_pow2 - 8*M*r - 5*r_pow2) + L_pow2*r*((1696 - 720*E_pow2)*M_pow4 + 4*(125 + 289*E_pow2)*M_pow3*r + 4*(-202 + 137*E_pow2)*M_pow2*r_pow2 - (271 + 204*E_pow2)*M*r_pow3 + 66*r_pow4) + 4*r_pow2*(E_pow2*M*(-524*M_pow4 - 32*M_pow3*r + 645*M_pow2*r_pow2 + 2*M*r_pow3 - 151*r_pow4) + r*(32*M_pow4 - 6*M_pow3*r - 81*M_pow2*r_pow2 + 4*M*r_pow3 + 24*r_pow4))))*ur_pow2 + (-6*E_pow2*M*r_pow6*(r_pow3 + a_pow2*twoM_plus_r)*(46*a_pow8*twoM_plus_r_pow2 + 10*r_pow8*(2*L_pow2 + r_pow2) + a_pow2*r_pow5*(4*r_pow2*(-8*M + 19*r) + L_pow2*(-40*M + 101*r)) + 2*a_pow4*r_pow2*(4*r_pow2*(-31*M_pow2 + 15*M*r + 21*r_pow2) + L_pow2*(-62*M_pow2 + 38*M*r + 69*r_pow2)) + a_pow6*r*(3*L_pow2*(36*M + 19*r) + 4*(-72*M_pow3 - 16*M_pow2*r + 84*M*r_pow2 + 37*r_pow3))) + 2*a*E*L*M*r_pow6*(3*a_pow8*twoM_plus_r_pow2*(184*M + 31*r) + 3*r_pow8*(r_pow2*(-22*M + 31*r) + L_pow2*(-66*M + 73*r)) + a_pow2*r_pow5*(6*r_pow2*(-188*M_pow2 + 117*M*r + 62*r_pow2) + L_pow2*(-996*M_pow2 + 794*M*r + 545*r_pow2)) + a_pow4*r_pow2*(6*r_pow2*(-620*M_pow3 + 38*M_pow2*r + 421*M*r_pow2 + 93*r_pow3) + L_pow2*(-1488*M_pow3 + 460*M_pow2*r + 1846*M*r_pow2 + 449*r_pow3)) + a_pow6*r*(L_pow2*(1296*M_pow2 + 886*M*r + 123*r_pow2) - 6*(576*M_pow4 + 268*M_pow3*r - 656*M_pow2*r_pow2 - 447*M*r_pow3 - 62*r_pow4))) - r_pow6*(27*a_pow10*r*twoM_plus_r_pow3 + r_pow8*(r_pow4*(274*M_pow2 - 211*M*r + 34*r_pow2) + L_pow4*(-130*M_pow2 - 11*M*r + 35*r_pow2) + 2*L_pow2*r_pow2*(186*M_pow2 - 211*M*r + 56*r_pow2)) + a_pow8*twoM_plus_r*(6*L_pow2*M*(184*M_pow2 + 62*M*r - 9*r_pow2) + r_pow2*(-740*M_pow3 - 496*M_pow2*r + 221*M*r_pow2 + 142*r_pow3)) + a_pow2*r_pow5*(L_pow4*(-488*M_pow3 + 232*M_pow2*r + 185*M*r_pow2 + 35*r_pow3) + 4*L_pow2*r_pow2*(264*M_pow3 - 97*M_pow2*r - 158*M*r_pow2 + 78*r_pow3) + r_pow4*(1644*M_pow3 - 444*M_pow2*r - 614*M*r_pow2 + 163*r_pow3)) + a_pow4*r_pow2*(L_pow4*(-1488*M_pow4 + 752*M_pow3*r + 1074*M_pow2*r_pow2 + 111*M*r_pow3 - 27*r_pow4) + 6*r_pow4*(548*M_pow4 + 126*M_pow3*r - 402*M_pow2*r_pow2 - 69*M*r_pow3 + 52*r_pow4) + 4*L_pow2*r_pow2*(-276*M_pow4 + 246*M_pow3*r - 79*M_pow2*r_pow2 - 37*M*r_pow3 + 72*r_pow4)) + a_pow6*r*(L_pow4*(1296*M_pow3 + 440*M_pow2*r - 69*M*r_pow2 - 27*r_pow3) + L_pow2*(-3456*M_pow5 - 720*M_pow4*r + 2544*M_pow3*r_pow2 + 612*M_pow2*r_pow3 + 8*M*r_pow4 + 88*r_pow5) + 2*r_pow2*(1096*M_pow5 + 800*M_pow4*r - 1418*M_pow3*r_pow2 - 1036*M_pow2*r_pow3 + 166*M*r_pow4 + 149*r_pow5))))*ur_pow4 + 3*r_pow9*(r_pow3 + a_pow2*twoM_plus_r)*(2*a_pow6*twoM_plus_r_pow2 + a_pow4*r*(64*M_pow3 + L_pow2*(45*M - 3*r) + 72*M_pow2*r + 32*M*r_pow2 + 6*r_pow3) + 2*r_pow5*(L_pow2*(32*M - 6*r) + r_pow2*(8*M + r)) + a_pow2*r_pow2*(L_pow2*(2*M_pow2 + 87*M*r - 15*r_pow2) + 2*r_pow2*(32*M_pow2 + 20*M*r + 3*r_pow2)))*ur_pow6)/(48.*pow(a_pow2 + r*r_minus_twoM,4)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3));
A4020 = (12*r_pow3*pow(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2)),2))/(pow(a_pow2 + r*r_minus_twoM,4)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2)));
A4021 = (-2*r*ur*(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2)))*(4*a_pow7*E*M*twoM_plus_r_pow2 + 4*a_pow5*E*M*r_pow2*(12*M_pow2 + 16*M*r + 5*r_pow2) + a_pow6*L*(-16*M_pow3 + 2*M_pow2*r + 9*M*r_pow2 + 2*r_pow3) + 12*a*E*M*r_pow4*(-L_pow4 + r_pow4) + 4*a_pow3*E*M*r_pow2*(-L_pow4 + r_pow3*(12*M + 7*r)) + a_pow4*L*r_pow2*(-60*M_pow3 + 3*r_pow3 + L_pow2*(13*M + 4*r) - 3*M*r_pow2*(-2 + ur_pow2) - 2*M_pow2*r*(20 + 3*ur_pow2)) - L*r_pow4*(L_pow4*(-6*M + 4*r) + r_pow5*(1 - 3*ur_pow2) + L_pow2*r_pow2*(-6*M + r*(5 + 2*ur_pow2))) + a_pow2*L*r_pow2*(2*L_pow4*twoM_plus_r + 3*r_pow3*(-10*M_pow2 + r_pow2*ur_pow2 + M*r*(-1 + ur_pow2)) + L_pow2*r*(-18*M_pow2 - r_pow2 + M*(r + 2*r*ur_pow2)))))/(pow(a_pow2 + r*r_minus_twoM,4)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2));
A4040 = (2*(-4*a*E*L*M*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(a_pow6*(48*M_pow2 + 40*M*r + 3*r_pow2) + a_pow4*r*(-96*M_pow3 - 110*M_pow2*r + 73*M*r_pow2 + 8*r_pow3 + 9*L_pow2*(6*M + r)) + r_pow3*(3*L_pow2*(15*M - 2*r)*r_pow2 + 3*r_pow4*(-M + 4*r) + L_pow4*(-4*M + 6*r)) + a_pow2*r_pow2*(6*L_pow4 + L_pow2*(-48*M_pow2 + 81*M*r + 9*r_pow2) + r_pow2*(-234*M_pow2 + 50*M*r + 17*r_pow2))) + 4*E_pow2*M*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(3*a_pow8*(8*M_pow2 + 10*M*r + 3*r_pow2) + r_pow6*(2*L_pow4 + 6*L_pow2*r_pow2 + 3*r_pow4) + a_pow2*r_pow3*(18*r_pow4*(-3*M + r) + L_pow4*(-2*M + 5*r) + 3*L_pow2*r_pow2*(9*M + 8*r)) + 3*a_pow4*r_pow2*(L_pow4 + 6*r_pow2*(-8*M_pow2 - 3*M*r + 2*r_pow2) + L_pow2*(-8*M_pow2 + 14*M*r + 10*r_pow2)) + 3*a_pow6*r*(L_pow2*(9*M + 4*r) + 2*(-8*M_pow3 - 12*M_pow2*r + 5*M*r_pow2 + 5*r_pow3))) - pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(a_pow8*r*(62*M_pow2 + 42*M*r + 3*r_pow2) - r_pow3*(4*L_pow6*M*r_minus_twoM + 3*r_pow6*(23*M_pow2 - 20*M*r + 3*r_pow2) + 3*L_pow2*r_pow4*(42*M_pow2 - 36*M*r + 5*r_pow2) + L_pow4*r_pow2*(73*M_pow2 - 68*M*r + 12*r_pow2)) + a_pow2*r_pow2*(-12*L_pow6*M + 3*L_pow2*r_pow2*(152*M_pow3 - 140*M_pow2*r + 66*M*r_pow2 - 19*r_pow3) + 2*L_pow4*(48*M_pow3 - 78*M_pow2*r + 25*M*r_pow2 - 12*r_pow3) + 6*r_pow4*(16*M_pow3 - 26*M_pow2*r + 25*M*r_pow2 - 6*r_pow3)) - 2*a_pow6*(L_pow2*(48*M_pow3 + 20*M_pow2*r - 33*M*r_pow2 - 3*r_pow3) + r_pow2*(74*M_pow3 + 17*M_pow2*r - 33*M*r_pow2 + 6*r_pow3)) + a_pow4*r*(3*L_pow4*(-36*M_pow2 + 4*M*r + r_pow2) + 2*L_pow2*(96*M_pow4 + 76*M_pow3*r - 143*M_pow2*r_pow2 + 45*M*r_pow3 - 18*r_pow4) - 3*r_pow2*(-36*M_pow4 + 20*M_pow3*r + 45*M_pow2*r_pow2 - 38*M*r_pow3 + 14*r_pow4))) + r_pow2*(a_pow2 + r*r_minus_twoM)*(-8*a_pow11*E*L*M*twoM_plus_r_pow2*(30*M_pow2 + 16*M*r + 15*r_pow2) - 8*a*E*L*M*r_pow7*(L_pow2 + r_pow2)*(L_pow4*(17*M - 12*r) - 75*L_pow2*twoM_minus_r*r_pow2 + 3*r_pow4*(-59*M + 34*r)) + 8*a_pow9*E*L*M*r*twoM_plus_r*(96*M_pow4 + 28*M_pow3*r + 84*M_pow2*r_pow2 - 79*M*r_pow3 - 92*r_pow4 + L_pow2*(6*M_pow2 - 67*M*r - 39*r_pow2)) + 8*a_pow3*E*L*M*r_pow4*(r_pow6*(564*M_pow2 + 76*M*r - 353*r_pow2) + 2*L_pow2*r_pow4*(630*M_pow2 + 116*M*r - 229*r_pow2) + L_pow4*r_pow2*(724*M_pow2 + 113*M*r - 135*r_pow2) + L_pow6*(8*M_pow2 - 23*M*r - 15*r_pow2)) + a_pow12*twoM_plus_r_pow2*(r*(50*M_pow2 + 24*M*r - 3*r_pow2) + 12*E_pow2*M*(10*M_pow2 + 9*M*r + 2*r_pow2)) + r_pow7*(L_pow2 + r_pow2)*(L_pow4*r_pow2*(-123*M_pow2 + 4*(27 + E_pow2)*M*r - 24*r_pow2) + 3*r_pow6*(11*M_pow2 - 16*M*r + 4*r_pow2) + 6*L_pow6*(5*M_pow2 - 10*M*r + 4*r_pow2) - 3*L_pow2*r_pow4*(140*M_pow2 + 4*(-35 + 3*E_pow2)*M*r + 37*r_pow2)) + a_pow2*r_pow4*(-4*L_pow8*(8*M_pow3 - 6*M_pow2*r - 9*M*r_pow2 + 6*r_pow3) + 6*r_pow8*(84*M_pow3 + 2*(-33 + 5*E_pow2)*M_pow2*r + (-13 + 4*E_pow2)*M*r_pow2 + 10*r_pow3) - 6*L_pow4*r_pow4*(766*M_pow3 + (-187 + 228*E_pow2)*M_pow2*r + 2*(-83 + 4*E_pow2)*M*r_pow2 + 23*r_pow3) + L_pow6*r_pow2*(-2306*M_pow3 + (639 + 208*E_pow2)*M_pow2*r + 2*(129 + 10*E_pow2)*M*r_pow2 + 24*r_pow3) - 3*L_pow2*r_pow6*(806*M_pow3 + (-137 + 532*E_pow2)*M_pow2*r + 2*(-141 + 14*E_pow2)*M*r_pow2 + 67*r_pow3)) - 8*a_pow5*E*L*M*r_pow3*(3*L_pow6*(4*M + 3*r) + L_pow4*(-160*M_pow3 - 544*M_pow2*r + 53*M*r_pow2 + 105*r_pow3) + 2*L_pow2*r_pow2*(-702*M_pow3 - 848*M_pow2*r + 107*M*r_pow2 + 212*r_pow3) + 2*r_pow4*(-90*M_pow3 - 261*M_pow2*r + 245*M*r_pow2 + 231*r_pow3)) + 8*a_pow7*E*L*M*r_pow2*(-384*M_pow4*r_pow2 + 38*M_pow2*r_pow4 - 576*M*r_pow5 - 288*r_pow6 + 3*L_pow4*(4*M_pow2 - 27*M*r - 11*r_pow2) + 2*L_pow2*(192*M_pow4 + 668*M_pow3*r + 378*M_pow2*r_pow2 - 132*M*r_pow3 - 91*r_pow4)) + a_pow4*r_pow3*(6*L_pow8*(8*M_pow2 + 10*M*r + r_pow2) - 4*L_pow2*r_pow4*(180*M_pow4 + 16*(70 + 99*E_pow2)*M_pow3*r + 2*(-229 + 504*E_pow2)*M_pow2*r_pow2 - 3*(135 + 2*E_pow2)*M*r_pow3 + 3*r_pow4) + 3*r_pow6*(624*M_pow4 + 8*(-16 + 11*E_pow2)*M_pow3*r + 132*(-3 + E_pow2)*M_pow2*r_pow2 + 4*(17 + 10*E_pow2)*M*r_pow3 + 39*r_pow4) + L_pow6*(-640*M_pow4 - 32*(73 + E_pow2)*M_pow3*r + 80*(9 + 2*E_pow2)*M_pow2*r_pow2 + 2*(225 + 14*E_pow2)*M*r_pow3 + 39*r_pow4) + 2*L_pow4*r_pow2*(-1464*M_pow4 - 4*(779 + 366*E_pow2)*M_pow3*r - 52*(-25 + 21*E_pow2)*M_pow2*r_pow2 + 6*(143 + 4*E_pow2)*M*r_pow3 + 69*r_pow4)) + a_pow6*r_pow2*(3*L_pow6*(-16*M_pow3 + 16*(12 + E_pow2)*M_pow2*r + 2*(37 + 2*E_pow2)*M*r_pow2 + 5*r_pow3) - 2*L_pow4*(768*M_pow5 + 16*(169 + 20*E_pow2)*M_pow4*r + 18*(89 + 56*E_pow2)*M_pow3*r_pow2 + (-1523 + 372*E_pow2)*M_pow2*r_pow3 - 2*(381 + 28*E_pow2)*M*r_pow4 - 75*r_pow5) + 4*r_pow4*(624*M_pow5 + 12*(20 + 3*E_pow2)*M_pow4*r + 2*(-341 + 144*E_pow2)*M_pow3*r_pow2 + (-163 + 258*E_pow2)*M_pow2*r_pow3 + 3*(51 + 20*E_pow2)*M*r_pow4 + 27*r_pow5) + 4*L_pow2*r_pow2*(1188*M_pow5 - 2*(431 + 918*E_pow2)*M_pow4*r - 8*(131 + 324*E_pow2)*M_pow3*r_pow2 + 2*(493 - 381*E_pow2)*M_pow2*r_pow3 + 3*(193 + 18*E_pow2)*M*r_pow4 + 45*r_pow5)) + a_pow8*r*(L_pow4*(-48*M_pow4 + 16*(52 - 3*E_pow2)*M_pow3*r + (1079 + 72*E_pow2)*M_pow2*r_pow2 + 12*(23 + 4*E_pow2)*M*r_pow3 + 9*r_pow4) - L_pow2*(768*M_pow6 + 128*(5 + 12*E_pow2)*M_pow5*r + 40*(103 + 132*E_pow2)*M_pow4*r_pow2 + 24*(-19 + 160*E_pow2)*M_pow3*r_pow3 + (-3595 + 384*E_pow2)*M_pow2*r_pow4 - 12*(108 + 17*E_pow2)*M*r_pow5 - 87*r_pow6) + r_pow2*(1008*M_pow6 - 96*(-11 + 7*E_pow2)*M_pow5*r + 104*(-23 + 6*E_pow2)*M_pow4*r_pow2 + 24*(-79 + 90*E_pow2)*M_pow3*r_pow3 + 15*(43 + 88*E_pow2)*M_pow2*r_pow4 + 24*(23 + 10*E_pow2)*M*r_pow5 + 42*r_pow6)) + a_pow10*twoM_plus_r*(L_pow2*(240*M_pow4 - 8*(-20 + 3*E_pow2)*M_pow3*r + (421 + 108*E_pow2)*M_pow2*r_pow2 + 12*(11 + 5*E_pow2)*M*r_pow3 - 3*r_pow4) + 2*M*r*(r*(-256*M_pow3 - 180*M_pow2*r + 150*M*r_pow2 + 93*r_pow3) - 6*E_pow2*(32*M_pow4 + 8*M_pow3*r - 62*M_pow2*r_pow2 - 49*M*r_pow3 - 10*r_pow4))))*ur_pow2 + r_pow5*(2*a_pow12*M*twoM_plus_r_pow2*(71*M + 39*r) + r_pow8*(L_pow2*r_pow4*(-932*M_pow2 + 880*M*r - 207*r_pow2) + 24*L_pow6*(2*M_pow2 - 3*M*r + r_pow2) + r_pow6*(-20*M_pow2 - 8*M*r + 9*r_pow2) - 3*L_pow4*r_pow2*(188*M_pow2 - 172*M*r + 39*r_pow2)) + a_pow2*r_pow5*(L_pow6*(-88*M_pow3 + 36*M_pow2*r + 12*r_pow3) + 2*r_pow6*(178*M_pow3 - 249*M_pow2*r + 64*M*r_pow2 + 15*r_pow3) - 6*L_pow4*r_pow2*(348*M_pow3 + 80*M_pow2*r - 185*M*r_pow2 + 29*r_pow3) - L_pow2*r_pow4*(1084*M_pow3 + 1458*M_pow2*r - 2158*M*r_pow2 + 555*r_pow3)) + 2*a_pow10*twoM_plus_r*(L_pow2*M*(232*M_pow2 + 341*M*r + 147*r_pow2) + r*(-508*M_pow4 - 312*M_pow3*r + 333*M_pow2*r_pow2 + 182*M*r_pow3 - 3*r_pow4)) - 4*E_pow2*M*pow(r_pow3 + a_pow2*twoM_plus_r,3)*(a_pow4*twoM_plus_r_pow2 + 2*a_pow2*r*twoM_plus_r*(6*L_pow2 + r_pow2) + r_pow2*(L_pow4 + 12*L_pow2*r_pow2 + r_pow4)) + a_pow4*r_pow2*(L_pow2*r_pow4*(1848*M_pow4 - 6200*M_pow3*r - 836*M_pow2*r_pow2 + 3126*M*r_pow3 - 423*r_pow4) - 4*L_pow6*(8*M_pow4 + 40*M_pow3*r - 3*M_pow2*r_pow2 - 12*M*r_pow3 + 3*r_pow4) + L_pow4*r_pow2*(972*M_pow4 - 4468*M_pow3*r + 455*M_pow2*r_pow2 + 1644*M*r_pow3 + 3*r_pow4) + 2*r_pow6*(1056*M_pow4 - 540*M_pow3*r - 491*M_pow2*r_pow2 + 275*M*r_pow3 + 15*r_pow4)) + a_pow6*r*(24*L_pow6*M*r*(3*M + 2*r) + 8*M*r_pow4*(442*M_pow4 + 49*M_pow3*r - 475*M_pow2*r_pow2 - 8*M*r_pow3 + 110*r_pow4) - 2*L_pow4*(384*M_pow5 + 712*M_pow4*r + 1150*M_pow3*r_pow2 - 931*M_pow2*r_pow3 - 657*M*r_pow4 - 30*r_pow5) + L_pow2*r_pow2*(512*M_pow5 - 5520*M_pow4*r - 7368*M_pow3*r_pow2 + 3520*M_pow2*r_pow3 + 3592*M*r_pow4 - 9*r_pow5)) + a_pow8*(L_pow4*M*r*(328*M_pow2 + 783*M*r + 264*r_pow2) + r_pow2*(1792*M_pow6 + 1248*M_pow5*r - 4312*M_pow4*r_pow2 - 2536*M_pow3*r_pow3 + 1380*M_pow2*r_pow4 + 740*M*r_pow5 - 15*r_pow6) + L_pow2*(-128*M_pow6 - 2048*M_pow5*r - 3176*M_pow4*r_pow2 + 1760*M_pow3*r_pow3 + 5100*M_pow2*r_pow4 + 2038*M*r_pow5 + 66*r_pow6)) - 4*a*E*L*M*(2*a_pow10*twoM_plus_r_pow2*(29*M + 18*r) - a_pow8*twoM_plus_r*(32*M_pow4 - 41*L_pow2*M*r + 280*M_pow3*r - 42*L_pow2*r_pow2 + 108*M_pow2*r_pow2 - 372*M*r_pow3 - 194*r_pow4) + r_pow8*(4*L_pow4*(5*M - 3*r) + 2*r_pow4*(-80*M + 39*r) + 3*L_pow2*r_pow2*(-130*M + 57*r)) - a_pow2*r_pow5*(L_pow2*r_pow2*(882*M_pow2 + 443*M*r - 469*r_pow2) + 2*r_pow4*(358*M_pow2 + 79*M*r - 160*r_pow2) + 2*L_pow4*(38*M_pow2 - 5*M*r + 3*r_pow2)) + a_pow4*r_pow2*(-4*L_pow4*(4*M_pow3 + 13*M_pow2*r - 8*M*r_pow2 - 3*r_pow3) + 4*r_pow4*(-240*M_pow3 - 303*M_pow2*r + 130*M*r_pow2 + 132*r_pow3) + L_pow2*r_pow2*(-396*M_pow3 - 1166*M_pow2*r + 65*M*r_pow2 + 467*r_pow3)) + a_pow6*r*(6*L_pow4*r*(3*M + r) + 4*r_pow2*(-92*M_pow4 - 366*M_pow3*r - 59*M_pow2*r_pow2 + 269*M*r_pow3 + 111*r_pow4) + L_pow2*(-384*M_pow4 - 740*M_pow3*r - 546*M_pow2*r_pow2 + 243*M*r_pow3 + 211*r_pow4))))*ur_pow4 + r_pow7*(6*a_pow10*M*twoM_plus_r_pow2*(5*M + 2*r) + r_pow9*(3*L_pow2*(58*M - 21*r)*r_pow2 - 8*M*r_pow4 + 6*r_pow5 + L_pow4*(-8*M + 6*r)) + a_pow8*M*r*twoM_plus_r*(-88*M_pow3 + 114*M*r_pow2 + 40*r_pow3 + 9*L_pow2*(25*M + 16*r)) + 2*a_pow2*r_pow6*(9*L_pow2*(23*M - 7*r)*r_pow3 + L_pow4*(8*M_pow2 + 4*M*r + 3*r_pow2) + r_pow4*(-8*M_pow2 + 8*M*r + 9*r_pow2)) + a_pow4*r_pow3*(2*L_pow4*M*(-22*M_pow2 + 11*M*r + 8*r_pow2) + 6*r_pow4*(-2*M_pow3 + 13*M_pow2*r + 12*M*r_pow2 + 3*r_pow3) - 9*L_pow2*r_pow2*(106*M_pow3 - 57*M_pow2*r - 78*M*r_pow2 + 7*r_pow3)) + 2*a_pow6*r_pow2*(3*L_pow4*M*(5*M + 2*r) + 3*L_pow2*M*(-86*M_pow3 + 213*M*r_pow2 + 101*r_pow3) + r_pow2*(-56*M_pow4 + 48*M_pow3*r + 105*M_pow2*r_pow2 + 38*M*r_pow3 + 3*r_pow4)))*ur_pow6))/(3.*r_pow3*pow(a_pow2 + r*r_minus_twoM,5)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2));
A4041 = (ur*(-24*a*E_pow3*M_pow2*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(3*a_pow12*(M + r)*twoM_plus_r_pow2 + 3*a_pow10*r*twoM_plus_r*(16*M_pow3 + L_pow2*(3*M - 2*r) + 26*M_pow2*r + 27*M*r_pow2 + 10*r_pow3) + r_pow9*(-7*L_pow6 - 22*L_pow4*r_pow2 + 12*L_pow2*r_pow4 + 9*r_pow6) - a_pow2*r_pow6*(27*(M - 2*r)*r_pow6 + 14*L_pow6*(M + r) - 3*L_pow2*r_pow4*(225*M + 8*r) + L_pow4*r_pow2*(196*M + 87*r)) + a_pow4*r_pow4*(-7*L_pow6*twoM_plus_r + L_pow4*r*(20*M_pow2 - 296*M*r - 117*r_pow2) - 6*L_pow2*r_pow3*(-237*M_pow2 - 221*M*r + r_pow2) + 3*r_pow5*(-72*M_pow2 + 13*M*r + 43*r_pow2)) + a_pow6*r_pow3*(-(L_pow4*(28*M_pow2 + 172*M*r + 61*r_pow2)) + 6*L_pow2*r*(40*M_pow3 + 245*M_pow2*r + 132*M*r_pow2 - 7*r_pow3) + 6*r_pow3*(-42*M_pow3 - 24*M_pow2*r + 45*M*r_pow2 + 26*r_pow3)) + 3*a_pow8*r_pow2*(-(L_pow4*(8*M + 3*r)) + 2*L_pow2*(16*M_pow3 + 67*M_pow2*r + 23*M*r_pow2 - 5*r_pow3) + r_pow2*(12*M_pow3 + 96*M_pow2*r + 110*M*r_pow2 + 33*r_pow3))) + 2*E_pow2*L*M*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(a_pow12*(432*M_pow4 + 1012*M_pow3*r + 818*M_pow2*r_pow2 + 456*M*r_pow3 + 123*r_pow4) + a_pow2*r_pow6*(-21*L_pow6*(12*M_pow2 + 24*M*r - 13*r_pow2) + 2*r_pow6*(3049*M_pow2 - 2031*M*r + 252*r_pow2) + 3*L_pow4*r_pow2*(-1012*M_pow2 - 238*M*r + 391*r_pow2) + L_pow2*r_pow4*(13194*M_pow2 - 8466*M*r + 1301*r_pow2)) + r_pow9*(-84*L_pow6*twoM_minus_r - 23*L_pow2*(16*M - 9*r)*r_pow4 + r_pow6*(-122*M + 77*r) + L_pow4*(-486*M*r_pow2 + 250*r_pow3)) + a_pow10*r*(3456*M_pow5 + 3760*M_pow4*r + 3488*M_pow3*r_pow2 + 546*M_pow2*r_pow3 + 850*M*r_pow4 + 688*r_pow5 + L_pow2*(648*M_pow3 + 110*M_pow2*r + 720*M*r_pow2 + 351*r_pow3)) + a_pow4*r_pow4*(-42*L_pow6*(12*M_pow2 + 8*M*r - 7*r_pow2) + 6*L_pow2*r_pow3*(7876*M_pow3 + 1736*M_pow2*r - 2523*M*r_pow2 + 502*r_pow3) + r_pow5*(7044*M_pow3 + 5538*M_pow2*r - 10356*M*r_pow2 + 1369*r_pow3) + L_pow4*r*(2208*M_pow3 - 8860*M_pow2*r - 2610*M*r_pow2 + 1929*r_pow3)) + a_pow6*r_pow3*(105*L_pow6*r - L_pow4*(1008*M_pow3 + 6856*M_pow2*r + 918*M*r_pow2 - 1339*r_pow3) + 4*r_pow3*(-2452*M_pow4 + 2320*M_pow3*r - 461*M_pow2*r_pow2 - 2269*M*r_pow3 + 494*r_pow4) + 2*L_pow2*r*(5896*M_pow4 + 24072*M_pow3*r - 1108*M_pow2*r_pow2 - 3959*M*r_pow3 + 1650*r_pow4)) + a_pow8*r_pow2*(L_pow4*(-864*M_pow2 + 264*M*r + 333*r_pow2) + L_pow2*(3456*M_pow4 + 10032*M_pow3*r - 3904*M_pow2*r_pow2 - 158*M*r_pow3 + 1733*r_pow4) + r*(2944*M_pow5 + 3504*M_pow4*r + 11176*M_pow3*r_pow2 - 1556*M_pow2*r_pow3 - 2266*M*r_pow4 + 1599*r_pow5))) + L*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(a_pow12*M*r*(88*M_pow3 + 600*M_pow2*r + 482*M*r_pow2 + 75*r_pow3) + r_pow6*(42*L_pow8*M*r_minus_twoM_pow2 + 2*L_pow2*r_pow6*(1027*M_pow3 - 1489*M_pow2*r + 697*M*r_pow2 - 99*r_pow3) + L_pow4*r_pow4*(2224*M_pow3 - 2737*M_pow2*r + 967*M*r_pow2 - 66*r_pow3) + r_pow8*(244*M_pow3 - 345*M_pow2*r + 167*M*r_pow2 - 24*r_pow3) + 2*L_pow6*r_pow2*(147*M_pow3 + 80*M_pow2*r - 217*M*r_pow2 + 72*r_pow3)) - a_pow2*r_pow4*(84*L_pow8*M*(4*M_pow2 + 4*M*r - 3*r_pow2) + r_pow7*(-2262*M_pow4 + 791*M_pow3*r + 951*M_pow2*r_pow2 - 519*M*r_pow3 + 33*r_pow4) + 2*L_pow6*r*(-1728*M_pow4 + 1876*M_pow3*r + 645*M_pow2*r_pow2 - 826*M*r_pow3 + 132*r_pow4) + 2*L_pow2*r_pow5*(-8714*M_pow4 + 5911*M_pow3*r + 1873*M_pow2*r_pow2 - 1749*M*r_pow3 + 183*r_pow4) + L_pow4*r_pow3*(-22606*M_pow4 + 16967*M_pow3*r + 3041*M_pow2*r_pow2 - 3641*M*r_pow3 + 339*r_pow4)) + a_pow10*(2*L_pow2*M*(144*M_pow4 + 436*M_pow3*r + 824*M_pow2*r_pow2 + 959*M*r_pow3 + 198*r_pow4) + r_pow2*(-688*M_pow5 - 3852*M_pow4*r - 1538*M_pow3*r_pow2 + 1758*M_pow2*r_pow3 + 427*M*r_pow4 + 3*r_pow5)) + a_pow4*r_pow3*(210*L_pow8*M*r + L_pow6*(-672*M_pow4 - 5456*M_pow3*r + 20*M_pow2*r_pow2 + 2086*M*r_pow3 + 30*r_pow4) + L_pow4*r*(12064*M_pow5 + 25808*M_pow4*r - 30377*M_pow3*r_pow2 - 708*M_pow2*r_pow3 + 4864*M*r_pow4 - 210*r_pow5) + r_pow5*(-9792*M_pow5 + 15764*M_pow4*r - 6725*M_pow3*r_pow2 - 1623*M_pow2*r_pow3 + 1117*M*r_pow4 + 48*r_pow5) - 2*L_pow2*r_pow3*(4828*M_pow5 - 21152*M_pow4*r + 16586*M_pow3*r_pow2 + 1129*M_pow2*r_pow3 - 2445*M*r_pow4 + 51*r_pow5)) + a_pow8*r*(L_pow4*M*(432*M_pow3 + 364*M_pow2*r + 2396*M*r_pow2 + 777*r_pow3) + L_pow2*(2304*M_pow6 - 2272*M_pow5*r - 4800*M_pow4*r_pow2 - 7942*M_pow3*r_pow3 + 5584*M_pow2*r_pow4 + 2100*M*r_pow5 + 36*r_pow6) + r_pow2*(1504*M_pow6 + 6764*M_pow5*r - 2468*M_pow4*r_pow2 - 10967*M_pow3*r_pow3 + 2034*M_pow2*r_pow4 + 1209*M*r_pow5 + 48*r_pow6)) + a_pow6*r_pow2*(6*L_pow6*M*(-96*M_pow2 + 160*M*r + 111*r_pow2) + L_pow4*(2304*M_pow5 + 768*M_pow4*r - 13460*M_pow3*r_pow2 + 4704*M_pow2*r_pow3 + 3507*M*r_pow4 + 63*r_pow5) + 2*L_pow2*r*(2944*M_pow6 + 2952*M_pow5*r + 6574*M_pow4*r_pow2 - 17635*M_pow3*r_pow3 + 1472*M_pow2*r_pow4 + 2245*M*r_pow5 + 51*r_pow6) + r_pow3*(-3352*M_pow6 + 5108*M_pow5*r + 16462*M_pow4*r_pow2 - 14999*M_pow3*r_pow3 - 259*M_pow2*r_pow4 + 1622*M*r_pow5 + 102*r_pow6))) - 2*a*E*M*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(2*a_pow12*r*(22*M_pow3 + 117*M_pow2*r + 119*M*r_pow2 + 33*r_pow3) + r_pow7*(-210*L_pow8*twoM_minus_r + 3*r_pow7*(338*M_pow2 - 340*M*r + 93*r_pow2) + 2*L_pow6*r*(-120*M_pow2 - 232*M*r + 135*r_pow2) + 4*L_pow2*r_pow5*(1645*M_pow2 - 1786*M*r + 492*r_pow2) + L_pow4*r_pow3*(7774*M_pow2 - 8472*M*r + 2289*r_pow2)) + 2*a_pow10*(L_pow2*(216*M_pow4 + 580*M_pow3*r + 731*M_pow2*r_pow2 + 688*M*r_pow3 + 189*r_pow4) + r_pow2*(-172*M_pow4 - 838*M_pow3*r - 587*M_pow2*r_pow2 + 280*M*r_pow3 + 202*r_pow4)) + a_pow4*r_pow3*(210*L_pow8*r - 2*L_pow6*(504*M_pow3 + 3760*M_pow2*r + 88*M*r_pow2 - 1221*r_pow3) + 2*r_pow5*(-2664*M_pow4 + 3168*M_pow3*r + 1067*M_pow2*r_pow2 - 2372*M*r_pow3 + 781*r_pow4) + 2*L_pow2*r_pow3*(-5316*M_pow4 + 16456*M_pow3*r - 10359*M_pow2*r_pow2 - 6974*M*r_pow3 + 3345*r_pow4) + L_pow4*r*(14944*M_pow4 + 43408*M_pow3*r - 27790*M_pow2*r_pow2 - 6592*M*r_pow3 + 6931*r_pow4)) + a_pow8*r*(2*L_pow4*(324*M_pow3 + 164*M_pow2*r + 995*M*r_pow2 + 384*r_pow3) + r_pow2*(752*M_pow5 + 3184*M_pow4*r - 276*M_pow3*r_pow2 - 6150*M_pow2*r_pow3 - 1242*M*r_pow4 + 989*r_pow5) + 2*L_pow2*(1728*M_pow5 + 88*M_pow4*r - 896*M_pow3*r_pow2 - 2327*M_pow2*r_pow3 + 1602*M*r_pow4 + 1055*r_pow5)) + 2*a_pow6*r_pow2*(L_pow6*(-432*M_pow2 + 426*M*r + 333*r_pow2) + L_pow4*(1728*M_pow4 + 2796*M_pow3*r - 6145*M_pow2*r_pow2 + 1480*M*r_pow3 + 1864*r_pow4) + r_pow3*(-696*M_pow5 + 1116*M_pow4*r + 5018*M_pow3*r_pow2 - 2128*M_pow2*r_pow3 - 2125*M*r_pow4 + 741*r_pow5) + L_pow2*r*(2944*M_pow5 + 3012*M_pow4*r + 6596*M_pow3*r_pow2 - 11799*M_pow2*r_pow3 - 1934*M*r_pow4 + 2385*r_pow5)) - 2*a_pow2*r_pow4*(42*L_pow8*(6*M_pow2 + 5*M*r - 5*r_pow2) + L_pow4*r_pow3*(-21104*M_pow3 + 7187*M_pow2*r + 7507*M*r_pow2 - 3130*r_pow3) + L_pow6*r*(-1848*M_pow3 + 3592*M_pow2*r + 1154*M*r_pow2 - 1455*r_pow3) + r_pow7*(144*M_pow3 - 1331*M_pow2*r + 1539*M*r_pow2 - 505*r_pow3) + L_pow2*(-9936*M_pow3*r_pow5 + 848*M_pow2*r_pow6 + 7698*M*r_pow7 - 2810*r_pow8))) + r_pow3*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(-24*a*E_pow3*M_pow2*pow(r_pow3 + a_pow2*twoM_plus_r,2)*(-7*L_pow6*r_pow5 + 20*L_pow4*r_pow7 - 10*L_pow2*r_pow9 + 5*r_pow11 + 7*a_pow8*twoM_plus_r_pow3 + 2*a_pow6*r_pow2*twoM_plus_r_pow2*(5*M + 13*r) - 2*a_pow4*r_pow3*twoM_plus_r*(5*L_pow2*twoM_plus_r - 3*r_pow2*(5*M + 6*r)) + a_pow2*r_pow3*(-7*L_pow6 + 20*L_pow4*r*twoM_plus_r - 20*L_pow2*r_pow3*twoM_plus_r + 2*r_pow5*(15*M + 11*r))) + 2*E_pow2*L*M*(2*a_pow14*twoM_plus_r_pow2*(142*M_pow2 + 267*M*r + 45*r_pow2) + r_pow11*(-63*L_pow6*twoM_minus_r - 9*L_pow2*(12*M - 5*r)*r_pow4 + 2*L_pow4*r_pow2*(-80*M + 31*r) + 2*r_pow6*(-79*M + 44*r)) + 2*a_pow2*r_pow8*(-21*L_pow6*(6*M_pow2 + 14*M*r - 7*r_pow2) + 4*r_pow6*(-1195*M_pow2 + 538*M*r + 61*r_pow2) + 4*L_pow4*r_pow2*(117*M_pow2 - 157*M*r + 93*r_pow2) + 3*L_pow2*r_pow4*(4428*M_pow2 - 2483*M*r + 103*r_pow2)) + a_pow4*r_pow6*(-84*L_pow6*(20*M_pow2 + 7*M*r - 6*r_pow2) + 4*L_pow4*r*(5232*M_pow3 - 620*M_pow2*r - 999*M*r_pow2 + 540*r_pow3) + 2*r_pow5*(-14956*M_pow3 - 5400*M_pow2*r + 9198*M*r_pow2 + 605*r_pow3) + 3*L_pow2*r_pow3*(10764*M_pow3 + 8082*M_pow2*r - 13240*M*r_pow2 + 769*r_pow3)) + a_pow12*twoM_plus_r*(4032*M_pow5 + 4688*M_pow4*r - 1368*M_pow3*r_pow2 + 285*L_pow2*r_pow3 + 498*r_pow5 + 2*M_pow2*(849*L_pow2*r + 1780*r_pow3) + 6*M*(121*L_pow2*r_pow2 + 646*r_pow4)) - 2*a_pow6*r_pow3*(21*L_pow6*(24*M_pow3 + 34*M_pow2*r - 2*M*r_pow2 - 9*r_pow3) + r_pow5*(4232*M_pow4 + 19652*M_pow3*r - 8878*M_pow2*r_pow2 - 14987*M*r_pow3 - 905*r_pow4) + 6*L_pow2*r_pow3*(3618*M_pow4 - 1482*M_pow3*r + 738*M_pow2*r_pow2 + 2925*M*r_pow3 - 329*r_pow4) - 2*L_pow4*r*(2512*M_pow4 + 3956*M_pow3*r - 3146*M_pow2*r_pow2 - 815*M*r_pow3 + 659*r_pow4)) + a_pow8*r_pow3*(105*L_pow6*twoM_plus_r - 2*L_pow4*(776*M_pow3 + 3704*M_pow2*r - 126*M*r_pow2 - 729*r_pow3) - 3*L_pow2*(576*M_pow5 + 10544*M_pow4*r - 4024*M_pow3*r_pow2 + 1068*M_pow2*r_pow3 + 2932*M*r_pow4 - 1169*r_pow5) + 2*r_pow2*(15904*M_pow5 + 6752*M_pow4*r - 5008*M_pow3*r_pow2 + 17712*M_pow2*r_pow3 + 12925*M*r_pow4 + 910*r_pow5)) + 2*a_pow10*r_pow2*(L_pow4*(-112*M_pow2 + 306*M*r + 150*r_pow2) + L_pow2*(-4332*M_pow4 + 3900*M_pow3*r + 3240*M_pow2*r_pow2 + 1335*M*r_pow3 + 789*r_pow4) + 2*(1520*M_pow6 + 8952*M_pow5*r + 2304*M_pow4*r_pow2 + 464*M_pow3*r_pow3 + 6240*M_pow2*r_pow4 + 3447*M*r_pow5 + 307*r_pow6))) - L*(a_pow14*M*(6336*M_pow4 + 8896*M_pow3*r + 3952*M_pow2*r_pow2 + 286*M*r_pow3 - 129*r_pow4) + r_pow8*(-126*L_pow8*M*r_minus_twoM_pow2 + r_pow8*(1186*M_pow3 - 1787*M_pow2*r + 849*M*r_pow2 - 126*r_pow3) + 9*L_pow4*r_pow4*(-1514*M_pow3 + 2145*M_pow2*r - 996*M*r_pow2 + 151*r_pow3) - 2*L_pow6*r_pow2*(610*M_pow3 - 7*M_pow2*r - 493*M*r_pow2 + 172*r_pow3) + L_pow2*r_pow6*(-4668*M_pow3 + 7424*M_pow2*r - 3935*M*r_pow2 + 695*r_pow3)) + a_pow2*r_pow5*(-42*L_pow8*M*(32*M_pow3 - 50*M*r_pow2 + 21*r_pow3) + r_pow8*(19346*M_pow4 - 19551*M_pow3*r + 1336*M_pow2*r_pow2 + 3032*M*r_pow3 - 591*r_pow4) - 2*L_pow6*r_pow2*(6934*M_pow4 - 1867*M_pow3*r - 5031*M_pow2*r_pow2 + 2096*M*r_pow3 + 22*r_pow4) + 2*L_pow2*r_pow6*(19280*M_pow4 - 27648*M_pow3*r + 16050*M_pow2*r_pow2 - 4684*M*r_pow3 + 579*r_pow4) + 3*L_pow4*r_pow4*(-13266*M_pow4 + 19*M_pow3*r + 14416*M_pow2*r_pow2 - 7041*M*r_pow3 + 726*r_pow4)) + a_pow4*r_pow3*(42*L_pow8*M*(16*M_pow3 + 36*M_pow2*r + 28*M*r_pow2 - 33*r_pow3) + r_pow7*(34620*M_pow5 + 1548*M_pow4*r - 54052*M_pow3*r_pow2 + 20004*M_pow2*r_pow3 + 3934*M*r_pow4 - 1077*r_pow5) + 3*L_pow4*r_pow3*(22528*M_pow5 - 49132*M_pow4*r + 18459*M_pow3*r_pow2 + 18443*M_pow2*r_pow3 - 9774*M*r_pow4 + 90*r_pow5) + 2*L_pow6*r*(-6208*M_pow5 - 8432*M_pow4*r + 11623*M_pow3*r_pow2 + 5556*M_pow2*r_pow3 - 4986*M*r_pow4 + 141*r_pow5) - L_pow2*r_pow5*(-169284*M_pow5 + 95556*M_pow4*r + 81507*M_pow3*r_pow2 - 76048*M_pow2*r_pow3 + 15918*M*r_pow4 + 660*r_pow5)) - a_pow12*(L_pow2*M*(2272*M_pow4 + 412*M_pow3*r - 1086*M_pow2*r_pow2 + 1837*M*r_pow3 + 918*r_pow4) + r*(21600*M_pow6 + 9280*M_pow5*r - 26096*M_pow4*r_pow2 - 25196*M_pow3*r_pow3 - 5686*M_pow2*r_pow4 + 316*M*r_pow5 - 27*r_pow6)) - a_pow6*r_pow3*(210*L_pow8*M*(2*M + 3*r) + L_pow6*(-3104*M_pow4 - 17120*M_pow3*r + 2004*M_pow2*r_pow2 + 8038*M*r_pow3 + 18*r_pow4) + L_pow4*(4224*M_pow6 - 43656*M_pow5*r + 94174*M_pow4*r_pow2 - 86561*M_pow3*r_pow3 - 24039*M_pow2*r_pow4 + 25650*M*r_pow5 + 558*r_pow6) + r_pow4*(-14264*M_pow6 - 47108*M_pow5*r + 70400*M_pow4*r_pow2 + 41394*M_pow3*r_pow3 - 39242*M_pow2*r_pow4 - 2171*M*r_pow5 + 918*r_pow6) + L_pow2*r_pow2*(12072*M_pow6 - 124732*M_pow5*r + 218694*M_pow4*r_pow2 - 4963*M_pow3*r_pow3 - 73871*M_pow2*r_pow4 + 21866*M*r_pow5 + 1978*r_pow6)) - a_pow10*(L_pow4*M*r*(6792*M_pow3 + 2502*M_pow2*r + 4751*M*r_pow2 + 2079*r_pow3) + L_pow2*(5376*M_pow7 - 64*M_pow6*r + 2032*M_pow5*r_pow2 + 9898*M_pow4*r_pow3 - 28285*M_pow3*r_pow4 - 4601*M_pow2*r_pow5 + 4230*M*r_pow6 - 36*r_pow7) + r_pow2*(-17856*M_pow7 + 26200*M_pow6*r + 74052*M_pow5*r_pow2 + 20818*M_pow4*r_pow3 - 42233*M_pow3*r_pow4 - 20904*M_pow2*r_pow5 + 242*M*r_pow6 - 21*r_pow7)) - a_pow8*r_pow2*(-8*L_pow6*M*(56*M_pow2 - 381*M*r - 240*r_pow2) + L_pow4*(-17328*M_pow5 + 20784*M_pow4*r - 28245*M_pow3*r_pow2 + 4538*M_pow2*r_pow3 + 10566*M*r_pow4 + 9*r_pow5) + r_pow2*(-25840*M_pow7 - 39120*M_pow6*r + 28572*M_pow5*r_pow2 + 90812*M_pow4*r_pow3 - 12910*M_pow3*r_pow4 - 37865*M_pow2*r_pow5 - 365*M*r_pow6 + 312*r_pow7) + L_pow2*(4480*M_pow7 + 9264*M_pow6*r - 15856*M_pow5*r_pow2 + 116592*M_pow4*r_pow3 - 49777*M_pow3*r_pow4 - 28937*M_pow2*r_pow5 + 14693*M*r_pow6 + 819*r_pow7))) + 2*a*E*M*(2*a_pow14*twoM_plus_r_pow2*(396*M_pow2 + 373*M*r + 99*r_pow2) + r_pow8*(L_pow2*r_pow6*(-2644*M_pow2 + 3776*M*r - 1245*r_pow2) - 420*L_pow8*(2*M_pow2 - 3*M*r + r_pow2) - 4*L_pow6*r_pow2*(704*M_pow2 - 676*M*r + 153*r_pow2) + 3*r_pow8*(508*M_pow2 - 604*M*r + 175*r_pow2) - 36*L_pow4*r_pow4*(838*M_pow2 - 858*M*r + 219*r_pow2)) - a_pow2*r_pow5*(r_pow8*(-5460*M_pow3 + 2166*M_pow2*r + 5488*M*r_pow2 - 2747*r_pow3) + 84*L_pow8*(12*M_pow3 - 12*M_pow2*r - 25*M*r_pow2 + 15*r_pow3) + 4*L_pow2*r_pow6*(-13582*M_pow3 + 8325*M_pow2*r - 2013*M*r_pow2 + 823*r_pow3) + 2*L_pow6*r_pow2*(13096*M_pow3 - 5868*M_pow2*r - 5730*M*r_pow2 + 2775*r_pow3) + 6*L_pow4*r_pow4*(10494*M_pow3 + 1939*M_pow2*r - 10777*M*r_pow2 + 3604*r_pow3)) - a_pow12*twoM_plus_r*(L_pow2*(1136*M_pow3 + 1171*M_pow2*r - 556*M*r_pow2 - 90*r_pow3) - 2*r*(-2700*M_pow4 - 1352*M_pow3*r + 2925*M_pow2*r_pow2 + 2819*M*r_pow3 + 701*r_pow4)) + a_pow4*r_pow3*(84*L_pow8*(12*M_pow3 + 22*M_pow2*r + 5*M*r_pow2 - 15*r_pow3) + L_pow4*r_pow3*(68652*M_pow4 - 101256*M_pow3*r + 36487*M_pow2*r_pow2 + 56804*M*r_pow3 - 23006*r_pow4) + L_pow2*r_pow5*(101100*M_pow4 + 31428*M_pow3*r - 93193*M_pow2*r_pow2 + 13374*M*r_pow3 - 2146*r_pow4) + 2*r_pow7*(3060*M_pow4 + 3222*M_pow3*r - 8413*M_pow2*r_pow2 - 1931*M*r_pow3 + 3174*r_pow4) - 2*L_pow6*r*(7168*M_pow4 + 10688*M_pow3*r - 14412*M_pow2*r_pow2 - 2928*M*r_pow3 + 4629*r_pow4)) - a_pow10*(L_pow4*r*(6792*M_pow3 + 4401*M_pow2*r + 2518*M*r_pow2 + 834*r_pow3) + r_pow2*(-8928*M_pow6 + 6256*M_pow5*r + 39264*M_pow4*r_pow2 + 22596*M_pow3*r_pow3 - 15826*M_pow2*r_pow4 - 17828*M*r_pow5 - 4275*r_pow6) + 2*L_pow2*(4032*M_pow6 + 3328*M_pow5*r - 1876*M_pow4*r_pow2 + 8761*M_pow3*r_pow3 + 1777*M_pow2*r_pow4 - 2487*M*r_pow5 - 265*r_pow6)) + a_pow8*r_pow2*(2*L_pow6*(224*M_pow2 - 1068*M*r - 573*r_pow2) + L_pow4*(17328*M_pow4 - 18192*M_pow3*r + 2881*M_pow2*r_pow2 - 3308*M*r_pow3 - 5078*r_pow4) + L_pow2*(-6400*M_pow6 - 28920*M_pow5*r + 30996*M_pow4*r_pow2 - 46230*M_pow3*r_pow3 - 23240*M_pow2*r_pow4 + 16338*M*r_pow5 + 1493*r_pow6) + r_pow2*(10272*M_pow6 + 22128*M_pow5*r - 10880*M_pow4*r_pow2 - 42768*M_pow3*r_pow3 - 9376*M_pow2*r_pow4 + 18160*M*r_pow5 + 7565*r_pow6)) + a_pow6*r_pow3*(-420*L_pow8*(M + r) + 2*L_pow6*(1552*M_pow3 + 7984*M_pow2*r - 1366*M*r_pow2 - 2733*r_pow3) + L_pow4*(-2304*M_pow5 + 49620*M_pow4*r - 54700*M_pow3*r_pow2 + 43651*M_pow2*r_pow3 + 22240*M*r_pow4 - 13510*r_pow5) + 2*r_pow4*(3864*M_pow5 + 7944*M_pow4*r - 8172*M_pow3*r_pow2 - 12890*M_pow2*r_pow3 + 3525*M*r_pow4 + 4310*r_pow5) + L_pow2*(-39464*M_pow5*r_pow2 + 67480*M_pow4*r_pow3 - 67230*M_pow3*r_pow4 - 82282*M_pow2*r_pow5 + 21198*M*r_pow6 + 954*r_pow7))))*ur_pow2 + r_pow5*(6*E_pow2*L*M*r*pow(r_pow3 + a_pow2*twoM_plus_r,2)*(a_pow10*twoM_plus_r_pow4*(66*M + 13*r) + r_pow7*(-7*L_pow8 - 52*L_pow6*r_pow2 - 30*L_pow4*r_pow4 + 40*L_pow2*r_pow6 + 25*r_pow8) + a_pow8*r*twoM_plus_r_pow3*(2*L_pow2*(43*M + 9*r) + r_pow2*(314*M + 77*r)) + 2*a_pow6*r_pow2*twoM_plus_r_pow2*(-5*L_pow4*(4*M + r) + L_pow2*r_pow2*(169*M + 47*r) + r_pow4*(298*M + 89*r)) - a_pow2*r_pow4*(7*L_pow8*(6*M + r) + 10*L_pow4*r_pow4*(16*M + 7*r) + 2*L_pow6*r_pow2*(103*M + 37*r) - 2*L_pow2*r_pow6*(163*M + 69*r) - r_pow8*(266*M + 113*r)) - 2*a_pow4*r_pow3*(5*L_pow4*r_pow2*(28*M_pow2 + 24*M*r + 5*r_pow2) + L_pow6*(102*M_pow2 + 73*M*r + 11*r_pow2) - 3*L_pow2*r_pow4*(166*M_pow2 + 141*M*r + 29*r_pow2) - r_pow6*(564*M_pow2 + 484*M*r + 101*r_pow2))) + 2*a*E*M*(2*a_pow16*twoM_plus_r_pow4*(413*M_pow2 + 450*M*r + 120*r_pow2) + 3*r_pow11*(L_pow2 + r_pow2)*(70*L_pow8*twoM_minus_r + 8*L_pow6*(53*M - 12*r)*r_pow2 + 5*L_pow4*(690*M - 347*r)*r_pow4 + 20*r_pow8*(-5*M + 3*r) + 5*L_pow2*r_pow6*(-406*M + 191*r)) + a_pow14*r*twoM_plus_r_pow3*(-2632*M_pow4 - 1620*M_pow3*r + 7432*M_pow2*r_pow2 + 7624*M*r_pow3 + 1902*r_pow4 + L_pow2*(2821*M_pow2 + 2280*M*r + 630*r_pow2)) + a_pow2*r_pow8*(3*L_pow6*r_pow4*(3784*M_pow2 + 6248*M*r - 5219*r_pow2) + 4*L_pow4*r_pow6*(342*M_pow2 + 1387*M*r - 1865*r_pow2) + 2*L_pow8*r_pow2*(5256*M_pow2 + 1834*M*r - 1607*r_pow2) + 42*L_pow10*(32*M_pow2 + 10*M*r - 15*r_pow2) + 2*r_pow10*(-1872*M_pow2 - 52*M*r + 785*r_pow2) + L_pow2*r_pow8*(-35136*M_pow2 - 9716*M*r + 14995*r_pow2)) + a_pow4*r_pow5*(2*L_pow8*r_pow2*(2952*M_pow3 + 7804*M_pow2*r - 920*M*r_pow2 - 2627*r_pow3) + 42*L_pow10*(24*M_pow3 + 32*M_pow2*r - 10*M*r_pow2 - 15*r_pow3) - 8*L_pow4*r_pow6*(6612*M_pow3 + 1388*M_pow2*r - 749*M*r_pow2 + 975*r_pow3) + 2*r_pow10*(-9342*M_pow3 - 6609*M_pow2*r + 4598*M*r_pow2 + 2926*r_pow3) - 3*L_pow6*r_pow4*(5922*M_pow3 - 8613*M_pow2*r - 3960*M*r_pow2 + 5821*r_pow3) + L_pow2*r_pow8*(-69246*M_pow3 - 88061*M_pow2*r + 22090*M*r_pow2 + 31492*r_pow3)) + a_pow6*r_pow4*(-210*L_pow10*r*twoM_plus_r + 3*L_pow6*r_pow2*(4652*M_pow4 + 4474*M_pow3*r + 10269*M_pow2*r_pow2 + 112*M*r_pow3 - 3529*r_pow4) + L_pow8*(4896*M_pow4 + 7520*M_pow3*r + 5576*M_pow2*r_pow2 - 5116*M*r_pow3 - 3258*r_pow4) - 24*L_pow4*r_pow4*(3992*M_pow4 + 4604*M_pow3*r - 330*M_pow2*r_pow2 - 837*M*r_pow3 + 75*r_pow4) + 2*r_pow8*(-23856*M_pow4 - 35538*M_pow3*r + 3272*M_pow2*r_pow2 + 19790*M*r_pow3 + 6125*r_pow4) + L_pow2*r_pow6*(-86580*M_pow4 - 191618*M_pow3*r - 64295*M_pow2*r_pow2 + 76276*M*r_pow3 + 37548*r_pow4)) - a_pow10*r_pow2*twoM_plus_r*(15*L_pow6*r*(77*M_pow2 + 80*M*r + 44*r_pow2) + L_pow2*r_pow2*(66168*M_pow5 + 127784*M_pow4*r + 65224*M_pow3*r_pow2 - 33678*M_pow2*r_pow3 - 49022*M*r_pow4 - 14443*r_pow5) + 2*r_pow4*(11232*M_pow5 + 40872*M_pow4*r + 16684*M_pow3*r_pow2 - 34004*M_pow2*r_pow3 - 29730*M*r_pow4 - 6475*r_pow5) + 4*L_pow4*(2064*M_pow5 + 4480*M_pow4*r + 3024*M_pow3*r_pow2 - 2684*M_pow2*r_pow3 - 2497*M*r_pow4 - 315*r_pow5)) + a_pow12*r*twoM_plus_r_pow2*(80*L_pow4*r*(14*M_pow2 + 18*M*r + 3*r_pow2) + 2*r_pow2*(-1464*M_pow5 - 11148*M_pow4*r - 5522*M_pow3*r_pow2 + 14877*M_pow2*r_pow3 + 14118*M*r_pow4 + 3290*r_pow5) + L_pow2*(-6336*M_pow5 - 20692*M_pow4*r - 6306*M_pow3*r_pow2 + 17367*M_pow2*r_pow3 + 15862*M*r_pow4 + 4482*r_pow5)) + a_pow8*r_pow3*(-20*L_pow8*r*(56*M_pow2 + 105*M*r + 36*r_pow2) + 3*L_pow6*(1280*M_pow5 + 3556*M_pow4*r + 2186*M_pow3*r_pow2 + 535*M_pow2*r_pow3 - 2314*M*r_pow4 - 1316*r_pow5) + 4*L_pow4*r_pow2*(-11376*M_pow5 - 29200*M_pow4*r - 11416*M_pow3*r_pow2 + 10816*M_pow2*r_pow3 + 6373*M*r_pow4 + 475*r_pow5) + 2*r_pow6*(-32688*M_pow5 - 81688*M_pow4*r - 28436*M_pow3*r_pow2 + 48071*M_pow2*r_pow3 + 38800*M*r_pow4 + 7910*r_pow5) + L_pow2*r_pow4*(-134856*M_pow5 - 291280*M_pow4*r - 197524*M_pow3*r_pow2 + 45670*M_pow2*r_pow3 + 101038*M*r_pow4 + 28597*r_pow5))) + L*(-2*a_pow16*M*twoM_plus_r_pow3*(1652*M_pow3 + 2398*M_pow2*r + 1035*M*r_pow2 + 156*r_pow3) + r_pow11*(L_pow2 + r_pow2)*(-126*L_pow8*M*twoM_minus_r + L_pow4*r_pow4*(-9970*M_pow2 + 9513*M*r - 2237*r_pow2) + 2*r_pow8*(620*M_pow2 - 577*M*r + 129*r_pow2) + 2*L_pow6*r_pow2*(-356*M_pow2 - 106*M*r + 151*r_pow2) + L_pow2*r_pow6*(2314*M_pow2 - 1887*M*r + 365*r_pow2)) + a_pow2*r_pow8*(-42*L_pow10*M*(12*M_pow2 + 28*M*r - 21*r_pow2) + 6*L_pow4*r_pow6*(2896*M_pow3 - 5000*M_pow2*r + 3449*M*r_pow2 - 783*r_pow3) + 2*L_pow8*r_pow2*(-2528*M_pow3 - 3782*M_pow2*r + 2734*M*r_pow2 + 97*r_pow3) + 2*r_pow10*(3504*M_pow3 + 814*M_pow2*r - 2538*M*r_pow2 + 537*r_pow3) + L_pow2*r_pow8*(46928*M_pow3 - 13180*M_pow2*r - 11047*M*r_pow2 + 2681*r_pow3) - L_pow6*r_pow4*(5928*M_pow3 + 32164*M_pow2*r - 25959*M*r_pow2 + 3465*r_pow3)) - a_pow4*r_pow5*(42*L_pow10*M*(24*M_pow3 + 36*M_pow2*r + 2*M*r_pow2 - 33*r_pow3) + L_pow2*r_pow8*(-137162*M_pow4 - 86831*M_pow3*r + 80902*M_pow2*r_pow2 + 19170*M*r_pow3 - 4494*r_pow4) + 2*L_pow8*r_pow2*(-886*M_pow4 + 12595*M_pow3*r + 1468*M_pow2*r_pow2 - 6060*M*r_pow3 + 54*r_pow4) - 2*r_pow10*(10746*M_pow4 + 17975*M_pow3*r - 5240*M_pow2*r_pow2 - 6948*M*r_pow3 + 750*r_pow4) + L_pow6*r_pow4*(-64362*M_pow4 + 80389*M_pow3*r + 31950*M_pow2*r_pow2 - 44241*M*r_pow3 + 1125*r_pow4) + 2*L_pow4*r_pow6*(-58470*M_pow4 + 20309*M_pow3*r + 32375*M_pow2*r_pow2 - 18549*M*r_pow3 + 1431*r_pow4)) - a_pow14*M*r*twoM_plus_r_pow2*(L_pow2*(11284*M_pow3 + 11036*M_pow2*r + 3975*M*r_pow2 + 282*r_pow3) + 2*(-5264*M_pow5 - 5820*M_pow4*r + 13476*M_pow3*r_pow2 + 19603*M_pow2*r_pow3 + 8491*M*r_pow4 + 1323*r_pow5)) + a_pow6*r_pow4*(210*L_pow10*M*r*(4*M + 3*r) - 2*L_pow8*M*(2448*M_pow4 + 3320*M_pow3*r + 6985*M_pow2*r_pow2 - 5599*M*r_pow3 - 4965*r_pow4) + 2*r_pow8*(31400*M_pow5 + 71860*M_pow4*r + 19465*M_pow3*r_pow2 - 32079*M_pow2*r_pow3 - 14651*M*r_pow4 + 210*r_pow5) + L_pow6*r_pow2*(-2980*M_pow5 - 3212*M_pow4*r - 98024*M_pow3*r_pow2 + 19069*M_pow2*r_pow3 + 41989*M*r_pow4 + 405*r_pow5) + 2*L_pow4*r_pow4*(65892*M_pow5 + 53088*M_pow4*r - 77914*M_pow3*r_pow2 - 19140*M_pow2*r_pow3 + 24153*M*r_pow4 + 441*r_pow5) + L_pow2*r_pow6*(138412*M_pow5 + 317868*M_pow4*r - 22172*M_pow3*r_pow2 - 161671*M_pow2*r_pow3 - 23840*M*r_pow4 + 3626*r_pow5)) + a_pow8*r_pow3*(2*L_pow8*M*r*(1120*M_pow2 + 3141*M*r + 1272*r_pow2) - L_pow6*M*(3840*M_pow5 + 12696*M_pow4*r + 27094*M_pow3*r_pow2 + 17953*M_pow2*r_pow3 - 33002*M*r_pow4 - 17946*r_pow5) - 2*r_pow6*(-62016*M_pow6 - 165168*M_pow5*r - 91528*M_pow4*r_pow2 + 60794*M_pow3*r_pow3 + 73827*M_pow2*r_pow4 + 19845*M*r_pow5 + 435*r_pow6) + 2*L_pow4*r_pow2*(32784*M_pow6 + 73968*M_pow5*r - 14356*M_pow4*r_pow2 - 64584*M_pow3*r_pow3 + 4356*M_pow2*r_pow4 + 15810*M*r_pow5 + 459*r_pow6) + L_pow2*r_pow4*(131416*M_pow6 + 393268*M_pow5*r + 210640*M_pow4*r_pow2 - 223454*M_pow3*r_pow3 - 179398*M_pow2*r_pow4 - 21637*M*r_pow5 + 1379*r_pow6)) - a_pow12*r*twoM_plus_r*(2*L_pow4*M*r*(2240*M_pow3 + 997*M_pow2*r - 1455*M*r_pow2 - 828*r_pow3) + L_pow2*M*(-12672*M_pow6 - 61264*M_pow5*r - 19180*M_pow4*r_pow2 + 72320*M_pow3*r_pow3 + 83805*M_pow2*r_pow4 + 32382*M*r_pow5 + 3048*r_pow6) + 2*r_pow2*(-5680*M_pow7 - 50128*M_pow6*r - 40928*M_pow5*r_pow2 + 49444*M_pow4*r_pow3 + 76025*M_pow3*r_pow4 + 35034*M_pow2*r_pow5 + 6082*M*r_pow6 + 108*r_pow7)) + a_pow10*r_pow2*(15*L_pow6*M*r*(308*M_pow3 + 878*M_pow2*r + 855*M*r_pow2 + 236*r_pow3) + 4*L_pow4*M*(4128*M_pow6 + 10864*M_pow5*r + 782*M_pow4*r_pow2 - 20056*M_pow3*r_pow3 - 12457*M_pow2*r_pow4 + 2702*M*r_pow5 + 2250*r_pow6) + L_pow2*r_pow2*(182032*M_pow7 + 390880*M_pow6*r + 263476*M_pow5*r_pow2 - 145612*M_pow4*r_pow3 - 281884*M_pow3*r_pow4 - 115270*M_pow2*r_pow5 - 11727*M*r_pow6 + 189*r_pow7) - 2*r_pow4*(-53856*M_pow7 - 202912*M_pow6*r - 162920*M_pow5*r_pow2 + 74936*M_pow4*r_pow3 + 163502*M_pow3*r_pow4 + 82568*M_pow2*r_pow5 + 15312*M*r_pow6 + 411*r_pow7))))*ur_pow4 - 6*L*r_pow8*(a_pow14*M*twoM_plus_r_pow3*(182*M_pow2 + 224*M*r + 65*r_pow2) + r_pow11*(-7*L_pow8*M + L_pow2*(298*M - 129*r)*r_pow6 + r_pow8*(13*M + 6*r) + 15*L_pow4*r_pow4*(-24*M + 11*r) - L_pow6*r_pow2*(22*M + 15*r)) + a_pow2*r_pow8*(7*L_pow8*M*(2*M - 7*r) - L_pow6*r_pow3*(281*M + 15*r) + L_pow2*r_pow6*(352*M_pow2 + 721*M*r - 387*r_pow2) + 15*L_pow4*r_pow4*(22*M_pow2 - 47*M*r + 22*r_pow2) + r_pow8*(78*M_pow2 + 221*M*r + 24*r_pow2)) + a_pow12*M*r*twoM_plus_r_pow2*(-200*M_pow4 + 1648*M_pow2*r_pow2 + 1686*M*r_pow3 + 439*r_pow4 + 3*L_pow2*(119*M_pow2 + 98*M*r + 30*r_pow2)) + a_pow4*r_pow5*(L_pow6*M*r_pow2*(534*M_pow2 - 455*M*r - 561*r_pow2) + 7*L_pow8*M*(8*M_pow2 - 8*M*r - 11*r_pow2) + L_pow2*r_pow6*(-1742*M_pow3 + 1511*M_pow2*r + 1413*M*r_pow2 - 387*r_pow3) + 5*L_pow4*r_pow4*(270*M_pow3 + 3*M_pow2*r - 232*M*r_pow2 + 33*r_pow3) + r_pow8*(-108*M_pow3 + 1370*M_pow2*r + 885*M*r_pow2 + 36*r_pow3)) - a_pow6*r_pow4*(35*L_pow8*M*twoM_plus_r + 15*L_pow4*M*r_pow2*(78*M_pow3 + 19*M_pow2*r + 80*M*r_pow2 + 69*r_pow3) + L_pow6*M*(-82*M_pow3 + 41*M_pow2*r + 895*M*r_pow2 + 442*r_pow3) - r_pow6*(-1580*M_pow4 + 2810*M_pow3*r + 5098*M_pow2*r_pow2 + 1703*M*r_pow3 + 24*r_pow4) + L_pow2*r_pow4*(2026*M_pow4 - 45*M_pow3*r - 4881*M_pow2*r_pow2 - 2209*M*r_pow3 + 129*r_pow4)) - a_pow10*M*r_pow2*twoM_plus_r*(5*L_pow4*(49*M_pow2 + 28*M*r + 10*r_pow2) + L_pow2*(740*M_pow4 - 1521*M_pow2*r_pow2 - 1607*M*r_pow3 - 534*r_pow4) - r_pow2*(-1656*M_pow4 + 8*M_pow3*r + 5852*M_pow2*r_pow2 + 5180*M*r_pow3 + 1227*r_pow4)) + a_pow8*r_pow3*(-5*L_pow6*M*(49*M_pow2 + 70*M*r + 22*r_pow2) + 15*L_pow4*M*(44*M_pow4 - 12*M_pow2*r_pow2 - 31*M*r_pow3 - 18*r_pow4) + L_pow2*M*r_pow2*(224*M_pow4 + 1508*M_pow3*r + 5661*M_pow2*r_pow2 + 5743*M*r_pow3 + 1663*r_pow4) + r_pow4*(-3768*M_pow5 + 1192*M_pow4*r + 11288*M_pow3*r_pow2 + 8612*M_pow2*r_pow3 + 1879*M*r_pow4 + 6*r_pow5)))*ur_pow6))/(3.*r_pow5*pow(a_pow2 + r*r_minus_twoM,5)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),4));
A4200 = (3*r_pow6*pow(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2)),2))/(pow(a_pow2 + r*r_minus_twoM,4)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2));
A4201 = (r_pow4*ur*(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2)))*(-4*a_pow7*E*M*twoM_plus_r_pow2 - 4*a_pow5*E*M*r_pow2*(12*M_pow2 + 16*M*r + 5*r_pow2) + a_pow6*L*(16*M_pow3 + 4*M_pow2*r - 4*M*r_pow2 - r_pow3) + 12*a*E*M*r_pow4*(L_pow4 - r_pow4) + 4*a_pow3*E*M*r_pow2*(L_pow4 - r_pow3*(12*M + 7*r)) + a_pow4*L*r_pow2*(48*M_pow3 - 2*L_pow2*(4*M + r) + 8*M*r_pow2*ur_pow2 + r_pow3*(-1 + ur_pow2) + 12*M_pow2*r*(3 + ur_pow2)) + L*r_pow4*(L_pow4*(-8*M + 5*r) + r_pow5*(1 - 3*ur_pow2) + L_pow2*r_pow2*(-8*M + 3*r*(2 + ur_pow2))) + a_pow2*L*r_pow2*(-(L_pow4*(4*M + r)) + r_pow3*(24*M_pow2 + 4*M*r + r_pow2*(1 - 2*ur_pow2)) + L_pow2*(8*M_pow2*r + r_pow3*(4 + ur_pow2)))))/(2.*pow(a_pow2 + r*r_minus_twoM,4)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3));
A4220 = (-12*a*E*L*M*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),4)*(a_pow4*(8*M - r) + a_pow2*r*(4*L_pow2 - 8*M_pow2 + M*r - 7*r_pow2) + r_pow3*(4*L_pow2 + r*(3*M + 4*r))) + 12*E_pow2*M*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),4)*(a_pow6*(4*M + 3*r) + 2*r_pow5*(L_pow2 + r_pow2) + a_pow2*r_pow3*(4*L_pow2 + r*(-16*M + 7*r)) + 2*a_pow4*r*(L_pow2 - 2*(M_pow2 + M*r - 2*r_pow2))) - 6*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),4)*(7*a_pow6*M*r + a_pow4*(-8*L_pow2*M*(M - r) + r_pow2*(-17*M_pow2 + 8*M*r - 10*r_pow2)) - r_pow4*(L_pow2*(25*M_pow2 - 23*M*r + 4*r_pow2) + r_pow2*(23*M_pow2 - 22*M*r + 4*r_pow2)) + a_pow2*r*(-4*L_pow4*M + L_pow2*(8*M_pow3 - 10*M_pow2*r + 23*M*r_pow2 - 15*r_pow3) + r_pow2*(16*M_pow3 - 20*M_pow2*r + 35*M*r_pow2 - 14*r_pow3))) + 3*r_pow2*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(2*a_pow10*twoM_plus_r_pow2*(2*E_pow2*M_pow2 + (10*M - r)*r) - 4*a_pow9*E*L*M*(8*M_pow3 + 54*M_pow2*r + 65*M*r_pow2 + 20*r_pow3) + 4*a*E*L*M*r_pow6*(5*L_pow2*(51*M - 26*r)*r_pow2 + (154*M - 89*r)*r_pow4 + L_pow4*(M + r)) + 4*a_pow3*E*L*M*r_pow4*(L_pow4*(5*M - 13*r) + r_pow3*(310*M_pow2 + 75*M*r - 241*r_pow2) + L_pow2*r*(632*M_pow2 + 209*M*r - 220*r_pow2)) + r_pow6*(-8*L_pow4*r_pow2*(27*M_pow2 - 25*M*r + 6*r_pow2) + 2*r_pow6*(11*M_pow2 - 20*M*r + 6*r_pow2) + L_pow6*(5*M_pow2 - 18*M*r + 8*r_pow2) - L_pow2*r_pow4*(175*M_pow2 + 2*(-77 + 8*E_pow2)*M*r + 38*r_pow2)) + 4*a_pow7*E*L*M*r*(L_pow2*(64*M_pow2 - 29*M*r - 28*r_pow2) + r*(84*M_pow3 + 62*M_pow2*r - 179*M*r_pow2 - 103*r_pow3)) - 2*a_pow2*r_pow4*(L_pow6*(22*M_pow2 - 16*M*r + r_pow2) + r_pow5*(-106*M_pow3 + (115 - 18*E_pow2)*M_pow2*r + 18*M*r_pow2 - 24*r_pow3) + 2*L_pow4*r*(260*M_pow3 - 9*(1 + E_pow2)*M_pow2*r - 73*M*r_pow2 + r_pow3) + L_pow2*r_pow3*(318*M_pow3 + (67 + 336*E_pow2)*M_pow2*r + 12*(-13 + 2*E_pow2)*M*r_pow2 + 9*r_pow3)) - 4*a_pow5*E*L*M*r_pow2*(2*L_pow4*(M + 4*r) - L_pow2*(64*M_pow3 + 520*M_pow2*r + 61*M*r_pow2 - 118*r_pow3) + r_pow2*(-4*M_pow3 - 242*M_pow2*r + 193*M*r_pow2 + 235*r_pow3)) + a_pow4*r_pow2*(L_pow6*(4*M_pow2 + 32*M*r - r_pow2) - 8*L_pow4*(16*M_pow4 + 140*M_pow3*r - 3*(10 + E_pow2)*M_pow2*r_pow2 - 44*M*r_pow3 - 5*r_pow4) + 2*r_pow4*(292*M_pow4 + 4*(-35 + 18*E_pow2)*M_pow3*r + (-223 + 48*E_pow2)*M_pow2*r_pow2 + 78*M*r_pow3 + 35*r_pow4) + L_pow2*r_pow2*(220*M_pow4 - 4*(325 + 336*E_pow2)*M_pow3*r + (223 - 1152*E_pow2)*M_pow2*r_pow2 + 2*(307 - 24*E_pow2)*M*r_pow3 + 73*r_pow4)) + 2*a_pow6*r*(L_pow4*(-64*M_pow3 + 2*(45 + E_pow2)*M_pow2*r + 34*M*r_pow2 - 2*r_pow3) - 2*L_pow2*r*(4*(27 + 8*E_pow2)*M_pow4 + 2*(59 + 120*E_pow2)*M_pow3*r + (-205 + 136*E_pow2)*M_pow2*r_pow2 + 2*(-63 + 2*E_pow2)*M*r_pow3 - 12*r_pow4) + r_pow2*(248*M_pow5 + 4*(5 + 18*E_pow2)*M_pow4*r + 2*(-199 + 60*E_pow2)*M_pow3*r_pow2 + (-9 + 44*E_pow2)*M_pow2*r_pow3 + 136*M*r_pow4 + 21*r_pow5)) + a_pow8*(L_pow2*(16*M_pow4 - 8*(-25 + 16*E_pow2)*M_pow3*r + 2*(117 - 32*E_pow2)*M_pow2*r_pow2 + 48*M*r_pow3 - 5*r_pow4) + 2*r_pow2*twoM_plus_r*(8*(-14 + 3*E_pow2)*M_pow3 + 60*M*r_pow2 + 3*r_pow3 + 4*M_pow2*(r + 4*E_pow2*r))))*ur_pow2 + 2*r_pow4*(3*a_pow14*(17*M - r)*r*twoM_plus_r_pow4 - r_pow11*(L_pow2 + r_pow2)*(15*L_pow6*twoM_minus_r + 2*r_pow5*(10*M_pow2 + 7*M*r - 6*r_pow2) + 36*L_pow4*r*(24*M_pow2 - 22*M*r + 5*r_pow2) + 4*L_pow2*r_pow3*(146*M_pow2 - 127*M*r + 27*r_pow2)) + a_pow2*r_pow7*(3*L_pow8*(2*M_pow3 - 53*M_pow2*r + 20*M*r_pow2 + 6*r_pow3) + r_pow8*(58*M_pow3 - 423*M_pow2*r + 123*M*r_pow2 + 54*r_pow3) - 6*L_pow6*r_pow2*(262*M_pow3 + 177*M_pow2*r - 273*M*r_pow2 + 55*r_pow3) - 2*L_pow2*r_pow6*(1122*M_pow3 + 387*M_pow2*r - 929*M*r_pow2 + 201*r_pow3) - L_pow4*r_pow4*(4480*M_pow3 + 954*M_pow2*r - 3463*M*r_pow2 + 879*r_pow3)) - a_pow12*twoM_plus_r_pow2*(12*L_pow2*(4*M_pow4 - 35*M_pow3*r - 63*M_pow2*r_pow2 - 23*M*r_pow3 + r_pow4) + r_pow2*(844*M_pow4 + 372*M_pow3*r - 633*M_pow2*r_pow2 - 262*M*r_pow3 + 21*r_pow4)) + a_pow4*r_pow5*(-3*L_pow8*M*(60*M_pow2 + 27*M*r - 40*r_pow2) + L_pow4*r_pow3*(-2364*M_pow4 - 11344*M_pow3*r + 2885*M_pow2*r_pow2 + 4758*M*r_pow3 - 927*r_pow4) + L_pow6*r*(852*M_pow4 - 4120*M_pow3*r + 17*M_pow2*r_pow2 + 1968*M*r_pow3 - 177*r_pow4) + r_pow7*(1264*M_pow4 - 1792*M_pow3*r - 639*M_pow2*r_pow2 + 702*M*r_pow3 + 87*r_pow4) - 4*L_pow2*r_pow5*(332*M_pow4 + 2107*M_pow3*r - 505*M_pow2*r_pow2 - 860*M*r_pow3 + 165*r_pow4)) + a_pow6*r_pow3*(-3*L_pow8*(16*M_pow3 - 14*M_pow2*r - 16*M*r_pow2 + r_pow3) + L_pow4*r_pow2*(1352*M_pow5 - 12236*M_pow4*r - 9386*M_pow3*r_pow2 + 8519*M_pow2*r_pow3 + 4750*M*r_pow4 - 387*r_pow5) + 4*L_pow2*r_pow4*(580*M_pow5 - 3572*M_pow4*r - 2562*M_pow3*r_pow2 + 2159*M_pow2*r_pow3 + 1085*M*r_pow4 - 135*r_pow5) - 2*L_pow6*(144*M_pow5 + 676*M_pow4*r + 1168*M_pow3*r_pow2 - 838*M_pow2*r_pow3 - 681*M*r_pow4 + 12*r_pow5) + r_pow6*(4592*M_pow5 - 1720*M_pow4*r - 4700*M_pow3*r_pow2 + 1010*M_pow2*r_pow3 + 1325*M*r_pow4 + 45*r_pow5)) + a_pow10*r*twoM_plus_r*(L_pow4*(-192*M_pow4 + 556*M_pow3*r + 1269*M_pow2*r_pow2 + 459*M*r_pow3 - 18*r_pow4) + r_pow2*(1744*M_pow6 + 768*M_pow5*r - 4176*M_pow4*r_pow2 - 1612*M_pow3*r_pow3 + 1851*M_pow2*r_pow4 + 717*M*r_pow5 - 48*r_pow6) + 2*L_pow2*(32*M_pow6 - 936*M_pow5*r - 1864*M_pow4*r_pow2 + 904*M_pow3*r_pow3 + 2511*M_pow2*r_pow4 + 823*M*r_pow5 - 33*r_pow6)) + a_pow8*r_pow2*(L_pow6*(-240*M_pow4 + 172*M_pow3*r + 753*M_pow2*r_pow2 + 270*M*r_pow3 - 12*r_pow4) + 2*L_pow2*r_pow2*(864*M_pow6 - 5400*M_pow5*r - 9584*M_pow4*r_pow2 + 1620*M_pow3*r_pow3 + 6474*M_pow2*r_pow4 + 1775*M*r_pow5 - 120*r_pow6) + L_pow4*(-512*M_pow6 - 4144*M_pow5*r - 7864*M_pow4*r_pow2 + 2900*M_pow3*r_pow3 + 8315*M_pow2*r_pow4 + 2578*M*r_pow5 - 69*r_pow6) + 2*r_pow4*(3328*M_pow6 + 1104*M_pow5*r - 4500*M_pow4*r_pow2 - 1420*M_pow3*r_pow3 + 1635*M_pow2*r_pow4 + 615*M*r_pow5 - 15*r_pow6)) - 2*E_pow2*M*pow(r_pow3 + a_pow2*twoM_plus_r,2)*(3*a_pow10*twoM_plus_r_pow3 + 2*a_pow8*r*twoM_plus_r_pow2*(6*L_pow2 - 2*M_pow2 + 4*M*r + 7*r_pow2) + 2*r_pow7*(3*L_pow6 + 12*L_pow4*r_pow2 + 10*L_pow2*r_pow4 + r_pow6) + a_pow2*r_pow5*(12*L_pow6 + 24*L_pow2*r_pow3*(4*M + 3*r) + r_pow5*(10*M + 11*r) + 3*L_pow4*r*(22*M + 21*r)) + a_pow6*r_pow2*twoM_plus_r*(15*L_pow4 - 4*M_pow2*r_pow2 + 32*M*r_pow3 + 26*r_pow4 + 8*L_pow2*(4*M_pow2 + 10*M*r + 7*r_pow2)) + 6*a_pow4*r_pow3*(L_pow6 + 2*r_pow4*(M_pow2 + 4*M*r + 2*r_pow2) + 8*L_pow2*r_pow2*(3*M_pow2 + 5*M*r + 2*r_pow2) + L_pow4*(6*M_pow2 + 16*M*r + 9*r_pow2))) + 2*a*E*L*M*(3*a_pow12*twoM_plus_r_pow3*(8*M_pow2 - 33*M*r - 18*r_pow2) + r_pow10*(L_pow2 + r_pow2)*(9*L_pow2*(78*M - 35*r)*r_pow2 + (170*M - 81*r)*r_pow4 + 6*L_pow4*twoM_plus_r) + a_pow2*r_pow7*(L_pow2*r_pow4*(4018*M_pow2 + 957*M*r - 1559*r_pow2) + L_pow4*r_pow2*(1650*M_pow2 + 847*M*r - 857*r_pow2) + r_pow6*(1406*M_pow2 + 145*M*r - 465*r_pow2) + L_pow6*(78*M_pow2 + 75*M*r - 3*r_pow2)) - a_pow10*r*twoM_plus_r_pow2*(32*M_pow4 - 492*M_pow3*r - 6*M_pow2*r_pow2 + 847*M*r_pow3 + 357*r_pow4 + L_pow2*(-96*M_pow2 + 115*M*r + 117*r_pow2)) + a_pow4*r_pow5*(6*L_pow6*(23*M_pow2 + 9*M*r - 3*r_pow2) + 2*L_pow2*r_pow3*(2868*M_pow3 + 3399*M_pow2*r - 1046*M*r_pow2 - 1209*r_pow3) + r_pow5*(4340*M_pow3 + 3206*M_pow2*r - 1591*M*r_pow2 - 1104*r_pow3) + L_pow4*r*(588*M_pow3 + 2254*M_pow2*r - 37*M*r_pow2 - 859*r_pow3)) + a_pow8*r_pow2*twoM_plus_r*(L_pow4*(120*M_pow2 - 13*M*r - 72*r_pow2) + r_pow2*(1448*M_pow4 + 3504*M_pow3*r - 144*M_pow2*r_pow2 - 2714*M*r_pow3 - 969*r_pow4) + 2*L_pow2*(128*M_pow4 + 710*M_pow3*r + 513*M_pow2*r_pow2 - 556*M*r_pow3 - 361*r_pow4)) + a_pow6*r_pow3*(3*L_pow6*(16*M_pow2 + M*r - 3*r_pow2) + 2*L_pow2*r_pow2*(1316*M_pow4 + 4074*M_pow3*r + 1207*M_pow2*r_pow2 - 2075*M*r_pow3 - 930*r_pow4) + L_pow4*(288*M_pow4 + 1204*M_pow3*r + 1266*M_pow2*r_pow2 - 327*M*r_pow3 - 383*r_pow4) - 2*r_pow4*(-2948*M_pow4 - 4476*M_pow3*r + 90*M_pow2*r_pow2 + 2183*M*r_pow3 + 693*r_pow4))))*ur_pow4 + r_pow8*(r_pow9*(12*L_pow4*(38*M - 15*r)*r_pow2 + 2*L_pow2*(82*M - 21*r)*r_pow4 + 4*r_pow6*(-4*M + 3*r) + L_pow6*(6*M + 9*r)) + 2*a_pow10*twoM_plus_r_pow2*(9*L_pow2*M*(29*M + 14*r) + 2*twoM_plus_r_pow2*(4*M_pow2 + 2*M*r + 3*r_pow2)) + a_pow2*r_pow7*(3*L_pow6*(28*M + 5*r) + 2*L_pow2*r_pow3*(392*M_pow2 + 268*M*r - 93*r_pow2) + 6*L_pow4*r*(86*M_pow2 + 135*M*r - 71*r_pow2) + 4*r_pow5*(-28*M_pow2 + 10*M*r + 15*r_pow2)) + a_pow4*r_pow3*(6*L_pow2*r_pow4*(74*M_pow3 + 431*M_pow2*r + 128*M*r_pow2 - 51*r_pow3) + L_pow6*(-78*M_pow3 + 99*M_pow2*r + 114*M*r_pow2 + 6*r_pow3) + 8*r_pow6*(-32*M_pow3 + 4*M_pow2*r + 40*M*r_pow2 + 15*r_pow3) - 6*L_pow4*r_pow2*(226*M_pow3 - 217*M_pow2*r - 167*M*r_pow2 + 52*r_pow3)) + 2*a_pow8*r*twoM_plus_r*(3*L_pow4*M*(79*M + 49*r) + 2*r_pow2*twoM_plus_r_pow2*(8*M_pow2 + 10*M*r + 15*r_pow2) + L_pow2*(-724*M_pow4 - 24*M_pow3*r + 1119*M_pow2*r_pow2 + 406*M*r_pow3 - 30*r_pow4)) + a_pow6*r_pow2*(3*L_pow6*M*(29*M + 14*r) + 8*r_pow4*twoM_plus_r_pow2*(-4*M_pow2 + 10*M*r + 15*r_pow2) + 2*L_pow2*r_pow2*(-1192*M_pow4 + 960*M_pow3*r + 2067*M_pow2*r_pow2 + 418*M*r_pow3 - 111*r_pow4) - 6*L_pow4*(188*M_pow4 + 4*M_pow3*r - 384*M_pow2*r_pow2 - 157*M*r_pow3 + 11*r_pow4)))*ur_pow6)/(6.*pow(a_pow2 + r*r_minus_twoM,5)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),4));
A4221 = (ur*(24*a*E_pow3*M_pow2*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(3*a_pow10*M*twoM_plus_r - 3*a_pow8*r*(3*L_pow2*M + 48*M_pow3 + 54*M_pow2*r + 26*M*r_pow2 + 6*r_pow3) + r_pow8*(19*L_pow4 - 3*L_pow2*r_pow2 - 18*r_pow4) - a_pow2*r_pow5*(3*L_pow2*r_pow2*(85*M + r) + 9*r_pow4*(3*M + 8*r) - 2*L_pow4*(19*M + 18*r)) - a_pow4*r_pow3*(-17*L_pow4*twoM_plus_r - 3*L_pow2*r*(-4*M_pow2 - 81*M*r + r_pow2) + 54*r_pow3*(M_pow2 + 3*M*r + 2*r_pow2)) - 3*a_pow6*r_pow2*(-(L_pow2*(4*M_pow2 - 23*M*r + r_pow2)) + 6*r*(8*M_pow3 + 15*M_pow2*r + 12*M*r_pow2 + 4*r_pow3))) - 2*E_pow2*L*M*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(a_pow10*(216*M_pow3 + 556*M_pow2*r - 18*M*r_pow2 - 147*r_pow3) + 2*r_pow8*(3*L_pow4*(63*M - 32*r) + L_pow2*(283*M - 153*r)*r_pow2 + (122*M - 77*r)*r_pow4) + a_pow2*r_pow5*(L_pow2*r_pow2*(-4510*M_pow2 + 4076*M*r - 1249*r_pow2) + r_pow4*(-8166*M_pow2 + 5084*M*r - 715*r_pow2) + 6*L_pow4*(186*M_pow2 + 125*M*r - 84*r_pow2)) - a_pow8*r*(5184*M_pow4 + 3764*M_pow3*r - 4842*M_pow2*r_pow2 - 2362*M*r_pow3 + 694*r_pow4 + 3*L_pow2*(108*M_pow2 + 152*M*r + 95*r_pow2)) - a_pow4*r_pow3*(-6*L_pow4*(204*M_pow2 + 68*M*r - 75*r_pow2) + 2*r_pow3*(7482*M_pow3 + 3161*M_pow2*r - 5577*M*r_pow2 + 684*r_pow3) + L_pow2*r*(1168*M_pow3 + 4772*M_pow2*r - 2142*M*r_pow2 + 1865*r_pow3)) - a_pow6*r_pow2*(138*L_pow4*r + L_pow2*(-432*M_pow3 + 1034*M_pow2*r + 408*M*r_pow2 + 1207*r_pow3) + 2*r*(3272*M_pow4 + 8088*M_pow3*r - 2385*M_pow2*r_pow2 - 4347*M*r_pow3 + 677*r_pow4))) + 4*a*E*M*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(a_pow10*r*(106*M_pow2 - 19*M*r - 36*r_pow2) - r_pow5*(-6*L_pow6*(72*M_pow2 + 9*M*r - 23*r_pow2) + 6*r_pow6*(169*M_pow2 - 167*M*r + 45*r_pow2) + L_pow4*r_pow2*(1271*M_pow2 - 1929*M*r + 654*r_pow2) + L_pow2*r_pow4*(4021*M_pow2 - 4369*M*r + 1218*r_pow2)) + a_pow8*(r_pow2*(-202*M_pow3 + 1161*M_pow2*r + 278*M*r_pow2 - 239*r_pow3) + L_pow2*(108*M_pow3 + 502*M_pow2*r - 265*M*r_pow2 - 207*r_pow3)) - a_pow2*r_pow3*(-6*L_pow6*(102*M_pow2 + 17*M*r - 46*r_pow2) + r_pow5*(870*M_pow3 + 1061*M_pow2*r - 2373*M*r_pow2 + 859*r_pow3) + L_pow4*r*(952*M_pow3 + 1119*M_pow2*r - 2068*M*r_pow2 + 996*r_pow3) + L_pow2*r_pow3*(11800*M_pow3 - 1697*M_pow2*r - 7494*M*r_pow2 + 2771*r_pow3)) + a_pow4*r_pow2*(-138*L_pow6*r + L_pow4*(216*M_pow3 + 208*M_pow2*r - 101*M*r_pow2 - 993*r_pow3) + L_pow2*r*(-3952*M_pow4 - 11076*M_pow3*r + 9727*M_pow2*r_pow2 + 4824*M*r_pow3 - 2479*r_pow4) + r_pow3*(2316*M_pow4 - 3014*M_pow3*r + 185*M_pow2*r_pow2 + 2384*M*r_pow3 - 1075*r_pow4)) - a_pow6*r*(3*L_pow4*(54*M_pow2 + 152*M*r + 103*r_pow2) + r_pow2*(140*M_pow4 + 3242*M_pow3*r - 1615*M_pow2*r_pow2 - 1310*M*r_pow3 + 689*r_pow4) + L_pow2*(2592*M_pow4 + 848*M_pow3*r - 6063*M_pow2*r_pow2 - 666*M*r_pow3 + 1133*r_pow4))) - L*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(-(a_pow10*r*(-424*M_pow3 + 190*M_pow2*r + 93*M*r_pow2 + 9*r_pow3)) + r_pow5*(-488*M_pow3*r_pow6 + 774*M_pow2*r_pow7 - 424*M*r_pow8 + 72*r_pow9 + 12*L_pow6*M*(34*M_pow2 - 35*M*r + 9*r_pow2) + L_pow4*r_pow2*(-202*M_pow3 + 551*M_pow2*r - 360*M*r_pow2 + 60*r_pow3) + L_pow2*r_pow4*(-2202*M_pow3 + 3521*M_pow2*r - 1840*M*r_pow2 + 300*r_pow3)) + a_pow8*(L_pow2*(144*M_pow4 + 968*M_pow3*r - 1024*M_pow2*r_pow2 - 483*M*r_pow3 - 18*r_pow4) - 2*r_pow2*(404*M_pow4 - 2168*M_pow3*r + 525*M_pow2*r_pow2 + 410*M*r_pow3 + 48*r_pow4)) + a_pow2*r_pow3*(204*L_pow6*(4*M_pow3 - M*r_pow2) - L_pow4*r*(1760*M_pow4 + 764*M_pow3*r - 2651*M_pow2*r_pow2 + 844*M*r_pow3 + 24*r_pow4) + r_pow5*(-5534*M_pow4 + 3757*M_pow3*r + 715*M_pow2*r_pow2 - 1054*M*r_pow3 + 180*r_pow4) + L_pow2*r_pow3*(-17122*M_pow4 + 11249*M_pow3*r + 3391*M_pow2*r_pow2 - 3298*M*r_pow3 + 420*r_pow4)) + a_pow4*r_pow2*(-276*L_pow6*M*r + L_pow4*(288*M_pow4 + 1244*M_pow3*r + 484*M_pow2*r_pow2 - 1288*M*r_pow3 + 39*r_pow4) + 2*r_pow3*(4154*M_pow5 - 7762*M_pow4*r + 4957*M_pow3*r_pow2 + 251*M_pow2*r_pow3 - 669*M*r_pow4 + 33*r_pow5) + L_pow2*r*(-6176*M_pow5 - 18432*M_pow4*r + 22273*M_pow3*r_pow2 + 984*M_pow2*r_pow3 - 3248*M*r_pow4 + 81*r_pow5)) - a_pow6*r*(3*L_pow4*(72*M_pow3 + 304*M_pow2*r + 222*M*r_pow2 + 3*r_pow3) + L_pow2*(3456*M_pow5 - 248*M_pow4*r - 12696*M_pow3*r_pow2 + 1572*M_pow2*r_pow3 + 1955*M*r_pow4 + 57*r_pow5) + r_pow2*(560*M_pow5 + 11058*M_pow4*r - 11729*M_pow3*r_pow2 + 167*M_pow2*r_pow3 + 1435*M*r_pow4 + 129*r_pow5))) + r_pow2*(12*a_pow17*E*M*twoM_plus_r_pow4*(6*E_pow2*M*twoM_plus_r + r*(137*M + 91*r)) - 4*a*E*M*r_pow10*(L_pow2 + r_pow2)*(6*r_pow8*(-254*M_pow2 + 5*(61 + 2*E_pow2)*M*r - 89*r_pow2) + 24*L_pow8*(3*M_pow2 - 16*M*r + 7*r_pow2) + L_pow2*r_pow6*(-152*M_pow2 - 2*(133 + 60*E_pow2)*M*r + 189*r_pow2) + 2*L_pow6*r_pow2*(5630*M_pow2 - (5971 + 30*E_pow2)*M*r + 1566*r_pow2) + L_pow4*r_pow4*(13880*M_pow2 + 2*(-7607 + 60*E_pow2)*M*r + 4137*r_pow2)) - a_pow16*L*twoM_plus_r_pow3*(16*E_pow2*M*(54*M_pow3 - 34*M_pow2*r - 27*M*r_pow2 + 9*r_pow3) + 3*r*(1096*M_pow3 + 1090*M_pow2*r + 121*M*r_pow2 + 9*r_pow3)) - 2*L*r_pow10*(L_pow2 + r_pow2)*(-(L_pow2*twoM_minus_r*r_pow6*(860*M_pow2 - (1103 + 256*E_pow2)*M*r + 380*r_pow2)) + r_pow8*(1186*M_pow3 + (-1721 + 316*E_pow2)*M_pow2*r + 4*(195 - 44*E_pow2)*M*r_pow2 - 108*r_pow3) + 3*L_pow8*(58*M_pow3 - 101*M_pow2*r + 60*M*r_pow2 - 12*r_pow3) + 2*L_pow6*r_pow2*(-2382*M_pow3 + 3*(1207 + 30*E_pow2)*M_pow2*r - (1819 + 42*E_pow2)*M*r_pow2 + 302*r_pow3) + L_pow4*r_pow4*(-8564*M_pow3 + 4*(3353 + 34*E_pow2)*M_pow2*r - (7001 + 44*E_pow2)*M*r_pow2 + 1218*r_pow3)) - 4*a_pow3*E*M*r_pow7*(r_pow10*(-11874*M_pow3 + 3*(2233 + 276*E_pow2)*M_pow2*r + 5*(1345 + 78*E_pow2)*M*r_pow2 - 3706*r_pow3) - 6*L_pow10*(68*M_pow3 + 4*M_pow2*r + 209*M*r_pow2 - 123*r_pow3) - L_pow2*r_pow8*(40904*M_pow3 + 4*(-4717 + 96*E_pow2)*M_pow2*r + 2*(-3533 + 150*E_pow2)*M*r_pow2 + 2811*r_pow3) + L_pow8*r_pow2*(15766*M_pow3 + (5987 - 348*E_pow2)*M_pow2*r - (22009 + 150*E_pow2)*M*r_pow2 + 8004*r_pow3) + 2*L_pow4*r_pow6*(2598*M_pow3 + 4481*M_pow2*r - 18562*M*r_pow2 + 8301*r_pow3) + L_pow6*r_pow4*(47760*M_pow3 + 4*(1151 + 36*E_pow2)*M_pow2*r + 20*(-2878 + 9*E_pow2)*M*r_pow2 + 22523*r_pow3)) + a_pow2*L*r_pow7*(6*L_pow10*M*(16*M_pow3 + 304*M_pow2*r - 491*M*r_pow2 + 168*r_pow3) + 2*L_pow4*r_pow6*(-12198*M_pow4 + (34081 + 25440*E_pow2)*M_pow3*r - 9*(4821 + 1688*E_pow2)*M_pow2*r_pow2 + 2*(11995 + 696*E_pow2)*M*r_pow3 - 4686*r_pow4) + 2*L_pow6*r_pow4*(15836*M_pow4 + 6*(2949 + 2864*E_pow2)*M_pow3*r - 16*(2888 + 591*E_pow2)*M_pow2*r_pow2 + 2*(11839 + 310*E_pow2)*M*r_pow3 - 3491*r_pow4) + L_pow8*r_pow2*(12598*M_pow4 + (18235 - 2928*E_pow2)*M_pow3*r - (35237 + 24*E_pow2)*M_pow2*r_pow2 + 2*(6695 + 264*E_pow2)*M*r_pow3 - 944*r_pow4) - 2*L_pow2*r_pow8*(43108*M_pow4 + 2*(-22255 + 3984*E_pow2)*M_pow3*r + 3*(4181 - 112*E_pow2)*M_pow2*r_pow2 - 2*(1153 + 1110*E_pow2)*M*r_pow3 + 947*r_pow4) + r_pow10*(-39770*M_pow4 - 5*(-7391 + 5712*E_pow2)*M_pow3*r + (1567 + 12168*E_pow2)*M_pow2*r_pow2 + 2*(-3837 + 1064*E_pow2)*M*r_pow3 + 1260*r_pow4)) + 4*a_pow5*E*M*r_pow5*(12*L_pow10*(102*M_pow3 + 17*M_pow2*r + 47*M*r_pow2 - 72*r_pow3) + L_pow6*r_pow3*(3396*M_pow4 + 4*(-19535 + 36*E_pow2)*M_pow3*r + 39329*M_pow2*r_pow2 - 6*(-7987 + 36*E_pow2)*M*r_pow3 - 26185*r_pow4) + L_pow8*r*(-1216*M_pow4 + 6*(-2599 + 76*E_pow2)*M_pow3*r + 36*(325 + 17*E_pow2)*M_pow2*r_pow2 + (14891 + 102*E_pow2)*M*r_pow3 - 7749*r_pow4) + L_pow2*r_pow7*(191036*M_pow4 + 4*(7241 + 168*E_pow2)*M_pow3*r + 3*(-37139 + 416*E_pow2)*M_pow2*r_pow2 + 2*(-2401 + 318*E_pow2)*M*r_pow3 + 9996*r_pow4) + r_pow9*(34032*M_pow4 + 18*(411 - 260*E_pow2)*M_pow3*r - 4*(11101 + 1161*E_pow2)*M_pow2*r_pow2 - 9*(315 + 118*E_pow2)*M*r_pow3 + 11345*r_pow4) - 2*L_pow4*r_pow5*(-65088*M_pow4 + 21102*M_pow3*r + 9522*M_pow2*r_pow2 - 16600*M*r_pow3 + 11619*r_pow4)) + a_pow4*L*r_pow5*(-6*L_pow10*(272*M_pow4 - 8*M_pow3*r + 504*M_pow2*r_pow2 - 358*M*r_pow3 + 9*r_pow4) + 2*L_pow4*r_pow5*(-191424*M_pow5 + 8*(20383 + 9144*E_pow2)*M_pow4*r + (40307 + 22176*E_pow2)*M_pow3*r_pow2 - 79*(1139 + 576*E_pow2)*M_pow2*r_pow3 + 6*(5673 + 410*E_pow2)*M*r_pow4 - 3498*r_pow5) + L_pow8*r*(3200*M_pow5 - 8*(-4409 + 444*E_pow2)*M_pow4*r - (15563 + 4368*E_pow2)*M_pow3*r_pow2 + (-37073 + 840*E_pow2)*M_pow2*r_pow3 + 4*(4639 + 156*E_pow2)*M*r_pow4 + 534*r_pow5) - 2*L_pow2*r_pow7*(242228*M_pow5 + 4*(-25405 + 9222*E_pow2)*M_pow4*r + (-131405 + 11148*E_pow2)*M_pow3*r_pow2 - 24*(-2713 + 494*E_pow2)*M_pow2*r_pow3 - 24*(92 + 185*E_pow2)*M*r_pow4 + 573*r_pow5) - 2*L_pow6*r_pow3*(45988*M_pow5 - 4*(26827 + 4758*E_pow2)*M_pow4*r - 3*(-7265 + 4844*E_pow2)*M_pow3*r_pow2 + 2*(33049 + 10518*E_pow2)*M_pow2*r_pow3 - (31007 + 1128*E_pow2)*M*r_pow4 + 760*r_pow5) + r_pow9*(-178064*M_pow5 - 8*(-6173 + 22248*E_pow2)*M_pow4*r + (142457 - 23616*E_pow2)*M_pow3*r_pow2 + (-44969 + 75768*E_pow2)*M_pow2*r_pow3 + 12*(-1357 + 436*E_pow2)*M*r_pow4 + 3222*r_pow5)) + 4*a_pow7*E*M*r_pow4*(-6*L_pow10*(18*M_pow2 + 15*M*r + 49*r_pow2) + L_pow8*(3456*M_pow4 + 24*(-91 + 17*E_pow2)*M_pow3*r + (10679 + 228*E_pow2)*M_pow2*r_pow2 + 3*(967 - 2*E_pow2)*M*r_pow3 - 3888*r_pow4) + L_pow6*r*(10752*M_pow5 + 4*(-6965 + 96*E_pow2)*M_pow4*r + 8*(-6755 + 162*E_pow2)*M_pow3*r_pow2 + 3*(18367 + 96*E_pow2)*M_pow2*r_pow3 + 2*(12979 - 84*E_pow2)*M*r_pow4 - 14369*r_pow5) + 12*L_pow4*r_pow3*(15940*M_pow5 + 7866*M_pow4*r - 17521*M_pow3*r_pow2 - 2834*M_pow2*r_pow3 + 2823*M*r_pow4 - 1060*r_pow5) + L_pow2*r_pow5*(332080*M_pow5 - 4*(-72895 + 96*E_pow2)*M_pow4*r - 12*(21919 + 24*E_pow2)*M_pow3*r_pow2 + 15*(-13241 + 96*E_pow2)*M_pow2*r_pow3 + 60*(495 + 13*E_pow2)*M*r_pow4 + 19632*r_pow5) + r_pow7*(41136*M_pow5 - 24*(-2553 + 580*E_pow2)*M_pow4*r - 180*(435 + 122*E_pow2)*M_pow3*r_pow2 - 15*(4997 + 708*E_pow2)*M_pow2*r_pow3 + (25745 - 1542*E_pow2)*M*r_pow4 + 20098*r_pow5)) - 4*a_pow13*E*M*r*twoM_plus_r*(-2*L_pow4*(432*M_pow4 + 924*M_pow3*r + 4288*M_pow2*r_pow2 + 2664*M*r_pow3 + 321*r_pow4) + r_pow2*twoM_plus_r*(456*(-11 + 4*E_pow2)*M_pow5 + 24*(-141 + 314*E_pow2)*M_pow4*r + 6*(3677 + 1128*E_pow2)*M_pow3*r_pow2 + 4*(2543 + 417*E_pow2)*M_pow2*r_pow3 - (15511 + 30*E_pow2)*M*r_pow4 - 7891*r_pow5) + L_pow2*(9792*M_pow6 + 384*(43 + 6*E_pow2)*M_pow5*r + 24*(2603 + 132*E_pow2)*M_pow4*r_pow2 + 2*(22709 + 360*E_pow2)*M_pow3*r_pow3 - (25559 + 504*E_pow2)*M_pow2*r_pow4 - 2*(14237 + 90*E_pow2)*M*r_pow5 - 5634*r_pow6)) - 4*a_pow9*E*M*r_pow3*(L_pow8*(432*M_pow3 + 4*(-337 + 9*E_pow2)*M_pow2*r + 9*(79 + 2*E_pow2)*M*r_pow2 + 843*r_pow3) - L_pow6*r*(192*(-89 + 6*E_pow2)*M_pow4 + 4*(641 + 252*E_pow2)*M_pow3*r + 36335*M_pow2*r_pow2 + 2*(4781 - 54*E_pow2)*M*r_pow3 - 3930*r_pow4) + L_pow2*r_pow3*(-210736*M_pow6 + 176*(-2285 + 12*E_pow2)*M_pow5*r + 16*(11687 + 480*E_pow2)*M_pow4*r_pow2 + 24*(21439 + 168*E_pow2)*M_pow3*r_pow3 + 2*(55711 - 480*E_pow2)*M_pow2*r_pow4 - 4*(19544 + 165*E_pow2)*M*r_pow5 - 22713*r_pow6) + r_pow5*(-14208*M_pow6 + 240*(-389 + 96*E_pow2)*M_pow5*r + 16*(1867 + 3270*E_pow2)*M_pow4*r_pow2 + 20*(8615 + 2016*E_pow2)*M_pow3*r_pow3 + 60*(521 + 207*E_pow2)*M_pow2*r_pow4 + 5*(-12695 + 246*E_pow2)*M*r_pow5 - 22645*r_pow6) - 2*L_pow4*r*(19968*M_pow6 + 39416*M_pow5*r - 82984*M_pow4*r_pow2 - 100214*M_pow3*r_pow3 + 16178*M_pow2*r_pow4 + 22930*M*r_pow5 + 69*r_pow6)) + a_pow6*L*r_pow4*(6*L_pow10*(24*M_pow3 + 24*M_pow2*r + 184*M*r_pow2 + 3*r_pow3) + L_pow8*(-4608*M_pow5 + 48*(133 - 102*E_pow2)*M_pow4*r - 12*(2495 + 148*E_pow2)*M_pow3*r_pow2 + 4*(-1931 + 198*E_pow2)*M_pow2*r_pow3 + 3*(4633 + 112*E_pow2)*M*r_pow4 + 387*r_pow5) - 2*L_pow4*r_pow3*(266040*M_pow6 - 4*(-3509 + 8496*E_pow2)*M_pow5*r - 2*(194711 + 45264*E_pow2)*M_pow4*r_pow2 + (103805 + 39648*E_pow2)*M_pow3*r_pow3 + (106517 + 56496*E_pow2)*M_pow2*r_pow4 - 5*(8659 + 384*E_pow2)*M*r_pow5 - 1597*r_pow6) + 2*L_pow6*r*(-10752*M_pow6 + 8*(2789 + 8*E_pow2)*M_pow5*r + 4*(24747 + 2740*E_pow2)*M_pow4*r_pow2 - 2*(44057 + 2830*E_pow2)*M_pow3*r_pow3 - (38389 + 16956*E_pow2)*M_pow2*r_pow4 + 8*(3863 + 118*E_pow2)*M*r_pow5 + 1665*r_pow6) + 2*L_pow2*r_pow5*(-435024*M_pow6 - 32*(4948 + 2727*E_pow2)*M_pow5*r - 144*(-3664 + 387*E_pow2)*M_pow4*r_pow2 + 4*(11699 + 7515*E_pow2)*M_pow3*r_pow3 + 3*(-46421 + 8564*E_pow2)*M_pow2*r_pow4 + 12*(662 + 335*E_pow2)*M*r_pow5 + 1693*r_pow6) + r_pow7*(-303664*M_pow6 - 8*(23705 + 54088*E_pow2)*M_pow5*r + 4*(115067 - 83912*E_pow2)*M_pow4*r_pow2 + 2*(65105 + 115864*E_pow2)*M_pow3*r_pow3 + 2*(-71761 + 87812*E_pow2)*M_pow2*r_pow4 + (-19185 + 6416*E_pow2)*M*r_pow5 + 4743*r_pow6)) - 4*a_pow11*E*M*r_pow2*(L_pow6*r*(48*(-118 + 3*E_pow2)*M_pow3 + (-6979 + 144*E_pow2)*M_pow2*r + 6*(-187 + 6*E_pow2)*M*r_pow2 + 492*r_pow3) + r_pow3*twoM_plus_r*(2544*M_pow6 + 96*(-323 + 105*E_pow2)*M_pow5*r + 32*(-136 + 855*E_pow2)*M_pow4*r_pow2 + 80*(1001 + 279*E_pow2)*M_pow3*r_pow3 + 5*(4855 + 1296*E_pow2)*M_pow2*r_pow4 + (-39257 + 450*E_pow2)*M*r_pow5 - 16694*r_pow6) + 2*L_pow4*(6912*M_pow6 + 19728*M_pow5*r + 45884*M_pow4*r_pow2 + 7020*M_pow3*r_pow3 - 30893*M_pow2*r_pow4 - 15076*M*r_pow5 - 1269*r_pow6) + L_pow2*r*(-20608*M_pow7 + 16*(-6985 + 96*E_pow2)*M_pow6*r + 48*(1605 + 236*E_pow2)*M_pow5*r_pow2 + 272*(1685 + 48*E_pow2)*M_pow4*r_pow3 + 16*(18067 + 228*E_pow2)*M_pow3*r_pow4 - 6*(9213 + 160*E_pow2)*M_pow2*r_pow5 - 2*(40727 + 210*E_pow2)*M*r_pow6 - 15387*r_pow7)) + a_pow8*L*r_pow3*(L_pow8*(576*M_pow4 + 8*(-373 + 54*E_pow2)*M_pow3*r + 36*(125 + 8*E_pow2)*M_pow2*r_pow2 + 9*(431 + 8*E_pow2)*M*r_pow3 + 45*r_pow4) - 2*L_pow6*r*(192*(-89 + 36*E_pow2)*M_pow5 + 8*(-67 + 105*E_pow2)*M_pow4*r + (54731 + 6388*E_pow2)*M_pow3*r_pow2 + 2*(45 + 2908*E_pow2)*M_pow2*r_pow3 - 4*(3795 + 86*E_pow2)*M*r_pow4 - 756*r_pow5) + 2*L_pow4*r*(-41472*M_pow7 - 32*(3601 + 336*E_pow2)*M_pow6*r + 4*(70525 + 8352*E_pow2)*M_pow5*r_pow2 + 8*(24359 + 3420*E_pow2)*M_pow4*r_pow3 - (187817 + 60768*E_pow2)*M_pow3*r_pow4 - 3*(15537 + 12056*E_pow2)*M_pow2*r_pow5 + (36731 + 420*E_pow2)*M*r_pow6 + 2889*r_pow7) + 2*L_pow2*r_pow3*(-268496*M_pow7 - 16*(27221 + 5946*E_pow2)*M_pow6*r + 24*(20473 - 3662*E_pow2)*M_pow5*r_pow2 + 32*(16942 + 1455*E_pow2)*M_pow4*r_pow3 + 4*(-46085 + 17622*E_pow2)*M_pow3*r_pow4 + 3*(-45583 + 6748*E_pow2)*M_pow2*r_pow5 + 5*(3379 + 192*E_pow2)*M*r_pow6 + 3082*r_pow7) + r_pow5*(-160768*M_pow7 - 32*(14501 + 14304*E_pow2)*M_pow6*r - 8*(-50851 + 87336*E_pow2)*M_pow5*r_pow2 + 16*(42115 + 11474*E_pow2)*M_pow4*r_pow3 + 2*(-62525 + 304064*E_pow2)*M_pow3*r_pow4 + 4*(-52575 + 52466*E_pow2)*M_pow2*r_pow5 + 5*(-2661 + 688*E_pow2)*M*r_pow6 + 4365*r_pow7)) - a_pow12*L*r*(2*L_pow4*(1152*M_pow6 + 3408*M_pow5*r + 16*(1955 + 354*E_pow2)*M_pow4*r_pow2 + 2*(12977 + 3360*E_pow2)*M_pow3*r_pow3 + 18*(227 + 120*E_pow2)*M_pow2*r_pow4 + 3*(-205 + 36*E_pow2)*M*r_pow5 + 45*r_pow6) - r_pow2*twoM_plus_r*(64*(-627 + 20*E_pow2)*M_pow7 + 40*(-1267 + 928*E_pow2)*M_pow6*r + 4*(47177 + 29904*E_pow2)*M_pow5*r_pow2 + 2*(60085 + 129488*E_pow2)*M_pow4*r_pow3 + 27*(-4795 + 7696*E_pow2)*M_pow3*r_pow4 + (-83445 + 49096*E_pow2)*M_pow2*r_pow5 - 2*(2067 + 856*E_pow2)*M*r_pow6 + 720*r_pow7) - 2*L_pow2*(13056*M_pow8 + 1536*(17 + 18*E_pow2)*M_pow7*r + 32*(5905 + 2043*E_pow2)*M_pow6*r_pow2 + 4*(41831 + 15972*E_pow2)*M_pow5*r_pow3 + 4*(-22469 + 6606*E_pow2)*M_pow4*r_pow4 - 3*(41021 + 324*E_pow2)*M_pow3*r_pow5 - 2*(12481 + 2004*E_pow2)*M_pow2*r_pow6 - 42*(-67 + 20*E_pow2)*M*r_pow7 + 315*r_pow8)) + a_pow10*L*r_pow2*(2*L_pow6*M*r*(96*(-59 + 9*E_pow2)*M_pow3 - 2*(3619 + 458*E_pow2)*M_pow2*r + 3*(877 - 252*E_pow2)*M*r_pow2 + 12*(187 + 3*E_pow2)*r_pow3) + 2*L_pow4*(9216*M_pow7 + 30816*M_pow6*r + 32*(4027 + 534*E_pow2)*M_pow5*r_pow2 - 48*(409 + 118*E_pow2)*M_pow4*r_pow3 - 8*(12371 + 3888*E_pow2)*M_pow3*r_pow4 - 2*(3625 + 6396*E_pow2)*M_pow2*r_pow5 - 3*(-4321 + 80*E_pow2)*M*r_pow6 + 837*r_pow7) + 2*L_pow2*r*(-27904*M_pow8 - 32*(5825 + 1104*E_pow2)*M_pow7*r - 16*(-7057 + 1236*E_pow2)*M_pow6*r_pow2 + 24*(24269 + 3082*E_pow2)*M_pow5*r_pow3 + 12*(10485 + 8356*E_pow2)*M_pow4*r_pow4 + 490*(-475 + 84*E_pow2)*M_pow3*r_pow5 + 3*(-22979 + 904*E_pow2)*M_pow2*r_pow6 - 6*(-2209 + 178*E_pow2)*M*r_pow7 + 1851*r_pow8) + r_pow3*(29024*M_pow8 - 16*(18481 + 10656*E_pow2)*M_pow7*r - 128*(262 + 3195*E_pow2)*M_pow6*r_pow2 + 24*(32591 + 4336*E_pow2)*M_pow5*r_pow3 + 2*(142775 + 417888*E_pow2)*M_pow4*r_pow4 + (-345457 + 627664*E_pow2)*M_pow3*r_pow5 + (-176453 + 137304*E_pow2)*M_pow2*r_pow6 - 12*(485 + 44*E_pow2)*M*r_pow7 + 2466*r_pow8)) + 4*a_pow15*E*M*twoM_plus_r_pow2*(L_pow2*(432*M_pow4 + 8*(-95 + 18*E_pow2)*M_pow3*r + (3989 + 144*E_pow2)*M_pow2*r_pow2 + 36*(112 + E_pow2)*M*r_pow3 + 858*r_pow4) - 3*r*twoM_plus_r*(r*(966*M_pow3 + 593*M_pow2*r - 1225*M*r_pow2 - 730*r_pow3) + 2*E_pow2*M*(136*M_pow3 + 144*M_pow2*r + 12*M*r_pow2 - 13*r_pow3))) - a_pow14*L*twoM_plus_r*(2*L_pow2*(576*M_pow6 + 64*(-26 + 27*E_pow2)*M_pow5*r + 4*(4205 + 786*E_pow2)*M_pow4*r_pow2 + 78*(267 + 34*E_pow2)*M_pow3*r_pow3 + 9*(733 + 124*E_pow2)*M_pow2*r_pow4 + 18*(23 + 10*E_pow2)*M*r_pow5 + 45*r_pow6) - r*twoM_plus_r*(8*E_pow2*M*(2448*M_pow5 + 3360*M_pow4*r + 3880*M_pow3*r_pow2 + 3790*M_pow2*r_pow3 + 1067*M*r_pow4 - 106*r_pow5) + r*(23184*M_pow5 + 23936*M_pow4*r - 28024*M_pow3*r_pow2 - 23824*M_pow2*r_pow3 - 1797*M*r_pow4 + 27*r_pow5))))*ur_pow2 + r_pow5*(-6*E_pow2*L*M*(r_pow3 + a_pow2*twoM_plus_r)*(3*a_pow12*twoM_plus_r_pow3*(18*M + 5*r) + 10*r_pow10*(3*L_pow6 + 8*L_pow4*r_pow2 - 7*L_pow2*r_pow4 - 5*r_pow6) + a_pow10*r*twoM_plus_r_pow2*(-888*M_pow3 - 868*M_pow2*r - 106*M*r_pow2 + 17*r_pow3 + 2*L_pow2*(76*M + 35*r)) + a_pow2*r_pow7*(-6*L_pow2*r_pow4*(110*M + 29*r) + 2*L_pow6*(40*M + 51*r) - r_pow6*(550*M + 243*r) + L_pow4*r_pow2*(180*M + 311*r)) - a_pow4*r_pow4*(L_pow4*r_pow2*(132*M_pow2 - 626*M*r - 477*r_pow2) + 4*L_pow2*r_pow4*(588*M_pow2 + 333*M*r + 8*r_pow2) - 2*L_pow6*(38*M_pow2 + 79*M*r + 56*r_pow2) + r_pow6*(2544*M_pow2 + 2120*M*r + 457*r_pow2)) - a_pow8*r_pow2*twoM_plus_r*(-(L_pow4*(172*M + 95*r)) + 6*L_pow2*(184*M_pow3 + 144*M_pow2*r - 60*M*r_pow2 - 41*r_pow3) + 4*r_pow2*(916*M_pow3 + 994*M_pow2*r + 316*M*r_pow2 + 33*r_pow3)) - a_pow6*r_pow3*(-2*L_pow6*(37*M + 20*r) + L_pow4*(344*M_pow3 - 116*M_pow2*r - 808*M*r_pow2 - 341*r_pow3) + 4*L_pow2*r_pow2*(932*M_pow3 + 846*M_pow2*r + 63*M*r_pow2 - 62*r_pow3) + 2*r_pow4*(3032*M_pow3 + 3660*M_pow2*r + 1458*M*r_pow2 + 199*r_pow3))) + 4*a*E*M*(a_pow14*twoM_plus_r_pow4*(526*M + 267*r) + 3*r_pow10*(4*L_pow8*(24*M - 7*r) + 36*L_pow6*(43*M - 19*r)*r_pow2 + 2*L_pow4*(24*M - 47*r)*r_pow4 + 20*r_pow8*(-5*M + 3*r) + L_pow2*r_pow6*(-1574*M + 727*r)) + a_pow2*r_pow7*(L_pow6*r_pow2*(2652*M_pow2 + 6770*M*r - 4831*r_pow2) + 6*L_pow8*(152*M_pow2 + 118*M*r - 57*r_pow2) - L_pow4*r_pow4*(6264*M_pow2 + 58*M*r + 199*r_pow2) + r_pow8*(-3072*M_pow2 - 154*M*r + 1367*r_pow2) + L_pow2*r_pow6*(-25356*M_pow2 - 6634*M*r + 10097*r_pow2)) + a_pow4*r_pow4*(L_pow6*r_pow2*(-7284*M_pow3 + 5546*M_pow2*r + 5060*M*r_pow2 - 3943*r_pow3) + 12*L_pow8*(38*M_pow3 + 111*M_pow2*r + 26*M*r_pow2 - 33*r_pow3) + 2*L_pow4*r_pow4*(-12618*M_pow3 - 6885*M_pow2*r + 2156*M*r_pow2 + 621*r_pow3) + 2*r_pow8*(-6288*M_pow3 - 4802*M_pow2*r + 3296*M*r_pow2 + 2201*r_pow3) + L_pow2*r_pow6*(-49302*M_pow3 - 57353*M_pow2*r + 15126*M*r_pow2 + 19501*r_pow3)) + a_pow12*twoM_plus_r_pow2*(L_pow2*(648*M_pow3 + 1913*M_pow2*r + 1988*M*r_pow2 + 633*r_pow3) + 2*r*(-1768*M_pow4 - 824*M_pow3*r + 4074*M_pow2*r_pow2 + 3824*M*r_pow3 + 901*r_pow4)) + a_pow6*r_pow3*(6*L_pow8*(74*M_pow2 - 6*M*r - 23*r_pow2) + L_pow6*(-2064*M_pow4 - 1588*M_pow3*r + 8360*M_pow2*r_pow2 + 3158*M*r_pow3 - 1341*r_pow4) + 2*L_pow4*r_pow2*(-15444*M_pow4 - 18330*M_pow3*r + 803*M_pow2*r_pow2 + 5646*M*r_pow3 + 1140*r_pow4) + r_pow6*(-25728*M_pow4 - 41296*M_pow3*r + 3720*M_pow2*r_pow2 + 24570*M*r_pow3 + 7805*r_pow4) + 2*L_pow2*r_pow4*(-24684*M_pow4 - 54297*M_pow3*r - 16125*M_pow2*r_pow2 + 22111*M*r_pow3 + 10182*r_pow4)) + a_pow10*r*twoM_plus_r*(L_pow4*(1824*M_pow3 + 3482*M_pow2*r + 1984*M*r_pow2 + 327*r_pow3) + L_pow2*(-10656*M_pow5 - 20516*M_pow4*r - 14138*M_pow3*r_pow2 + 7450*M_pow2*r_pow3 + 13606*M*r_pow4 + 4195*r_pow5) + r_pow2*(-5376*M_pow5 - 25360*M_pow4*r - 10176*M_pow3*r_pow2 + 26800*M_pow2*r_pow3 + 23480*M*r_pow4 + 5185*r_pow5)) + a_pow8*r_pow2*(L_pow6*(2064*M_pow3 + 3098*M_pow2*r + 744*M*r_pow2 - 177*r_pow3) - 2*L_pow4*(6624*M_pow5 + 11956*M_pow4*r + 1430*M_pow3*r_pow2 - 7921*M_pow2*r_pow3 - 4708*M*r_pow4 - 724*r_pow5) + 4*r_pow4*(-6576*M_pow5 - 18200*M_pow4*r - 6416*M_pow3*r_pow2 + 12170*M_pow2*r_pow3 + 9945*M*r_pow4 + 2060*r_pow5) + L_pow2*r_pow2*(-39480*M_pow5 - 101588*M_pow4*r - 77102*M_pow3*r_pow2 + 22012*M_pow2*r_pow3 + 44660*M*r_pow4 + 12341*r_pow5))) + L*(-2*a_pow14*M*twoM_plus_r_pow3*(2104*M_pow2 + 1700*M*r + 531*r_pow2) + r_pow10*(L_pow6*r_pow2*(-9208*M_pow2 + 8490*M*r - 1913*r_pow2) - 32*L_pow4*r_pow4*(189*M_pow2 - 190*M*r + 47*r_pow2) + L_pow8*(-336*M_pow2 + 36*M*r + 72*r_pow2) + 4*r_pow8*(620*M_pow2 - 571*M*r + 126*r_pow2) + 2*L_pow2*r_pow6*(3282*M_pow2 - 2959*M*r + 650*r_pow2)) + a_pow2*r_pow7*(L_pow4*r_pow4*(23412*M_pow3 - 22372*M_pow2*r + 13315*M*r_pow2 - 3653*r_pow3) - 12*L_pow8*(10*M_pow3 + 251*M_pow2*r - 144*M*r_pow2 - 3*r_pow3) + 2*r_pow8*(6484*M_pow3 + 1248*M_pow2*r - 4719*M*r_pow2 + 1068*r_pow3) - 2*L_pow6*r_pow2*(704*M_pow3 + 11300*M_pow2*r - 8629*M*r_pow2 + 1312*r_pow3) + 2*L_pow2*r_pow6*(28764*M_pow3 - 4212*M_pow2*r - 9464*M*r_pow2 + 2061*r_pow3)) + a_pow4*r_pow4*(2*L_pow4*r_pow4*(40848*M_pow4 + 14*M_pow3*r - 24917*M_pow2*r_pow2 + 8742*M*r_pow3 - 1037*r_pow4) + L_pow6*r_pow2*(25496*M_pow4 - 30354*M_pow3*r - 18013*M_pow2*r_pow2 + 21926*M*r_pow3 - 243*r_pow4) - 12*L_pow8*(76*M_pow4 + 248*M_pow3*r + 136*M_pow2*r_pow2 - 232*M*r_pow3 + 3*r_pow4) + 4*r_pow8*(6050*M_pow4 + 14643*M_pow3*r - 4216*M_pow2*r_pow2 - 5673*M*r_pow3 + 795*r_pow4) + 2*L_pow2*r_pow6*(67914*M_pow4 + 61603*M_pow3*r - 37708*M_pow2*r_pow2 - 17382*M*r_pow3 + 2229*r_pow4)) + a_pow6*r_pow3*(-12*L_pow8*M*(74*M_pow2 - 89*M*r - 109*r_pow2) + 2*L_pow6*(2064*M_pow5 + 2840*M_pow4*r - 14343*M_pow3*r_pow2 + 1808*M_pow2*r_pow3 + 7156*M*r_pow4 + 234*r_pow5) + 2*r_pow6*(16184*M_pow5 + 87424*M_pow4*r + 38500*M_pow3*r_pow2 - 43214*M_pow2*r_pow3 - 21325*M*r_pow4 + 720*r_pow5) + L_pow4*r_pow2*(49188*M_pow5 + 71240*M_pow4*r - 62799*M_pow3*r_pow2 - 36829*M_pow2*r_pow3 + 19045*M*r_pow4 + 795*r_pow5) + 2*L_pow2*r_pow4*(49800*M_pow5 + 157780*M_pow4*r + 17253*M_pow3*r_pow2 - 82127*M_pow2*r_pow3 - 23101*M*r_pow4 + 821*r_pow5)) - 2*a_pow12*twoM_plus_r*(L_pow2*M*(1296*M_pow4 + 6644*M_pow3*r + 11904*M_pow2*r_pow2 + 6631*M*r_pow3 + 1059*r_pow4) + 2*r*(-7072*M_pow6 - 5700*M_pow5*r + 14112*M_pow4*r_pow2 + 23213*M_pow3*r_pow3 + 12934*M_pow2*r_pow4 + 2725*M*r_pow5 + 81*r_pow6)) + a_pow8*r_pow2*(L_pow6*M*(-4128*M_pow3 - 5984*M_pow2*r + 3117*M*r_pow2 + 2622*r_pow3) - 2*L_pow2*r_pow2*(-16200*M_pow6 - 121044*M_pow5*r - 104194*M_pow4*r_pow2 + 75161*M_pow3*r_pow3 + 87317*M_pow2*r_pow4 + 18176*M*r_pow5 + 51*r_pow6) - 4*r_pow4*(-13912*M_pow6 - 68316*M_pow5*r - 61368*M_pow4*r_pow2 + 23346*M_pow3*r_pow3 + 44668*M_pow2*r_pow4 + 13245*M*r_pow5 + 240*r_pow6) + 2*L_pow4*(13248*M_pow6 + 24208*M_pow5*r + 5138*M_pow4*r_pow2 - 22611*M_pow3*r_pow3 - 4776*M_pow2*r_pow4 + 4527*M*r_pow5 + 360*r_pow6)) - a_pow10*r*(L_pow4*M*(7296*M_pow4 + 20848*M_pow3*r + 20851*M_pow2*r_pow2 + 5677*M*r_pow3 - 258*r_pow4) - 2*L_pow2*(21312*M_pow7 + 50576*M_pow6*r + 65772*M_pow5*r_pow2 - 17668*M_pow4*r_pow3 - 80861*M_pow3*r_pow4 - 44153*M_pow2*r_pow5 - 7011*M*r_pow6 - 54*r_pow7) + 2*r_pow2*(-23648*M_pow7 - 115488*M_pow6*r - 126056*M_pow5*r_pow2 + 36872*M_pow4*r_pow3 + 141876*M_pow3*r_pow4 + 86444*M_pow2*r_pow5 + 18177*M*r_pow6 + 588*r_pow7))))*ur_pow4 - 3*L*r_pow8*(2*a_pow12*M*twoM_plus_r_pow3*(326*M + 169*r) + 2*r_pow10*(2*L_pow2*(209*M - 87*r)*r_pow4 - 3*L_pow6*(8*M + r) + 2*r_pow6*(13*M + 6*r) + 2*L_pow4*r_pow2*(-166*M + 63*r)) + 2*a_pow10*M*r*twoM_plus_r*(-1264*M_pow4 - 368*M_pow3*r + 4024*M_pow2*r_pow2 + 3704*M*r_pow3 + 879*r_pow4 + 2*L_pow2*(83*M_pow2 + 206*M*r + 86*r_pow2)) + a_pow2*r_pow8*(-2*L_pow6*(142*M + 3*r) + 4*L_pow2*r_pow3*(226*M_pow2 + 457*M*r - 246*r_pow2) + 2*r_pow5*(86*M_pow2 + 403*M*r + 48*r_pow2) + L_pow4*r*(222*M_pow2 - 1327*M*r + 459*r_pow2)) + a_pow4*r_pow4*(2*L_pow6*M*(114*M_pow2 - 161*M*r - 198*r_pow2) + 2*r_pow6*(-424*M_pow3 + 1988*M_pow2*r + 1425*M*r_pow2 + 72*r_pow3) + L_pow4*r_pow2*(1404*M_pow3 - 730*M_pow2*r - 1791*M*r_pow2 + 207*r_pow3) - 4*L_pow2*r_pow4*(1158*M_pow3 - 777*M_pow2*r - 740*M*r_pow2 + 231*r_pow3)) - a_pow6*r_pow3*(2*L_pow6*M*(169*M + 86*r) + L_pow4*M*(962*M_pow3 + 373*M_pow2*r + 1751*M*r_pow2 + 1204*r_pow3) - 4*r_pow4*(-1264*M_pow4 + 1500*M_pow3*r + 3250*M_pow2*r_pow2 + 1143*M*r_pow3 + 24*r_pow4) + 4*L_pow2*r_pow2*(1466*M_pow4 + 561*M_pow3*r - 2118*M_pow2*r_pow2 - 971*M*r_pow3 + 72*r_pow4)) + a_pow8*r_pow2*(L_pow4*M*(137*M_pow2 - 241*M*r - 166*r_pow2) + 4*L_pow2*M*(164*M_pow4 + 8*M_pow3*r + 1488*M_pow2*r_pow2 + 1885*M*r_pow3 + 565*r_pow4) + 8*r_pow2*(-1088*M_pow5 + 20*M_pow4*r + 2718*M_pow3*r_pow2 + 2180*M_pow2*r_pow3 + 487*M*r_pow4 + 3*r_pow5)))*ur_pow6))/(12.*r_pow2*pow(a_pow2 + r*r_minus_twoM,5)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),4));
A4400 = (r_pow4*(-48*a*E*L*M_pow2*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),4) + 12*E_pow2*M*pow(a_pow2 + r*r_minus_twoM,2)*(r_pow3 + a_pow2*twoM_plus_r)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),4) + pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),4)*(9*a_pow4 + 12*L_pow2*M*twoM_minus_r + r_pow2*(69*M_pow2 - 62*M*r + 10*r_pow2) + a_pow2*(-60*M*r + 34*r_pow2)) + r*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(-3*a_pow8*twoM_plus_r_pow2*(8*E_pow2*M + 7*r) + 12*a_pow7*E*L*M*(16*M_pow2 - 2*M*r - 5*r_pow2) + 12*a*E*L*M*r_pow5*(L_pow2*(25*M - 12*r) + 3*(12*M - 7*r)*r_pow2) + 12*a_pow5*E*L*M*r*(-32*M_pow3 + L_pow2*(14*M - r) + 24*M_pow2*r - 16*M*r_pow2 - 27*r_pow3) - 12*a_pow3*E*L*M*r_pow2*(L_pow2*(16*M_pow2 - 29*M*r + 7*r_pow2) + r_pow2*(-56*M_pow2 - 14*M*r + 43*r_pow2)) + r_pow5*(-3*L_pow4*(37*M_pow2 - 44*M*r + 13*r_pow2) + r_pow4*(33*M_pow2 - 52*M*r + 14*r_pow2) - L_pow2*r_pow2*(138*M_pow2 + 2*(-73 + 6*E_pow2)*M*r + 43*r_pow2)) + a_pow2*r_pow2*(6*L_pow4*(16*M_pow3 - 38*M_pow2*r + 15*M*r_pow2 - r_pow3) + 2*r_pow4*(66*M_pow3 + (-71 + 24*E_pow2)*M_pow2*r - 3*(5 + 4*E_pow2)*M*r_pow2 + 18*r_pow3) - L_pow2*r_pow2*(456*M_pow3 + 4*(-25 + 21*E_pow2)*M_pow2*r + 6*(-37 + 10*E_pow2)*M*r_pow2 + 65*r_pow3)) + a_pow4*r*(6*L_pow4*(-14*M_pow2 + 8*M*r + r_pow2) + L_pow2*(192*M_pow4 + 96*(-4 + E_pow2)*M_pow3*r - 6*(-37 + 20*E_pow2)*M_pow2*r_pow2 + 2*(95 - 42*E_pow2)*M*r_pow3 - 37*r_pow4) + r_pow2*(132*M_pow4 + 4*(-19 + 48*E_pow2)*M_pow3*r - 47*M_pow2*r_pow2 - 72*(-1 + E_pow2)*M*r_pow3 + 9*r_pow4)) - a_pow6*(3*L_pow2*(32*M_pow3 + 4*(-10 + 7*E_pow2)*M_pow2*r + 2*(-7 + 6*E_pow2)*M*r_pow2 + 5*r_pow3) + 2*r*twoM_plus_r*(r*(-18*M_pow2 - 17*M*r + 17*r_pow2) + E_pow2*(-48*M_pow3 + 36*M*r_pow2))))*ur_pow2 + r_pow3*(-24*a_pow12*r*twoM_plus_r_pow4 + r_pow9*(L_pow4*r_pow2*(-480*M_pow2 + 418*M*r - 89*r_pow2) + 10*r_pow6*(-2*M_pow2 - M*r + r_pow2) - 18*L_pow6*(14*M_pow2 - 13*M*r + 3*r_pow2) - 2*L_pow2*r_pow4*(118*M_pow2 - 81*M*r + 11*r_pow2)) - 2*a_pow10*twoM_plus_r_pow2*(3*L_pow2*(8*M_pow3 + 4*M_pow2*r - 3*M*r_pow2 + 7*r_pow3) + r_pow2*(-116*M_pow3 - 88*M_pow2*r + 95*M*r_pow2 + 55*r_pow3)) - 2*a_pow2*r_pow6*(r_pow6*(80*M_pow3 + 80*M_pow2*r - 49*M*r_pow2 - 13*r_pow3) + 3*L_pow6*(10*M_pow3 + 55*M_pow2*r - 57*M*r_pow2 + 14*r_pow3) + 2*L_pow4*r_pow2*(198*M_pow3 + 92*M_pow2*r - 237*M*r_pow2 + 66*r_pow3) + L_pow2*r_pow4*(386*M_pow3 + 123*M_pow2*r - 329*M*r_pow2 + 68*r_pow3)) - a_pow4*r_pow3*(-6*L_pow6*(16*M_pow4 - 52*M_pow3*r - 35*M_pow2*r_pow2 + 43*M*r_pow3 - 4*r_pow4) + 4*r_pow6*(120*M_pow4 + 180*M_pow3*r - 86*M_pow2*r_pow2 - 75*M*r_pow3 + 5*r_pow4) + 6*L_pow2*r_pow4*(32*M_pow4 + 276*M_pow3*r - 169*M_pow2*r_pow2 - 136*M*r_pow3 + 53*r_pow4) + L_pow4*r_pow2*(-564*M_pow4 + 1596*M_pow3*r - 205*M_pow2*r_pow2 - 858*M*r_pow3 + 273*r_pow4)) - 2*a_pow6*r_pow2*(3*L_pow6*(24*M_pow3 - 6*M_pow2*r - 19*M*r_pow2 - r_pow3) + 2*r_pow4*(160*M_pow5 + 320*M_pow4*r - 188*M_pow3*r_pow2 - 304*M_pow2*r_pow3 - 5*M*r_pow4 + 35*r_pow5) + L_pow4*(-192*M_pow5 + 208*M_pow4*r + 742*M_pow3*r_pow2 - 261*M_pow2*r_pow3 - 242*M*r_pow4 + 55*r_pow5) + L_pow2*r_pow2*(-472*M_pow5 + 468*M_pow4*r + 262*M_pow3*r_pow2 - 815*M_pow2*r_pow3 - 78*M*r_pow4 + 179*r_pow5)) + a_pow8*r*(L_pow4*(-384*M_pow4 - 176*M_pow3*r + 369*M_pow2*r_pow2 + 156*M*r_pow3 - 12*r_pow4) - 2*r_pow2*twoM_plus_r_pow2*(40*M_pow4 + 60*M_pow3*r - 222*M_pow2*r_pow2 - 75*M*r_pow3 + 95*r_pow4) + 2*L_pow2*(128*M_pow6 + 96*M_pow5*r - 404*M_pow4*r_pow2 + 120*M_pow3*r_pow3 + 243*M_pow2*r_pow4 - 157*M*r_pow5 - 98*r_pow6)) - 4*E_pow2*M*pow(r_pow3 + a_pow2*twoM_plus_r,2)*(3*a_pow8*twoM_plus_r_pow2 + 2*a_pow6*r*twoM_plus_r*(6*L_pow2 - 4*M_pow2 + 2*M*r + 5*r_pow2) + r_pow6*(6*L_pow4 + 6*L_pow2*r_pow2 + r_pow4) + 3*a_pow2*r_pow3*(8*L_pow2*r_pow3 + 2*r_pow5 + L_pow4*(-2*M + 5*r)) + 3*a_pow4*r_pow2*(3*L_pow4 + 4*r_pow2*(-M_pow2 + M*r + r_pow2) + L_pow2*(-8*M_pow2 + 8*M*r + 10*r_pow2))) + 4*a*E*L*M*(3*a_pow10*twoM_plus_r_pow3*(4*M + r) + r_pow9*(3*L_pow4*(26*M - 9*r) + 3*L_pow2*(30*M - 11*r)*r_pow2 + (10*M - 3*r)*r_pow4) + a_pow2*r_pow6*(2*L_pow2*r_pow2*(120*M_pow2 + 73*M*r - 47*r_pow2) + 3*L_pow4*(26*M_pow2 + 37*M*r - 18*r_pow2) + r_pow4*(44*M_pow2 + 22*M*r - 9*r_pow2)) + a_pow8*r*twoM_plus_r*(-64*M_pow4 - 24*M_pow3*r + 96*M_pow2*r_pow2 + 64*M*r_pow3 + 9*r_pow4 + L_pow2*(96*M_pow2 + 46*M*r - 3*r_pow2)) + a_pow4*r_pow3*(2*L_pow2*r_pow2*(12*M_pow3 + 202*M_pow2*r + 47*M*r_pow2 - 46*r_pow3) + L_pow4*(-48*M_pow3 + 114*M_pow2*r + 72*M*r_pow2 - 33*r_pow3) + 6*r_pow4*(4*M_pow3 + 16*M_pow2*r + 6*M*r_pow2 - r_pow3)) + a_pow6*r_pow2*(3*L_pow4*(24*M_pow2 + 9*M*r - 2*r_pow2) + L_pow2*(-192*M_pow4 + 104*M_pow3*r + 384*M_pow2*r_pow2 + 78*M*r_pow3 - 34*r_pow4) + 2*r_pow2*(-56*M_pow4 + 12*M_pow3*r + 84*M_pow2*r_pow2 + 38*M*r_pow3 + 3*r_pow4))))*ur_pow4 + r_pow6*(6*a_pow10*twoM_plus_r_pow4 + a_pow8*r*twoM_plus_r_pow2*(-32*M_pow3 - 8*M_pow2*r + 64*M*r_pow2 + 30*r_pow3 + 3*L_pow2*(8*M + r)) + r_pow9*(6*L_pow4*(10*M - 3*r) - 8*M*r_pow4 + 6*r_pow5 + 3*L_pow2*r_pow2*(2*M + 3*r)) + 2*a_pow2*r_pow6*(3*L_pow4*(10*M_pow2 + 17*M*r - 6*r_pow2) + 3*L_pow2*r_pow2*(4*M_pow2 + 15*M*r + 5*r_pow2) + r_pow4*(-32*M_pow2 + 8*M*r + 15*r_pow2)) + a_pow6*r_pow2*(L_pow4*(81*M_pow2 + 36*M*r - 3*r_pow2) + 4*r_pow2*twoM_plus_r_pow2*(-16*M_pow2 + 4*M*r + 15*r_pow2) + 6*L_pow2*r*(28*M_pow3 + 52*M_pow2*r + 25*M*r_pow2 + 3*r_pow3)) + 3*a_pow4*r_pow3*(L_pow4*(-22*M_pow3 + 35*M_pow2*r + 28*M*r_pow2 - 7*r_pow3) + 4*r_pow4*(-16*M_pow3 - 4*M_pow2*r + 12*M*r_pow2 + 5*r_pow3) + 2*L_pow2*r_pow2*(4*M_pow3 + 38*M_pow2*r + 33*M*r_pow2 + 6*r_pow3)))*ur_pow6))/(24.*pow(a_pow2 + r*r_minus_twoM,5)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),4));
A4401 = (r*ur*(72*a*E_pow3*M_pow2*(-(L_pow2*r) + r_pow3 + a_pow2*twoM_plus_r)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(a_pow8 + 3*twoM_minus_r*r_pow7 + 2*a_pow6*r*(-5*M + r) - 6*a_pow2*r_pow4*(-4*M_pow2 + M*r + r_pow2) - 2*a_pow4*r_pow2*(-8*M_pow2 + 11*M*r + r_pow2)) - 2*E_pow2*L*M*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(6*a_pow8*(36*M_pow2 + 40*M*r + 5*r_pow2) + r_pow7*(99*L_pow2*twoM_minus_r + (122*M - 77*r)*r_pow2) - 3*a_pow6*r*(576*M_pow3 + 192*M_pow2*r - 262*M*r_pow2 - r_pow3 + 12*L_pow2*(3*M + r)) - a_pow2*r_pow4*(-18*L_pow2*(72*M_pow2 - 9*M*r - 10*r_pow2) + r_pow2*(2068*M_pow2 - 1022*M*r + 211*r_pow2)) - a_pow4*r_pow2*(-9*L_pow2*(96*M_pow2 - 40*M*r - 13*r_pow2) + r*(1888*M_pow3 + 2244*M_pow2*r - 1350*M*r_pow2 + 161*r_pow3))) - 4*a*E*M*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(18*a_pow8*r*twoM_plus_r - 3*a_pow6*(r_pow2*(94*M_pow2 - 39*M*r - 49*r_pow2) + L_pow2*(36*M_pow2 + 62*M*r - 6*r_pow2)) + r_pow4*(-18*L_pow4*(36*M_pow2 - 20*M*r + r_pow2) + 3*r_pow4*(169*M_pow2 - 149*M*r + 36*r_pow2) + L_pow2*r_pow2*(731*M_pow2 - 833*M*r + 252*r_pow2)) + 3*a_pow4*r*(6*L_pow4*(3*M + 2*r) + L_pow2*(288*M_pow3 + 84*M_pow2*r - 225*M*r_pow2 + 35*r_pow3) + r_pow2*(150*M_pow3 - 317*M_pow2*r - 117*M*r_pow2 + 106*r_pow3)) + a_pow2*r_pow2*(18*L_pow4*(-24*M_pow2 + 17*M*r + r_pow2) + 3*r_pow3*(338*M_pow3 - 54*M_pow2*r - 273*M*r_pow2 + 99*r_pow3) + L_pow2*r*(592*M_pow3 + 1009*M_pow2*r - 1010*M*r_pow2 + 285*r_pow3))) + L*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(3*a_pow8*r*(48*M_pow2 + 74*M*r + 15*r_pow2) + r_pow4*(-18*L_pow4*M*(48*M_pow2 - 50*M*r + 13*r_pow2) + L_pow2*r_pow2*(148*M_pow3 - 587*M_pow2*r + 508*M*r_pow2 - 122*r_pow3) + r_pow4*(244*M_pow3 - 359*M_pow2*r + 202*M*r_pow2 - 38*r_pow3)) + a_pow6*(-3*L_pow2*(48*M_pow3 + 112*M_pow2*r - 44*M*r_pow2 - 15*r_pow3) + 2*r_pow2*(-564*M_pow3 + 18*M_pow2*r + 136*M*r_pow2 + 29*r_pow3)) + a_pow2*r_pow2*(-18*L_pow4*M*(32*M_pow2 - 32*M*r + 9*r_pow2) + L_pow2*r*(320*M_pow4 + 1420*M_pow3*r - 1145*M_pow2*r_pow2 + 268*M*r_pow3 - 52*r_pow4) + 2*r_pow3*(1636*M_pow4 - 1287*M_pow3*r + 68*M_pow2*r_pow2 + 191*M*r_pow3 - 51*r_pow4)) + a_pow4*r*(72*L_pow4*M*(M + r) + r_pow2*(1800*M_pow4 - 3238*M_pow3*r + 435*M_pow2*r_pow2 + 242*M*r_pow3 - 51*r_pow4) + L_pow2*(1152*M_pow4 + 288*M_pow3*r - 1272*M_pow2*r_pow2 + 156*M*r_pow3 + 85*r_pow4))) + r_pow2*(72*a_pow15*E*M*twoM_plus_r_pow4*(E_pow2*M + 13*r) - 3*a_pow14*L*twoM_plus_r_pow3*(r*(624*M_pow2 + 22*M*r - 27*r_pow2) + 8*E_pow2*M*(18*M_pow2 + 28*M*r + 15*r_pow2)) - 2*a*E*M*r_pow9*(L_pow2 + r_pow2)*(6*r_pow6*(-254*M_pow2 + (323 + 10*E_pow2)*M*r - 98*r_pow2) + 9*L_pow6*(88*M_pow2 - 130*M*r + 41*r_pow2) + 6*L_pow4*r_pow2*(458*M_pow2 - 607*M*r + 189*r_pow2) - L_pow2*r_pow4*(1424*M_pow2 + 10*(-145 + 18*E_pow2)*M*r + 351*r_pow2)) - L*r_pow9*(L_pow2 + r_pow2)*(L_pow2*twoM_minus_r*r_pow4*(21*M_pow2 + (163 + 246*E_pow2)*M*r - 160*r_pow2) + r_pow6*(1186*M_pow3 + (-1885 + 316*E_pow2)*M_pow2*r + 2*(463 - 88*E_pow2)*M*r_pow2 - 140*r_pow3) + 27*L_pow6*(2*M_pow3 + 21*M_pow2*r - 23*M*r_pow2 + 6*r_pow3) + L_pow4*r_pow2*(-1858*M_pow3 + 3893*M_pow2*r + 2*(-1295 + 9*E_pow2)*M*r_pow2 + 554*r_pow3)) + 2*a_pow3*E*M*r_pow6*(L_pow4*r_pow4*(17760*M_pow3 + 4*(-1745 + 216*E_pow2)*M_pow2*r + 12*(227 + 63*E_pow2)*M*r_pow2 - 2199*r_pow3) + 2*L_pow6*r_pow2*(3312*M_pow3 + 8*(-334 + 27*E_pow2)*M_pow2*r + 4*(955 - 18*E_pow2)*M*r_pow2 - 1803*r_pow3) + 9*L_pow8*(320*M_pow3 - 360*M_pow2*r + 176*M*r_pow2 - 55*r_pow3) + 12*r_pow8*(1016*M_pow3 - (649 + 68*E_pow2)*M_pow2*r - (539 + 23*E_pow2)*M*r_pow2 + 322*r_pow3) + 8*L_pow2*r_pow6*(3740*M_pow3 + (-1847 + 12*E_pow2)*M_pow2*r + 9*(-149 + 12*E_pow2)*M*r_pow2 + 663*r_pow3)) - a_pow2*L*r_pow6*(9*L_pow8*(224*M_pow4 - 416*M_pow3*r + 227*M_pow2*r_pow2 - 52*M*r_pow3 + 9*r_pow4) + L_pow2*r_pow6*(31432*M_pow4 + 8*(-3329 + 1480*E_pow2)*M_pow3*r - 12*(89 + 315*E_pow2)*M_pow2*r_pow2 - 5*(-643 + 248*E_pow2)*M*r_pow3 + 123*r_pow4) - r_pow8*(-15680*M_pow4 - 16*(-893 + 511*E_pow2)*M_pow3*r + (2201 + 3488*E_pow2)*M_pow2*r_pow2 + 2*(-2099 + 400*E_pow2)*M*r_pow3 + 708*r_pow4) + L_pow6*r_pow2*(9160*M_pow4 + 8*(-1403 + 18*E_pow2)*M_pow3*r + 4*(1915 - 189*E_pow2)*M_pow2*r_pow2 + 3*(-1531 + 132*E_pow2)*M*r_pow3 + 1273*r_pow4) + L_pow4*r_pow4*(21360*M_pow4 + 16*(-1145 + 216*E_pow2)*M_pow3*r + 2*(3383 - 524*E_pow2)*M_pow2*r_pow2 + 4*(-1371 + 11*E_pow2)*M*r_pow3 + 2115*r_pow4)) + 2*a_pow5*E*M*r_pow4*(9*L_pow8*(192*M_pow3 - 304*M_pow2*r + 162*M*r_pow2 - 23*r_pow3) + 4*L_pow6*r*(3504*M_pow4 + 8*(-55 + 27*E_pow2)*M_pow3*r + 27*(-77 + 4*E_pow2)*M_pow2*r_pow2 + (1573 - 90*E_pow2)*M*r_pow3 - 717*r_pow4) + 2*L_pow4*r_pow3*(28344*M_pow4 + 8*(394 + 81*E_pow2)*M_pow3*r + 36*(-393 + 38*E_pow2)*M_pow2*r_pow2 + 36*(25 + 17*E_pow2)*M*r_pow3 - 711*r_pow4) + 6*r_pow7*(6096*M_pow4 - 8*(-63 + 86*E_pow2)*M_pow3*r - 12*(613 + 46*E_pow2)*M_pow2*r_pow2 - (141 + 74*E_pow2)*M*r_pow3 + 1828*r_pow4) + L_pow2*r_pow5*(91920*M_pow4 - 144*(-105 + 16*E_pow2)*M_pow3*r + 4*(-18521 + 552*E_pow2)*M_pow2*r_pow2 + 8*(-649 + 300*E_pow2)*M*r_pow3 + 12855*r_pow4)) + 2*a_pow11*E*M*r*twoM_plus_r*(L_pow4*(1728*M_pow3 + 8*(509 + 9*E_pow2)*M_pow2*r + 6*(515 + 6*E_pow2)*M*r_pow2 + 477*r_pow3) + 12*r_pow2*twoM_plus_r*((540 - 112*E_pow2)*M_pow4 - 4*(150 + 71*E_pow2)*M_pow3*r - 5*(333 + 16*E_pow2)*M_pow2*r_pow2 + 5*(113 + 7*E_pow2)*M*r_pow3 + 824*r_pow4) - 8*L_pow2*(720*M_pow5 + 32*(71 + 6*E_pow2)*M_pow4*r + 4*(947 - 18*E_pow2)*M_pow3*r_pow2 + (305 - 324*E_pow2)*M_pow2*r_pow3 - (1991 + 120*E_pow2)*M*r_pow4 - 690*r_pow5)) - a_pow4*L*r_pow4*(9*L_pow8*(128*M_pow4 - 288*M_pow3*r + 288*M_pow2*r_pow2 - 77*M*r_pow3 - 9*r_pow4) + r_pow7*(65616*M_pow5 + 8*(-1929 + 5408*E_pow2)*M_pow4*r + 4*(-13977 + 232*E_pow2)*M_pow3*r_pow2 - 6*(-2347 + 3222*E_pow2)*M_pow2*r_pow3 + 2*(4393 - 500*E_pow2)*M*r_pow4 - 1545*r_pow5) + L_pow2*r_pow5*(122832*M_pow5 + 64*(-433 + 681*E_pow2)*M_pow4*r + 12*(-7635 + 526*E_pow2)*M_pow3*r_pow2 - 4*(-5731 + 4429*E_pow2)*M_pow2*r_pow3 + 2*(4530 + 89*E_pow2)*M*r_pow4 - 27*r_pow5) + L_pow6*r*(13440*M_pow5 + 96*(-94 + 57*E_pow2)*M_pow4*r - 12*(1033 + 156*E_pow2)*M_pow3*r_pow2 - 12*(-1141 + 99*E_pow2)*M_pow2*r_pow3 + (-4003 + 936*E_pow2)*M*r_pow4 + 345*r_pow5) + 2*L_pow4*r_pow3*(35616*M_pow5 + 36*(-337 + 202*E_pow2)*M_pow4*r + 2*(-11481 + 32*E_pow2)*M_pow3*r_pow2 - 3*(-3499 + 528*E_pow2)*M_pow2*r_pow3 + 3*(-495 + 376*E_pow2)*M*r_pow4 + 897*r_pow5)) + 2*a_pow7*E*M*r_pow3*(-9*L_pow8*(48*M_pow2 - 44*M*r + 9*r_pow2) + 2*L_pow6*(864*M_pow4 + 16*(-295 + 18*E_pow2)*M_pow3*r + 8*(11 - 9*E_pow2)*M_pow2*r_pow2 - 8*(-305 + 18*E_pow2)*M*r_pow3 - 441*r_pow4) + 2*L_pow4*r*(15872*M_pow5 + 8*(1451 + 36*E_pow2)*M_pow4*r + 72*(-363 + 19*E_pow2)*M_pow3*r_pow2 + 12*(-1051 + 126*E_pow2)*M_pow2*r_pow3 + 4*(1030 + 117*E_pow2)*M*r_pow4 + 549*r_pow5) + 12*r_pow5*(4064*M_pow5 + 8*(521 - 104*E_pow2)*M_pow4*r - 8*(842 + 143*E_pow2)*M_pow3*r_pow2 - 2*(2593 + 200*E_pow2)*M_pow2*r_pow3 - 15*(-146 + E_pow2)*M*r_pow4 + 1455*r_pow5) + 8*L_pow2*r_pow3*(12872*M_pow5 - 16*(-725 + 51*E_pow2)*M_pow4*r - 6*(2485 + 48*E_pow2)*M_pow3*r_pow2 + 2*(-5983 + 432*E_pow2)*M_pow2*r_pow3 + 2*(1367 + 210*E_pow2)*M*r_pow4 + 2139*r_pow5)) + a_pow6*L*r_pow3*(36*L_pow8*M*(8*M_pow2 - 13*M*r + 10*r_pow2) + L_pow6*(-1152*M_pow5 - 16*(-689 + 216*E_pow2)*M_pow4*r + 32*(-149 + 99*E_pow2)*M_pow3*r_pow2 + 4*(-1877 + 63*E_pow2)*M_pow2*r_pow3 + 3*(1289 - 252*E_pow2)*M*r_pow4 + 293*r_pow5) - 2*L_pow2*r_pow3*(73840*M_pow6 + 32*(1303 + 854*E_pow2)*M_pow5*r + 4*(-27869 + 4546*E_pow2)*M_pow4*r_pow2 - 2*(16195 + 9544*E_pow2)*M_pow3*r_pow3 + 2*(16619 - 4134*E_pow2)*M_pow2*r_pow4 + (5221 + 2336*E_pow2)*M*r_pow5 - 431*r_pow6) - 2*L_pow4*r*(18368*M_pow6 + 16*(593 + 492*E_pow2)*M_pow5*r + 4*(-11289 + 1372*E_pow2)*M_pow4*r_pow2 - 12*(223 + 372*E_pow2)*M_pow3*r_pow3 + (16023 + 988*E_pow2)*M_pow2*r_pow4 + 2*(-955 + 1056*E_pow2)*M*r_pow5 - 72*r_pow6) + r_pow5*(-112256*M_pow6 - 32*(1949 + 2770*E_pow2)*M_pow5*r - 8*(-20131 + 5476*E_pow2)*M_pow4*r_pow2 + 8*(6717 + 8122*E_pow2)*M_pow3*r_pow3 + 2*(-25083 + 16648*E_pow2)*M_pow2*r_pow4 - 8*(1384 + 105*E_pow2)*M*r_pow5 + 1981*r_pow6)) - 2*a_pow9*E*M*r_pow2*(L_pow6*(-432*M_pow3 + 16*(-193 + 9*E_pow2)*M_pow2*r + 72*(-21 + E_pow2)*M*r_pow2 + 117*r_pow3) + L_pow4*(9216*M_pow5 - 192*(-163 + 3*E_pow2)*M_pow4*r - 16*(-1706 + 99*E_pow2)*M_pow3*r_pow2 - 108*(71 + 12*E_pow2)*M_pow2*r_pow3 - 324*(34 + E_pow2)*M*r_pow4 - 1581*r_pow5) - 6*r_pow3*twoM_plus_r*(2032*M_pow5 + 16*(299 - 61*E_pow2)*M_pow4*r - 1592*(4 + E_pow2)*M_pow3*r_pow2 - 4*(2002 + 125*E_pow2)*M_pow2*r_pow3 + 5*(611 + 10*E_pow2)*M*r_pow4 + 2810*r_pow5) - L_pow2*r*(30464*M_pow6 - 64*(-865 + 78*E_pow2)*M_pow5*r - 336*(241 + 24*E_pow2)*M_pow4*r_pow2 + 16*(-9803 + 252*E_pow2)*M_pow3*r_pow3 + 4*(-6553 + 2112*E_pow2)*M_pow2*r_pow4 + 60*(667 + 42*E_pow2)*M*r_pow5 + 13161*r_pow6)) - a_pow8*L*r_pow2*(L_pow6*(288*M_pow4 - 32*(-92 + 27*E_pow2)*M_pow3*r + 12*(2 + 15*E_pow2)*M_pow2*r_pow2 + 6*(-217 + 33*E_pow2)*M*r_pow3 - 81*r_pow4) - L_pow4*(6144*M_pow6 - 192*(-161 + 18*E_pow2)*M_pow5*r + 16*(1635 + 293*E_pow2)*M_pow4*r_pow2 + 4*(-7129 + 456*E_pow2)*M_pow3*r_pow3 - 4*(3306 + 1669*E_pow2)*M_pow2*r_pow4 + (5205 - 2996*E_pow2)*M*r_pow5 + 780*r_pow6) + r_pow3*(68512*M_pow7 + 16*(8015 + 4484*E_pow2)*M_pow6*r + 80*(-1937 + 760*E_pow2)*M_pow5*r_pow2 - 8*(26563 + 12200*E_pow2)*M_pow4*r_pow3 + 2*(20417 - 54976*E_pow2)*M_pow3*r_pow4 + (72991 - 20684*E_pow2)*M_pow2*r_pow5 + 10*(817 + 352*E_pow2)*M*r_pow6 - 1734*r_pow7) + L_pow2*r*(35840*M_pow7 + 128*(627 + 131*E_pow2)*M_pow6*r + 48*(-3111 + 236*E_pow2)*M_pow5*r_pow2 - 48*(3975 + 827*E_pow2)*M_pow4*r_pow3 - 120*(-461 + 282*E_pow2)*M_pow3*r_pow4 + 16*(4271 + 415*E_pow2)*M_pow2*r_pow5 + (2927 + 6878*E_pow2)*M*r_pow6 - 1494*r_pow7)) + a_pow10*L*r*(-(L_pow4*(2304*M_pow5 + 16*(509 + 54*E_pow2)*M_pow4*r + 16*(541 + 220*E_pow2)*M_pow3*r_pow2 + 12*(-25 + 256*E_pow2)*M_pow2*r_pow3 + 108*(-18 + 7*E_pow2)*M*r_pow4 - 243*r_pow5)) + r_pow2*twoM_plus_r*(-64*(405 + 112*E_pow2)*M_pow6 + 8*(4629 + 920*E_pow2)*M_pow5*r + 4*(21543 + 12616*E_pow2)*M_pow4*r_pow2 + 2*(-10573 + 22392*E_pow2)*M_pow3*r_pow3 + (-43631 + 4288*E_pow2)*M_pow2*r_pow4 - 2*(2293 + 1912*E_pow2)*M*r_pow5 + 1086*r_pow6) + L_pow2*(7680*M_pow7 + 64*(553 + 288*E_pow2)*M_pow6*r + 64*(1454 + 507*E_pow2)*M_pow5*r_pow2 + 16*(165 + 1057*E_pow2)*M_pow4*r_pow3 - 4*(17977 + 3096*E_pow2)*M_pow3*r_pow4 - 4*(6428 + 3943*E_pow2)*M_pow2*r_pow5 + (2649 - 4120*E_pow2)*M*r_pow6 + 1005*r_pow7)) + 6*a_pow13*E*M*twoM_plus_r_pow2*(L_pow2*(144*M_pow3 + 32*(14 + 3*E_pow2)*M_pow2*r + 4*(229 + 12*E_pow2)*M*r_pow2 + 327*r_pow3) + 2*r*twoM_plus_r*(-2*E_pow2*M*(40*M_pow2 + 10*M*r - 17*r_pow2) + r*(-582*M_pow2 + 173*M*r + 544*r_pow2))) - a_pow12*L*twoM_plus_r*(L_pow2*(576*M_pow5 + 384*(7 + 9*E_pow2)*M_pow4*r + 8*(1194 + 725*E_pow2)*M_pow3*r_pow2 + 144*(23 + 27*E_pow2)*M_pow2*r_pow3 + 18*(-52 + 51*E_pow2)*M*r_pow4 - 243*r_pow5) - r*twoM_plus_r*(4*E_pow2*M*(1440*M_pow4 + 2452*M_pow3*r + 1556*M_pow2*r_pow2 - 397*M*r_pow3 - 470*r_pow4) + r*(13968*M_pow4 - 4712*M_pow3*r - 14104*M_pow2*r_pow2 - 1130*M*r_pow3 + 437*r_pow4))))*ur_pow2 + r_pow5*(-6*E_pow2*L*M*(r_pow3 + a_pow2*twoM_plus_r)*(3*a_pow10*twoM_plus_r_pow2*(6*M + r) - 5*r_pow9*(-6*L_pow4 + 6*L_pow2*r_pow2 + 5*r_pow4) - 3*a_pow8*r*twoM_plus_r*(160*M_pow3 + 168*M_pow2*r + 50*M*r_pow2 + 7*r_pow3 - 2*L_pow2*(23*M + 9*r)) - 3*a_pow2*r_pow6*(2*L_pow2*r_pow2*(37*M + 8*r) + r_pow4*(78*M + 35*r) - L_pow4*(4*M + 39*r)) - 6*a_pow4*r_pow3*(L_pow4*(4*M_pow2 - 19*M*r - 23*r_pow2) + L_pow2*r_pow2*(118*M_pow2 + 41*M*r - 8*r_pow2) + r_pow4*(146*M_pow2 + 120*M*r + 27*r_pow2)) - a_pow6*r_pow2*(-3*L_pow4*(30*M + 17*r) + 6*L_pow2*(128*M_pow3 + 80*M_pow2*r - 37*M*r_pow2 - 20*r_pow3) + 2*r_pow2*(748*M_pow3 + 882*M_pow2*r + 354*M*r_pow2 + 53*r_pow3))) + 2*a*E*M*(264*a_pow12*twoM_plus_r_pow4 + 3*r_pow9*(3*L_pow6*(94*M - 27*r) + 20*r_pow6*(-5*M + 3*r) + 12*L_pow4*r_pow2*(-43*M + 14*r) + L_pow2*r_pow4*(-1018*M + 439*r)) + 3*a_pow10*twoM_plus_r_pow2*(-592*M_pow3*r + 1148*M*r_pow3 + 500*r_pow4 + L_pow2*(72*M_pow2 + 460*M*r + 261*r_pow2)) + a_pow2*r_pow6*(9*L_pow6*(16*M_pow2 + 192*M*r - 49*r_pow2) + 12*r_pow6*(-200*M_pow2 - 17*M*r + 97*r_pow2) + 9*L_pow2*r_pow4*(-1752*M_pow2 - 464*M*r + 631*r_pow2) + 2*L_pow4*r_pow2*(-3852*M_pow2 - 932*M*r + 997*r_pow2)) + a_pow4*r_pow3*(-9*L_pow6*(32*M_pow3 - 152*M_pow2*r - 182*M*r_pow2 + 29*r_pow3) + 24*r_pow6*(-300*M_pow3 - 268*M_pow2*r + 179*M*r_pow2 + 130*r_pow3) + 2*L_pow4*r_pow2*(-6642*M_pow3 - 4943*M_pow2*r + 1702*M*r_pow2 + 1456*r_pow3) + 6*L_pow2*r_pow4*(-4884*M_pow3 - 5262*M_pow2*r + 1346*M*r_pow2 + 1653*r_pow3)) + a_pow6*r_pow2*(9*L_pow6*(120*M_pow2 + 60*M*r - 7*r_pow2) + 24*r_pow4*(-400*M_pow4 - 804*M_pow3*r + 60*M_pow2*r_pow2 + 551*M*r_pow3 + 185*r_pow4) + 6*L_pow2*r_pow2*(-4288*M_pow4 - 8336*M_pow3*r - 1906*M_pow2*r_pow2 + 3496*M*r_pow3 + 1475*r_pow4) + L_pow4*(-9216*M_pow4 - 9868*M_pow3*r + 2432*M_pow2*r_pow2 + 6164*M*r_pow3 + 1878*r_pow4)) + a_pow8*r*(12*r_pow2*twoM_plus_r_pow2*(-100*M_pow3 - 336*M_pow2*r + 183*M*r_pow2 + 295*r_pow3) + L_pow4*(3312*M_pow3 + 4790*M_pow2*r + 2484*M*r_pow2 + 456*r_pow3) - 3*L_pow2*(3840*M_pow5 + 9408*M_pow4*r + 5768*M_pow3*r_pow2 - 4412*M_pow2*r_pow3 - 5430*M*r_pow4 - 1359*r_pow5))) - L*(12*a_pow12*twoM_plus_r_pow3*(88*M_pow2 + 131*M*r + 9*r_pow2) - r_pow9*(6*L_pow4*r_pow2*(16*M_pow2 - 31*M*r + 13*r_pow2) - 9*L_pow6*(106*M_pow2 - 97*M*r + 21*r_pow2) + 2*r_pow6*(620*M_pow2 - 605*M*r + 143*r_pow2) + L_pow2*r_pow4*(3010*M_pow2 - 2959*M*r + 718*r_pow2)) - a_pow2*r_pow6*(L_pow4*r_pow2*(7932*M_pow3 - 2996*M_pow2*r + 111*M*r_pow2 - 37*r_pow3) + 9*L_pow6*(100*M_pow3 - 346*M_pow2*r + 183*M*r_pow2 - 21*r_pow3) + 2*r_pow6*(2980*M_pow3 + 222*M_pow2*r - 2211*M*r_pow2 + 619*r_pow3) + L_pow2*r_pow4*(16440*M_pow3 - 478*M_pow2*r - 7810*M*r_pow2 + 2025*r_pow3)) - a_pow4*r_pow3*(L_pow4*r_pow2*(15552*M_pow4 + 6462*M_pow3*r - 7641*M_pow2*r_pow2 + 53*M*r_pow3 - 336*r_pow4) + 9*L_pow6*(32*M_pow4 - 168*M_pow3*r - 256*M_pow2*r_pow2 + 207*M*r_pow3 + 3*r_pow4) + 8*r_pow6*(750*M_pow4 + 2700*M_pow3*r - 965*M_pow2*r_pow2 - 1060*M*r_pow3 + 248*r_pow4) + 2*L_pow2*r_pow4*(13452*M_pow4 + 18478*M_pow3*r - 7017*M_pow2*r_pow2 - 6189*M*r_pow3 + 817*r_pow4)) + a_pow10*twoM_plus_r*(3*L_pow2*(144*M_pow4 + 1816*M_pow3*r + 2372*M_pow2*r_pow2 + 848*M*r_pow3 + 63*r_pow4) + 2*r*(-3552*M_pow5 - 9040*M_pow4*r + 2868*M_pow3*r_pow2 + 11032*M_pow2*r_pow3 + 4229*M*r_pow4 + 169*r_pow5)) + a_pow6*r_pow2*(9*L_pow6*(120*M_pow3 - 8*M_pow2*r - 85*M*r_pow2 - 3*r_pow3) + 4*r_pow4*(1960*M_pow5 - 11476*M_pow4*r - 7568*M_pow3*r_pow2 + 6806*M_pow2*r_pow3 + 3307*M*r_pow4 - 319*r_pow5) + 2*L_pow2*r_pow2*(-8944*M_pow5 - 31476*M_pow4*r - 11168*M_pow3*r_pow2 + 16899*M_pow2*r_pow3 + 7930*M*r_pow4 + 62*r_pow5) + L_pow4*(-9216*M_pow5 - 9368*M_pow4*r + 6934*M_pow3*r_pow2 + 6696*M_pow2*r_pow3 + 129*M*r_pow4 + 275*r_pow5)) + a_pow8*r*(L_pow4*(3312*M_pow4 + 4972*M_pow3*r + 1539*M_pow2*r_pow2 - 63*M*r_pow3 + 54*r_pow4) + 2*r_pow2*(5920*M_pow6 - 17712*M_pow5*r - 36552*M_pow4*r_pow2 + 4584*M_pow3*r_pow3 + 23748*M_pow2*r_pow4 + 7437*M*r_pow5 - 7*r_pow6) + L_pow2*(-11520*M_pow6 - 32832*M_pow5*r - 29984*M_pow4*r_pow2 + 22004*M_pow3*r_pow3 + 35232*M_pow2*r_pow4 + 11255*M*r_pow5 + 640*r_pow6))))*ur_pow4 - 3*L*r_pow8*(172*a_pow10*M*twoM_plus_r_pow3 + 2*r_pow9*(15*L_pow2*(8*M - 3*r)*r_pow2 + r_pow4*(13*M + 6*r) + L_pow4*(-48*M + 9*r)) + 2*a_pow8*r*twoM_plus_r*(-280*M_pow4 + 148*M_pow3*r + 898*M_pow2*r_pow2 + 389*M*r_pow3 + 6*r_pow4 + 3*L_pow2*M*(64*M + 39*r)) + a_pow2*r_pow6*(6*L_pow2*r_pow2*(36*M_pow2 + 83*M*r - 39*r_pow2) - 3*L_pow4*(2*M_pow2 + 87*M*r - 9*r_pow2) + 4*r_pow4*(4*M_pow2 + 91*M*r + 12*r_pow2)) + a_pow4*r_pow3*(3*L_pow4*(46*M_pow3 - 77*M_pow2*r - 102*M*r_pow2 + 3*r_pow3) + 4*r_pow4*(-132*M_pow3 + 330*M_pow2*r + 277*M*r_pow2 + 18*r_pow3) - 6*L_pow2*r_pow2*(180*M_pow3 - 114*M_pow2*r - 109*M*r_pow2 + 33*r_pow3)) + a_pow6*r_pow2*(-3*L_pow4*M*(75*M + 41*r) + 8*r_pow2*(-184*M_pow4 + 162*M_pow3*r + 453*M_pow2*r_pow2 + 175*M*r_pow3 + 6*r_pow4) - 6*L_pow2*(184*M_pow4 + 68*M_pow3*r - 244*M_pow2*r_pow2 - 105*M*r_pow3 + 9*r_pow4)))*ur_pow6))/(48.*pow(a_pow2 + r*r_minus_twoM,5)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),4));
A5020 = (2*r_pow2*(-2*a*E*L*M*(a_pow2 + 3*r_pow2)*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3) - pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(a_pow4*(3*M + 2*r) + r_pow2*(r_pow2*(-4*M + r) + L_pow2*(-6*M + 2*r)) + a_pow2*(-2*L_pow2*(M - r) + r*(-2*M_pow2 - 3*M*r + 3*r_pow2))) - r_pow2*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(a_pow6*(14*M_pow2 + 15*M*r + 4*r_pow2) + r_pow5*(r_pow2*(-6*M + r) + 4*L_pow2*(-3*M + r)) + a_pow4*r*(-12*M_pow3 - 16*M_pow2*r + 12*M*r_pow2 + 9*r_pow3 + 4*L_pow2*(M + r)) + a_pow2*r_pow3*(-8*L_pow2*(M - r) + 3*r*(-6*M_pow2 - 3*M*r + 2*r_pow2)))*ur_pow2 - r_pow4*(r_pow3 + a_pow2*twoM_plus_r)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2))*(-6*a*E*L*M*r_pow5 - 2*a_pow5*E*L*M*twoM_plus_r - 4*a_pow3*E*L*M*r_pow2*(3*M + 2*r) + a_pow6*(10*M_pow2 + 9*M*r + 2*r_pow2) - r_pow5*(L_pow2*(6*M - 2*r) + r_pow3) + a_pow2*r_pow2*(-3*M*r_pow2*twoM_plus_r + 4*L_pow2*(3*M_pow2 - M*r + r_pow2)) + a_pow4*(2*L_pow2*(2*M_pow2 + M*r + r_pow2) + r*(-12*M_pow3 - 8*M_pow2*r + 6*M*r_pow2 + 3*r_pow3)))*ur_pow4 + r_pow6*(-(a_pow2*M) + r_pow3)*pow(r_pow3 + a_pow2*twoM_plus_r,3)*ur_pow6))/(pow(a_pow2 + r*r_minus_twoM,5)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3));
A5021 = (ur*(4*E_pow2*L*M*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(-2*L_pow2*r_pow8 + a_pow8*(6*M_pow2 - 9*M*r - 6*r_pow2) - 3*a_pow6*r*(-16*M_pow3 - 68*M_pow2*r - 23*M*r_pow2 + 6*r_pow3 + L_pow2*(5*M + 2*r)) - a_pow2*r_pow5*(3*r_pow2*(-49*M + 2*r) + L_pow2*(23*M + 10*r)) + a_pow4*r_pow2*(2*L_pow2*(8*M_pow2 - 13*M*r - 7*r_pow2) + 3*r_pow2*(106*M_pow2 + 75*M*r - 6*r_pow2))) + 2*a*E*M*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(a_pow8*(82*M_pow2 + 95*M*r + 27*r_pow2) + r_pow5*(4*L_pow4*(10*M - 3*r) - 9*L_pow2*(33*M - 17*r)*r_pow2 + 3*r_pow4*(-43*M + 23*r)) + a_pow2*r_pow2*(L_pow4*(-64*M_pow2 + 76*M*r + 36*r_pow2) + 3*L_pow2*r_pow2*(-392*M_pow2 - 71*M*r + 95*r_pow2) + 2*r_pow4*(-141*M_pow2 - 52*M*r + 101*r_pow2)) + a_pow6*(L_pow2*(-24*M_pow2 + 117*M*r + 51*r_pow2) + 2*r*(-88*M_pow3 - 51*M_pow2*r + 108*M*r_pow2 + 59*r_pow3)) + a_pow4*r*(12*L_pow4*(5*M + 2*r) - 3*L_pow2*(64*M_pow3 + 288*M_pow2*r - 19*M*r_pow2 - 61*r_pow3) + 2*r_pow2*(-24*M_pow3 - 169*M_pow2*r + 73*M*r_pow2 + 112*r_pow3))) - L*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(a_pow8*(164*M_pow3 + 102*M_pow2*r - 18*M*r_pow2 - 9*r_pow3) + r_pow5*(-3*r_pow4*(19*M_pow2 - 18*M*r + 4*r_pow2) - 2*L_pow2*r_pow2*(43*M_pow2 - 35*M*r + 6*r_pow2) + L_pow4*(19*M_pow2 - 32*M*r + 12*r_pow2)) - 2*a_pow2*r_pow2*(3*r_pow4*(86*M_pow3 - 22*M_pow2*r - 21*M*r_pow2 + 4*r_pow3) + L_pow4*(32*M_pow3 - 24*M_pow2*r - 17*M*r_pow2 + 6*r_pow3) + L_pow2*r_pow2*(518*M_pow3 - 162*M_pow2*r - 85*M*r_pow2 + 12*r_pow3)) - 2*a_pow6*(3*L_pow2*(4*M_pow3 - 33*M_pow2*r - M*r_pow2 + 3*r_pow3) + r*(176*M_pow4 + 8*M_pow3*r - 245*M_pow2*r_pow2 - 33*M*r_pow3 + 9*r_pow4)) + a_pow4*r*(3*L_pow4*(20*M_pow2 + 8*M*r - 3*r_pow2) + r_pow2*(-84*M_pow4 - 656*M_pow3*r + 493*M_pow2*r_pow2 + 156*M*r_pow3 - 21*r_pow4) - 2*L_pow2*(96*M_pow4 + 456*M_pow3*r - 232*M_pow2*r_pow2 - 71*M*r_pow3 + 15*r_pow4))) + r_pow2*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(-8*E_pow2*L*M*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2))*(twoM_minus_r*r_pow11 + 3*a_pow10*(2*M_pow2 + 3*M*r + r_pow2) - a_pow2*r_pow8*(-78*M_pow2 + 39*M*r + r_pow2) + 6*a_pow4*r_pow5*(30*M_pow3 + 4*M_pow2*r - 18*M*r_pow2 + r_pow3) + a_pow8*r*(-44*M_pow3 - 72*M_pow2*r - 6*M*r_pow2 + 11*r_pow3) + 2*a_pow6*r_pow2*(32*M_pow4 + 44*M_pow3*r - 66*M_pow2*r_pow2 - 41*M*r_pow3 + 7*r_pow4)) + 2*a*E*M*(a_pow2 + r*r_minus_twoM)*(a_pow10*twoM_plus_r_pow2*(58*M + 33*r) - a_pow2*r_pow5*(r_pow4*(522*M_pow2 + 82*M*r - 251*r_pow2) + 6*L_pow2*r_pow2*(310*M_pow2 + 103*M*r - 177*r_pow2) + L_pow4*(754*M_pow2 + 88*M*r - 169*r_pow2)) + a_pow4*r_pow2*(-756*M_pow3*r_pow4 - 882*M_pow2*r_pow5 + 478*M*r_pow6 + 426*r_pow7 + L_pow4*(-256*M_pow3 - 566*M_pow2*r + 139*M*r_pow2 + 148*r_pow3) + 6*L_pow2*r_pow2*(-140*M_pow3 - 346*M_pow2*r + 81*M*r_pow2 + 167*r_pow3)) + a_pow8*twoM_plus_r*(6*L_pow2*(8*M_pow2 + 19*M*r + 14*r_pow2) + r*(-244*M_pow3 - 72*M_pow2*r + 349*M*r_pow2 + 170*r_pow3)) + r_pow8*(3*r_pow4*(-37*M + 20*r) + L_pow4*(-133*M + 72*r) + L_pow2*(-784*M*r_pow2 + 402*r_pow3)) + a_pow6*r*(L_pow4*(48*M_pow2 + 146*M*r + 51*r_pow2) - 2*L_pow2*(256*M_pow4 + 636*M_pow3*r + 426*M_pow2*r_pow2 - 301*M*r_pow3 - 213*r_pow4) + 2*r_pow2*(-156*M_pow4 - 600*M_pow3*r - 49*M_pow2*r_pow2 + 474*M*r_pow3 + 186*r_pow4))) - L*(a_pow2 + r*r_minus_twoM)*(a_pow10*(464*M_pow4 + 688*M_pow3*r + 324*M_pow2*r_pow2 + 30*M*r_pow3 - 9*r_pow4) + r_pow8*(r_pow4*(-133*M_pow2 + 116*M*r - 24*r_pow2) + L_pow4*(-45*M_pow2 + 16*M*r + 4*r_pow2) - 2*L_pow2*r_pow2*(269*M_pow2 - 246*M*r + 55*r_pow2)) - a_pow2*r_pow5*(L_pow4*(542*M_pow3 - 27*M_pow2*r - 162*M*r_pow2 - 4*r_pow3) + 8*L_pow2*r_pow2*(246*M_pow3 + 11*M_pow2*r - 129*M*r_pow2 + 26*r_pow3) + r_pow4*(162*M_pow3 + 363*M_pow2*r - 374*M*r_pow2 + 60*r_pow3)) + a_pow4*r_pow2*(r_pow4*(228*M_pow4 - 1576*M_pow3*r - 79*M_pow2*r_pow2 + 726*M*r_pow3 - 45*r_pow4) + 8*L_pow2*r_pow2*(60*M_pow4 - 417*M_pow3*r + 120*M_pow2*r_pow2 + 157*M*r_pow3 - 13*r_pow4) + L_pow4*(-256*M_pow4 - 652*M_pow3*r + 208*M_pow2*r_pow2 + 234*M*r_pow3 - 9*r_pow4)) + a_pow8*(2*L_pow2*(48*M_pow4 + 180*M_pow3*r + 257*M_pow2*r_pow2 + 54*M*r_pow3 - 9*r_pow4) + r*(-976*M_pow5 - 992*M_pow4*r + 996*M_pow3*r_pow2 + 1436*M_pow2*r_pow3 + 386*M*r_pow4 - 15*r_pow5)) + a_pow6*r*(L_pow4*(48*M_pow3 + 220*M_pow2*r + 78*M*r_pow2 - 9*r_pow3) + r_pow2*(40*M_pow5 - 1980*M_pow4*r - 1466*M_pow3*r_pow2 + 1263*M_pow2*r_pow3 + 824*M*r_pow4 - 15*r_pow5) - 8*L_pow2*(64*M_pow5 + 166*M_pow4*r + 190*M_pow3*r_pow2 - 198*M_pow2*r_pow3 - 103*M*r_pow4 + 3*r_pow5))))*ur_pow2 + r_pow4*(8*E_pow2*L*M*r*pow(r_pow3 + a_pow2*twoM_plus_r,4)*(2*L_pow4*r_pow2 + 3*L_pow2*r_pow4 + r_pow6 + a_pow4*twoM_plus_r_pow2 + a_pow2*r*twoM_plus_r*(3*L_pow2 + 2*r_pow2)) + 2*a*E*M*(r_pow3 + a_pow2*twoM_plus_r)*(a_pow12*twoM_plus_r_pow3*(17*M + 6*r) + a_pow10*r*twoM_plus_r_pow2*(-68*M_pow3 + 30*M_pow2*r + 109*M*r_pow2 + 31*r_pow3 + L_pow2*(50*M + 48*r)) + r_pow9*(L_pow2 + r_pow2)*(9*twoM_minus_r*r_pow4 + L_pow4*(-146*M + 57*r) + L_pow2*r_pow2*(-406*M + 195*r)) - a_pow2*r_pow6*(2*L_pow4*r_pow2*(630*M_pow2 + 295*M*r - 359*r_pow2) + 2*L_pow2*r_pow4*(766*M_pow2 + 195*M*r - 350*r_pow2) + L_pow6*(230*M_pow2 + 171*M*r - 136*r_pow2) + r_pow6*(-54*M_pow2 - 13*M*r + 29*r_pow2)) - a_pow4*r_pow3*(2*L_pow4*r_pow2*(252*M_pow3 + 814*M_pow2*r - 133*M*r_pow2 - 379*r_pow3) + 4*L_pow2*r_pow4*(384*M_pow3 + 591*M_pow2*r - 212*M*r_pow2 - 258*r_pow3) + L_pow6*(128*M_pow3 + 258*M_pow2*r - 12*M*r_pow2 - 115*r_pow3) + r_pow6*(108*M_pow3 + 10*M_pow2*r - 5*M*r_pow2 + 20*r_pow3)) + a_pow8*r*twoM_plus_r*(2*L_pow4*r*(49*M + 39*r) - 2*L_pow2*(64*M_pow4 + 196*M_pow3*r + 186*M_pow2*r_pow2 - 188*M*r_pow3 - 143*r_pow4) + r_pow2*(-216*M_pow4 - 368*M_pow3*r + 80*M_pow2*r_pow2 + 230*M*r_pow3 + 55*r_pow4)) + a_pow6*r_pow2*(L_pow6*r*(65*M + 36*r) + 2*r_pow4*(-252*M_pow4 - 276*M_pow3*r + 30*M_pow2*r_pow2 + 85*M*r_pow3 + 15*r_pow4) + 4*L_pow2*r_pow2*(-44*M_pow4 - 534*M_pow3*r - 211*M_pow2*r_pow2 + 389*M*r_pow3 + 189*r_pow4) + L_pow4*(-384*M_pow4 - 968*M_pow3*r - 636*M_pow2*r_pow2 + 558*M*r_pow3 + 370*r_pow4))) + L*(-2*a_pow14*M*twoM_plus_r_pow3*(34*M_pow2 + 93*M*r + 45*r_pow2) + twoM_minus_r*r_pow12*(L_pow2 + r_pow2)*(L_pow4*(54*M - 11*r) + 2*L_pow2*(179*M - 76*r)*r_pow2 + 22*M*r_pow4) - 2*a_pow12*r*twoM_plus_r_pow2*(-136*M_pow5 - 512*M_pow4*r - 46*M_pow3*r_pow2 + 656*M_pow2*r_pow3 + 317*M*r_pow4 + 6*r_pow5 + 2*L_pow2*M*(50*M_pow2 + 154*M*r + 75*r_pow2)) + a_pow2*r_pow9*(2*L_pow6*(224*M_pow3 + 134*M_pow2*r - 141*M*r_pow2 + 5*r_pow3) - 2*r_pow6*(146*M_pow3 - 297*M_pow2*r + 111*M*r_pow2 + 6*r_pow3) + 4*L_pow2*r_pow4*(598*M_pow3 + 195*M_pow2*r - 550*M*r_pow2 + 143*r_pow3) + L_pow4*r_pow2*(2004*M_pow3 + 1018*M_pow2*r - 1978*M*r_pow2 + 453*r_pow3)) - a_pow4*r_pow6*(L_pow4*r_pow2*(204*M_pow4 - 7044*M_pow3*r + 413*M_pow2*r_pow2 + 3030*M*r_pow3 - 381*r_pow4) + 4*L_pow2*r_pow4*(200*M_pow4 - 2314*M_pow3*r + 326*M_pow2*r_pow2 + 941*M*r_pow3 - 192*r_pow4) + L_pow6*(-52*M_pow4 - 1360*M_pow3*r + 73*M_pow2*r_pow2 + 548*M*r_pow3 + 13*r_pow4) + 2*r_pow6*(1544*M_pow4 - 1218*M_pow3*r - 712*M_pow2*r_pow2 + 495*M*r_pow3 + 30*r_pow4)) - a_pow6*r_pow3*(L_pow4*r_pow2*(1448*M_pow5 - 6948*M_pow4*r - 7430*M_pow3*r_pow2 + 4447*M_pow2*r_pow3 + 3408*M*r_pow4 - 55*r_pow5) + 8*L_pow2*r_pow4*(932*M_pow5 - 1560*M_pow4*r - 1898*M_pow3*r_pow2 + 915*M_pow2*r_pow3 + 654*M*r_pow4 - 49*r_pow5) + 10*r_pow6*(800*M_pow5 - 176*M_pow4*r - 912*M_pow3*r_pow2 + 57*M_pow2*r_pow3 + 227*M*r_pow4 + 12*r_pow5) + L_pow6*(-256*M_pow5 - 776*M_pow4*r - 676*M_pow3*r_pow2 + 710*M_pow2*r_pow3 + 462*M*r_pow4 + 12*r_pow5)) - a_pow10*r*twoM_plus_r*(L_pow4*M*r*(392*M_pow2 + 815*M*r + 330*r_pow2) - 4*L_pow2*(64*M_pow6 + 296*M_pow5*r + 1008*M_pow4*r_pow2 - 48*M_pow3*r_pow3 - 1213*M_pow2*r_pow4 - 524*M*r_pow5 - 9*r_pow6) + 2*r_pow2*(560*M_pow6 - 400*M_pow5*r - 3368*M_pow4*r_pow2 - 1132*M_pow3*r_pow3 + 1871*M_pow2*r_pow4 + 921*M*r_pow5 + 30*r_pow6)) - a_pow8*r_pow2*(5*L_pow6*M*r*(52*M_pow2 + 77*M*r + 24*r_pow2) - 4*L_pow2*r_pow2*(-1120*M_pow6 + 1608*M_pow5*r + 5800*M_pow4*r_pow2 + 572*M_pow3*r_pow3 - 3306*M_pow2*r_pow4 - 1213*M*r_pow5 + 2*r_pow6) + L_pow4*(-768*M_pow6 - 2720*M_pow5*r - 5136*M_pow4*r_pow2 + 1224*M_pow3*r_pow3 + 5315*M_pow2*r_pow4 + 1948*M*r_pow5 + 36*r_pow6) + 2*r_pow4*(3904*M_pow6 + 576*M_pow5*r - 8304*M_pow4*r_pow2 - 3300*M_pow3*r_pow3 + 2850*M_pow2*r_pow4 + 1425*M*r_pow5 + 60*r_pow6))))*ur_pow4 - L*r_pow7*(r_pow3 + a_pow2*twoM_plus_r)*(12*a_pow10*M*twoM_plus_r_pow2*(5*M + 2*r) + r_pow9*(L_pow4*(22*M - 3*r) + 6*L_pow2*(22*M - 9*r)*r_pow2 + 4*r_pow4*(-4*M + 3*r)) + 2*a_pow8*M*r*twoM_plus_r*(-88*M_pow3 + 114*M*r_pow2 + 40*r_pow3 + 9*L_pow2*(5*M + 4*r)) + a_pow2*r_pow6*(36*L_pow2*(7*M - 3*r)*r_pow3 + L_pow4*(-44*M_pow2 + 86*M*r - 3*r_pow2) + 4*r_pow4*(-8*M_pow2 + 8*M*r + 9*r_pow2)) + a_pow4*r_pow3*(L_pow4*M*(-122*M_pow2 + 61*M*r + 118*r_pow2) - 18*L_pow2*r_pow2*(34*M_pow3 - 13*M_pow2*r - 22*M*r_pow2 + 3*r_pow3) + 12*r_pow4*(-2*M_pow3 + 13*M_pow2*r + 12*M*r_pow2 + 3*r_pow3)) + a_pow6*r_pow2*(3*L_pow4*M*(31*M + 16*r) + 12*L_pow2*M*(-14*M_pow3 + 57*M*r_pow2 + 29*r_pow3) + 4*r_pow2*(-56*M_pow4 + 48*M_pow3*r + 105*M_pow2*r_pow2 + 38*M*r_pow3 + 3*r_pow4)))*ur_pow6))/(3.*pow(a_pow2 + r*r_minus_twoM,6)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),4));
A5040 = (-24*a*E_pow3*L*M_pow2*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5)*(a_pow8*(9*M + 6*r) + 2*r_pow7*(7*L_pow2 + 9*r_pow2) + 3*a_pow6*r*(L_pow2 + 8*M_pow2 + 19*M*r + 14*r_pow2) + a_pow4*r_pow2*(2*L_pow2*(7*M + 11*r) + 3*r_pow2*(9*M + 28*r)) + a_pow2*r_pow4*(-45*M*r_pow2 + 66*r_pow3 + L_pow2*(10*M + 33*r))) - 2*a*E*L*M*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5)*(a_pow8*(196*M_pow2 - 42*M*r - 9*r_pow2) + r_pow4*(L_pow2*r_pow2*(-725*M_pow2 + 1376*M*r - 570*r_pow2) + 16*L_pow4*(2*M_pow2 + 15*M*r - 9*r_pow2) - 3*r_pow4*(135*M_pow2 - 196*M*r + 82*r_pow2)) + a_pow6*(L_pow2*(324*M_pow2 + 60*M*r + 9*r_pow2) + 2*r*(32*M_pow3 + 564*M_pow2*r - 130*M*r_pow2 - 39*r_pow3)) + a_pow2*r_pow2*(2*L_pow4*(252*M_pow2 + 116*M*r - 63*r_pow2) + L_pow2*r*(-784*M_pow3 + 657*M_pow2*r + 702*M*r_pow2 - 168*r_pow3) - 2*r_pow3*(765*M_pow3 + 16*M_pow2*r - 267*M*r_pow2 + 119*r_pow3)) + a_pow4*r*(18*L_pow4*(6*M + r) + L_pow2*(864*M_pow3 + 1260*M_pow2*r - 290*M*r_pow2 - 123*r_pow3) + r*(-576*M_pow4 - 1390*M_pow3*r + 2001*M_pow2*r_pow2 + 356*M*r_pow3 - 61*r_pow4))) + 2*E_pow2*M*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5)*(a_pow10*(98*M_pow2 + 30*M*r - 15*r_pow2) + r_pow7*(2*L_pow4*(70*M - 39*r) + 2*L_pow2*(107*M - 62*r)*r_pow2 + 3*(22*M - 15*r)*r_pow4) + a_pow2*r_pow4*(L_pow4*(196*M_pow2 + 584*M*r - 167*r_pow2) - 3*r_pow4*(242*M_pow2 - 198*M*r + 65*r_pow2) - 2*L_pow2*r_pow2*(568*M_pow2 - 1009*M*r + 212*r_pow2)) + a_pow8*(6*L_pow2*(54*M_pow2 + 23*M*r - r_pow2) + r*(32*M_pow3 + 608*M_pow2*r + 286*M*r_pow2 - 105*r_pow3)) + 2*a_pow4*r_pow2*(4*L_pow4*(63*M_pow2 + 64*M*r - 10*r_pow2) + L_pow2*r*(-196*M_pow3 + 286*M_pow2*r + 786*M*r_pow2 - 241*r_pow3) - 3*r_pow3*(112*M_pow3 + 96*M_pow2*r - 184*M*r_pow2 + 55*r_pow3)) + a_pow6*r*(9*L_pow4*(12*M + r) + 2*L_pow2*(432*M_pow3 + 828*M_pow2*r + 289*M*r_pow2 - 94*r_pow3) - 2*r*(144*M_pow4 + 432*M_pow3*r - 218*M_pow2*r_pow2 - 416*M*r_pow3 + 135*r_pow4))) - pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5)*(3*a_pow10*M*(10*M - 7*r)*r - a_pow8*(L_pow2*M*(196*M_pow2 - 144*M*r + 33*r_pow2) + 3*r_pow2*(24*M_pow3 + 2*M_pow2*r + 130*M*r_pow2 + 15*r_pow3)) - a_pow6*(6*L_pow4*M*(36*M_pow2 - 2*M*r + 5*r_pow2) + 3*r_pow3*(-58*M_pow4 - 45*M_pow3*r - 420*M_pow2*r_pow2 + 173*M*r_pow3 + 9*r_pow4) + L_pow2*r*(64*M_pow4 + 1040*M_pow3*r - 952*M_pow2*r_pow2 + 595*M*r_pow3 + 117*r_pow4)) + a_pow2*r_pow2*(4*L_pow6*M*(-84*M_pow2 + 8*M*r + 23*r_pow2) + 3*r_pow5*(210*M_pow4 - 355*M_pow3*r + 276*M_pow2*r_pow2 - 124*M*r_pow3 + 21*r_pow4) + 2*L_pow4*r*(392*M_pow4 - 409*M_pow3*r - 39*M_pow2*r_pow2 - 41*M*r_pow3 + 84*r_pow4) + L_pow2*r_pow3*(1618*M_pow4 - 1559*M_pow3*r + 683*M_pow2*r_pow2 - 413*M*r_pow3 + 165*r_pow4)) - r_pow4*(-2*L_pow6*M*(44*M_pow2 - 52*M*r + 15*r_pow2) + 3*M*r_pow6*(52*M_pow2 - 65*M*r + 23*r_pow2) + L_pow2*r_pow4*(34*M_pow3 + 51*M_pow2*r - 109*M*r_pow2 + 48*r_pow3) + L_pow4*(-306*M_pow3*r_pow2 + 542*M_pow2*r_pow3 - 328*M*r_pow4 + 72*r_pow5)) - a_pow4*r*(18*L_pow6*M*(4*M + r) + 8*L_pow4*(72*M_pow4 + 72*M_pow3*r - 91*M_pow2*r_pow2 + 16*M*r_pow3 + 9*r_pow4) + 3*r_pow3*(44*M_pow5 + 56*M_pow4*r + 466*M_pow3*r_pow2 - 499*M_pow2*r_pow3 + 151*M*r_pow4 - 27*r_pow5) - L_pow2*r*(576*M_pow5 + 1052*M_pow4*r - 2795*M_pow3*r_pow2 + 1878*M_pow2*r_pow3 - 328*M*r_pow4 + 96*r_pow5))) + r_pow2*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(-2*a_pow13*E*L*M*twoM_plus_r*(8*(191 + 27*E_pow2)*M_pow3 + 2*(737 - 18*E_pow2)*M_pow2*r + 6*(35 - 12*E_pow2)*M*r_pow2 - 165*r_pow3) + 2*a_pow14*M*twoM_plus_r_pow2*(-3*r*(24*M + 19*r) + E_pow2*(382*M_pow2 + 348*M*r + 111*r_pow2)) + 2*a*E*L*M*r_pow8*(L_pow6*(822*M_pow2 - 556*M*r + 48*r_pow2) + r_pow6*(931*M_pow2 - 4*(109 + 36*E_pow2)*M*r + 105*r_pow2) + L_pow2*r_pow4*(14344*M_pow2 + 4*(-3955 + 33*E_pow2)*M*r + 4539*r_pow2) + L_pow4*r_pow2*(20355*M_pow2 - 4*(5425 + 66*E_pow2)*M*r + 5832*r_pow2)) - r_pow8*(L_pow4*r_pow4*(6006*M_pow3 - 12*(773 + 13*E_pow2)*M_pow2*r + (4893 + 124*E_pow2)*M*r_pow2 - 885*r_pow3) + 2*L_pow6*r_pow2*(3371*M_pow3 - 6*(835 + 23*E_pow2)*M_pow2*r + (2458 + 77*E_pow2)*M*r_pow2 - 396*r_pow3) + L_pow2*r_pow6*(-26*M_pow3 - 92*(-3 + 2*E_pow2)*M_pow2*r + (-175 + 136*E_pow2)*M*r_pow2 + 9*r_pow3) + 2*r_pow8*(-181*M_pow3 + 4*(69 + 7*E_pow2)*M_pow2*r - (146 + 7*E_pow2)*M*r_pow2 + 24*r_pow3) + 4*L_pow8*(88*M_pow3 + 15*M_pow2*r - 100*M*r_pow2 + 36*r_pow3)) - 2*a_pow3*E*L*M*r_pow5*(L_pow6*(-3360*M_pow3 + 2542*M_pow2*r + 3344*M*r_pow2 - 1890*r_pow3) + 2*r_pow6*(8021*M_pow3 + 2*(-4211 + 2097*E_pow2)*M_pow2*r + 2*(1021 + 108*E_pow2)*M*r_pow2 - 228*r_pow3) - 6*L_pow4*r_pow2*(10977*M_pow3 - 14*(37 + 28*E_pow2)*M_pow2*r - 3*(1903 + 58*E_pow2)*M*r_pow2 + 1510*r_pow3) - 3*L_pow2*r_pow4*(-20*M_pow3 + 6*(1273 + 920*E_pow2)*M_pow2*r + 4*(-2742 + 17*E_pow2)*M*r_pow2 + 3369*r_pow3)) + a_pow2*r_pow5*(2*L_pow2*r_pow6*(5852*M_pow4 - (9631 + 6194*E_pow2)*M_pow3*r + 3*(1289 + 1650*E_pow2)*M_pow2*r_pow2 + 3*(51 - 2*E_pow2)*M*r_pow3 - 222*r_pow4) + 2*r_pow8*(1604*M_pow4 + 2*(-587 + 1381*E_pow2)*M_pow3*r - (305 + 2174*E_pow2)*M_pow2*r_pow2 + (434 + 199*E_pow2)*M*r_pow3 - 84*r_pow4) - 4*L_pow8*(780*M_pow4 - 337*M_pow3*r - 534*M_pow2*r_pow2 + 372*M*r_pow3 - 60*r_pow4) + 2*L_pow6*r_pow2*(-15340*M_pow4 + 3*(1883 + 496*E_pow2)*M_pow3*r + (7705 - 48*E_pow2)*M_pow2*r_pow2 - (3547 + 261*E_pow2)*M*r_pow3 + 66*r_pow4) + L_pow4*r_pow4*(-10304*M_pow4 - 8*(1415 + 8082*E_pow2)*M_pow3*r + 8*(2877 + 4379*E_pow2)*M_pow2*r_pow2 - (8499 + 382*E_pow2)*M*r_pow3 + 429*r_pow4)) + 2*a_pow5*E*L*M*r_pow3*(-2*L_pow6*(504*M_pow3 + 1748*M_pow2*r + 1568*M*r_pow2 - 477*r_pow3) - 3*r_pow5*(12508*M_pow4 + 6*(-631 + 1848*E_pow2)*M_pow3*r + 6*(-1793 + 1366*E_pow2)*M_pow2*r_pow2 + 4*(1063 + 18*E_pow2)*M*r_pow3 - 421*r_pow4) + 3*L_pow2*r_pow3*(-37128*M_pow4 + 4*(3341 + 2796*E_pow2)*M_pow3*r + 6*(817 + 1792*E_pow2)*M_pow2*r_pow2 - 6*(2327 + 12*E_pow2)*M*r_pow3 + 2617*r_pow4) + L_pow4*r*(14016*M_pow4 + 2*(43601 + 120*E_pow2)*M_pow3*r - 3*(5193 + 1184*E_pow2)*M_pow2*r_pow2 - 12*(2330 + 117*E_pow2)*M*r_pow3 + 4911*r_pow4)) - 2*a_pow7*E*L*M*r_pow2*(12*L_pow6*(72*M_pow2 + 91*M*r - 3*r_pow2) + 4*L_pow4*(288*M_pow4 + 4*(-1909 + 21*E_pow2)*M_pow3*r + 3*(889 + 172*E_pow2)*M_pow2*r_pow2 + (2329 + 183*E_pow2)*M*r_pow3 - 480*r_pow4) + L_pow2*r*(12736*M_pow5 + 8*(10063 - 240*E_pow2)*M_pow4*r - 4*(10987 + 8100*E_pow2)*M_pow3*r_pow2 + 2*(11735 - 9936*E_pow2)*M_pow2*r_pow3 + 2*(15773 + 276*E_pow2)*M*r_pow4 - 3903*r_pow5) + 2*r_pow3*(3860*M_pow5 + 4*(1063 + 4626*E_pow2)*M_pow4*r + (-23579 + 33264*E_pow2)*M_pow3*r_pow2 + (-3787 + 12636*E_pow2)*M_pow2*r_pow3 + 2*(4015 - 144*E_pow2)*M*r_pow4 - 1134*r_pow5)) + a_pow4*r_pow3*(4*L_pow8*(168*M_pow4 + 358*M_pow3*r + 548*M_pow2*r_pow2 - 382*M*r_pow3 - 21*r_pow4) + L_pow4*r_pow3*(78724*M_pow5 - 12*(8773 + 13812*E_pow2)*M_pow4*r + (20337 - 71672*E_pow2)*M_pow3*r_pow2 + 12*(3319 + 5319*E_pow2)*M_pow2*r_pow3 + 3*(-4597 + 44*E_pow2)*M*r_pow4 - 1563*r_pow5) + L_pow2*r_pow5*(61428*M_pow5 + 16*(-3329 + 5064*E_pow2)*M_pow4*r - (18311 + 9816*E_pow2)*M_pow3*r_pow2 + 4*(6416 + 6549*E_pow2)*M_pow2*r_pow3 + 8*(-488 + 239*E_pow2)*M*r_pow4 - 1092*r_pow5) + 2*r_pow7*(4920*M_pow5 + 8*(-18 + 1345*E_pow2)*M_pow4*r - 4*(1093 + 320*E_pow2)*M_pow3*r_pow2 + 10*(94 - 711*E_pow2)*M_pow2*r_pow3 + (496 + 1001*E_pow2)*M*r_pow4 - 87*r_pow5) - 2*L_pow6*r*(6048*M_pow5 + 2*(12661 + 1020*E_pow2)*M_pow4*r - 2*(6953 + 2710*E_pow2)*M_pow3*r_pow2 - (9433 + 3126*E_pow2)*M_pow2*r_pow3 + (3995 + 213*E_pow2)*M*r_pow4 + 339*r_pow5)) + 4*a_pow11*E*L*M*(-(L_pow2*(648*M_pow4 - 8*(-250 + 63*E_pow2)*M_pow3*r - 4*(-647 + 54*E_pow2)*M_pow2*r_pow2 + 3*(133 + 6*E_pow2)*M*r_pow3 - 183*r_pow4)) + r*(-32*(-139 + 36*E_pow2)*M_pow5 + 20*(127 - 270*E_pow2)*M_pow4*r - 6*(761 + 696*E_pow2)*M_pow3*r_pow2 - (5033 + 450*E_pow2)*M_pow2*r_pow3 + 24*(-17 + 9*E_pow2)*M*r_pow4 + 510*r_pow5)) - 2*a_pow9*E*L*M*r*(-3*L_pow4*(1008*M_pow3 - 96*(15 + E_pow2)*M_pow2*r - 2*(335 + 18*E_pow2)*M*r_pow2 + 79*r_pow3) + 2*L_pow2*(3456*M_pow5 + 16*(485 + 12*E_pow2)*M_pow4*r - 2*(2245 + 2268*E_pow2)*M_pow3*r_pow2 - 9*(-955 + 256*E_pow2)*M_pow2*r_pow3 + 3*(1257 + 50*E_pow2)*M*r_pow4 - 993*r_pow5) + r*(8576*M_pow6 + 8*(79 + 720*E_pow2)*M_pow5*r + 4*(-4097 + 9828*E_pow2)*M_pow4*r_pow2 + 18*(-695 + 2304*E_pow2)*M_pow3*r_pow3 + 3*(5653 + 3384*E_pow2)*M_pow2*r_pow4 + 16*(493 - 54*E_pow2)*M*r_pow5 - 2211*r_pow6)) + a_pow6*r_pow2*(12*L_pow8*M*(48*M_pow2 + 82*M*r - 19*r_pow2) + 2*L_pow6*(384*M_pow5 + 16*(-671 + 63*E_pow2)*M_pow4*r + 4*(1996 + 1211*E_pow2)*M_pow3*r_pow2 + 36*(78 + 77*E_pow2)*M_pow2*r_pow3 + (-1976 + 49*E_pow2)*M*r_pow4 - 9*r_pow5) + L_pow4*r*(6976*M_pow6 + 16*(2593 - 1236*E_pow2)*M_pow5*r - 16*(5061 + 11785*E_pow2)*M_pow4*r_pow2 + 2*(31077 - 21824*E_pow2)*M_pow3*r_pow3 + 3*(6875 + 13972*E_pow2)*M_pow2*r_pow4 + (-13263 + 1448*E_pow2)*M*r_pow5 - 873*r_pow6) + L_pow2*r_pow3*(22216*M_pow6 + 20*(437 + 11404*E_pow2)*M_pow5*r + 2*(-46109 + 80288*E_pow2)*M_pow4*r_pow2 + (31781 - 10808*E_pow2)*M_pow3*r_pow3 + (21141 + 31496*E_pow2)*M_pow2*r_pow4 + 2*(-4507 + 2524*E_pow2)*M*r_pow5 - 702*r_pow6) + 2*r_pow5*(6224*M_pow6 + 8*(495 + 1259*E_pow2)*M_pow5*r + 8*(-1252 + 961*E_pow2)*M_pow4*r_pow2 - 2*(1564 + 7949*E_pow2)*M_pow3*r_pow3 + 2*(1413 - 3626*E_pow2)*M_pow2*r_pow4 + 3*(97 + 755*E_pow2)*M*r_pow5 + 12*r_pow6)) + a_pow8*r*(-12*L_pow6*M*(168*M_pow3 - 36*(11 + 4*E_pow2)*M_pow2*r - 2*(10 + 59*E_pow2)*M*r_pow2 + (84 - 13*E_pow2)*r_pow3) + L_pow4*(4608*M_pow6 + 16*(295 + 144*E_pow2)*M_pow5*r - 40*(229 + 1444*E_pow2)*M_pow4*r_pow2 + (31823 - 3848*E_pow2)*M_pow3*r_pow3 + 2*(495 + 8408*E_pow2)*M_pow2*r_pow4 + 4*(-1131 + 398*E_pow2)*M*r_pow5 + 234*r_pow6) + 2*r_pow3*(2704*M_pow7 + 64*(55 + 28*E_pow2)*M_pow6*r + 32*(-299 + 127*E_pow2)*M_pow5*r_pow2 - 8*(1125 + 1298*E_pow2)*M_pow4*r_pow3 + (3941 - 14880*E_pow2)*M_pow3*r_pow4 + 4*(745 + 94*E_pow2)*M_pow2*r_pow5 + 5*(-2 + 557*E_pow2)*M*r_pow6 + 78*r_pow7) + L_pow2*r*(8576*M_pow7 + 112*(-27 + 268*E_pow2)*M_pow6*r + 24*(-1633 + 8256*E_pow2)*M_pow5*r_pow2 + 8*(-2069 + 7154*E_pow2)*M_pow4*r_pow3 + 5*(8729 - 1744*E_pow2)*M_pow3*r_pow4 + 7*(213 + 3872*E_pow2)*M_pow2*r_pow5 + 3*(-2249 + 1864*E_pow2)*M*r_pow6 + 141*r_pow7)) + a_pow12*(L_pow2*M*(16*(191 + 162*E_pow2)*M_pow4 + 8*(389 + 554*E_pow2)*M_pow3*r + 8*(-288 + 901*E_pow2)*M_pow2*r_pow2 + 3*(-1081 + 1340*E_pow2)*M*r_pow3 + 60*(-13 + 10*E_pow2)*r_pow4) + 2*r*twoM_plus_r*(r*(852*M_pow4 + 1042*M_pow3*r - 128*M_pow2*r_pow2 - 242*M*r_pow3 + 9*r_pow4) + E_pow2*M*(-2224*M_pow4 - 968*M_pow3*r + 1960*M_pow2*r_pow2 + 2252*M*r_pow3 + 719*r_pow4))) + a_pow10*(L_pow4*M*(864*M_pow4 + 16*(241 - 378*E_pow2)*M_pow3*r + 48*(58 + 63*E_pow2)*M_pow2*r_pow2 + 3*(-1129 + 1284*E_pow2)*M*r_pow3 + 6*(-241 + 89*E_pow2)*r_pow4) + L_pow2*r*(64*(-139 + 216*E_pow2)*M_pow6 + 80*(-23 + 599*E_pow2)*M_pow5*r + 2*(11225 + 3952*E_pow2)*M_pow4*r_pow2 + (15289 + 11868*E_pow2)*M_pow3*r_pow3 + (-5239 + 16108*E_pow2)*M_pow2*r_pow4 + 4*(-637 + 733*E_pow2)*M*r_pow5 + 186*r_pow6) + 2*r_pow2*(r*(-3776*M_pow6 - 5608*M_pow5*r + 2924*M_pow4*r_pow2 + 5354*M_pow3*r_pow3 + 811*M_pow2*r_pow4 - 260*M*r_pow5 + 48*r_pow6) + E_pow2*M*(4288*M_pow6 + 2144*M_pow5*r - 5424*M_pow4*r_pow2 - 7280*M_pow3*r_pow3 + 1222*M_pow2*r_pow4 + 5562*M*r_pow5 + 1937*r_pow6))))*ur_pow2 + r_pow4*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(3*a_pow16*M*r*twoM_plus_r_pow3*(66*M + 23*r) - 240*a*E_pow3*L*M_pow2*r_pow3*pow(r_pow3 + a_pow2*twoM_plus_r,3)*(-(L_pow2*r) + r_pow3 + a_pow2*twoM_plus_r)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2)) + r_pow11*(4*L_pow2*r_pow6*(1128*M_pow3 - 1898*M_pow2*r + 1027*M*r_pow2 - 180*r_pow3) + r_pow8*(438*M_pow3 - 505*M_pow2*r + 191*M*r_pow2 - 24*r_pow3) - 4*L_pow8*(218*M_pow3 - 3*M_pow2*r - 181*M*r_pow2 + 64*r_pow3) + L_pow4*r_pow4*(-5402*M_pow3 + 8343*M_pow2*r - 4453*M*r_pow2 + 816*r_pow3) + 2*L_pow6*r_pow2*(-10214*M_pow3 + 15281*M_pow2*r - 7603*M*r_pow2 + 1258*r_pow3)) - a_pow2*r_pow8*(2*L_pow6*r_pow2*(18622*M_pow4 + 10939*M_pow3*r - 33582*M_pow2*r_pow2 + 15192*M*r_pow3 - 1726*r_pow4) + L_pow4*r_pow4*(-80450*M_pow4 + 111853*M_pow3*r - 55587*M_pow2*r_pow2 + 11289*M*r_pow3 - 773*r_pow4) + 4*L_pow8*(1658*M_pow4 + 395*M_pow3*r - 2015*M_pow2*r_pow2 + 712*M*r_pow3 + 2*r_pow4) + r_pow8*(-4362*M_pow4 + 1341*M_pow3*r + 2367*M_pow2*r_pow2 - 1061*M*r_pow3 + 51*r_pow4) + 2*L_pow2*r_pow6*(-22912*M_pow4 + 23688*M_pow3*r - 138*M_pow2*r_pow2 - 5694*M*r_pow3 + 1329*r_pow4)) + a_pow14*twoM_plus_r*(2*L_pow2*M*(1184*M_pow4 + 2392*M_pow3*r - 531*M_pow2*r_pow2 - 1413*M*r_pow3 - 450*r_pow4) + r_pow2*(-2480*M_pow5 + 952*M_pow4*r + 5472*M_pow3*r_pow2 + 3230*M_pow2*r_pow3 + 467*M*r_pow4 - 27*r_pow5)) + a_pow4*r_pow5*(2*L_pow2*r_pow6*(36548*M_pow5 - 180*M_pow4*r - 55217*M_pow3*r_pow2 + 20835*M_pow2*r_pow3 + 5103*M*r_pow4 - 1662*r_pow5) + 2*L_pow6*r_pow2*(33704*M_pow5 - 86576*M_pow4*r + 19191*M_pow3*r_pow2 + 45570*M_pow2*r_pow3 - 19132*M*r_pow4 - 277*r_pow5) - 4*L_pow8*(2264*M_pow5 + 1988*M_pow4*r - 1617*M_pow3*r_pow2 - 2856*M_pow2*r_pow3 + 1570*M*r_pow4 - 53*r_pow5) + r_pow8*(16368*M_pow5 + 9208*M_pow4*r - 17069*M_pow3*r_pow2 - 3432*M_pow2*r_pow3 + 3708*M*r_pow4 + 78*r_pow5) - L_pow4*r_pow4*(-238992*M_pow5 + 133172*M_pow4*r + 148169*M_pow3*r_pow2 - 139711*M_pow2*r_pow3 + 27249*M*r_pow4 + 2316*r_pow5)) + a_pow6*r_pow4*(-4*L_pow8*(232*M_pow4 - 1746*M_pow3*r - 910*M_pow2*r_pow2 + 1175*M*r_pow3 + 9*r_pow4) + L_pow4*r_pow2*(-67528*M_pow6 + 136420*M_pow5*r - 276686*M_pow4*r_pow2 + 35521*M_pow3*r_pow3 + 118721*M_pow2*r_pow4 - 44950*M*r_pow5 - 3426*r_pow6) + 2*L_pow2*r_pow4*(35784*M_pow6 + 25924*M_pow5*r - 61506*M_pow4*r_pow2 - 29525*M_pow3*r_pow3 + 33283*M_pow2*r_pow4 + 766*M*r_pow5 - 558*r_pow6) + r_pow6*(28560*M_pow6 + 44008*M_pow5*r - 30916*M_pow4*r_pow2 - 40606*M_pow3*r_pow3 + 6358*M_pow2*r_pow4 + 8179*M*r_pow5 + 315*r_pow6) - 2*L_pow6*(6848*M_pow6 - 21340*M_pow5*r + 59634*M_pow4*r_pow2 - 47274*M_pow3*r_pow3 - 24033*M_pow2*r_pow4 + 16159*M*r_pow5 + 700*r_pow6)) + a_pow12*r*(L_pow4*M*(16624*M_pow4 + 8652*M_pow3*r - 9012*M_pow2*r_pow2 - 10864*M*r_pow3 - 2919*r_pow4) + r_pow2*(752*M_pow7 - 25088*M_pow6*r - 38888*M_pow5*r_pow2 + 4328*M_pow4*r_pow3 + 31475*M_pow3*r_pow4 + 16322*M_pow2*r_pow5 + 2336*M*r_pow6 - 66*r_pow7) - 2*L_pow2*(14272*M_pow7 + 26192*M_pow6*r - 18832*M_pow5*r_pow2 - 30312*M_pow4*r_pow3 - 2407*M_pow3*r_pow4 + 7381*M_pow2*r_pow5 + 2269*M*r_pow6 - 54*r_pow7)) + a_pow8*r_pow3*(8*L_pow8*M*(269*M_pow2 + 58*M*r - 114*r_pow2) + 2*L_pow6*(4496*M_pow5 - 11460*M_pow4*r + 23009*M_pow3*r_pow2 + 2555*M_pow2*r_pow3 - 6047*M*r_pow4 + 45*r_pow5) + L_pow4*(14848*M_pow7 - 108016*M_pow6*r + 1692*M_pow5*r_pow2 - 60512*M_pow4*r_pow3 + 106935*M_pow3*r_pow4 + 21102*M_pow2*r_pow5 - 33963*M*r_pow6 - 892*r_pow7) + 4*L_pow2*r_pow2*(41152*M_pow7 + 11664*M_pow6*r - 33802*M_pow5*r_pow2 - 22730*M_pow4*r_pow3 + 11517*M_pow3*r_pow4 + 10419*M_pow2*r_pow5 - 1320*M*r_pow6 + 204*r_pow7) + r_pow4*(22368*M_pow7 + 63024*M_pow6*r - 12696*M_pow5*r_pow2 - 92288*M_pow4*r_pow3 - 23900*M_pow3*r_pow4 + 25899*M_pow2*r_pow5 + 10240*M*r_pow6 + 300*r_pow7)) + a_pow10*r_pow2*(-2*L_pow6*M*(584*M_pow3 - 935*M_pow2*r + 2581*M*r_pow2 + 1431*r_pow3) + L_pow4*(-36256*M_pow6 + 55952*M_pow5*r + 73908*M_pow4*r_pow2 + 42700*M_pow3*r_pow3 - 16016*M_pow2*r_pow4 - 12345*M*r_pow5 + 261*r_pow6) + r_pow2*(5664*M_pow8 + 28976*M_pow7*r + 6080*M_pow6*r_pow2 - 80904*M_pow5*r_pow3 - 61166*M_pow4*r_pow4 + 22975*M_pow3*r_pow5 + 30741*M_pow2*r_pow6 + 6891*M*r_pow7 + 51*r_pow8) + 2*L_pow2*(19456*M_pow8 + 24096*M_pow7*r - 88632*M_pow6*r_pow2 - 61252*M_pow5*r_pow3 + 28608*M_pow4*r_pow4 + 29050*M_pow3*r_pow5 - 612*M_pow2*r_pow6 - 3762*M*r_pow7 + 327*r_pow8)) - 2*a*E*L*M*(2*a_pow14*twoM_plus_r_pow2*(592*M_pow3 + 1000*M_pow2*r + 207*M*r_pow2 - 15*r_pow3) + r_pow11*(L_pow4*r_pow2*(-41756*M_pow2 + 42532*M*r - 10815*r_pow2) - 4*L_pow6*(578*M_pow2 - 361*M*r + 30*r_pow2) - 4*L_pow2*r_pow4*(-556*M_pow2 + 227*M*r + 30*r_pow2) + r_pow6*(4708*M_pow2 - 5876*M*r + 1755*r_pow2)) + a_pow2*r_pow8*(L_pow6*(-16040*M_pow3 + 3860*M_pow2*r + 7464*M*r_pow2 - 2342*r_pow3) + 2*L_pow2*r_pow4*(52858*M_pow3 - 28307*M_pow2*r + 173*M*r_pow2 + 72*r_pow3) + r_pow6*(12628*M_pow3 - 6302*M_pow2*r - 13184*M*r_pow2 + 7113*r_pow3) - L_pow4*r_pow2*(74472*M_pow3 + 30132*M_pow2*r - 85814*M*r_pow2 + 26381*r_pow3)) + a_pow4*r_pow5*(L_pow4*r_pow2*(66852*M_pow4 - 141132*M_pow3*r + 17985*M_pow2*r_pow2 + 83978*M*r_pow3 - 22329*r_pow4) + L_pow2*r_pow4*(143268*M_pow4 + 68952*M_pow3*r - 148319*M_pow2*r_pow2 + 15970*M*r_pow3 + 590*r_pow4) - 2*L_pow6*(5008*M_pow4 + 7572*M_pow3*r - 6076*M_pow2*r_pow2 - 3358*M*r_pow3 + 1863*r_pow4) + 2*r_pow6*(8660*M_pow4 + 2150*M_pow3*r - 11361*M_pow2*r_pow2 - 3221*M*r_pow3 + 5424*r_pow4)) + a_pow10*r_pow2*(38912*M_pow7 + 66656*M_pow6*r - 96624*M_pow5*r_pow2 - 142176*M_pow4*r_pow3 - 20180*M_pow3*r_pow4 + 15162*M_pow2*r_pow5 + 1532*M*r_pow6 - 303*r_pow7 + L_pow4*(-1168*M_pow3 + 2995*M_pow2*r + 632*M*r_pow2 - 450*r_pow3) + L_pow2*(-36256*M_pow5 + 39552*M_pow4*r + 56410*M_pow3*r_pow2 + 25716*M_pow2*r_pow3 + 4414*M*r_pow4 - 1372*r_pow5)) + a_pow12*r*twoM_plus_r*(L_pow2*(8312*M_pow3 + 4215*M_pow2*r + 682*M*r_pow2 - 270*r_pow3) + 2*(-7136*M_pow5 - 12188*M_pow4*r + 2512*M_pow3*r_pow2 + 6381*M_pow2*r_pow3 + 1081*M*r_pow4 - 87*r_pow5)) + a_pow6*r_pow4*(L_pow6*(-928*M_pow3 + 9124*M_pow2*r + 3096*M*r_pow2 - 1714*r_pow3) + L_pow4*(-13696*M_pow5 + 42188*M_pow4*r - 84864*M_pow3*r_pow2 + 52389*M_pow2*r_pow3 + 50770*M*r_pow4 - 9225*r_pow5) - 2*L_pow2*r_pow2*(54596*M_pow5 - 25408*M_pow4*r + 28743*M_pow3*r_pow2 + 46175*M_pow2*r_pow3 - 15700*M*r_pow4 + 282*r_pow5) + 2*r_pow4*(39064*M_pow5 + 10408*M_pow4*r - 12812*M_pow3*r_pow2 - 8054*M_pow2*r_pow3 + 975*M*r_pow4 + 3666*r_pow5)) + a_pow8*r_pow3*(L_pow6*(2152*M_pow2 + 784*M*r - 210*r_pow2) + L_pow4*(8992*M_pow4 - 25020*M_pow3*r + 18519*M_pow2*r_pow2 + 10706*M*r_pow3 - 2912*r_pow4) + 2*L_pow2*(9344*M_pow6 - 48700*M_pow5*r + 13606*M_pow4*r_pow2 + 13137*M_pow3*r_pow3 + 8634*M_pow2*r_pow4 + 10478*M*r_pow5 - 996*r_pow6) + r_pow2*(132128*M_pow6 + 101360*M_pow5*r - 85408*M_pow4*r_pow2 - 57184*M_pow3*r_pow3 - 2784*M_pow2*r_pow4 + 1096*M*r_pow5 + 1683*r_pow6))) + 2*E_pow2*M*(2*a_pow16*twoM_plus_r_pow3*(148*M_pow2 + 201*M*r + 60*r_pow2) + r_pow14*(-4*L_pow6*(44*M - 25*r) + 2*L_pow2*(71*M - 40*r)*r_pow4 + (4*M - 5*r)*r_pow6 + L_pow4*r_pow2*(-458*M + 235*r)) + a_pow14*r*twoM_plus_r_pow2*(-3568*M_pow4 - 5640*M_pow3*r + 52*M_pow2*r_pow2 + 2754*M*r_pow3 + 861*r_pow4 + L_pow2*(2078*M_pow2 + 1026*M*r + 285*r_pow2)) + a_pow2*r_pow11*(L_pow2*r_pow4*(23752*M_pow2 - 11866*M*r + 23*r_pow2) + r_pow6*(612*M_pow2 - 598*M*r + 111*r_pow2) + L_pow6*(-1812*M_pow2 + 200*M*r + 321*r_pow2) + L_pow4*r_pow2*(-38092*M_pow2 + 17102*M*r + 1243*r_pow2)) + a_pow4*r_pow8*(-8*L_pow6*(1794*M_pow3 + 212*M_pow2*r - 411*M*r_pow2 - 51*r_pow3) + 4*L_pow4*r_pow2*(-12792*M_pow3 - 11721*M_pow2*r + 12950*M*r_pow2 + 708*r_pow3) + 2*L_pow2*r_pow4*(39014*M_pow3 + 11499*M_pow2*r - 21561*M*r_pow2 + 800*r_pow3) + r_pow6*(7464*M_pow3 - 2824*M_pow2*r - 2574*M*r_pow2 + 891*r_pow3)) + a_pow12*r_pow2*twoM_plus_r*(9728*M_pow6 + 16416*M_pow5*r - 18112*M_pow4*r_pow2 - 35032*M_pow3*r_pow3 - 5896*M_pow2*r_pow4 + 8148*M*r_pow5 + 2641*r_pow6 + L_pow4*(-292*M_pow2 + 1176*M*r + 210*r_pow2) + 2*L_pow2*(-4532*M_pow4 + 5160*M_pow3*r + 7249*M_pow2*r_pow2 + 3033*M*r_pow3 + 924*r_pow4)) + a_pow6*r_pow5*(L_pow6*(-6448*M_pow4 - 12608*M_pow3*r + 5888*M_pow2*r_pow2 + 5216*M*r_pow3 + 298*r_pow4) + 2*L_pow4*r_pow2*(21472*M_pow4 - 26228*M_pow3*r - 3628*M_pow2*r_pow2 + 28510*M*r_pow3 + 1799*r_pow4) + r_pow6*(32848*M_pow4 + 6864*M_pow3*r - 20392*M_pow2*r_pow2 - 2526*M*r_pow3 + 2735*r_pow4) + L_pow2*r_pow4*(35408*M_pow4 + 97448*M_pow3*r - 40870*M_pow2*r_pow2 - 53486*M*r_pow3 + 4855*r_pow4)) + a_pow8*r_pow4*(L_pow6*(-464*M_pow3 + 5632*M_pow2*r + 2856*M*r_pow2 + 156*r_pow3) - 2*L_pow2*r_pow2*(23000*M_pow5 + 3820*M_pow4*r - 15632*M_pow3*r_pow2 + 21870*M_pow2*r_pow3 + 10175*M*r_pow4 - 3340*r_pow5) + L_pow4*(-6848*M_pow5 + 20848*M_pow4*r - 43128*M_pow3*r_pow2 + 4696*M_pow2*r_pow3 + 30934*M*r_pow4 + 2707*r_pow5) + r_pow4*(65952*M_pow5 + 53248*M_pow4*r - 43976*M_pow3*r_pow2 - 36044*M_pow2*r_pow3 + 4658*M*r_pow4 + 4545*r_pow5)) + a_pow10*r_pow3*(L_pow6*(1076*M_pow2 + 552*M*r + 45*r_pow2) + L_pow4*(4496*M_pow4 - 13560*M_pow3*r + 5220*M_pow2*r_pow2 + 9750*M*r_pow3 + 1143*r_pow4) + r_pow2*(60288*M_pow6 + 87136*M_pow5*r - 35088*M_pow4*r_pow2 - 88224*M_pow3*r_pow3 - 19052*M_pow2*r_pow4 + 13566*M*r_pow5 + 4485*r_pow6) + L_pow2*(15104*M_pow6 - 33792*M_pow5*r - 2472*M_pow4*r_pow2 + 38744*M_pow3*r_pow3 + 15684*M_pow2*r_pow4 + 9618*M*r_pow5 + 4885*r_pow6))))*ur_pow4 + r_pow7*(6*a_pow18*M*twoM_plus_r_pow5*(122*M + 69*r) + r_pow13*(L_pow2 + r_pow2)*(L_pow4*r_pow4*(-4690*M_pow2 + 4581*M*r - 1115*r_pow2) + L_pow2*r_pow6*(-2890*M_pow2 + 2903*M*r - 717*r_pow2) + 4*L_pow8*(112*M_pow2 + 20*M*r - 41*r_pow2) + 2*r_pow8*(-100*M_pow2 + 29*M*r + 12*r_pow2) + 2*L_pow6*r_pow2*(5272*M_pow2 - 5140*M*r + 1243*r_pow2)) + 2*a_pow2*r_pow10*(2*L_pow4*r_pow6*(-16646*M_pow3 + 4237*M_pow2*r + 5488*M*r_pow2 - 1742*r_pow3) + 2*L_pow10*(382*M_pow3 + 1018*M_pow2*r - 647*M*r_pow2 - 23*r_pow3) + r_pow10*(-752*M_pow3 - 1040*M_pow2*r + 695*M*r_pow2 + 63*r_pow3) + 6*L_pow8*r_pow2*(214*M_pow3 + 2689*M_pow2*r - 2108*M*r_pow2 + 327*r_pow3) - 3*L_pow2*r_pow8*(2734*M_pow3 + 790*M_pow2*r - 2093*M*r_pow2 + 480*r_pow3) + L_pow6*r_pow4*(-13226*M_pow3 + 17854*M_pow2*r - 8986*M*r_pow2 + 1539*r_pow3)) - a_pow16*M*twoM_plus_r_pow3*(5*L_pow2*(56*M_pow3 - 1028*M_pow2*r - 873*M*r_pow2 - 204*r_pow3) - 4*r*(-1952*M_pow4 - 1272*M_pow3*r + 3540*M_pow2*r_pow2 + 3638*M*r_pow3 + 897*r_pow4)) + a_pow6*r_pow4*(4*L_pow10*M*(792*M_pow4 + 314*M_pow3*r + 1719*M_pow2*r_pow2 - 741*M*r_pow3 - 1110*r_pow4) + 2*r_pow10*(6560*M_pow5 - 40840*M_pow4*r - 29496*M_pow3*r_pow2 + 16480*M_pow2*r_pow3 + 10654*M*r_pow4 + 105*r_pow5) - 2*L_pow8*r_pow2*(-4920*M_pow5 + 886*M_pow4*r - 42940*M_pow3*r_pow2 + 5771*M_pow2*r_pow3 + 19203*M*r_pow4 + 360*r_pow5) - L_pow2*r_pow8*(86760*M_pow5 + 338632*M_pow4*r + 168065*M_pow3*r_pow2 - 128923*M_pow2*r_pow3 - 73530*M*r_pow4 + 1080*r_pow5) - 4*L_pow4*r_pow6*(37210*M_pow5 + 91289*M_pow4*r + 4473*M_pow3*r_pow2 - 44580*M_pow2*r_pow3 - 8720*M*r_pow4 + 1292*r_pow5) - L_pow6*r_pow4*(103840*M_pow5 + 34288*M_pow4*r - 176117*M_pow3*r_pow2 - 16795*M_pow2*r_pow3 + 62090*M*r_pow4 + 1734*r_pow5)) + a_pow4*r_pow7*(L_pow2*r_pow8*(-39318*M_pow4 - 94777*M_pow3*r + 16640*M_pow2*r_pow2 + 34005*M*r_pow3 - 4005*r_pow4) - 4*L_pow10*(260*M_pow4 - 2608*M_pow3*r - 805*M_pow2*r_pow2 + 1395*M*r_pow3 - 18*r_pow4) + 2*r_pow10*(-1056*M_pow4 - 10920*M_pow3*r - 44*M_pow2*r_pow2 + 3861*M*r_pow3 + 126*r_pow4) + L_pow6*r_pow4*(-105174*M_pow4 + 48439*M_pow3*r + 73806*M_pow2*r_pow2 - 41316*M*r_pow3 + 1008*r_pow4) - 4*L_pow4*r_pow6*(40700*M_pow4 + 31104*M_pow3*r - 24756*M_pow2*r_pow2 - 7671*M*r_pow3 + 2388*r_pow4) + L_pow8*(-56388*M_pow4*r_pow2 + 69034*M_pow3*r_pow3 + 35308*M_pow2*r_pow4 - 41136*M*r_pow5 + 882*r_pow6)) + a_pow8*r_pow3*(4*L_pow10*M*r*(119*M_pow2 - 450*M*r - 264*r_pow2) + 2*L_pow8*M*(4128*M_pow5 + 7652*M_pow4*r + 13950*M_pow3*r_pow2 + 11349*M_pow2*r_pow3 - 12760*M*r_pow4 - 7878*r_pow5) + 2*M*r_pow8*(30400*M_pow5 - 72560*M_pow4*r - 136000*M_pow3*r_pow2 - 2680*M_pow2*r_pow3 + 57356*M*r_pow4 + 17857*r_pow5) - 4*L_pow4*r_pow4*(43960*M_pow6 + 94378*M_pow5*r + 54778*M_pow4*r_pow2 - 43602*M_pow3*r_pow3 - 42307*M_pow2*r_pow4 - 6829*M*r_pow5 + 98*r_pow6) - L_pow6*r_pow2*(96104*M_pow6 + 85796*M_pow5*r - 119182*M_pow4*r_pow2 - 101783*M_pow3*r_pow3 + 63481*M_pow2*r_pow4 + 47045*M*r_pow5 + 1035*r_pow6) + L_pow2*r_pow6*(-151680*M_pow6 - 653056*M_pow5*r - 621168*M_pow4*r_pow2 + 91944*M_pow3*r_pow3 + 322007*M_pow2*r_pow4 + 102615*M*r_pow5 + 2385*r_pow6)) + a_pow14*twoM_plus_r_pow2*(60*L_pow4*M*r*(119*M_pow3 + 59*M_pow2*r - 4*M*r_pow2 - 8*r_pow3) + L_pow2*M*(-8064*M_pow6 - 12320*M_pow5*r - 38380*M_pow4*r_pow2 - 10320*M_pow3*r_pow3 + 45055*M_pow2*r_pow4 + 35783*M*r_pow5 + 7950*r_pow6) + 2*r_pow2*(3712*M_pow7 - 2592*M_pow6*r - 35648*M_pow5*r_pow2 - 21096*M_pow4*r_pow3 + 29256*M_pow3*r_pow4 + 29204*M_pow2*r_pow5 + 6722*M*r_pow6 - 9*r_pow7)) - a_pow10*r_pow2*(2*L_pow8*M*r*(1330*M_pow3 + 5810*M_pow2*r + 6057*M*r_pow2 + 1695*r_pow3) + L_pow6*M*(7680*M_pow6 + 28672*M_pow5*r - 65780*M_pow4*r_pow2 - 98200*M_pow3*r_pow3 + 11321*M_pow2*r_pow4 + 54411*M*r_pow5 + 17418*r_pow6) + 2*L_pow2*r_pow4*(56400*M_pow7 + 327088*M_pow6*r + 460852*M_pow5*r_pow2 + 75320*M_pow4*r_pow3 - 261921*M_pow3*r_pow4 - 187789*M_pow2*r_pow5 - 40773*M*r_pow6 - 1116*r_pow7) + 2*r_pow6*(-53760*M_pow7 + 59712*M_pow6*r + 274256*M_pow5*r_pow2 + 130560*M_pow4*r_pow3 - 107460*M_pow3*r_pow4 - 96980*M_pow2*r_pow5 - 19614*M*r_pow6 + 63*r_pow7) - 4*L_pow4*r_pow2*(-63880*M_pow7 - 98340*M_pow6*r - 43590*M_pow5*r_pow2 + 25804*M_pow4*r_pow3 + 42066*M_pow3*r_pow4 + 16803*M_pow2*r_pow5 + 1848*M*r_pow6 + 90*r_pow7)) + a_pow12*r*twoM_plus_r*(L_pow6*M*r*(3808*M_pow3 - 8632*M_pow2*r - 11247*M*r_pow2 - 3420*r_pow3) - 4*L_pow4*M*(4896*M_pow6 + 15540*M_pow5*r + 50*M_pow4*r_pow2 - 12210*M_pow3*r_pow3 - 7050*M_pow2*r_pow4 - 782*M*r_pow5 + 435*r_pow6) + 2*r_pow4*(22528*M_pow7 - 18304*M_pow6*r - 133408*M_pow5*r_pow2 - 71448*M_pow4*r_pow3 + 69724*M_pow3*r_pow4 + 66862*M_pow2*r_pow5 + 14399*M*r_pow6 - 42*r_pow7) + L_pow2*r_pow2*(-13584*M_pow7 - 128560*M_pow6*r - 250080*M_pow5*r_pow2 - 29396*M_pow4*r_pow3 + 211271*M_pow3*r_pow4 + 153676*M_pow2*r_pow5 + 33813*M*r_pow6 + 585*r_pow7)) - 6*E_pow2*M*pow(r_pow3 + a_pow2*twoM_plus_r,3)*(7*a_pow10*twoM_plus_r_pow4*(6*M + r) + r_pow7*(-25*L_pow8 - 40*L_pow6*r_pow2 + 30*L_pow4*r_pow4 + 52*L_pow2*r_pow6 + 7*r_pow8) + a_pow8*r*twoM_plus_r_pow3*(7*r_pow2*(26*M + 5*r) + 2*L_pow2*(51*M + 11*r)) + 2*a_pow6*r_pow2*twoM_plus_r_pow2*(5*L_pow4*(4*M + r) + 7*r_pow4*(22*M + 5*r) + L_pow2*r_pow2*(205*M + 59*r)) + a_pow2*r_pow4*(7*r_pow8*(14*M + 5*r) + 10*L_pow4*r_pow4*(16*M + 7*r) - L_pow8*(66*M + 13*r) - 2*L_pow6*r_pow2*(83*M + 29*r) + 2*L_pow2*r_pow6*(207*M + 89*r)) + 2*a_pow4*r_pow3*(5*L_pow4*r_pow2*(28*M_pow2 + 24*M*r + 5*r_pow2) + 7*r_pow6*(36*M_pow2 + 28*M*r + 5*r_pow2) - L_pow6*(86*M_pow2 + 61*M*r + 9*r_pow2) + 3*L_pow2*r_pow4*(206*M_pow2 + 177*M*r + 37*r_pow2))) + 2*a*E*L*M*(10*a_pow16*twoM_plus_r_pow4*(7*M_pow2 - 30*M*r - 15*r_pow2) + 3*r_pow13*(L_pow2 + r_pow2)*(5*L_pow2*(626*M - 291*r)*r_pow4 + 34*(4*M - r)*r_pow6 + L_pow6*(-208*M + 34*r) + L_pow4*r_pow2*(-3458*M + 1679*r)) + a_pow2*r_pow10*(3*L_pow2*r_pow6*(16688*M_pow2 + 5568*M*r - 6859*r_pow2) + 2*r_pow8*(3060*M_pow2 + 974*M*r - 607*r_pow2) - 2*L_pow8*(2220*M_pow2 + 830*M*r - 463*r_pow2) + 8*L_pow4*r_pow4*(174*M_pow2 - 164*M*r + 325*r_pow2) + L_pow6*r_pow2*(-9528*M_pow2 - 17392*M*r + 13691*r_pow2)) + a_pow4*r_pow7*(15*L_pow2*r_pow6*(5434*M_pow3 + 8279*M_pow2*r - 926*M*r_pow2 - 2586*r_pow3) + 2*r_pow8*(16974*M_pow3 + 16161*M_pow2*r - 940*M*r_pow2 - 2576*r_pow3) - 2*L_pow8*(1446*M_pow3 + 3269*M_pow2*r + 140*M*r_pow2 - 754*r_pow3) + 8*L_pow4*r_pow4*(3090*M_pow3 + 683*M_pow2*r - 65*M*r_pow2 + 498*r_pow3) + L_pow6*r_pow2*(14418*M_pow3 - 20445*M_pow2*r - 14032*M*r_pow2 + 13405*r_pow3)) + a_pow6*r_pow4*(-(L_pow6*r_pow2*(25164*M_pow4 + 15978*M_pow3*r + 28405*M_pow2*r_pow2 + 7600*M*r_pow3 - 6593*r_pow4)) + 15*L_pow2*r_pow6*(5084*M_pow4 + 14342*M_pow3*r + 8789*M_pow2*r_pow2 - 3344*M*r_pow3 - 2602*r_pow4) + 10*r_pow8*(9408*M_pow4 + 15546*M_pow3*r + 5044*M_pow2*r_pow2 - 2444*M*r_pow3 - 1127*r_pow4) + 48*L_pow4*r_pow4*(1096*M_pow4 + 1019*M_pow3*r - 63*M_pow2*r_pow2 - 47*M*r_pow3 + 64*r_pow4) + L_pow8*(-3168*M_pow4 - 3316*M_pow3*r - 3088*M_pow2*r_pow2 + 608*M*r_pow3 + 834*r_pow4)) + a_pow10*r_pow2*twoM_plus_r*(L_pow6*r*(665*M_pow2 + 216*M*r + 300*r_pow2) + 2*r_pow4*(33984*M_pow5 + 87432*M_pow4*r + 71324*M_pow3*r_pow2 + 1508*M_pow2*r_pow3 - 19584*M*r_pow4 - 5621*r_pow5) + 3*L_pow2*r_pow2*(31496*M_pow5 + 47928*M_pow4*r + 28376*M_pow3*r_pow2 + 7902*M_pow2*r_pow3 - 4546*M*r_pow4 - 3039*r_pow5) + 8*L_pow4*(480*M_pow5 + 1316*M_pow4*r + 318*M_pow3*r_pow2 - 868*M_pow2*r_pow3 - 344*M*r_pow4 + 27*r_pow5)) + a_pow8*r_pow3*(2*L_pow8*r*(-119*M_pow2 + 114*M*r + 75*r_pow2) - L_pow6*(8256*M_pow5 + 16772*M_pow4*r + 6138*M_pow3*r_pow2 + 4927*M_pow2*r_pow3 - 854*M*r_pow4 - 2040*r_pow5) + 15*L_pow2*r_pow4*(10328*M_pow5 + 19728*M_pow4*r + 18620*M_pow3*r_pow2 + 5198*M_pow2*r_pow3 - 3314*M*r_pow4 - 1561*r_pow5) + 10*r_pow6*(14544*M_pow5 + 34984*M_pow4*r + 24740*M_pow3*r_pow2 + 61*M_pow2*r_pow3 - 5578*M*r_pow4 - 1442*r_pow5) + 8*L_pow4*r_pow2*(4632*M_pow5 + 8396*M_pow4*r + 2054*M_pow3*r_pow2 - 2048*M_pow2*r_pow3 - 479*M*r_pow4 + 154*r_pow5)) + a_pow14*twoM_plus_r_pow3*(4032*M_pow5 + 6440*M_pow4*r + 6756*M_pow3*r_pow2 + M_pow2*(-1785*L_pow2*r + 1144*r_pow3) - 4*M*(210*L_pow2*r_pow2 + 857*r_pow4) - 6*(50*L_pow2*r_pow3 + 227*r_pow5)) - a_pow12*r*twoM_plus_r_pow2*(8*L_pow4*M*r*(119*M + 69*r) - 3*L_pow2*(3264*M_pow5 + 7980*M_pow4*r + 1982*M_pow3*r_pow2 - 1937*M_pow2*r_pow3 - 1586*M*r_pow4 - 784*r_pow5) + 2*r_pow2*(-10680*M_pow5 - 24492*M_pow4*r - 23242*M_pow3*r_pow2 - 1635*M_pow2*r_pow3 + 7968*M*r_pow4 + 2632*r_pow5))))*ur_pow6 + 6*r_pow9*(35*a_pow16*M*twoM_plus_r_pow6 + r_pow14*(15*L_pow4*(24*M - 11*r)*r_pow4 + 7*M*r_pow8 - L_pow8*(13*M + 6*r) + L_pow2*r_pow6*(22*M + 15*r) + L_pow6*r_pow2*(-298*M + 129*r)) + a_pow14*M*r*twoM_plus_r_pow3*(-28*twoM_plus_r_pow2*(2*M_pow2 - 2*M*r - 9*r_pow2) + 5*L_pow2*(49*M_pow2 + 70*M*r + 22*r_pow2)) + a_pow2*r_pow12*(28*M*r_pow7*(2*M + 3*r) - 2*L_pow8*(73*M + 3*r) + 15*L_pow4*r_pow3*(26*M_pow2 + 49*M*r - 33*r_pow2) + L_pow2*r_pow5*(132*M_pow2 + 437*M*r + 60*r_pow2) + L_pow6*r*(244*M_pow2 - 681*M*r + 258*r_pow2)) + a_pow4*r_pow8*(2*L_pow8*M*(132*M_pow2 - 133*M*r - 150*r_pow2) + 28*M*r_pow8*(3*M_pow2 + 27*M*r + 14*r_pow2) + 5*L_pow2*r_pow6*(-54*M_pow3 + 517*M_pow2*r + 348*M*r_pow2 + 18*r_pow3) + 3*L_pow6*r_pow2*(418*M_pow3 - 131*M_pow2*r - 416*M*r_pow2 + 43*r_pow3) - 5*L_pow4*r_pow4*(402*M_pow3 - 213*M_pow2*r - 241*M*r_pow2 + 99*r_pow3)) - a_pow10*M*r_pow3*twoM_plus_r*(3*L_pow6*(119*M_pow2 + 98*M*r + 30*r_pow2) - 28*r_pow4*twoM_plus_r_pow2*(-24*M_pow2 + 36*M*r + 49*r_pow2) + L_pow2*r_pow2*(2628*M_pow4 + 316*M_pow3*r - 9758*M_pow2*r_pow2 - 9086*M*r_pow3 - 2217*r_pow4) + 5*L_pow4*(132*M_pow4 - 85*M_pow2*r_pow2 - 121*M*r_pow3 - 64*r_pow4)) + a_pow6*r_pow5*(2*L_pow8*M*(50*M_pow3 - 25*M_pow2*r - 263*M*r_pow2 - 122*r_pow3) - 140*M*r_pow8*(4*M_pow3 - 18*M_pow2*r - 24*M*r_pow2 - 7*r_pow3) - L_pow6*M*r_pow2*(482*M_pow3 + 513*M_pow2*r + 1992*M*r_pow2 + 1219*r_pow3) + 5*L_pow2*r_pow6*(-622*M_pow4 + 985*M_pow3*r + 1898*M_pow2*r_pow2 + 652*M*r_pow3 + 12*r_pow4) - 5*L_pow4*r_pow4*(306*M_pow4 + 219*M_pow3*r - 701*M_pow2*r_pow2 - 373*M*r_pow3 + 33*r_pow4)) + a_pow12*M*r_pow2*twoM_plus_r_pow2*(5*L_pow4*(49*M_pow2 + 28*M*r + 10*r_pow2) + 28*r_pow2*twoM_plus_r_pow2*(-11*M_pow2 + 13*M*r + 28*r_pow2) + L_pow2*(-164*M_pow4 + 2566*M_pow2*r_pow2 + 2829*M*r_pow3 + 772*r_pow4)) + a_pow8*r_pow4*(-70*M*r_pow6*twoM_plus_r_pow2*(10*M_pow2 - 22*M*r - 21*r_pow2) - L_pow8*M*(182*M_pow2 + 224*M*r + 65*r_pow2) + L_pow6*M*(740*M_pow4 - 1164*M_pow2*r_pow2 - 1313*M*r_pow3 - 444*r_pow4) + 15*L_pow4*M*r_pow2*(112*M_pow4 + 116*M_pow3*r + 191*M_pow2*r_pow2 + 249*M*r_pow3 + 87*r_pow4) + 5*L_pow2*r_pow4*(-1380*M_pow5 + 260*M_pow4*r + 3964*M_pow3*r_pow2 + 3130*M_pow2*r_pow3 + 698*M*r_pow4 + 3*r_pow5)))*ur_pow8)/(3.*r_pow4*pow(a_pow2 + r*r_minus_twoM,6)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5));
A5200 = (-(r_pow5*(3*a_pow2 + r*(-4*M + r))*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),4)) + r_pow7*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(4*a*E*L*M*(a_pow2 + 3*r_pow2)*(r_pow4*r_minus_twoM + a_pow4*twoM_plus_r + a_pow2*(-4*M_pow2*r + 2*r_pow3)) - (a_pow2 + r*r_minus_twoM)*(5*a_pow6*twoM_plus_r_pow2 + r_pow5*(r_pow2*(-6*M + r) - L_pow2*twoM_plus_r) + a_pow2*r_pow2*(L_pow2*(8*M_pow2 - 2*M*r + 4*r_pow2) + r_pow2*(-24*M_pow2 - 8*M*r + 7*r_pow2)) + a_pow4*(L_pow2*(8*M_pow2 + 12*M*r + 5*r_pow2) + r*(-24*M_pow3 - 20*M_pow2*r + 18*M*r_pow2 + 11*r_pow3))))*ur_pow2 - r_pow9*pow(r_pow3 + a_pow2*twoM_plus_r,2)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2))*(-4*a_pow3*E*L*M - 12*a*E*L*M*r_pow2 + a_pow4*twoM_plus_r + a_pow2*(-2*M*r_pow2 + L_pow2*(4*M + r)) - r_pow2*(r_pow3 + L_pow2*(-8*M + 5*r)))*ur_pow4 + r_pow11*pow(r_pow3 + a_pow2*twoM_plus_r,2)*(3*L_pow2*r_pow4 + r_pow6 + a_pow4*twoM_plus_r_pow2 + a_pow2*r_pow2*(L_pow2 + 2*r*twoM_plus_r))*ur_pow6)/(2.*pow(a_pow2 + r*r_minus_twoM,5)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),4));
A5201 = (r_pow3*ur*(-12*a_pow2*E_pow2*L*M*r*pow(a_pow2 + r*r_minus_twoM,2)*(a_pow4 + r_pow3*(-20*M + r) - 2*a_pow2*(2*M_pow2 + 6*M*r - r_pow2))*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),4) + 6*a*E*M*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),4)*(12*a_pow6*twoM_plus_r + a_pow4*r*(2*L_pow2 - 50*M_pow2 + 41*M*r + 45*r_pow2) + r_pow4*(r_pow2*(-43*M + 23*r) + L_pow2*(-37*M + 23*r)) - a_pow2*r*(2*r_pow2*(43*M_pow2 + 11*M*r - 28*r_pow2) + L_pow2*(16*M_pow2 + 39*M*r - 3*r_pow2))) - 3*L*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),4)*(a_pow6*(48*M_pow2 + 4*M*r - 3*r_pow2) + a_pow4*r*(-100*M_pow3 - 3*L_pow2*r + 120*M_pow2*r + 28*M*r_pow2 - 7*r_pow3) - r_pow4*(r_pow2*(19*M_pow2 - 18*M*r + 4*r_pow2) + L_pow2*(15*M_pow2 - 16*M*r + 4*r_pow2)) + a_pow2*r*(r_pow2*(-162*M_pow3 + 49*M_pow2*r + 36*M*r_pow2 - 8*r_pow3) - 2*L_pow2*(8*M_pow3 + 15*M_pow2*r - 7*M*r_pow2 - 3*r_pow3))) + r_pow2*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(-4*E_pow2*L*M*(r_pow4*r_minus_twoM + a_pow4*twoM_plus_r + a_pow2*(-4*M_pow2*r + 2*r_pow3))*(3*a_pow8*M*twoM_plus_r - 2*r_pow8*(3*L_pow2 + r_pow2) + a_pow6*r*(-15*L_pow2*M - 16*M_pow3 + 12*M_pow2*r + 9*M*r_pow2 - 2*r_pow3) - 3*a_pow2*r_pow5*(r_pow2*(-5*M + 2*r) + L_pow2*(53*M + 4*r)) - 3*a_pow4*r_pow2*(2*L_pow2*(4*M_pow2 + 19*M*r + r_pow2) + r_pow2*(-10*M_pow2 - 7*M*r + 2*r_pow2))) + 2*a*E*M*(a_pow2 + r*r_minus_twoM)*(33*a_pow10*twoM_plus_r_pow3 + r_pow8*(-6*L_pow4*(95*M - 48*r) + 3*r_pow4*(-37*M + 20*r) + L_pow2*r_pow2*(-481*M + 264*r)) - a_pow2*r_pow5*(L_pow4*(1110*M_pow2 + 497*M*r - 457*r_pow2) + 6*L_pow2*r_pow2*(173*M_pow2 + 51*M*r - 126*r_pow2) + 3*r_pow4*(222*M_pow2 + 14*M*r - 89*r_pow2)) - 2*a_pow4*r_pow2*(3*L_pow2*r_pow2*(36*M_pow3 + 167*M_pow2*r - 108*M*r_pow2 - 134*r_pow3) + L_pow4*(96*M_pow3 + 509*M_pow2*r + 116*M*r_pow2 - 110*r_pow3) + 3*r_pow4*(222*M_pow3 + 171*M_pow2*r - 117*M*r_pow2 - 79*r_pow3)) + 3*a_pow8*twoM_plus_r*(L_pow2*(8*M_pow2 + 43*M*r + 28*r_pow2) + r*(-92*M_pow3 + 24*M_pow2*r + 159*M*r_pow2 + 62*r_pow3)) + a_pow6*r*(L_pow4*(-120*M_pow2 + 35*M*r + 51*r_pow2) - 2*L_pow2*(64*M_pow4 + 252*M_pow3*r + 81*M_pow2*r_pow2 - 385*M*r_pow3 - 198*r_pow4) + 6*r_pow2*(-148*M_pow4 - 280*M_pow3*r + 45*M_pow2*r_pow2 + 214*M*r_pow3 + 70*r_pow4))) - L*(a_pow2 + r*r_minus_twoM)*(3*a_pow10*twoM_plus_r_pow2*(44*M_pow2 + 52*M*r + 3*r_pow2) - r_pow8*(r_pow4*(133*M_pow2 - 116*M*r + 24*r_pow2) + 2*L_pow2*r_pow2*(251*M_pow2 - 249*M*r + 61*r_pow2) + L_pow4*(393*M_pow2 - 406*M*r + 104*r_pow2)) - a_pow2*r_pow5*(L_pow4*(762*M_pow3 + 273*M_pow2*r - 480*M*r_pow2 + 68*r_pow3) + r_pow4*(558*M_pow3 + 9*M_pow2*r - 392*M*r_pow2 + 108*r_pow3) + 2*L_pow2*r_pow2*(576*M_pow3 + 125*M_pow2*r - 483*M*r_pow2 + 122*r_pow3)) + a_pow4*r_pow2*(2*L_pow2*r_pow2*(216*M_pow4 - 1194*M_pow3*r + 189*M_pow2*r_pow2 + 583*M*r_pow3 - 52*r_pow4) + L_pow4*(-192*M_pow4 - 1028*M_pow3*r - 50*M_pow2*r_pow2 + 456*M*r_pow3 + 45*r_pow4) - 3*r_pow4*(212*M_pow4 + 408*M_pow3*r - 225*M_pow2*r_pow2 - 182*M*r_pow3 + 57*r_pow4)) + a_pow8*(2*L_pow2*(24*M_pow4 + 258*M_pow3*r + 410*M_pow2*r_pow2 + 156*M*r_pow3 + 9*r_pow4) + r*(-1104*M_pow5 - 1784*M_pow4*r + 588*M_pow3*r_pow2 + 1626*M_pow2*r_pow3 + 494*M*r_pow4 - 9*r_pow5)) + a_pow6*r*(L_pow4*(-120*M_pow3 + 130*M_pow2*r + 120*M*r_pow2 + 9*r_pow3) - 2*L_pow2*(64*M_pow5 + 520*M_pow4*r + 688*M_pow3*r_pow2 - 681*M_pow2*r_pow3 - 505*M*r_pow4 - 18*r_pow5) - r_pow2*(104*M_pow5 + 2036*M_pow4*r + 1062*M_pow3*r_pow2 - 1385*M_pow2*r_pow3 - 572*M*r_pow4 + 105*r_pow5))))*ur_pow2 + r_pow4*(4*E_pow2*L*M*pow(r_pow3 + a_pow2*twoM_plus_r,3)*(3*a_pow8*twoM_plus_r_pow2 + a_pow6*r*twoM_plus_r*(6*L_pow2 - 4*M_pow2 + 8*M*r + 11*r_pow2) + 2*r_pow6*(3*L_pow4 + 4*L_pow2*r_pow2 + r_pow4) + a_pow2*r_pow3*(3*r_pow4*(2*M + 3*r) + L_pow4*(6*M + 9*r) + 2*L_pow2*r_pow2*(10*M + 11*r)) + a_pow4*r_pow2*(3*L_pow4 + 3*r_pow3*(8*M + 5*r) + 4*L_pow2*(2*M_pow2 + 8*M*r + 5*r_pow2))) - 2*a*E*M*(r_pow3 + a_pow2*twoM_plus_r)*(3*a_pow12*twoM_plus_r_pow4 + r_pow9*(L_pow2 + r_pow2)*(48*L_pow4*(9*M - 4*r) + 8*L_pow2*(20*M - 9*r)*r_pow2 + 9*r_pow4*r_minus_twoM) + 3*a_pow10*twoM_plus_r_pow2*(-8*M_pow3*r + 8*M_pow2*r_pow2 + 22*M*r_pow3 + 8*r_pow4 + L_pow2*(16*M_pow2 - 25*M*r - 16*r_pow2)) + a_pow2*r_pow6*(L_pow4*r_pow2*(1842*M_pow2 + 605*M*r - 835*r_pow2) + L_pow6*(300*M_pow2 + 398*M*r - 370*r_pow2) + L_pow2*r_pow4*(890*M_pow2 + 169*M*r - 306*r_pow2) - 6*r_pow6*(24*M_pow2 + M*r - 8*r_pow2)) + a_pow4*r_pow3*(L_pow4*r_pow2*(1380*M_pow3 + 2354*M_pow2*r - 659*M*r_pow2 - 983*r_pow3) + 6*L_pow2*r_pow4*(304*M_pow3 + 295*M_pow2*r - 108*M*r_pow2 - 98*r_pow3) + 4*L_pow6*(24*M_pow3 + 85*M_pow2*r + 13*M*r_pow2 - 58*r_pow3) + 3*r_pow6*(-144*M_pow3 - 88*M_pow2*r + 60*M*r_pow2 + 35*r_pow3)) + a_pow6*r_pow2*(L_pow6*(48*M_pow2 - 50*M*r - 54*r_pow2) + L_pow4*(128*M_pow4 + 1292*M_pow3*r + 594*M_pow2*r_pow2 - 1013*M*r_pow3 - 517*r_pow4) + 2*L_pow2*r_pow2*(580*M_pow4 + 1410*M_pow3*r + 177*M_pow2*r_pow2 - 751*M*r_pow3 - 279*r_pow4) + 12*r_pow4*(-48*M_pow4 - 60*M_pow3*r + 12*M_pow2*r_pow2 + 35*M*r_pow3 + 10*r_pow4)) + a_pow8*r*twoM_plus_r*(L_pow4*(96*M_pow2 - 131*M*r - 105*r_pow2) + L_pow2*(-64*M_pow4 + 492*M_pow3*r + 174*M_pow2*r_pow2 - 572*M*r_pow3 - 261*r_pow4) + 3*r_pow2*(-48*M_pow4 - 80*M_pow3*r + 32*M_pow2*r_pow2 + 80*M*r_pow3 + 25*r_pow4))) - L*(-6*a_pow14*twoM_plus_r_pow4*(2*M_pow2 - 24*M*r - 3*r_pow2) - twoM_minus_r*r_pow12*(L_pow2 + r_pow2)*(L_pow4*(288*M - 137*r) + 4*L_pow2*(61*M - 26*r)*r_pow2 + 22*M*r_pow4) - a_pow2*r_pow9*(2*r_pow6*(-38*M_pow3 + 177*M_pow2*r - 102*M*r_pow2 + 6*r_pow3) + 2*L_pow6*(546*M_pow3 + 191*M_pow2*r - 507*M*r_pow2 + 140*r_pow3) + 2*L_pow2*r_pow4*(926*M_pow3 + 219*M_pow2*r - 812*M*r_pow2 + 223*r_pow3) + L_pow4*r_pow2*(3284*M_pow3 + 334*M_pow2*r - 2500*M*r_pow2 + 747*r_pow3)) - a_pow4*r_pow6*(2*r_pow6*(-1184*M_pow4 + 812*M_pow3*r + 369*M_pow2*r_pow2 - 339*M*r_pow3 + 21*r_pow4) + L_pow6*(84*M_pow4 + 2204*M_pow3*r - 157*M_pow2*r_pow2 - 1052*M*r_pow3 + 131*r_pow4) + 2*L_pow2*r_pow4*(-52*M_pow4 + 3370*M_pow3*r - 683*M_pow2*r_pow2 - 1375*M*r_pow3 + 345*r_pow4) + L_pow4*r_pow2*(2124*M_pow4 + 7680*M_pow3*r - 2021*M_pow2*r_pow2 - 3198*M*r_pow3 + 741*r_pow4)) + a_pow6*r_pow3*(L_pow4*r_pow2*(248*M_pow5 - 9612*M_pow4*r - 7994*M_pow3*r_pow2 + 5623*M_pow2*r_pow3 + 3756*M*r_pow4 - 151*r_pow5) + 4*L_pow2*r_pow4*(1420*M_pow5 - 2640*M_pow4*r - 3174*M_pow3*r_pow2 + 1437*M_pow2*r_pow3 + 1020*M*r_pow4 - 95*r_pow5) - 2*L_pow6*(96*M_pow5 + 488*M_pow4*r + 588*M_pow3*r_pow2 - 502*M_pow2*r_pow3 - 429*M*r_pow4 - 15*r_pow5) + 2*r_pow6*(4432*M_pow5 + 280*M_pow4*r - 3580*M_pow3*r_pow2 + 40*M_pow2*r_pow3 + 700*M*r_pow4 - 15*r_pow5)) + 2*a_pow12*twoM_plus_r_pow2*(L_pow2*(-48*M_pow4 + 174*M_pow3*r + 587*M_pow2*r_pow2 + 309*M*r_pow3 + 27*r_pow4) + r*(48*M_pow5 - 980*M_pow4*r - 708*M_pow3*r_pow2 + 663*M_pow2*r_pow3 + 461*M*r_pow4 + 39*r_pow5)) + a_pow10*r*twoM_plus_r*(L_pow4*(-192*M_pow4 + 620*M_pow3*r + 1487*M_pow2*r_pow2 + 696*M*r_pow3 + 54*r_pow4) + 2*r_pow2*(1712*M_pow6 + 1344*M_pow5*r - 4296*M_pow4*r_pow2 - 2912*M_pow3*r_pow3 + 1371*M_pow2*r_pow4 + 966*M*r_pow5 + 60*r_pow6) + 2*L_pow2*(64*M_pow6 - 888*M_pow5*r - 3216*M_pow4*r_pow2 - 400*M_pow3*r_pow3 + 2925*M_pow2*r_pow4 + 1426*M*r_pow5 + 93*r_pow6)) + a_pow8*r_pow2*(L_pow6*(-96*M_pow4 + 248*M_pow3*r + 589*M_pow2*r_pow2 + 258*M*r_pow3 + 18*r_pow4) + 2*r_pow4*(6496*M_pow6 + 4368*M_pow5*r - 7560*M_pow4*r_pow2 - 4720*M_pow3*r_pow3 + 1680*M_pow2*r_pow4 + 1065*M*r_pow5 + 30*r_pow6) + 2*L_pow2*r_pow2*(2384*M_pow6 - 3480*M_pow5*r - 12504*M_pow4*r_pow2 - 2212*M_pow3*r_pow3 + 6084*M_pow2*r_pow4 + 2435*M*r_pow5 + 50*r_pow6) + L_pow4*(-256*M_pow6 - 4016*M_pow5*r - 7800*M_pow4*r_pow2 + 1300*M_pow3*r_pow3 + 7211*M_pow2*r_pow4 + 2848*M*r_pow5 + 138*r_pow6))))*ur_pow4 - L*r_pow8*(r_pow3 + a_pow2*twoM_plus_r)*(r_pow8*(3*L_pow4*(38*M - 15*r) + 2*L_pow2*(22*M - 3*r)*r_pow2 + 4*r_pow4*(-4*M + 3*r)) + 2*a_pow8*twoM_plus_r*(3*L_pow2*M*(29*M + 14*r) + 2*twoM_plus_r_pow2*(4*M_pow2 + 2*M*r + 3*r_pow2)) + a_pow2*r_pow5*(-24*L_pow2*r_pow2*(-5*M_pow2 - 7*M*r + r_pow2) + 16*r_pow4*(-5*M_pow2 + 2*M*r + 3*r_pow2) - 3*L_pow4*(20*M_pow2 - 58*M*r + 23*r_pow2)) + 3*a_pow4*r_pow2*(L_pow4*(-66*M_pow3 + 25*M_pow2*r + 62*M*r_pow2 - 8*r_pow3) + 8*r_pow4*(-4*M_pow3 + 2*M_pow2*r + 8*M*r_pow2 + 3*r_pow3) - 2*L_pow2*r_pow2*(26*M_pow3 - 73*M_pow2*r - 44*M*r_pow2 + 5*r_pow3)) + a_pow6*r*(21*L_pow4*M*(7*M + 4*r) + 16*r_pow2*twoM_plus_r_pow2*(M_pow2 + 2*M*r + 3*r_pow2) + L_pow2*(-440*M_pow4 + 48*M_pow3*r + 636*M_pow2*r_pow2 + 224*M*r_pow3 - 12*r_pow4)))*ur_pow6))/(12.*pow(a_pow2 + r*r_minus_twoM,6)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5));
A5220 = (-72*a*E_pow3*L*M_pow2*(a_pow2 + r_pow2)*pow(a_pow2 + r*r_minus_twoM,2)*(a_pow4 + 6*r_pow4 + a_pow2*r*(6*M + 7*r))*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5) + 2*E_pow2*M*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5)*(a_pow8*(84*M - 3*r) + 2*r_pow6*(L_pow2*(107*M - 62*r) + 3*(22*M - 15*r)*r_pow2) + 3*a_pow6*(4*L_pow2*(9*M + r) + r*(42*M_pow2 + 148*M*r - 37*r_pow2)) + a_pow2*r_pow3*(L_pow2*(356*M_pow2 + 722*M*r - 250*r_pow2) - 3*r_pow2*(274*M_pow2 - 244*M*r + 95*r_pow2)) + 3*a_pow4*r*(2*L_pow2*(108*M_pow2 + 98*M*r - 19*r_pow2) - r*(136*M_pow3 + 144*M_pow2*r - 312*M*r_pow2 + 101*r_pow3))) - 2*a*E*L*M*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5)*(3*a_pow6*(56*M + 23*r) + 3*a_pow4*(4*L_pow2*(9*M + 2*r) + r*(84*M_pow2 + 102*M*r + 7*r_pow2)) + r_pow3*(L_pow2*(64*M_pow2 + 344*M*r - 222*r_pow2) - 3*r_pow2*(199*M_pow2 - 316*M*r + 134*r_pow2)) + 3*a_pow2*r*(2*L_pow2*(108*M_pow2 + 52*M*r - 33*r_pow2) - r*(272*M_pow3 + 73*M_pow2*r - 206*M*r_pow2 + 116*r_pow3))) + pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5)*(3*a_pow8*r*(43*M + 9*r) + 3*a_pow6*(L_pow2*(56*M_pow2 + 48*M*r + 9*r_pow2) + r_pow2*(-240*M_pow2 + 87*M*r + 11*r_pow2)) + 3*a_pow4*(8*L_pow4*M*(3*M + r) + r_pow3*(385*M_pow3 - 317*M_pow2*r + 120*M*r_pow2 - 42*r_pow3) + L_pow2*r*(84*M_pow3 - 92*M_pow2*r + 12*M*r_pow2 - 13*r_pow3)) + r_pow3*(-4*L_pow4*M*(38*M_pow2 - 45*M*r + 13*r_pow2) + 6*r_pow4*(52*M_pow3 - 63*M_pow2*r + 18*M*r_pow2 + 2*r_pow3) + L_pow2*r_pow2*(-158*M_pow3 + 369*M_pow2*r - 292*M*r_pow2 + 84*r_pow3)) + a_pow2*r*(24*L_pow4*M*(18*M_pow2 + M*r - 7*r_pow2) + L_pow2*r*(-816*M_pow4 + 426*M_pow3*r + 103*M_pow2*r_pow2 + 128*M*r_pow3 - 156*r_pow4) - 3*r_pow3*(210*M_pow4 - 295*M_pow3*r + 313*M_pow2*r_pow2 - 194*M*r_pow3 + 40*r_pow4))) + r_pow2*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(-72*a*E_pow3*L*M_pow2*(-(L_pow2*r) + r_pow3 + a_pow2*twoM_plus_r)*(3*a_pow10*M + r_pow10*r_minus_twoM - 2*a_pow4*M*r_pow4*(4*M_pow2 + 79*M*r - 84*r_pow2) - a_pow8*r*(10*M_pow2 - 26*M*r + r_pow2) + a_pow2*r_pow7*(-170*M_pow2 + 83*M*r + 2*r_pow2) - 2*a_pow6*r_pow2*(-4*M_pow3 + 23*M_pow2*r - 53*M*r_pow2 + r_pow3)) + 2*E_pow2*M*(a_pow2 + r*r_minus_twoM)*(3*a_pow12*twoM_plus_r_pow2*(68*M + 65*r) - 2*r_pow10*(7*(4*M - r)*r_pow4 + L_pow4*(M + 2*r) + L_pow2*r_pow2*(-13*M + 25*r)) + a_pow2*r_pow7*(L_pow4*(-8960*M_pow2 + 4716*M*r + 30*r_pow2) + L_pow2*r_pow2*(-9882*M_pow2 + 5350*M*r + 205*r_pow2) + r_pow4*(2210*M_pow2 - 2072*M*r + 265*r_pow2)) + a_pow4*r_pow4*(L_pow4*(-2648*M_pow3 - 9644*M_pow2*r + 4962*M*r_pow2 + 168*r_pow3) + 2*L_pow2*r_pow2*(-6978*M_pow3 - 3211*M_pow2*r + 8010*M*r_pow2 + 603*r_pow3) + r_pow4*(9456*M_pow3 - 2028*M_pow2*r - 5664*M*r_pow2 + 1115*r_pow3)) + a_pow10*(3*L_pow2*(216*M_pow3 + 976*M_pow2*r + 654*M*r_pow2 + 97*r_pow3) + r*(-1032*M_pow4 - 3752*M_pow3*r + 234*M_pow2*r_pow2 + 2904*M*r_pow3 + 989*r_pow4)) + 2*a_pow6*r_pow2*(L_pow4*(216*M_pow3 - 1164*M_pow2*r + 1208*M*r_pow2 + 115*r_pow3) + L_pow2*r*(-2512*M_pow4 - 4596*M_pow3*r + 6289*M_pow2*r_pow2 + 9184*M*r_pow3 + 944*r_pow4) + r_pow3*(4756*M_pow4 + 3452*M_pow3*r - 6294*M_pow2*r_pow2 - 2200*M*r_pow3 + 1045*r_pow4)) + 2*a_pow8*r*(-6*L_pow4*(27*M_pow2 - 41*M*r - 8*r_pow2) + L_pow2*(-432*M_pow4 + 930*M_pow3*r + 6335*M_pow2*r_pow2 + 4817*M*r_pow3 + 614*r_pow4) + 2*r*(-56*M_pow5 + 1280*M_pow4*r - 1516*M_pow3*r_pow2 - 2428*M_pow2*r_pow3 + 292*M*r_pow4 + 505*r_pow5))) - 2*a*E*L*M*(a_pow2 + r*r_minus_twoM)*(3*a_pow10*(544*M_pow3 + 848*M_pow2*r + 190*M*r_pow2 - 49*r_pow3) - r_pow7*(r_pow4*(2825*M_pow2 - 2228*M*r + 564*r_pow2) + 2*L_pow2*r_pow2*(7148*M_pow2 - 7301*M*r + 1968*r_pow2) + L_pow4*(7559*M_pow2 - 7754*M*r + 2004*r_pow2)) - a_pow2*r_pow4*(L_pow4*(4864*M_pow3 + 8453*M_pow2*r - 9274*M*r_pow2 + 1644*r_pow3) + r_pow4*(-7704*M_pow3 + 12187*M_pow2*r - 7016*M*r_pow2 + 1890*r_pow3) + 2*L_pow2*r_pow2*(14918*M_pow3 + 1203*M_pow2*r - 13320*M*r_pow2 + 4161*r_pow3)) + a_pow8*(6*L_pow2*(108*M_pow3 + 922*M_pow2*r + 403*M*r_pow2 - 28*r_pow3) + r*(-2064*M_pow4 - 6292*M_pow3*r + 7046*M_pow2*r_pow2 + 3986*M*r_pow3 - 801*r_pow4)) - a_pow4*r_pow2*(L_pow4*(-432*M_pow3 + 2172*M_pow2*r - 4124*M*r_pow2 + 711*r_pow3) + 4*L_pow2*r*(2728*M_pow4 + 6943*M_pow3*r - 5547*M_pow2*r_pow2 - 5772*M*r_pow3 + 1536*r_pow4) + r_pow3*(-26484*M_pow4 + 9796*M_pow3*r + 17169*M_pow2*r_pow2 - 10842*M*r_pow3 + 2595*r_pow4)) - a_pow6*r*(3*L_pow4*(108*M_pow2 - 328*M*r + 7*r_pow2) + 2*L_pow2*(432*M_pow4 + 408*M_pow3*r - 10915*M_pow2*r_pow2 - 5594*M*r_pow3 + 963*r_pow4) + r*(448*M_pow5 - 8748*M_pow4*r + 26912*M_pow3*r_pow2 + 2657*M_pow2*r_pow3 - 9470*M*r_pow4 + 1923*r_pow5))) - (a_pow2 + r*r_minus_twoM)*(300*a_pow12*M*r*twoM_plus_r_pow2 + r_pow7*(L_pow4*r_pow2*(6022*M_pow3 - 8793*M_pow2*r + 4388*M*r_pow2 - 756*r_pow3) + 2*L_pow6*(1460*M_pow3 - 2067*M_pow2*r + 958*M*r_pow2 - 144*r_pow3) + L_pow2*r_pow4*(722*M_pow3 - 771*M_pow2*r + 382*M*r_pow2 - 108*r_pow3) + 4*r_pow6*(-181*M_pow3 + 282*M_pow2*r - 143*M*r_pow2 + 21*r_pow3)) - a_pow10*(3*L_pow2*(544*M_pow4 + 632*M_pow3*r - 412*M_pow2*r_pow2 - 209*M*r_pow3 + 12*r_pow4) + 4*r_pow2*(1512*M_pow4 + 1124*M_pow3*r - 226*M_pow2*r_pow2 - 163*M*r_pow3 + 21*r_pow4)) + a_pow2*r_pow4*(L_pow4*r_pow2*(20446*M_pow4 - 2887*M_pow3*r - 15745*M_pow2*r_pow2 + 7270*M*r_pow3 - 492*r_pow4) + 3*L_pow2*r_pow4*(-1194*M_pow4 + 4061*M_pow3*r - 2626*M_pow2*r_pow2 + 410*M*r_pow3 + 34*r_pow4) + 4*r_pow6*(-1164*M_pow4 + 1054*M_pow3*r + 184*M_pow2*r_pow2 - 391*M*r_pow3 + 81*r_pow4) + 2*L_pow6*(2360*M_pow4 + 1725*M_pow3*r - 3666*M_pow2*r_pow2 + 948*M*r_pow3 + 90*r_pow4)) + a_pow8*(-3*L_pow4*(144*M_pow4 + 1808*M_pow3*r + 304*M_pow2*r_pow2 - 187*M*r_pow3 + 24*r_pow4) + 4*r_pow3*(2788*M_pow5 + 1396*M_pow4*r - 2159*M_pow3*r_pow2 - 680*M_pow2*r_pow3 + 185*M*r_pow4 - 45*r_pow5) + L_pow2*r*(2064*M_pow5 + 5080*M_pow4*r - 15478*M_pow3*r_pow2 + 1026*M_pow2*r_pow3 + 3900*M*r_pow4 + 21*r_pow5)) + a_pow4*r_pow2*(-2*L_pow6*(144*M_pow4 - 672*M_pow3*r + 1744*M_pow2*r_pow2 - 692*M*r_pow3 - 9*r_pow4) + 4*r_pow5*(-2484*M_pow5 + 676*M_pow4*r + 2416*M_pow3*r_pow2 - 926*M_pow2*r_pow3 - 269*M*r_pow4 + 96*r_pow5) + L_pow4*r*(11200*M_pow5 + 25496*M_pow4*r - 23351*M_pow3*r_pow2 - 15946*M_pow2*r_pow3 + 8576*M*r_pow4 + 459*r_pow5) + L_pow2*r_pow3*(-35964*M_pow5 + 40784*M_pow4*r + 4130*M_pow3*r_pow2 - 19893*M_pow2*r_pow3 + 5148*M*r_pow4 + 621*r_pow5)) + a_pow6*r*(6*L_pow6*(36*M_pow3 - 164*M_pow2*r + 39*M*r_pow2 - 6*r_pow3) + L_pow4*(576*M_pow5 + 2328*M_pow4*r - 20048*M_pow3*r_pow2 - 4248*M_pow2*r_pow3 + 4749*M*r_pow4 + 123*r_pow5) + 8*r_pow3*(-880*M_pow6 - 304*M_pow5*r + 2134*M_pow4*r_pow2 + 151*M_pow3*r_pow3 - 717*M_pow2*r_pow4 + 38*M*r_pow5 + 6*r_pow6) + L_pow2*r*(448*M_pow6 - 7256*M_pow5*r + 43922*M_pow4*r_pow2 - 25365*M_pow3*r_pow3 - 11808*M_pow2*r_pow4 + 7573*M*r_pow5 + 468*r_pow6))))*ur_pow2 + r_pow4*(-12*a_pow17*E*L*M*twoM_plus_r_pow4*(4*(17 + 9*E_pow2)*M_pow2 + 9*(-15 + 2*E_pow2)*M*r - 17*r_pow2) + 3*a_pow18*twoM_plus_r_pow5*(-(r*(29*M + 9*r)) + 2*E_pow2*M*(34*M + 15*r)) + 2*a*E*L*M*r_pow12*(L_pow2 + r_pow2)*(12*L_pow6*(1502*M_pow2 - 1473*M*r + 358*r_pow2) - 4*L_pow2*r_pow4*(1454*M_pow2 + (-1789 + 60*E_pow2)*M*r + 519*r_pow2) - 2*r_pow6*(2380*M_pow2 + 2*(-1564 + 15*E_pow2)*M*r + 963*r_pow2) + 3*L_pow4*r_pow2*(6316*M_pow2 + 12*(-531 + 10*E_pow2)*M*r + 1607*r_pow2)) + r_pow12*(L_pow2 + r_pow2)*(2*L_pow4*twoM_minus_r*r_pow4*(386*M_pow2 - 3*(253 + 8*E_pow2)*M*r + 212*r_pow2) - 2*L_pow8*(4726*M_pow3 - 7015*M_pow2*r + 3466*M*r_pow2 - 570*r_pow3) + 4*L_pow2*r_pow6*(1538*M_pow3 + (-2455 + 94*E_pow2)*M_pow2*r + (1269 - 59*E_pow2)*M*r_pow2 - 213*r_pow3) + 2*r_pow8*(438*M_pow3 + (-547 + 8*E_pow2)*M_pow2*r + 2*(112 - 5*E_pow2)*M*r_pow2 - 30*r_pow3) + L_pow6*r_pow2*(-14264*M_pow3 - 24*(-857 + 34*E_pow2)*M_pow2*r + 4*(-2501 + 111*E_pow2)*M*r_pow2 + 1643*r_pow3)) + 2*a_pow3*E*L*M*r_pow9*(2*L_pow8*(12330*M_pow3 + 6823*M_pow2*r - 14632*M*r_pow2 + 4180*r_pow3) - 2*r_pow8*(13806*M_pow3 + (-10409 + 36*E_pow2)*M_pow2*r + 25*(-361 + 12*E_pow2)*M*r_pow2 + 5691*r_pow3) + 2*L_pow4*r_pow4*(-4964*M_pow3 + 4*(3349 + 93*E_pow2)*M_pow2*r + 15*(-1315 + 26*E_pow2)*M*r_pow2 + 6808*r_pow3) - 2*L_pow2*r_pow6*(44396*M_pow3 + 6*(-4145 + 178*E_pow2)*M_pow2*r + 6*(-2641 + 150*E_pow2)*M*r_pow2 + 9045*r_pow3) + L_pow6*r_pow2*(71952*M_pow3 + 8*(1777 + 216*E_pow2)*M_pow2*r + 6*(-13561 + 240*E_pow2)*M*r_pow2 + 28009*r_pow3)) - 4*a_pow15*E*L*M*twoM_plus_r_pow2*(L_pow2*(1296*M_pow4 + 72*(-5 + 4*E_pow2)*M_pow3*r + (-1619 + 288*E_pow2)*M_pow2*r_pow2 + 12*(-59 + 6*E_pow2)*M*r_pow3 - 114*r_pow4) - r*twoM_plus_r*(32*(29 + 24*E_pow2)*M_pow4 + 2*(-1937 + 36*E_pow2)*M_pow3*r + (809 - 1044*E_pow2)*M_pow2*r_pow2 + (3547 - 444*E_pow2)*M*r_pow3 + 219*r_pow4)) - a_pow2*r_pow9*(L_pow8*r_pow2*(22018*M_pow4 + 3*(14855 + 10608*E_pow2)*M_pow3*r - (85561 + 11680*E_pow2)*M_pow2*r_pow2 - 56*(-705 + 29*E_pow2)*M*r_pow3 - 5377*r_pow4) + 2*L_pow10*(5066*M_pow4 + 6971*M_pow3*r - 13179*M_pow2*r_pow2 + 5172*M*r_pow3 - 486*r_pow4) + r_pow10*(-10494*M_pow4 + (6221 + 136*E_pow2)*M_pow3*r + (3335 + 56*E_pow2)*M_pow2*r_pow2 + 2*(-1250 + 51*E_pow2)*M*r_pow3 + 300*r_pow4) + 2*L_pow2*r_pow8*(-40698*M_pow4 + 3*(12967 - 5436*E_pow2)*M_pow3*r + (3509 + 7520*E_pow2)*M_pow2*r_pow2 + (-11006 + 655*E_pow2)*M*r_pow3 + 2280*r_pow4) - L_pow6*r_pow4*(53848*M_pow4 - 84*(1391 + 400*E_pow2)*M_pow3*r + 2*(44675 + 6046*E_pow2)*M_pow2*r_pow2 + (-29151 + 2702*E_pow2)*M*r_pow3 + 3663*r_pow4) + L_pow4*r_pow6*(-138796*M_pow4 + 2*(79981 - 15848*E_pow2)*M_pow3*r + 4*(-6616 + 3643*E_pow2)*M_pow2*r_pow2 + (-20037 + 310*E_pow2)*M*r_pow3 + 5137*r_pow4)) + 2*a_pow5*E*L*M*r_pow6*(2*r_pow8*(-15456*M_pow4 + 2*(247 + 720*E_pow2)*M_pow3*r - 36*(-1225 + 33*E_pow2)*M_pow2*r_pow2 + 3*(247 - 408*E_pow2)*M*r_pow3 - 14046*r_pow4) + 2*L_pow8*(7152*M_pow4 + 12398*M_pow3*r - 2832*M_pow2*r_pow2 - 10720*M*r_pow3 + 2467*r_pow4) - 2*L_pow2*r_pow6*(116756*M_pow4 + 8*(4193 + 318*E_pow2)*M_pow3*r + 3*(-30673 + 1732*E_pow2)*M_pow2*r_pow2 + 6*(-968 + 387*E_pow2)*M*r_pow3 + 15918*r_pow4) + L_pow4*r_pow4*(-117012*M_pow4 + 36*(457 + 44*E_pow2)*M_pow3*r + (18775 + 4344*E_pow2)*M_pow2*r_pow2 + 12*(-3616 + 163*E_pow2)*M*r_pow3 + 26472*r_pow4) + L_pow6*r_pow2*(44772*M_pow4 + 4*(25871 + 648*E_pow2)*M_pow3*r + 7*(-7081 + 720*E_pow2)*M_pow2*r_pow2 + 6*(-12001 + 372*E_pow2)*M*r_pow3 + 31055*r_pow4)) - a_pow4*r_pow6*(-2*L_pow4*r_pow6*(248888*M_pow5 + 4*(-31693 + 16886*E_pow2)*M_pow4*r + (-169213 + 19896*E_pow2)*M_pow3*r_pow2 + (96737 - 29904*E_pow2)*M_pow2*r_pow3 + (4097 + 716*E_pow2)*M*r_pow4 - 3792*r_pow5) + L_pow6*r_pow4*(-273432*M_pow5 + 44*(6463 + 2520*E_pow2)*M_pow4*r + 6*(16271 + 6748*E_pow2)*M_pow3*r_pow2 - 15*(13811 + 3484*E_pow2)*M_pow2*r_pow3 + (65163 - 5870*E_pow2)*M*r_pow4 - 3015*r_pow5) + 2*r_pow10*(-26190*M_pow5 + 2*(-835 + 528*E_pow2)*M_pow4*r + (20353 + 720*E_pow2)*M_pow3*r_pow2 + (-179 + 140*E_pow2)*M_pow2*r_pow3 + (-3723 + 32*E_pow2)*M*r_pow4 + 249*r_pow5) + 2*L_pow10*(6576*M_pow5 + 5796*M_pow4*r + 41*M_pow3*r_pow2 - 12254*M_pow2*r_pow3 + 4740*M*r_pow4 + 279*r_pow5) - L_pow8*r_pow2*(25964*M_pow5 - 24*(5821 + 1932*E_pow2)*M_pow4*r + 2*(9535 - 18364*E_pow2)*M_pow3*r_pow2 + (120157 + 32580*E_pow2)*M_pow2*r_pow3 + 724*(-73 + 3*E_pow2)*M*r_pow4 + 1391*r_pow5) + 2*L_pow2*r_pow8*(-151320*M_pow5 + (45572 - 99264*E_pow2)*M_pow4*r + (126977 - 17776*E_pow2)*M_pow3*r_pow2 + 6*(-6698 + 6929*E_pow2)*M_pow2*r_pow3 + 3*(-6026 + 375*E_pow2)*M*r_pow4 + 4419*r_pow5)) + 2*a_pow7*E*L*M*r_pow4*(2*L_pow8*(864*M_pow4 + 1592*M_pow3*r - 4427*M_pow2*r_pow2 - 4586*M*r_pow3 + 396*r_pow4) + 2*r_pow7*(47792*M_pow5 + 8*(911 + 1020*E_pow2)*M_pow4*r + 20*(1349 + 144*E_pow2)*M_pow3*r_pow2 + (39349 - 5940*E_pow2)*M_pow2*r_pow3 - (23117 + 2724*E_pow2)*M*r_pow4 - 18519*r_pow5) + 2*L_pow4*r_pow3*(-16724*M_pow5 + 4*(-14543 + 156*E_pow2)*M_pow4*r + 3*(14623 + 1440*E_pow2)*M_pow3*r_pow2 + 9*(387 + 488*E_pow2)*M_pow2*r_pow3 + (-9331 + 1212*E_pow2)*M*r_pow4 + 12621*r_pow5) - 2*L_pow2*r_pow5*(91552*M_pow5 + 4*(44671 + 408*E_pow2)*M_pow4*r + 4*(-15127 + 2256*E_pow2)*M_pow3*r_pow2 + 89*(-1243 + 120*E_pow2)*M_pow2*r_pow3 + 40*(163 + 84*E_pow2)*M*r_pow4 + 13128*r_pow5) + L_pow6*r*(59712*M_pow5 + 4*(15035 + 288*E_pow2)*M_pow4*r + 72*(591 + 64*E_pow2)*M_pow3*r_pow2 + (-71443 + 5184*E_pow2)*M_pow2*r_pow3 + 2*(-21959 + 828*E_pow2)*M*r_pow4 + 14419*r_pow5)) - 2*a_pow13*E*L*M*r*twoM_plus_r*(L_pow4*(3456*M_pow4 - 16*(146 + 9*E_pow2)*M_pow3*r - 9*(-207 + 16*E_pow2)*M_pow2*r_pow2 - 6*(-341 + 6*E_pow2)*M*r_pow3 - 72*r_pow4) + 2*r*twoM_plus_r*(832*M_pow6 - 8*(1079 + 264*E_pow2)*M_pow5*r - 8*(-1847 + 726*E_pow2)*M_pow4*r_pow2 + 2*(14579 - 72*E_pow2)*M_pow3*r_pow3 + 12*(-534 + 353*E_pow2)*M_pow2*r_pow4 + (-9419 + 1560*E_pow2)*M*r_pow5 + 546*r_pow6) - 2*L_pow2*(9216*M_pow6 + 32*(-304 + 69*E_pow2)*M_pow5*r + 48*(-323 + 32*E_pow2)*M_pow4*r_pow2 - 6*(-2503 + 360*E_pow2)*M_pow3*r_pow3 + (19367 - 2208*E_pow2)*M_pow2*r_pow4 + 2*(3074 - 255*E_pow2)*M*r_pow5 + 708*r_pow6)) - a_pow6*r_pow4*(2*L_pow10*(576*M_pow5 + 440*M_pow4*r - 2458*M_pow3*r_pow2 - 4554*M_pow2*r_pow3 + 2311*M*r_pow4 + 141*r_pow5) + r_pow9*(-139440*M_pow6 + 40*(-2513 + 212*E_pow2)*M_pow5*r + 10*(12449 + 1232*E_pow2)*M_pow4*r_pow2 + 3*(28085 + 1328*E_pow2)*M_pow3*r_pow3 - (25541 + 1496*E_pow2)*M_pow2*r_pow4 - (16295 + 728*E_pow2)*M*r_pow5 + 75*r_pow6) + L_pow6*r_pow3*(-166296*M_pow6 + 4*(-821 + 31200*E_pow2)*M_pow5*r + 18*(27297 + 8744*E_pow2)*M_pow4*r_pow2 - (238167 + 50720*E_pow2)*M_pow3*r_pow3 - 71*(2533 + 1096*E_pow2)*M_pow2*r_pow4 + 3*(32687 - 2100*E_pow2)*M*r_pow5 + 203*r_pow6) + L_pow8*r*(59520*M_pow6 + 8*(1039 + 2220*E_pow2)*M_pow5*r + 2*(51885 + 23608*E_pow2)*M_pow4*r_pow2 + (-112393 + 528*E_pow2)*M_pow3*r_pow3 - 4*(16491 + 7369*E_pow2)*M_pow2*r_pow4 + (49417 - 1212*E_pow2)*M*r_pow5 + 1812*r_pow6) + 2*L_pow2*r_pow7*(-212704*M_pow6 - 16*(7121 + 13171*E_pow2)*M_pow5*r - 40*(-8401 + 5300*E_pow2)*M_pow4*r_pow2 + 2*(48973 + 49112*E_pow2)*M_pow3*r_pow3 + 4*(-26901 + 22273*E_pow2)*M_pow2*r_pow4 + (-18235 + 163*E_pow2)*M*r_pow5 + 3855*r_pow6) + L_pow4*r_pow5*(-542456*M_pow6 - 4*(46877 + 34472*E_pow2)*M_pow5*r + 2*(459659 - 122488*E_pow2)*M_pow4*r_pow2 + (4587 + 59032*E_pow2)*M_pow3*r_pow3 + 7*(-42461 + 12956*E_pow2)*M_pow2*r_pow4 + 2*(15384 - 2615*E_pow2)*M*r_pow5 + 4216*r_pow6)) + 2*a_pow9*E*L*M*r_pow3*(2*L_pow8*(432*M_pow3 - 784*M_pow2*r - 840*M*r_pow2 - 39*r_pow3) + L_pow6*(7488*M_pow5 + 64*(-209 + 9*E_pow2)*M_pow4*r + 36*(-473 + 64*E_pow2)*M_pow3*r_pow2 + (-46001 + 2160*E_pow2)*M_pow2*r_pow3 + 2*(-10385 + 288*E_pow2)*M*r_pow4 + 2124*r_pow5) - 2*L_pow2*r_pow3*(-37232*M_pow6 - 96*(-1200 + 19*E_pow2)*M_pow5*r + 288*(406 + 5*E_pow2)*M_pow4*r_pow2 + 48*(-2183 + 282*E_pow2)*M_pow3*r_pow3 + 2*(-46483 + 6060*E_pow2)*M_pow2*r_pow4 + 18*(-257 + 165*E_pow2)*M*r_pow5 + 4197*r_pow6) + L_pow4*r*(111616*M_pow6 + 8*(1961 + 24*E_pow2)*M_pow5*r + 12*(-2705 + 616*E_pow2)*M_pow4*r_pow2 + 2*(31409 + 6480*E_pow2)*M_pow3*r_pow3 + 48*(-296 + 161*E_pow2)*M_pow2*r_pow4 + 6*(-1175 + 256*E_pow2)*M*r_pow5 + 11879*r_pow6) - 2*r_pow5*(-124416*M_pow6 - 16*(7117 + 1170*E_pow2)*M_pow5*r - 96*(-663 + 235*E_pow2)*M_pow4*r_pow2 + 4*(7507 + 1260*E_pow2)*M_pow3*r_pow3 + 4*(-1294 + 3285*E_pow2)*M_pow2*r_pow4 + 5*(5609 + 732*E_pow2)*M*r_pow5 + 13680*r_pow6)) + a_pow8*r_pow3*(-2*L_pow10*(288*M_pow4 - 928*M_pow3*r - 1146*M_pow2*r_pow2 + 87*M*r_pow3 - 54*r_pow4) + L_pow8*(-4992*M_pow6 - 32*(-619 + 108*E_pow2)*M_pow5*r - 8*(1673 + 1262*E_pow2)*M_pow4*r_pow2 + 8*(7480 + 1059*E_pow2)*M_pow3*r_pow3 + (7059 + 10316*E_pow2)*M_pow2*r_pow4 + 2*(-9865 + 92*E_pow2)*M*r_pow5 - 204*r_pow6) + 2*L_pow2*r_pow5*(57024*M_pow7 + 144*(1239 + 970*E_pow2)*M_pow6*r + 8*(-32203 + 47830*E_pow2)*M_pow5*r_pow2 + 8*(-46543 + 5163*E_pow2)*M_pow4*r_pow3 + 4*(20005 - 63809*E_pow2)*M_pow3*r_pow4 + (131825 - 97378*E_pow2)*M_pow2*r_pow5 + 5*(3005 + 419*E_pow2)*M*r_pow6 - 870*r_pow7) + 4*r_pow7*(52200*M_pow7 - 40*(-1799 + 88*E_pow2)*M_pow6*r - 110*(345 + 88*E_pow2)*M_pow5*r_pow2 - 10*(8075 + 732*E_pow2)*M_pow4*r_pow3 + 10*(-1063 + 64*E_pow2)*M_pow3*r_pow4 + (19295 + 2426*E_pow2)*M_pow2*r_pow5 + 2*(3196 + 315*E_pow2)*M*r_pow6 + 192*r_pow7) - L_pow6*r*(107392*M_pow7 + 16*(-3631 + 3768*E_pow2)*M_pow6*r + 4*(38891 + 31688*E_pow2)*M_pow5*r_pow2 + 24*(3569 + 838*E_pow2)*M_pow4*r_pow3 - (289047 + 98608*E_pow2)*M_pow3*r_pow4 - (7273 + 52440*E_pow2)*M_pow2*r_pow5 + (80223 - 3320*E_pow2)*M*r_pow6 + 354*r_pow7) + 2*L_pow4*r_pow3*(20872*M_pow7 - 16*(-9385 + 2426*E_pow2)*M_pow6*r + 2*(-128197 + 42304*E_pow2)*M_pow5*r_pow2 + 2*(-121329 + 39352*E_pow2)*M_pow4*r_pow3 - 6*(-32309 + 9760*E_pow2)*M_pow3*r_pow4 + 4*(19265 - 7937*E_pow2)*M_pow2*r_pow5 + 5*(-5427 + 698*E_pow2)*M*r_pow6 + 448*r_pow7)) + 2*a_pow11*E*L*M*r_pow2*(L_pow6*(864*M_pow4 + 32*(-46 + 9*E_pow2)*M_pow3*r + 3*(-2939 + 96*E_pow2)*M_pow2*r_pow2 + 36*(-119 + 2*E_pow2)*M*r_pow3 - 132*r_pow4) + 2*r_pow3*twoM_plus_r*(38544*M_pow6 + 32*(1768 + 315*E_pow2)*M_pow5*r + 16*(-4024 + 1035*E_pow2)*M_pow4*r_pow2 - 8*(8417 + 135*E_pow2)*M_pow3*r_pow3 + 9*(1289 - 1060*E_pow2)*M_pow2*r_pow4 + 3*(1163 - 1020*E_pow2)*M*r_pow5 - 5193*r_pow6) + L_pow4*(26496*M_pow6 + 64*(-970 + 39*E_pow2)*M_pow5*r + 24*(-1827 + 268*E_pow2)*M_pow4*r_pow2 + 18*(-269 + 352*E_pow2)*M_pow3*r_pow3 + 6*(-3669 + 460*E_pow2)*M_pow2*r_pow4 + 12*(-516 + 37*E_pow2)*M*r_pow5 + 2310*r_pow6) + 2*L_pow2*r*(47744*M_pow7 + 16*(2617 + 132*E_pow2)*M_pow6*r + 96*(-999 + 86*E_pow2)*M_pow5*r_pow2 - 48*(707 + 6*E_pow2)*M_pow4*r_pow3 + 4*(24803 - 2976*E_pow2)*M_pow3*r_pow4 + 12*(5913 - 685*E_pow2)*M_pow2*r_pow5 - 6*(-2369 + 270*E_pow2)*M*r_pow6 + 651*r_pow7)) + a_pow12*r*(L_pow6*(4608*M_pow6 - 64*(91 + 27*E_pow2)*M_pow5*r + 4*(2859 + 44*E_pow2)*M_pow4*r_pow2 + (7471 + 1912*E_pow2)*M_pow3*r_pow3 + 6*(-779 + 110*E_pow2)*M_pow2*r_pow4 - 6*(196 + 3*E_pow2)*M*r_pow5 + 540*r_pow6) + 2*r_pow3*twoM_plus_r_pow2*(6936*M_pow7 + 112*(105 + 8*E_pow2)*M_pow6*r - 2*(10427 + 1920*E_pow2)*M_pow5*r_pow2 - 2*(19213 + 4216*E_pow2)*M_pow4*r_pow3 + (67 + 832*E_pow2)*M_pow3*r_pow4 + 3*(6125 + 1972*E_pow2)*M_pow2*r_pow5 + (6155 + 1904*E_pow2)*M*r_pow6 + 195*r_pow7) - 2*L_pow4*(12288*M_pow8 + 64*(-313 + 414*E_pow2)*M_pow7*r - 32*(1402 + 475*E_pow2)*M_pow6*r_pow2 - 2*(10745 + 30032*E_pow2)*M_pow5*r_pow3 - 2*(4591 + 10012*E_pow2)*M_pow4*r_pow4 + (25933 + 6872*E_pow2)*M_pow3*r_pow5 + (31315 + 1272*E_pow2)*M_pow2*r_pow6 + (7087 - 720*E_pow2)*M*r_pow7 - 642*r_pow8) + 2*L_pow2*r*twoM_plus_r*(1664*M_pow8 - 32*(1021 + 1142*E_pow2)*M_pow7*r + 8*(1027 - 5432*E_pow2)*M_pow6*r_pow2 + 4*(7149 + 9364*E_pow2)*M_pow5*r_pow3 - 2*(-9251 + 7800*E_pow2)*M_pow4*r_pow4 + (40331 - 65984*E_pow2)*M_pow3*r_pow5 - 2*(-8227 + 9374*E_pow2)*M_pow2*r_pow6 + (-274 + 2305*E_pow2)*M*r_pow7 + 705*r_pow8)) + a_pow10*r_pow2*(L_pow8*(-576*M_pow5 + 16*(119 - 108*E_pow2)*M_pow4*r + 22*(695 + 32*E_pow2)*M_pow3*r_pow2 + 3*(1359 + 308*E_pow2)*M_pow2*r_pow3 - 9*(69 + 4*E_pow2)*M*r_pow4 + 405*r_pow5) + L_pow6*(-17664*M_pow7 - 64*(-1135 + 234*E_pow2)*M_pow6*r - 16*(1331 + 370*E_pow2)*M_pow5*r_pow2 + 2*(21273 + 17384*E_pow2)*M_pow4*r_pow3 + 9*(7217 + 4768*E_pow2)*M_pow3*r_pow4 + (-42669 + 14540*E_pow2)*M_pow2*r_pow5 + 2*(-13494 + 331*E_pow2)*M*r_pow6 + 960*r_pow7) + r_pow5*twoM_plus_r*(83376*M_pow7 - 64*(-2002 + 51*E_pow2)*M_pow6*r - 8*(12887 + 3036*E_pow2)*M_pow5*r_pow2 - 4*(53013 + 6944*E_pow2)*M_pow4*r_pow3 + (-22529 + 3488*E_pow2)*M_pow3*r_pow4 + (66935 + 14096*E_pow2)*M_pow2*r_pow5 + (23523 + 4060*E_pow2)*M*r_pow6 + 975*r_pow7) - 2*L_pow2*r_pow3*(63264*M_pow8 + 16*(2971 + 3792*E_pow2)*M_pow7*r - 320*(-152 + 385*E_pow2)*M_pow6*r_pow2 - 24*(-9875 + 7246*E_pow2)*M_pow5*r_pow3 + 2*(22123 + 94032*E_pow2)*M_pow4*r_pow4 + (-172759 + 242828*E_pow2)*M_pow3*r_pow5 + 3*(-28281 + 18632*E_pow2)*M_pow2*r_pow6 - 3*(2924 + 1089*E_pow2)*M*r_pow7 - 954*r_pow8) + L_pow4*r*(-78592*M_pow8 - 64*(739 + 1942*E_pow2)*M_pow7*r - 8*(-6283 + 15312*E_pow2)*M_pow6*r_pow2 + 4*(-37165 + 39576*E_pow2)*M_pow5*r_pow3 + 4*(30377 + 22328*E_pow2)*M_pow4*r_pow4 - 8*(-25577 + 7512*E_pow2)*M_pow3*r_pow5 - 2*(18997 + 9978*E_pow2)*M_pow2*r_pow6 + (-40535 + 4582*E_pow2)*M*r_pow7 + 2403*r_pow8)) + 2*a_pow16*twoM_plus_r_pow3*(3*L_pow2*M*(8*(17 + 54*E_pow2)*M_pow3 + 24*(-25 + 2*E_pow2)*M_pow2*r - 8*(59 + 8*E_pow2)*M*r_pow2 + 39*(-5 + E_pow2)*r_pow3) - r*twoM_plus_r*(2*E_pow2*M*(232*M_pow3 + 8*M_pow2*r - 418*M*r_pow2 - 167*r_pow3) + r*(-676*M_pow3 - 803*M_pow2*r - 30*M*r_pow2 + 60*r_pow3))) + a_pow14*twoM_plus_r*(2*L_pow2*r*twoM_plus_r*(-64*(29 + 144*E_pow2)*M_pow6 + 8*(1945 + 554*E_pow2)*M_pow5*r + 4*(2015 + 2116*E_pow2)*M_pow4*r_pow2 - 12*(125 + 543*E_pow2)*M_pow3*r_pow3 - 2*(1661 + 1568*E_pow2)*M_pow2*r_pow4 + (-2161 + 815*E_pow2)*M*r_pow5 + 141*r_pow6) + L_pow4*(3456*M_pow6 + 2304*(-1 + 3*E_pow2)*M_pow5*r + 8*(-1427 + 356*E_pow2)*M_pow4*r_pow2 - (14561 + 2296*E_pow2)*M_pow3*r_pow3 - 3*(3399 + 224*E_pow2)*M_pow2*r_pow4 + 6*(-347 + 27*E_pow2)*M*r_pow5 + 270*r_pow6) + r_pow2*twoM_plus_r_pow2*(r*(-7484*M_pow5 - 11872*M_pow4*r + 4765*M_pow3*r_pow2 + 11605*M_pow2*r_pow3 + 3079*M*r_pow4 - 93*r_pow5) + 8*E_pow2*M*(104*M_pow5 - 116*M_pow4*r - 744*M_pow3*r_pow2 + 28*M_pow2*r_pow3 + 743*M*r_pow4 + 267*r_pow5))))*ur_pow4 + r_pow6*(552*a_pow16*M*r*twoM_plus_r_pow5 + r_pow13*(L_pow6*r_pow2*(-120*M_pow2 + 290*M*r - 133*r_pow2) + 4*r_pow8*(-100*M_pow2 + 35*M*r + 9*r_pow2) - 2*L_pow2*r_pow6*(2086*M_pow2 - 1805*M*r + 366*r_pow2) + 2*L_pow8*(2352*M_pow2 - 2236*M*r + 521*r_pow2) - 4*L_pow4*r_pow4*(2338*M_pow2 - 2247*M*r + 533*r_pow2)) + a_pow2*r_pow10*(4*L_pow4*r_pow4*(-14564*M_pow3 + 1750*M_pow2*r + 6153*M*r_pow2 - 1699*r_pow3) + 4*r_pow8*(-876*M_pow3 - 574*M_pow2*r + 517*M*r_pow2 + 45*r_pow3) - L_pow6*r_pow2*(24444*M_pow3 - 14268*M_pow2*r + 1401*M*r_pow2 + 184*r_pow3) + 2*L_pow8*(204*M_pow3 + 5516*M_pow2*r - 4101*M*r_pow2 + 687*r_pow3) - 2*L_pow2*r_pow6*(11668*M_pow3 + 2092*M_pow2*r - 7550*M*r_pow2 + 1539*r_pow3)) - 2*a_pow14*twoM_plus_r_pow3*(3*L_pow2*M*(280*M_pow3 - 284*M_pow2*r - 365*M*r_pow2 - 180*r_pow3) + 2*r_pow2*(1376*M_pow4 + 100*M_pow3*r - 2276*M_pow2*r_pow2 - 973*M*r_pow3 + 9*r_pow4)) - a_pow4*r_pow7*(2*L_pow8*(2412*M_pow4 - 5440*M_pow3*r - 4517*M_pow2*r_pow2 + 4701*M*r_pow3 - 4*r_pow4) + L_pow6*r_pow2*(37896*M_pow4 + 14302*M_pow3*r - 33301*M_pow2*r_pow2 + 5976*M*r_pow3 + 77*r_pow4) - 4*r_pow8*(-2760*M_pow4 - 6220*M_pow3*r + 816*M_pow2*r_pow2 + 2289*M*r_pow3 + 81*r_pow4) + 4*L_pow4*r_pow4*(28062*M_pow4 + 30173*M_pow3*r - 15846*M_pow2*r_pow2 - 9096*M*r_pow3 + 1719*r_pow4) + 2*L_pow2*r_pow6*(24478*M_pow4 + 46993*M_pow3*r - 12996*M_pow2*r_pow2 - 17614*M*r_pow3 + 2262*r_pow4)) + a_pow6*r_pow4*(2*L_pow8*(2160*M_pow5 - 1382*M_pow4*r + 3161*M_pow3*r_pow2 - 79*M_pow2*r_pow3 - 2732*M*r_pow4 - 162*r_pow5) + L_pow6*r_pow2*(12516*M_pow5 - 25248*M_pow4*r + 19669*M_pow3*r_pow2 + 19852*M_pow2*r_pow3 - 9033*M*r_pow4 - 134*r_pow5) + 4*r_pow8*(-3040*M_pow5 - 21200*M_pow4*r - 10160*M_pow3*r_pow2 + 9490*M_pow2*r_pow3 + 5053*M*r_pow4 + 45*r_pow5) - 4*L_pow4*r_pow4*(17540*M_pow5 + 64746*M_pow4*r + 15965*M_pow3*r_pow2 - 31437*M_pow2*r_pow3 - 11307*M*r_pow4 + 293*r_pow5) - 2*L_pow2*r_pow6*(33380*M_pow5 + 134288*M_pow4*r + 61642*M_pow3*r_pow2 - 60203*M_pow2*r_pow3 - 31140*M*r_pow4 + 978*r_pow5)) + a_pow8*r_pow3*(-2*L_pow8*M*(936*M_pow3 - 655*M_pow2*r - 142*M*r_pow2 + 282*r_pow3) + L_pow6*(8256*M_pow6 + 3464*M_pow5*r - 16960*M_pow4*r_pow2 + 2320*M_pow3*r_pow3 - 3295*M_pow2*r_pow4 - 5900*M*r_pow5 - 108*r_pow6) + 20*r_pow6*(384*M_pow6 - 6448*M_pow5*r - 8544*M_pow4*r_pow2 + 1336*M_pow3*r_pow3 + 4640*M_pow2*r_pow4 + 1315*M*r_pow5 - 9*r_pow6) + 4*L_pow4*r_pow2*(-2704*M_pow6 - 39136*M_pow5*r - 42376*M_pow4*r_pow2 + 18261*M_pow3*r_pow3 + 30971*M_pow2*r_pow4 + 8688*M*r_pow5 + 440*r_pow6) + 2*L_pow2*r_pow4*(-45608*M_pow6 - 190004*M_pow5*r - 185480*M_pow4*r_pow2 + 41342*M_pow3*r_pow3 + 115970*M_pow2*r_pow4 + 36701*M*r_pow5 + 738*r_pow6)) - 2*a_pow12*r*twoM_plus_r*(2*L_pow4*M*(1968*M_pow4 + 2198*M_pow3*r + 570*M_pow2*r_pow2 - 11*M*r_pow3 + 15*r_pow4) + 2*r_pow2*twoM_plus_r_pow2*(-496*M_pow5 + 1200*M_pow4*r + 4004*M_pow3*r_pow2 - 2054*M_pow2*r_pow3 - 3137*M*r_pow4 + 45*r_pow5) - L_pow2*(1344*M_pow7 - 11520*M_pow6*r - 16828*M_pow5*r_pow2 + 15008*M_pow4*r_pow3 + 40779*M_pow3*r_pow4 + 27760*M_pow2*r_pow5 + 6700*M*r_pow6 + 234*r_pow7)) - a_pow10*r_pow2*(L_pow6*M*(8256*M_pow4 + 10276*M_pow3*r + 4467*M_pow2*r_pow2 + 2942*M*r_pow3 + 1152*r_pow4) + 4*r_pow4*twoM_plus_r_pow2*(-1680*M_pow5 + 6920*M_pow4*r + 9808*M_pow3*r_pow2 - 6078*M_pow2*r_pow3 - 5739*M*r_pow4 + 81*r_pow5) + 4*L_pow4*(1536*M_pow7 + 7048*M_pow6*r + 18400*M_pow5*r_pow2 + 2974*M_pow4*r_pow3 - 16045*M_pow3*r_pow4 - 11273*M_pow2*r_pow5 - 2556*M*r_pow6 - 180*r_pow7) - 2*L_pow2*r_pow2*(-32240*M_pow7 - 138416*M_pow6*r - 173844*M_pow5*r_pow2 + 76*M_pow4*r_pow3 + 150056*M_pow3*r_pow4 + 105594*M_pow2*r_pow5 + 24058*M*r_pow6 + 861*r_pow7)) - 6*E_pow2*M*pow(r_pow3 + a_pow2*twoM_plus_r,2)*(35*a_pow12*twoM_plus_r_pow4 + 2*r_pow10*(-15*L_pow6 + 40*L_pow4*r_pow2 + 41*L_pow2*r_pow4 + 7*r_pow6) + a_pow2*r_pow7*(-24*L_pow6*(4*M + r) + 7*r_pow6*(14*M + 15*r) + 8*L_pow2*r_pow4*(52*M + 55*r) + L_pow4*r_pow2*(180*M + 311*r)) + a_pow4*r_pow4*(-6*L_pow6*(30*M_pow2 + M*r - 6*r_pow2) + 7*r_pow6*(32*M_pow2 + 96*M*r + 45*r_pow2) + 4*L_pow2*r_pow4*(186*M_pow2 + 471*M*r + 232*r_pow2) + L_pow4*r_pow2*(-132*M_pow2 + 626*M*r + 477*r_pow2)) + a_pow10*r*twoM_plus_r_pow2*(4*L_pow2*(41*M + 25*r) + 7*(-8*M_pow3 + 20*M_pow2*r + 66*M*r_pow2 + 27*r_pow3)) + a_pow8*r_pow2*twoM_plus_r*(L_pow4*(172*M + 95*r) + 28*r_pow2*(-4*M_pow3 + 26*M_pow2*r + 44*M*r_pow2 + 15*r_pow3) + 2*L_pow2*(64*M_pow3 + 308*M_pow2*r + 596*M*r_pow2 + 247*r_pow3)) + a_pow6*r_pow3*(6*L_pow6*(13*M + 5*r) + 14*r_pow4*(8*M_pow3 + 108*M_pow2*r + 122*M*r_pow2 + 35*r_pow3) + 4*L_pow2*r_pow2*(152*M_pow3 + 672*M_pow2*r + 771*M*r_pow2 + 241*r_pow3) + L_pow4*(-344*M_pow3 + 116*M_pow2*r + 808*M*r_pow2 + 341*r_pow3))) + 2*a*E*L*M*(6*a_pow14*twoM_plus_r_pow4*(140*M_pow2 - 36*M*r - 57*r_pow2) + 3*r_pow13*(7*L_pow4*(142*M - 51*r)*r_pow2 + 2*L_pow2*(1360*M - 573*r)*r_pow4 + 4*(31*M - 6*r)*r_pow6 + L_pow6*(-1518*M + 639*r)) + a_pow2*r_pow10*(2*L_pow2*r_pow4*(19296*M_pow2 + 7930*M*r - 7505*r_pow2) + L_pow4*r_pow2*(8724*M_pow2 + 6418*M*r - 3551*r_pow2) + 6*r_pow6*(664*M_pow2 + 392*M*r - 149*r_pow2) + L_pow6*(-4464*M_pow2 - 6046*M*r + 4472*r_pow2)) + a_pow4*r_pow7*(2*L_pow2*r_pow4*(26070*M_pow3 + 50321*M_pow2*r - 576*M*r_pow2 - 13399*r_pow3) + L_pow4*r_pow2*(-1278*M_pow3 + 21135*M_pow2*r + 6984*M*r_pow2 - 4379*r_pow3) - L_pow6*(54*M_pow3 + 5353*M_pow2*r + 2682*M*r_pow2 - 3585*r_pow3) + 12*r_pow6*(1388*M_pow3 + 2072*M_pow2*r + 169*M*r_pow2 - 311*r_pow3)) + a_pow6*r_pow4*(4*L_pow2*r_pow4*(2028*M_pow4 + 35481*M_pow3*r + 29865*M_pow2*r_pow2 - 5623*M*r_pow3 - 6318*r_pow4) + L_pow4*r_pow2*(-17724*M_pow4 + 7470*M_pow3*r + 31575*M_pow2*r_pow2 + 7388*M*r_pow3 - 2479*r_pow4) + 6*r_pow6*(5568*M_pow4 + 14976*M_pow3*r + 7620*M_pow2*r_pow2 - 1820*M*r_pow3 - 1295*r_pow4) - 2*L_pow6*(2160*M_pow4 + 425*M_pow3*r + 1072*M_pow2*r_pow2 + 310*M*r_pow3 - 578*r_pow4)) + a_pow10*r_pow2*twoM_plus_r*(L_pow4*(4128*M_pow3 + 4741*M_pow2*r + 1174*M*r_pow2 - 90*r_pow3) + 2*L_pow2*(1536*M_pow5 + 7604*M_pow4*r + 25298*M_pow3*r_pow2 + 17690*M_pow2*r_pow3 - 550*M*r_pow4 - 2035*r_pow5) + 6*r_pow2*(448*M_pow5 + 8672*M_pow4*r + 11800*M_pow3*r_pow2 + 1508*M_pow2*r_pow3 - 3194*M*r_pow4 - 1027*r_pow5)) + 2*a_pow12*r*twoM_plus_r_pow2*(L_pow2*(1968*M_pow3 + 2191*M_pow2*r + 118*M*r_pow2 - 279*r_pow3) - 6*(112*M_pow5 - 592*M_pow4*r - 1440*M_pow3*r_pow2 - 224*M_pow2*r_pow3 + 541*M*r_pow4 + 187*r_pow5)) + a_pow8*r_pow3*(L_pow6*(1872*M_pow3 + 641*M_pow2*r + 38*M*r_pow2 + 126*r_pow3) + 12*r_pow4*(2512*M_pow5 + 12320*M_pow4*r + 12552*M_pow3*r_pow2 + 1560*M_pow2*r_pow3 - 2495*M*r_pow4 - 760*r_pow5) + L_pow4*(-8256*M_pow5 - 4468*M_pow4*r + 27206*M_pow3*r_pow2 + 26005*M_pow2*r_pow3 + 4834*M*r_pow4 - 670*r_pow5) - 2*L_pow2*r_pow2*(5544*M_pow5 - 39956*M_pow4*r - 96686*M_pow3*r_pow2 - 43748*M_pow2*r_pow3 + 10442*M*r_pow4 + 6779*r_pow5))))*ur_pow6 + 3*r_pow9*(70*a_pow14*M*twoM_plus_r_pow5 + 2*r_pow13*(-15*L_pow6*(8*M - 3*r) + 2*L_pow4*(166*M - 63*r)*r_pow2 + 14*M*r_pow6 + 2*L_pow2*r_pow4*(23*M + 9*r)) + a_pow2*r_pow10*(14*M*r_pow6*(18*M + 17*r) + L_pow4*r_pow2*(1106*M_pow2 + 1487*M*r - 711*r_pow2) + 16*L_pow2*r_pow4*(38*M_pow2 + 69*M*r + 9*r_pow2) + 6*L_pow6*(42*M_pow2 - 89*M*r + 27*r_pow2)) + 4*a_pow12*M*r*twoM_plus_r_pow3*(L_pow2*(157*M + 83*r) + 14*(-2*M_pow3 + 5*M_pow2*r + 19*M*r_pow2 + 8*r_pow3)) + 2*a_pow4*r_pow7*(140*M*r_pow6*(3*M_pow2 + 7*M*r + 3*r_pow2) + L_pow4*r_pow2*(-924*M_pow3 + 1581*M_pow2*r + 1100*M*r_pow2 - 333*r_pow3) + L_pow6*(486*M_pow3 - 51*M_pow2*r - 393*M*r_pow2 + 36*r_pow3) + 2*L_pow2*r_pow4*(242*M_pow3 + 1491*M_pow2*r + 885*M*r_pow2 + 54*r_pow3)) - a_pow10*M*r_pow2*twoM_plus_r*(L_pow4*(137*M_pow2 - 241*M*r - 166*r_pow2) - 14*r_pow2*twoM_plus_r_pow2*(-12*M_pow2 + 68*M*r + 87*r_pow2) + 16*L_pow2*(118*M_pow4 - 29*M_pow3*r - 548*M_pow2*r_pow2 - 474*M*r_pow3 - 111*r_pow4)) + a_pow6*r_pow4*(70*M*r_pow6*(16*M_pow3 + 88*M_pow2*r + 86*M*r_pow2 + 23*r_pow3) - 6*L_pow6*M*(2*M_pow3 - 37*M_pow2*r + 123*M*r_pow2 + 92*r_pow3) + L_pow4*r_pow2*(-1846*M_pow4 + 429*M_pow3*r + 6063*M_pow2*r_pow2 + 2581*M*r_pow3 - 207*r_pow4) + 16*L_pow2*r_pow4*(-89*M_pow4 + 720*M_pow3*r + 1000*M_pow2*r_pow2 + 328*M*r_pow3 + 9*r_pow4)) + 2*a_pow8*r_pow3*(70*M*r_pow5*twoM_plus_r_pow2*(16*M + 13*r) - 3*L_pow6*M*(7*M_pow2 + 34*M*r + 16*r_pow2) + L_pow4*M*(962*M_pow4 + 854*M_pow3*r + 1869*M_pow2*r_pow2 + 2200*M*r_pow3 + 685*r_pow4) + 2*L_pow2*r_pow2*(-1304*M_pow5 + 1740*M_pow4*r + 6684*M_pow3*r_pow2 + 4790*M_pow2*r_pow3 + 1041*M*r_pow4 + 9*r_pow5)))*ur_pow8)/(12.*r*pow(a_pow2 + r*r_minus_twoM,6)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5));
A5400 = (r_pow2*(-12*a*E*L*M*pow(a_pow2 + r*r_minus_twoM,2)*(6*a_pow4 + a_pow2*(12*M - 11*r)*r + r_pow2*(-32*M_pow2 + 42*M*r - 17*r_pow2))*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5) + 6*E_pow2*M*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5)*(6*a_pow6 + 3*a_pow4*(4*M - 3*r)*r + (22*M - 15*r)*r_pow5 - 2*a_pow2*r_pow2*(16*M_pow2 - 23*M*r + 15*r_pow2)) + pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5)*(9*a_pow6*r + a_pow4*(36*L_pow2*M + (24*M - 13*r)*r_pow2) + a_pow2*r*(6*L_pow2*M*(12*M - 13*r) + r_pow2*(-183*M_pow2 + 196*M*r - 62*r_pow2)) + r_pow2*(-6*L_pow2*M*(32*M_pow2 - 38*M*r + 11*r_pow2) + r_pow2*(156*M_pow3 - 193*M_pow2*r + 64*M*r_pow2 + 2*r_pow3))) + r_pow2*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(-72*a*E_pow3*L*M_pow2*(3*twoM_minus_r*r_pow10 + a_pow10*twoM_plus_r + 4*a_pow6*M*r_pow2*(8*M_pow2 - 7*M*r - 9*r_pow2) + a_pow8*r*(-20*M_pow2 - 6*M*r + 3*r_pow2) - 3*a_pow2*r_pow7*(-12*M_pow2 + 2*M*r + 3*r_pow2) + 4*a_pow4*r_pow4*(12*M_pow3 + 7*M_pow2*r - 10*M*r_pow2 - 2*r_pow3)) - 4*a*E*L*M*(a_pow2 + r*r_minus_twoM)*(6*a_pow8*(40*M_pow2 + 34*M*r + 7*r_pow2) - r_pow6*(3*L_pow2*(461*M_pow2 - 372*M*r + 78*r_pow2) + r_pow2*(947*M_pow2 - 743*M*r + 153*r_pow2)) + 3*a_pow6*(4*L_pow2*(9*M_pow2 + 23*M*r + 5*r_pow2) + r*(152*M_pow3 + 266*M_pow2*r + 99*M*r_pow2 - 4*r_pow3)) - a_pow2*r_pow3*(3*L_pow2*(608*M_pow3 + 215*M_pow2*r - 478*M*r_pow2 + 89*r_pow3) + r_pow2*(2774*M_pow3 - 466*M_pow2*r - 1345*M*r_pow2 + 372*r_pow3)) + a_pow4*r*(-3*L_pow2*(288*M_pow3 - 64*M_pow2*r - 250*M*r_pow2 + 5*r_pow3) + r*(-1760*M_pow4 - 1026*M_pow3*r + 1971*M_pow2*r_pow2 + 755*M*r_pow3 - 273*r_pow4))) + 2*E_pow2*M*(a_pow2 + r*r_minus_twoM)*(60*a_pow10*twoM_plus_r_pow2 + r_pow9*(7*r_pow2*(-4*M + r) + L_pow2*(-66*M + 18*r)) + 3*a_pow2*r_pow6*(2*r_pow2*(-92*M_pow2 + 17*M*r + 11*r_pow2) + L_pow2*(-792*M_pow2 + 236*M*r + 31*r_pow2)) - 3*a_pow4*r_pow3*(L_pow2*(1040*M_pow3 + 740*M_pow2*r - 488*M*r_pow2 - 75*r_pow3) + 2*r_pow2*(312*M_pow3 + 74*M_pow2*r - 97*M*r_pow2 - 36*r_pow3)) + 3*a_pow8*(L_pow2*(72*M_pow2 + 110*M*r + 31*r_pow2) + r*(152*M_pow3 + 292*M_pow2*r + 258*M*r_pow2 + 75*r_pow3)) + a_pow6*r*(-3*L_pow2*(576*M_pow3 + 44*M_pow2*r - 356*M*r_pow2 - 81*r_pow3) + 2*r*(-880*M_pow4 - 620*M_pow3*r + 372*M_pow2*r_pow2 + 493*M*r_pow3 + 161*r_pow4))) + (a_pow2 + r*r_minus_twoM)*(54*a_pow10*r*twoM_plus_r_pow2 - r_pow6*(-362*M_pow3*r_pow4 + 556*M_pow2*r_pow5 - 290*M*r_pow6 + 46*r_pow7 + 3*L_pow4*(498*M_pow3 - 601*M_pow2*r + 223*M*r_pow2 - 24*r_pow3) + L_pow2*r_pow2*(748*M_pow3 - 683*M_pow2*r + 109*M*r_pow2 + 16*r_pow3)) + 2*a_pow8*(3*L_pow2*(80*M_pow3 + 56*M_pow2*r + 15*M*r_pow2 + 6*r_pow3) + r_pow2*(-252*M_pow3 - 116*M_pow2*r + 181*M*r_pow2 + 88*r_pow3)) - a_pow2*r_pow3*(3*L_pow4*(928*M_pow4 + 4*M_pow3*r - 725*M_pow2*r_pow2 + 274*M*r_pow3 - r_pow4) + L_pow2*r_pow2*(4648*M_pow4 - 2186*M_pow3*r - 1352*M_pow2*r_pow2 + 565*M*r_pow3 + 81*r_pow4) + 2*r_pow4*(-724*M_pow4 + 750*M_pow3*r + 59*M_pow2*r_pow2 - 295*M*r_pow3 + 83*r_pow4)) + a_pow6*(6*L_pow4*(24*M_pow3 + 86*M_pow2*r + 9*M*r_pow2 - 3*r_pow3) + 2*r_pow3*(-332*M_pow4 + 56*M_pow3*r - 95*M_pow2*r_pow2 - 41*M*r_pow3 + 58*r_pow4) + L_pow2*r*(912*M_pow4 + 1440*M_pow3*r - 120*M_pow2*r_pow2 - 137*M*r_pow3 + 125*r_pow4)) + a_pow4*r*(-3*L_pow4*(384*M_pow4 - 200*M_pow3*r - 336*M_pow2*r_pow2 + 91*M*r_pow3 + 5*r_pow4) + 2*r_pow3*(724*M_pow5 - 388*M_pow4*r - 683*M_pow3*r_pow2 + 432*M_pow2*r_pow3 + 36*M*r_pow4 - 63*r_pow5) + L_pow2*r*(-3520*M_pow5 - 1624*M_pow4*r + 4458*M_pow3*r_pow2 + 333*M_pow2*r_pow3 - 887*M*r_pow4 + 24*r_pow5))))*ur_pow2 + r_pow4*(27*a_pow16*r*twoM_plus_r_pow5 + twoM_minus_r*r_pow11*(L_pow2 + r_pow2)*(r_pow6*(219*M_pow2 - 150*M*r + 26*r_pow2) + L_pow6*(-345*M_pow2 + 46*M*r + 59*r_pow2) + L_pow2*r_pow4*(601*M_pow2 - 740*M*r + 226*r_pow2) + L_pow4*r_pow2*(133*M_pow2 - 638*M*r + 282*r_pow2)) - 2*a_pow14*twoM_plus_r_pow3*(6*L_pow2*(70*M_pow3 - 86*M_pow2*r - 43*M*r_pow2 - 6*r_pow3) - r_pow2*(-52*M_pow3 + 82*M_pow2*r + 256*M*r_pow2 + 101*r_pow3)) - a_pow2*r_pow8*(L_pow8*(708*M_pow4 + 204*M_pow3*r - 682*M_pow2*r_pow2 + 113*M*r_pow3 + 49*r_pow4) + 2*r_pow8*(-2190*M_pow4 + 1500*M_pow3*r + 425*M_pow2*r_pow2 - 424*M*r_pow3 + 58*r_pow4) + 4*L_pow2*r_pow6*(-3318*M_pow4 + 3269*M_pow3*r + 496*M_pow2*r_pow2 - 1195*M*r_pow3 + 276*r_pow4) + L_pow6*r_pow2*(-536*M_pow4 + 4868*M_pow3*r - 1072*M_pow2*r_pow2 - 2178*M*r_pow3 + 795*r_pow4) + L_pow4*r_pow4*(-10520*M_pow4 + 15116*M_pow3*r + 748*M_pow2*r_pow2 - 6317*M*r_pow3 + 1757*r_pow4)) + a_pow4*r_pow5*(L_pow4*r_pow4*(8928*M_pow5 + 2804*M_pow4*r - 36708*M_pow3*r_pow2 + 9031*M_pow2*r_pow3 + 8469*M*r_pow4 - 1932*r_pow5) + 2*L_pow2*r_pow6*(17192*M_pow5 - 4512*M_pow4*r - 18912*M_pow3*r_pow2 + 4894*M_pow2*r_pow3 + 3643*M*r_pow4 - 840*r_pow5) + L_pow6*r_pow2*(-12256*M_pow5 + 12796*M_pow4*r - 11616*M_pow3*r_pow2 + 435*M_pow2*r_pow3 + 3208*M*r_pow4 - 365*r_pow5) + r_pow8*(17520*M_pow5 - 3240*M_pow4*r - 11050*M_pow3*r_pow2 + 1455*M_pow2*r_pow3 + 1584*M*r_pow4 - 123*r_pow5) + L_pow8*(-5376*M_pow5 + 5024*M_pow4*r - 1122*M_pow3*r_pow2 - 707*M_pow2*r_pow3 + 367*M*r_pow4 + 70*r_pow5)) + a_pow12*twoM_plus_r*(r_pow3*twoM_plus_r_pow2*(-1100*M_pow4 - 708*M_pow3*r - 87*M_pow2*r_pow2 + 694*M*r_pow3 + 619*r_pow4) + L_pow4*(576*M_pow5 - 4080*M_pow4*r + 3296*M_pow3*r_pow2 + 5011*M_pow2*r_pow3 + 1239*M*r_pow4 + 54*r_pow5) + 2*L_pow2*r*(9344*M_pow6 - 96*M_pow5*r - 7384*M_pow4*r_pow2 + 5040*M_pow3*r_pow3 + 7556*M_pow2*r_pow4 + 2397*M*r_pow5 + 252*r_pow6)) + a_pow6*r_pow3*(L_pow8*(-2304*M_pow5 + 4192*M_pow4*r - 2960*M_pow3*r_pow2 + 296*M_pow2*r_pow3 + 813*M*r_pow4 + 51*r_pow5) + 4*L_pow2*r_pow5*(4744*M_pow6 + 8276*M_pow5*r - 17404*M_pow4*r_pow2 - 10148*M_pow3*r_pow3 + 6320*M_pow2*r_pow4 + 2519*M*r_pow5 - 162*r_pow6) + 2*r_pow7*(17520*M_pow6 + 5520*M_pow5*r - 15420*M_pow4*r_pow2 - 5840*M_pow3*r_pow3 + 2640*M_pow2*r_pow4 + 1270*M*r_pow5 + 121*r_pow6) - 2*L_pow4*r_pow3*(22496*M_pow6 - 20508*M_pow5*r + 12780*M_pow4*r_pow2 + 25509*M_pow3*r_pow3 - 10647*M_pow2*r_pow4 - 6282*M*r_pow5 + 140*r_pow6) + L_pow6*r*(-31488*M_pow6 + 13504*M_pow5*r + 12252*M_pow4*r_pow2 - 23828*M_pow3*r_pow3 + 4671*M_pow2*r_pow4 + 5804*M*r_pow5 + 291*r_pow6)) + a_pow8*r_pow2*(L_pow8*(576*M_pow4 - 392*M_pow3*r + 700*M_pow2*r_pow2 + 261*M*r_pow3 - 9*r_pow4) + L_pow6*(-8448*M_pow6 + 19904*M_pow5*r - 9520*M_pow4*r_pow2 - 9320*M_pow3*r_pow3 + 10453*M_pow2*r_pow4 + 4430*M*r_pow5 + 202*r_pow6) + 5*r_pow5*(7008*M_pow7 + 5712*M_pow6*r - 7264*M_pow5*r_pow2 - 7936*M_pow4*r_pow3 - 630*M_pow3*r_pow4 + 1763*M_pow2*r_pow5 + 896*M*r_pow6 + 163*r_pow7) + 2*L_pow4*r*(-32512*M_pow7 + 224*M_pow6*r + 26820*M_pow5*r_pow2 - 33954*M_pow4*r_pow3 - 12051*M_pow3*r_pow4 + 18493*M_pow2*r_pow5 + 7183*M*r_pow6 + 401*r_pow7) + 2*L_pow2*r_pow3*(-21600*M_pow7 + 15136*M_pow6*r - 4408*M_pow5*r_pow2 - 51176*M_pow4*r_pow3 - 5884*M_pow3*r_pow4 + 20488*M_pow2*r_pow5 + 7175*M*r_pow6 + 474*r_pow7)) + a_pow10*r*(L_pow6*M*(1728*M_pow4 - 2608*M_pow3*r + 3080*M_pow2*r_pow2 + 4277*M*r_pow3 + 930*r_pow4) + 2*r_pow3*twoM_plus_r_pow2*(1752*M_pow6 + 552*M_pow5*r - 3742*M_pow4*r_pow2 - 2000*M_pow3*r_pow3 + 363*M_pow2*r_pow4 + 948*M*r_pow5 + 492*r_pow6) + L_pow4*(-7680*M_pow7 + 42496*M_pow6*r - 2528*M_pow5*r_pow2 - 36768*M_pow4*r_pow3 + 19806*M_pow3*r_pow4 + 29470*M_pow2*r_pow5 + 7695*M*r_pow6 + 453*r_pow7) + 4*L_pow2*r*(-11776*M_pow8 - 4512*M_pow7*r + 13320*M_pow6*r_pow2 - 11404*M_pow5*r_pow3 - 15230*M_pow4*r_pow4 + 8475*M_pow3*r_pow5 + 11144*M_pow2*r_pow6 + 3257*M*r_pow7 + 300*r_pow8)) - 24*a*E_pow3*L*M_pow2*pow(r_pow3 + a_pow2*twoM_plus_r,2)*(3*a_pow10*twoM_plus_r_pow2 - 5*r_pow10*(L_pow2 + r_pow2) + a_pow8*r*twoM_plus_r*(9*L_pow2 - 40*M_pow2 - 10*M*r + 11*r_pow2) - a_pow2*r_pow5*(12*L_pow4*(3*M - r) + 2*L_pow2*(37*M - 2*r)*r_pow2 + r_pow4*(48*M + 13*r)) - 2*a_pow4*r_pow3*(3*L_pow4*(4*M - 3*r) + L_pow2*r*(64*M_pow2 + 45*M*r - 16*r_pow2) + 3*r_pow3*(22*M_pow2 + 18*M*r + r_pow2)) + 2*a_pow6*r_pow2*(3*L_pow4 + L_pow2*(-44*M_pow2 + M*r + 16*r_pow2) + r*(-56*M_pow3 - 102*M_pow2*r - 30*M*r_pow2 + 5*r_pow3))) - 2*E_pow2*M*(105*a_pow16*twoM_plus_r_pow5 + a_pow2*r_pow11*(6*L_pow6*(60*M_pow2 - 97*M*r + 46*r_pow2) + 2*r_pow6*(348*M_pow2 - 291*M*r + 76*r_pow2) + 2*L_pow2*r_pow4*(574*M_pow2 - 623*M*r + 292*r_pow2) + L_pow4*r_pow2*(768*M_pow2 - 1246*M*r + 719*r_pow2)) - 2*a_pow14*twoM_plus_r_pow3*(3*L_pow2*(36*M_pow2 - 85*M*r - 46*r_pow2) + r*(1168*M_pow3 + 714*M_pow2*r - 687*M*r_pow2 - 376*r_pow3)) + r_pow14*(L_pow2 + r_pow2)*(r_pow4*(-4*M + 5*r) + L_pow4*(-60*M + 39*r) + L_pow2*(-42*M*r_pow2 + 33*r_pow3)) + a_pow4*r_pow8*(6*L_pow6*(636*M_pow3 - 232*M_pow2*r - 163*M*r_pow2 + 110*r_pow3) + 6*r_pow6*(1200*M_pow3 - 400*M_pow2*r - 369*M*r_pow2 + 152*r_pow3) + 2*L_pow2*r_pow4*(6700*M_pow3 - 2564*M_pow2*r - 1419*M*r_pow2 + 1313*r_pow3) + L_pow4*r_pow2*(11088*M_pow3 - 4560*M_pow2*r - 2052*M*r_pow2 + 2393*r_pow3)) + 2*a_pow6*r_pow5*(5*r_pow6*(2912*M_pow4 + 488*M_pow3*r - 1752*M_pow2*r_pow2 - 143*M*r_pow3 + 256*r_pow4) + L_pow6*(3072*M_pow4 + 1620*M_pow3*r - 1982*M_pow2*r_pow2 - 155*M*r_pow3 + 357*r_pow4) + L_pow4*r_pow2*(16152*M_pow4 + 5124*M_pow3*r - 7928*M_pow2*r_pow2 + 778*M*r_pow3 + 1911*r_pow4) + L_pow2*r_pow4*(24584*M_pow4 + 5372*M_pow3*r - 12374*M_pow2*r_pow2 + 1177*M*r_pow3 + 2850*r_pow4)) + a_pow12*r*twoM_plus_r*(L_pow4*(-1296*M_pow3 + 4*M_pow2*r + 798*M*r_pow2 + 237*r_pow3) + 2*r*twoM_plus_r_pow2*(1472*M_pow4 + 248*M_pow3*r - 3522*M_pow2*r_pow2 - 377*M*r_pow3 + 1156*r_pow4) + 2*L_pow2*(2880*M_pow5 - 3392*M_pow4*r - 6536*M_pow3*r_pow2 + 1194*M_pow2*r_pow3 + 3401*M*r_pow4 + 887*r_pow5)) + a_pow8*r_pow3*(L_pow6*(3456*M_pow4 - 1520*M_pow3*r - 2624*M_pow2*r_pow2 + 302*M*r_pow3 + 357*r_pow4) + 10*r_pow5*(5856*M_pow5 + 3912*M_pow4*r - 4216*M_pow3*r_pow2 - 2796*M_pow2*r_pow3 + 597*M*r_pow4 + 409*r_pow5) + 2*L_pow4*r*(14016*M_pow5 + 17192*M_pow4*r - 7284*M_pow3*r_pow2 - 6712*M_pow2*r_pow3 + 3033*M*r_pow4 + 1609*r_pow5) + 2*L_pow2*r_pow3*(38144*M_pow5 + 32240*M_pow4*r - 20536*M_pow3*r_pow2 - 12920*M_pow2*r_pow3 + 7243*M*r_pow4 + 3445*r_pow5)) + a_pow10*r_pow2*(L_pow6*(-864*M_pow3 - 380*M_pow2*r + 156*M*r_pow2 + 66*r_pow3) + 6*r_pow3*twoM_plus_r_pow2*(2448*M_pow4 + 412*M_pow3*r - 2944*M_pow2*r_pow2 - 299*M*r_pow3 + 660*r_pow4) + L_pow4*(12672*M_pow5 - 1696*M_pow4*r - 15080*M_pow3*r_pow2 - 1296*M_pow2*r_pow3 + 4874*M*r_pow4 + 1379*r_pow5) + 2*L_pow2*r*(21632*M_pow6 + 35936*M_pow5*r - 9552*M_pow4*r_pow2 - 26872*M_pow3*r_pow3 + 1234*M_pow2*r_pow4 + 9339*M*r_pow5 + 2384*r_pow6))) - 2*a*E*L*M*(-6*a_pow14*(70*M - 43*r)*twoM_plus_r_pow4 - r_pow11*(L_pow2 + r_pow2)*(3*L_pow2*r_pow2*(84*M_pow2 + 240*M*r - 133*r_pow2) + 3*L_pow4*(256*M_pow2 - 118*M*r + r_pow2) - 2*r_pow4*(26*M_pow2 - 289*M*r + 135*r_pow2)) - 2*a_pow2*r_pow8*(L_pow2*r_pow4*(3596*M_pow3 + 914*M_pow2*r + 1729*M*r_pow2 - 1752*r_pow3) + r_pow6*(1264*M_pow3 + 774*M_pow2*r + 840*M*r_pow2 - 873*r_pow3) + L_pow4*r_pow2*(4152*M_pow3 - 704*M_pow2*r + 607*M*r_pow2 - 822*r_pow3) + L_pow6*(1356*M_pow3 - 580*M_pow2*r - 166*M*r_pow2 - 9*r_pow3)) + a_pow12*twoM_plus_r_pow2*(L_pow2*(432*M_pow3 - 2040*M_pow2*r + 272*M*r_pow2 + 663*r_pow3) + 2*r*(4672*M_pow4 + 1404*M_pow3*r - 2472*M_pow2*r_pow2 + 683*M*r_pow3 + 843*r_pow4)) + a_pow4*r_pow5*(-4*L_pow6*(1776*M_pow4 - 394*M_pow3*r - 718*M_pow2*r_pow2 + 195*M*r_pow3 - 46*r_pow4) + 4*L_pow4*r_pow2*(-7836*M_pow4 + 1540*M_pow3*r + 1379*M_pow2*r_pow2 - 743*M*r_pow3 + 779*r_pow4) + 2*r_pow6*(-11152*M_pow4 - 728*M_pow3*r - 2748*M_pow2*r_pow2 + 297*M*r_pow3 + 2469*r_pow4) + L_pow2*r_pow4*(-43968*M_pow4 + 3600*M_pow3*r - 4428*M_pow2*r_pow2 - 1912*M*r_pow3 + 8005*r_pow4)) - 2*a_pow6*r_pow3*(L_pow6*(1728*M_pow4 - 1952*M_pow3*r - 140*M_pow2*r_pow2 + 326*M*r_pow3 - 155*r_pow4) + r_pow5*(34496*M_pow5 + 8912*M_pow4*r - 7664*M_pow3*r_pow2 + 3956*M_pow2*r_pow3 - 4630*M*r_pow4 - 3975*r_pow5) + 2*L_pow2*r_pow3*(23992*M_pow5 + 4828*M_pow4*r - 10156*M_pow3*r_pow2 + 3590*M_pow2*r_pow3 - 1263*M*r_pow4 - 2586*r_pow5) + 2*L_pow4*r*(9408*M_pow5 + 3236*M_pow4*r - 7108*M_pow3*r_pow2 + 939*M_pow2*r_pow3 + 583*M*r_pow4 - 859*r_pow5)) + 2*a_pow10*r*twoM_plus_r*(L_pow4*(648*M_pow3 - 652*M_pow2*r + 149*M*r_pow2 + 276*r_pow3) + L_pow2*(-2880*M_pow5 + 10384*M_pow4*r + 3396*M_pow3*r_pow2 - 5848*M_pow2*r_pow3 + 1275*M*r_pow4 + 1748*r_pow5) + r*(-11776*M_pow6 - 6192*M_pow5*r + 20952*M_pow4*r_pow2 + 6244*M_pow3*r_pow3 - 4842*M_pow2*r_pow4 + 3486*M*r_pow5 + 2415*r_pow6)) + a_pow8*r_pow2*(L_pow6*(864*M_pow3 - 104*M_pow2*r + 122*M*r_pow2 + 147*r_pow3) + 2*L_pow4*(-6336*M_pow5 + 7888*M_pow4*r + 4440*M_pow3*r_pow2 - 3760*M_pow2*r_pow3 + 597*M*r_pow4 + 1060*r_pow5) + 2*r_pow3*(-46688*M_pow6 - 28560*M_pow5*r + 30624*M_pow4*r_pow2 + 8528*M_pow3*r_pow3 - 2094*M_pow2*r_pow4 + 8865*M*r_pow5 + 3945*r_pow6) + L_pow2*r*(-70400*M_pow6 - 52640*M_pow5*r + 72864*M_pow4*r_pow2 + 19744*M_pow3*r_pow3 - 19856*M_pow2*r_pow4 + 11422*M*r_pow5 + 8007*r_pow6))))*ur_pow4 + r_pow6*(-18*a_pow14*r*twoM_plus_r_pow5 + r_pow12*(-200*M_pow2*r_pow6 + 62*M*r_pow7 + 22*r_pow8 + L_pow2*r_pow4*(-1082*M_pow2 + 711*M*r - 70*r_pow2) - 3*L_pow6*(286*M_pow2 - 255*M*r + 53*r_pow2) - 4*L_pow4*r_pow2*(471*M_pow2 - 388*M*r + 71*r_pow2)) + a_pow12*twoM_plus_r_pow3*(2*r_pow2*(260*M_pow3 + 268*M_pow2*r - 17*M*r_pow2 - 43*r_pow3) + L_pow2*(-840*M_pow3 + 216*M_pow2*r + 714*M*r_pow2 - 9*r_pow3)) - a_pow2*r_pow9*(2*r_pow6*(1000*M_pow3 + 190*M_pow2*r - 330*M*r_pow2 - 57*r_pow3) + 4*L_pow4*r_pow2*(1728*M_pow3 + 704*M_pow2*r - 1326*M*r_pow2 + 213*r_pow3) + L_pow6*(2172*M_pow3 + 1782*M_pow2*r - 1985*M*r_pow2 + 283*r_pow3) + L_pow2*r_pow4*(6004*M_pow3 + 1666*M_pow2*r - 3597*M*r_pow2 + 317*r_pow3)) + a_pow4*r_pow6*(L_pow2*r_pow4*(-8712*M_pow4 - 20208*M_pow3*r + 6212*M_pow2*r_pow2 + 8274*M*r_pow3 - 577*r_pow4) + L_pow6*(564*M_pow4 - 7884*M_pow3*r - 627*M_pow2*r_pow2 + 3093*M*r_pow3 - 70*r_pow4) + 2*r_pow6*(-4000*M_pow4 - 2760*M_pow3*r + 1330*M_pow2*r_pow2 + 1095*M*r_pow3 + 111*r_pow4) - 2*L_pow4*r_pow2*(858*M_pow4 + 12279*M_pow3*r - 1470*M_pow2*r_pow2 - 4830*M*r_pow3 + 415*r_pow4)) + a_pow6*r_pow3*(2*L_pow2*r_pow4*(2632*M_pow5 - 18132*M_pow4*r - 9856*M_pow3*r_pow2 + 11606*M_pow2*r_pow3 + 5505*M*r_pow4 - 269*r_pow5) + 2*L_pow4*r_pow2*(6492*M_pow5 - 13232*M_pow4*r - 14320*M_pow3*r_pow2 + 8079*M_pow2*r_pow3 + 5587*M*r_pow4 - 102*r_pow5) + 10*r_pow6*(-1600*M_pow5 - 1904*M_pow4*r + 240*M_pow3*r_pow2 + 972*M_pow2*r_pow3 + 322*M*r_pow4 + 17*r_pow5) + L_pow6*(576*M_pow5 - 3912*M_pow4*r - 6364*M_pow3*r_pow2 + 2744*M_pow2*r_pow3 + 2631*M*r_pow4 + 81*r_pow5)) + a_pow8*r_pow2*(-10*r_pow4*twoM_plus_r_pow2*(400*M_pow4 + 276*M_pow3*r - 328*M_pow2*r_pow2 - 213*M*r_pow3 + 3*r_pow4) + L_pow6*(-2160*M_pow4 - 348*M_pow3*r + 1859*M_pow2*r_pow2 + 774*M*r_pow3 + 27*r_pow4) + L_pow2*r_pow2*(20032*M_pow6 - 12752*M_pow5*r - 46248*M_pow4*r_pow2 + 7480*M_pow3*r_pow3 + 30926*M_pow2*r_pow4 + 8691*M*r_pow5 - 272*r_pow6) + 2*L_pow4*(3840*M_pow6 - 2432*M_pow5*r - 16138*M_pow4*r_pow2 - 1563*M_pow3*r_pow3 + 9422*M_pow2*r_pow4 + 3440*M*r_pow5 + 47*r_pow6)) - a_pow10*r*twoM_plus_r*(2*L_pow4*(1992*M_pow4 + 448*M_pow3*r - 1765*M_pow2*r_pow2 - 771*M*r_pow3 - 18*r_pow4) + 2*r_pow2*twoM_plus_r_pow2*(400*M_pow4 + 276*M_pow3*r - 718*M_pow2*r_pow2 - 420*M*r_pow3 + 69*r_pow4) + L_pow2*(-5376*M_pow6 - 960*M_pow5*r + 14032*M_pow4*r_pow2 + 364*M_pow3*r_pow3 - 11152*M_pow2*r_pow4 - 3875*M*r_pow5 + 73*r_pow6)) - 6*E_pow2*M*pow(r_pow3 + a_pow2*twoM_plus_r,2)*(35*a_pow10*twoM_plus_r_pow3 + r_pow9*(30*L_pow4 + 30*L_pow2*r_pow2 + 7*r_pow4) + a_pow2*r_pow6*(7*r_pow4*(-2*M + 9*r) + 3*L_pow4*(4*M + 39*r) + 2*L_pow2*r_pow2*(11*M + 90*r)) + 2*a_pow4*r_pow3*(7*r_pow4*(-18*M_pow2 + 12*M*r + 13*r_pow2) + L_pow4*(-12*M_pow2 + 57*M*r + 69*r_pow2) + L_pow2*r_pow2*(-118*M_pow2 + 199*M*r + 178*r_pow2)) + a_pow8*r*twoM_plus_r*(2*L_pow2*(83*M + 43*r) - 7*(32*M_pow3 + 8*M_pow2*r - 46*M*r_pow2 - 21*r_pow3)) + a_pow6*r_pow2*(L_pow4*(90*M + 51*r) + 14*r_pow2*(-44*M_pow3 - 6*M_pow2*r + 42*M*r_pow2 + 17*r_pow3) + L_pow2*(-320*M_pow3 + 112*M_pow2*r + 714*M*r_pow2 + 292*r_pow3))) + 2*a*E*L*M*(6*a_pow12*(70*M - 9*r)*twoM_plus_r_pow4 + 3*r_pow12*(3*L_pow4*(78*M - 19*r) + L_pow2*(246*M - 73*r)*r_pow2 + 2*r_pow4*(-6*M + 5*r)) + a_pow2*r_pow9*(L_pow2*r_pow2*(2136*M_pow2 + 2848*M*r - 929*r_pow2) + 6*L_pow4*(282*M_pow2 + 346*M*r - 95*r_pow2) + 48*r_pow4*(-20*M_pow2 + 13*M*r + 2*r_pow2)) + 2*a_pow4*r_pow6*(L_pow2*r_pow2*(-1116*M_pow3 + 5670*M_pow2*r + 2446*M*r_pow2 - 825*r_pow3) + L_pow4*(90*M_pow3 + 2691*M_pow2*r + 1238*M*r_pow2 - 373*r_pow3) + 3*r_pow4*(-1040*M_pow3 + 232*M_pow2*r + 474*M*r_pow2 + 5*r_pow3)) + a_pow10*r*twoM_plus_r_pow2*(L_pow2*(1992*M_pow2 + 740*M*r - 177*r_pow2) - 48*(56*M_pow4 + 12*M_pow3*r - 98*M_pow2*r_pow2 - 35*M*r_pow3 + 5*r_pow4)) - 2*a_pow6*r_pow3*(24*r_pow4*(360*M_pow4 + 88*M_pow3*r - 250*M_pow2*r_pow2 - 92*M*r_pow3 + 5*r_pow4) + L_pow4*(288*M_pow4 - 1518*M_pow3*r - 2938*M_pow2*r_pow2 - 628*M*r_pow3 + 235*r_pow4) + L_pow2*r_pow2*(5472*M_pow4 - 4752*M_pow3*r - 11002*M_pow2*r_pow2 - 2112*M*r_pow3 + 783*r_pow4)) + a_pow8*r_pow2*(L_pow4*(2160*M_pow3 + 1866*M_pow2*r + 146*M*r_pow2 - 123*r_pow3) - 6*r_pow2*twoM_plus_r_pow2*(920*M_pow3 - 252*M_pow2*r - 754*M*r_pow2 + 65*r_pow3) + L_pow2*(-7680*M_pow5 - 64*M_pow4*r + 23656*M_pow3*r_pow2 + 17044*M_pow2*r_pow3 + 1474*M*r_pow4 - 803*r_pow5))))*ur_pow6 + 3*r_pow10*(r_pow3 + a_pow2*twoM_plus_r)*(2*a_pow8*M*twoM_plus_r_pow2*(43*L_pow2 + 7*twoM_plus_r_pow2) + 2*r_pow8*(L_pow4*(48*M - 9*r) + 7*M*r_pow4 + 3*L_pow2*r_pow2*(8*M + r)) + a_pow2*r_pow5*(56*M*r_pow4*twoM_plus_r + 3*L_pow4*(2*M_pow2 + 87*M*r - 9*r_pow2) + 2*L_pow2*r_pow2*(96*M_pow2 + 131*M*r + 9*r_pow2)) + a_pow6*r*(56*M*r_pow2*twoM_plus_r_pow3 + 3*L_pow4*M*(75*M + 41*r) + 2*L_pow2*r*(284*M_pow3 + 468*M_pow2*r + 169*M*r_pow2 + 3*r_pow3)) + a_pow4*r_pow2*(84*M*r_pow4*twoM_plus_r_pow2 - 3*L_pow4*(46*M_pow3 - 77*M_pow2*r - 102*M*r_pow2 + 3*r_pow3) + 2*L_pow2*r_pow2*(96*M_pow3 + 392*M_pow2*r + 233*M*r_pow2 + 9*r_pow3)))*ur_pow8))/(48.*pow(a_pow2 + r*r_minus_twoM,6)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5));
A6000 = (r_pow6*pow(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2)),3))/(pow(a_pow2 + r*r_minus_twoM,6)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3));
A6001 = -(r_pow4*ur*pow(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2)),2)*(2*a_pow7*E*M*twoM_plus_r_pow2 + 2*a_pow5*E*M*r_pow2*(12*M_pow2 + 16*M*r + 5*r_pow2) + a_pow6*L*(-8*M_pow3 + 4*M*r_pow2 + r_pow3) + 6*a*E*M*r_pow4*(-L_pow4 + r_pow4) + 2*a_pow3*E*M*r_pow2*(-L_pow4 + r_pow3*(12*M + 7*r)) + a_pow4*L*r_pow2*(-28*M_pow3 + 2*r_pow3 + 2*L_pow2*(3*M + r) + M*r_pow2*(3 - 2*ur_pow2) - 4*M_pow2*r*(5 + ur_pow2)) - L*r_pow4*(L_pow4*(-3*M + 2*r) + r_pow4*(M - 2*r*ur_pow2) + L_pow2*r_pow2*(-2*M + r*(2 + ur_pow2))) + a_pow2*L*r_pow2*(L_pow4*twoM_plus_r + L_pow2*M*r*(-8*M + r*ur_pow2) + r_pow3*(-16*M_pow2 + 2*M*r*(-1 + ur_pow2) + r_pow2*(1 + 2*ur_pow2)))))/(2.*pow(a_pow2 + r*r_minus_twoM,6)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),4));
A6020 = (-8*a*E*L*M*pow(a_pow2 + r*r_minus_twoM,3)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5)*(3*a_pow4*(5*M + r) + 2*a_pow2*r*(3*L_pow2 - 8*M_pow2 + 2*M*r + 3*r_pow2) + r_pow2*(L_pow2*(-4*M + 6*r) + r_pow2*(-11*M + 15*r))) + 4*E_pow2*M*pow(a_pow2 + r*r_minus_twoM,3)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5)*(4*L_pow2*r_pow5 + 5*r_pow7 + 3*a_pow6*(5*M + 3*r) + a_pow4*r*(6*L_pow2 - 16*M_pow2 + 2*M*r + 23*r_pow2) + a_pow2*r_pow2*(L_pow2*(-4*M + 10*r) + r_pow2*(-25*M + 19*r))) - pow(a_pow2 + r*r_minus_twoM,3)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5)*(3*a_pow6*(6*M - r)*r + r_pow2*(8*L_pow4*M*twoM_minus_r + M*r_pow4*(-43*M + 32*r) - 3*L_pow2*r_pow2*(M_pow2 + 4*M*r - 4*r_pow2)) - a_pow4*(3*L_pow2*(20*M_pow2 - 4*M*r + r_pow2) + r_pow2*(32*M_pow2 - 14*M*r + 39*r_pow2)) + a_pow2*r*(-24*L_pow4*M + L_pow2*(64*M_pow3 - 24*M_pow2*r + 30*M*r_pow2 - 48*r_pow3) + r_pow2*(34*M_pow3 - 39*M_pow2*r + 94*M*r_pow2 - 36*r_pow3))) + r_pow2*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(-12*a_pow9*E*L*M*(72*M_pow3 + 86*M_pow2*r + 45*M*r_pow2 + 10*r_pow3) - 12*a_pow7*E*L*M*r*(-64*M_pow4 + 53*L_pow2*M*r + 12*M_pow3*r + 23*L_pow2*r_pow2 + 42*M_pow2*r_pow2 + 83*M*r_pow3 + 43*r_pow4) + 12*a*E*L*M*r_pow6*(L_pow4*(7*M - 6*r) + L_pow2*(181*M - 105*r)*r_pow2 + (70*M - 51*r)*r_pow4) + 6*a_pow10*twoM_plus_r_pow2*(r_pow2 + 2*E_pow2*M*(9*M + 4*r)) + 12*a_pow3*E*L*M*r_pow3*(L_pow2*r_pow2*(536*M_pow2 + 109*M*r - 169*r_pow2) + r_pow4*(62*M_pow2 - 5*M*r - 125*r_pow2) + L_pow4*(16*M_pow2 - 9*M*r - 25*r_pow2)) + r_pow6*(L_pow2*r_pow4*(-185*M_pow2 + 4*(61 + 6*E_pow2)*M*r - 96*r_pow2) + 2*r_pow6*(47*M_pow2 + 2*(-23 + 6*E_pow2)*M*r + 6*r_pow2) + L_pow6*(-37*M_pow2 - 4*M*r + 12*r_pow2) - 4*L_pow4*r_pow2*(115*M_pow2 - (119 + 6*E_pow2)*M*r + 33*r_pow2)) - 12*a_pow5*E*L*M*r_pow2*(L_pow4*(18*M + 13*r) - 3*L_pow2*(32*M_pow3 + 136*M_pow2*r + M*r_pow2 - 29*r_pow3) + r_pow2*(124*M_pow3 + 46*M_pow2*r + 113*M*r_pow2 + 107*r_pow3)) + a_pow4*r_pow2*(3*L_pow6*(36*M_pow2 + 36*M*r + r_pow2) - 4*L_pow4*(144*M_pow4 + 24*(26 + E_pow2)*M_pow3*r - (109 + 42*E_pow2)*M_pow2*r_pow2 - 5*(37 + 6*E_pow2)*M*r_pow3 - 39*r_pow4) + 6*r_pow4*(92*M_pow4 + 4*(5 + 18*E_pow2)*M_pow3*r + 9*(-17 + 16*E_pow2)*M_pow2*r_pow2 + 2*(-5 + 28*E_pow2)*M*r_pow3 + 37*r_pow4) + L_pow2*r_pow2*(1468*M_pow4 - 4*(391 + 984*E_pow2)*M_pow3*r - 9*(29 + 288*E_pow2)*M_pow2*r_pow2 + 12*(67 + 30*E_pow2)*M*r_pow3 + 351*r_pow4)) + 2*a_pow6*r*(6*L_pow4*r*((37 + 9*E_pow2)*M_pow2 + (13 + 4*E_pow2)*M*r + r_pow2) + r_pow2*(88*M_pow5 + 4*(25 + 6*E_pow2)*M_pow4*r + 18*(-23 + 36*E_pow2)*M_pow3*r_pow2 + (-205 + 708*E_pow2)*M_pow2*r_pow3 + 4*(53 + 48*E_pow2)*M*r_pow4 + 105*r_pow5) - L_pow2*(192*M_pow5 + 8*(53 + 150*E_pow2)*M_pow3*r_pow2 + 26*(-19 + 12*E_pow2)*M_pow2*r_pow3 - (491 + 156*E_pow2)*M*r_pow4 - 123*r_pow5 + 72*M_pow4*(r + 4*E_pow2*r))) + 2*a_pow2*r_pow3*(2*L_pow4*r_pow2*(-572*M_pow3 + 3*(25 + 9*E_pow2)*M_pow2*r + (133 + 24*E_pow2)*M*r_pow2 + 3*r_pow3) - L_pow6*(48*M_pow3 + 30*M_pow2*r - 61*M*r_pow2 + 6*r_pow3) + r_pow6*(210*M_pow3 + 3*(-29 + 34*E_pow2)*M_pow2*r + 4*(-37 + 18*E_pow2)*M*r_pow2 + 48*r_pow3) + L_pow2*r_pow4*(-310*M_pow3 + 3*(23 + 28*E_pow2)*M*r_pow2 + 12*r_pow3 - 3*M_pow2*(r + 296*E_pow2*r))) + a_pow8*(3*L_pow2*(144*M_pow4 + 136*M_pow3*r + 16*(5 + 4*E_pow2)*M_pow2*r_pow2 + 8*(3 + 4*E_pow2)*M*r_pow3 + 5*r_pow4) + 2*r*twoM_plus_r*(-12*E_pow2*M*(8*M_pow3 - 10*M_pow2*r - 26*M*r_pow2 - 9*r_pow3) + r*(-64*M_pow3 - 16*M_pow2*r + 74*M*r_pow2 + 39*r_pow3))))*ur_pow2 + r_pow4*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(4*E_pow2*M*(r_pow4*r_minus_twoM + a_pow4*twoM_plus_r + a_pow2*(-4*M_pow2*r + 2*r_pow3))*(-9*L_pow2*r_pow11 + r_pow13 + 3*a_pow10*twoM_plus_r_pow2*(4*M + r) + a_pow8*r*twoM_plus_r*(-16*M_pow3 + 72*M_pow2*r + 78*M*r_pow2 + 13*r_pow3 + 9*L_pow2*r_minus_twoM) + a_pow2*r_pow6*(7*r_pow4*(8*M + r) - 18*L_pow2*r_pow2*(22*M + r) + 3*L_pow4*(5*M + 2*r)) + 6*a_pow4*r_pow3*(-6*L_pow2*M*r_pow2*(23*M + 18*r) + L_pow4*(-4*M_pow2 + 3*M*r + 2*r_pow2) + r_pow4*(34*M_pow2 + 28*M*r + 3*r_pow2)) + a_pow6*r_pow2*(3*L_pow4*(5*M + 2*r) - 18*L_pow2*(8*M_pow3 + 32*M_pow2*r + 14*M*r_pow2 - r_pow3) + 2*r_pow2*(88*M_pow3 + 186*M_pow2*r + 96*M*r_pow2 + 11*r_pow3))) - 4*a*E*L*M*(a_pow2 + r*r_minus_twoM)*(6*a_pow10*twoM_plus_r_pow2*(8*M_pow2 + 14*M*r + 7*r_pow2) + a_pow8*r*twoM_plus_r*(-64*M_pow4 - 72*M_pow3*r + 96*M_pow2*r_pow2 + 418*M*r_pow3 + 204*r_pow4 + L_pow2*(-72*M_pow2 + 70*M*r + 81*r_pow2)) + a_pow2*r_pow6*(-388*M_pow2*r_pow4 + 28*M*r_pow5 + 366*r_pow6 - 3*L_pow4*(52*M_pow2 + 5*M*r - 27*r_pow2) + L_pow2*r_pow2*(-2940*M_pow2 - 799*M*r + 1235*r_pow2)) + r_pow9*(9*L_pow4*(-3*M + r) + 2*r_pow4*(-67*M + 48*r) + L_pow2*(-951*M*r_pow2 + 480*r_pow3)) + a_pow4*r_pow3*(-3*L_pow4*(32*M_pow3 + 32*M_pow2*r - 57*M*r_pow2 - 37*r_pow3) + 12*r_pow4*(2*M_pow3 - 19*M_pow2*r + 65*M*r_pow2 + 47*r_pow3) + L_pow2*r_pow2*(-2364*M_pow3 - 3760*M_pow2*r + 343*M*r_pow2 + 1111*r_pow3)) + a_pow6*r_pow2*(3*L_pow4*(20*M_pow2 + 37*M*r + 13*r_pow2) + 4*r_pow2*(116*M_pow4 + 24*M_pow3*r + 135*M_pow2*r_pow2 + 298*M*r_pow3 + 114*r_pow4) + L_pow2*(-576*M_pow4 - 2500*M_pow3*r - 1896*M_pow2*r_pow2 + 423*M*r_pow3 + 437*r_pow4))) + (a_pow2 + r*r_minus_twoM)*(3*a_pow12*r*twoM_plus_r_pow3*(18*M + r) + r_pow9*(L_pow2*r_pow4*(-439*M_pow2 + 464*M*r - 132*r_pow2) - 3*L_pow6*(11*M_pow2 + 10*M*r - 8*r_pow2) + r_pow6*(59*M_pow2 - 88*M*r + 24*r_pow2) - 3*L_pow4*r_pow2*(437*M_pow2 - 434*M*r + 109*r_pow2)) - a_pow2*r_pow6*(2*r_pow6*(-272*M_pow3 + 228*M_pow2*r + 79*M*r_pow2 - 54*r_pow3) + 3*L_pow6*(58*M_pow3 + 77*M_pow2*r - 64*M*r_pow2 - 2*r_pow3) + 12*L_pow4*r_pow2*(362*M_pow3 + 19*M_pow2*r - 186*M*r_pow2 + 41*r_pow3) + L_pow2*r_pow4*(74*M_pow3 + 1077*M_pow2*r - 974*M*r_pow2 + 204*r_pow3)) + a_pow10*twoM_plus_r*(-896*M_pow4*r_pow2 - 600*M_pow3*r_pow3 + 456*M_pow2*r_pow4 + 314*M*r_pow5 + 24*r_pow6 + 3*L_pow2*(64*M_pow4 + 208*M_pow3*r + 208*M_pow2*r_pow2 + 76*M*r_pow3 + 3*r_pow4)) + a_pow4*r_pow3*(2*L_pow4*r_pow2*(-840*M_pow4 - 3832*M_pow3*r + 611*M_pow2*r_pow2 + 1410*M*r_pow3 + 3*r_pow4) - 3*L_pow6*(64*M_pow4 + 144*M_pow3*r - 50*M_pow2*r_pow2 - 100*M*r_pow3 + 5*r_pow4) + 3*L_pow2*r_pow4*(916*M_pow4 - 1468*M_pow3*r - 583*M_pow2*r_pow2 + 758*M*r_pow3 + 63*r_pow4) + r_pow6*(1848*M_pow4 - 408*M_pow3*r - 1358*M_pow2*r_pow2 + 200*M*r_pow3 + 195*r_pow4)) + a_pow6*r_pow2*(3*L_pow6*(40*M_pow3 + 112*M_pow2*r + 56*M*r_pow2 + r_pow3) - 4*L_pow4*(288*M_pow5 + 1204*M_pow4*r + 1006*M_pow3*r_pow2 - 763*M_pow2*r_pow3 - 558*M*r_pow4 - 45*r_pow5) + 4*r_pow4*(688*M_pow5 + 256*M_pow4*r - 750*M_pow3*r_pow2 - 187*M_pow2*r_pow3 + 185*M*r_pow4 + 45*r_pow5) + L_pow2*r_pow2*(2152*M_pow5 - 3812*M_pow4*r - 6618*M_pow3*r_pow2 + 2837*M_pow2*r_pow3 + 3728*M*r_pow4 + 471*r_pow5)) + a_pow8*r*(L_pow4*(-288*M_pow4 + 416*M_pow3*r + 993*M_pow2*r_pow2 + 342*M*r_pow3 + 9*r_pow4) + r_pow2*(1520*M_pow6 + 1440*M_pow5*r - 3112*M_pow4*r_pow2 - 2408*M_pow3*r_pow3 + 819*M_pow2*r_pow4 + 760*M*r_pow5 + 90*r_pow6) + L_pow2*(-256*M_pow6 - 1728*M_pow5*r - 2768*M_pow4*r_pow2 + 2104*M_pow3*r_pow3 + 5028*M_pow2*r_pow4 + 2210*M*r_pow5 + 219*r_pow6))))*ur_pow4 + r_pow7*(36*a_pow16*M*twoM_plus_r_pow5 + r_pow12*(L_pow2 + r_pow2)*(-4*L_pow2*r_pow4*(28*M_pow2 - 20*M*r + 3*r_pow2) + 4*r_pow6*(2*M_pow2 - 7*M*r + 3*r_pow2) + L_pow6*(-16*M_pow2 - 22*M*r + 15*r_pow2) - 2*L_pow4*r_pow2*(638*M_pow2 - 613*M*r + 147*r_pow2)) + a_pow2*r_pow9*(-6*L_pow8*(14*M_pow3 + 41*M_pow2*r - 21*M*r_pow2 - 4*r_pow3) + 4*L_pow2*r_pow6*(184*M_pow3 - 396*M_pow2*r + 141*M*r_pow2 + 12*r_pow3) + 4*r_pow8*(48*M_pow3 - 78*M_pow2*r + 2*M*r_pow2 + 15*r_pow3) - 2*L_pow4*r_pow4*(2390*M_pow3 + 519*M_pow2*r - 1984*M*r_pow2 + 549*r_pow3) - L_pow6*r_pow2*(3128*M_pow3 + 1152*M_pow2*r - 2968*M*r_pow2 + 777*r_pow3)) + 4*a_pow14*twoM_plus_r_pow3*(3*L_pow2*M*(34*M_pow2 + 52*M*r + 21*r_pow2) + r*(-128*M_pow4 - 84*M_pow3*r + 90*M_pow2*r_pow2 + 44*M*r_pow3 - 3*r_pow4)) - 8*E_pow2*L_pow2*M*r*pow(r_pow3 + a_pow2*twoM_plus_r,4)*(3*a_pow4*twoM_plus_r_pow2 + 2*a_pow2*r*twoM_plus_r*(2*L_pow2 + 3*r_pow2) + r_pow2*(L_pow4 + 4*L_pow2*r_pow2 + 3*r_pow4)) + a_pow4*r_pow6*(L_pow6*r_pow2*(756*M_pow4 - 9500*M_pow3*r + 769*M_pow2*r_pow2 + 4098*M*r_pow3 - 657*r_pow4) + L_pow8*(-60*M_pow4 - 708*M_pow3*r - 45*M_pow2*r_pow2 + 336*M*r_pow3 + 3*r_pow4) + 12*r_pow8*(120*M_pow4 - 80*M_pow3*r - 64*M_pow2*r_pow2 + 32*M*r_pow3 + 9*r_pow4) + 4*L_pow2*r_pow6*(1756*M_pow4 - 1762*M_pow3*r - 924*M_pow2*r_pow2 + 693*M*r_pow3 + 60*r_pow4) - 2*L_pow4*r_pow4*(336*M_pow4 + 8704*M_pow3*r - 1419*M_pow2*r_pow2 - 3383*M*r_pow3 + 666*r_pow4)) + a_pow6*r_pow3*(4*L_pow4*r_pow4*(2468*M_pow5 - 6802*M_pow4*r - 6898*M_pow3*r_pow2 + 3571*M_pow2*r_pow3 + 2512*M*r_pow4 - 117*r_pow5) + L_pow6*r_pow2*(3176*M_pow5 - 7956*M_pow4*r - 10366*M_pow3*r_pow2 + 5487*M_pow2*r_pow3 + 4492*M*r_pow4 - 99*r_pow5) - 2*L_pow8*(64*M_pow5 + 280*M_pow4*r + 240*M_pow3*r_pow2 - 208*M_pow2*r_pow3 - 145*M*r_pow4 + 3*r_pow5) + 4*r_pow8*(1280*M_pow5 + 80*M_pow4*r - 960*M_pow3*r_pow2 + 10*M_pow2*r_pow3 + 214*M*r_pow4 + 15*r_pow5) + 4*L_pow2*r_pow6*(4040*M_pow5 - 2500*M_pow4*r - 6038*M_pow3*r_pow2 + 758*M_pow2*r_pow3 + 1685*M*r_pow4 + 120*r_pow5)) + 2*a_pow12*r*twoM_plus_r_pow2*(L_pow4*M*(208*M_pow2 + 531*M*r + 249*r_pow2) + L_pow2*(-816*M_pow5 - 1304*M_pow4*r + 756*M_pow3*r_pow2 + 2232*M_pow2*r_pow3 + 926*M*r_pow4 + 24*r_pow5) + 2*r*(224*M_pow6 + 192*M_pow5*r - 632*M_pow4*r_pow2 - 416*M_pow3*r_pow3 + 204*M_pow2*r_pow4 + 92*M*r_pow5 - 15*r_pow6)) + a_pow8*r_pow2*(3*L_pow8*M*r*(72*M_pow2 + 105*M*r + 34*r_pow2) + 20*r_pow6*(480*M_pow6 + 336*M_pow5*r - 368*M_pow4*r_pow2 - 216*M_pow3*r_pow3 + 84*M_pow2*r_pow4 + 38*M*r_pow5 - 3*r_pow6) + L_pow6*(-1024*M_pow6 - 2432*M_pow5*r - 6424*M_pow4*r_pow2 + 592*M_pow3*r_pow3 + 6451*M_pow2*r_pow4 + 2542*M*r_pow5 + 60*r_pow6) + 2*L_pow4*r_pow2*(2816*M_pow6 - 8592*M_pow5*r - 21708*M_pow4*r_pow2 - 800*M_pow3*r_pow3 + 12948*M_pow2*r_pow4 + 4819*M*r_pow5 + 99*r_pow6) + 4*L_pow2*r_pow4*(3056*M_pow6 - 2976*M_pow5*r - 11880*M_pow4*r_pow2 - 2948*M_pow3*r_pow3 + 4782*M_pow2*r_pow4 + 2175*M*r_pow5 + 120*r_pow6)) + a_pow10*r*twoM_plus_r*(L_pow6*M*r*(224*M_pow2 + 825*M*r + 384*r_pow2) + 12*r_pow4*(384*M_pow6 + 304*M_pow5*r - 456*M_pow4*r_pow2 - 292*M_pow3*r_pow3 + 106*M_pow2*r_pow4 + 44*M*r_pow5 - 9*r_pow6) + 4*L_pow2*r_pow2*(112*M_pow6 - 2112*M_pow5*r - 4632*M_pow4*r_pow2 - 328*M_pow3*r_pow3 + 3186*M_pow2*r_pow4 + 1383*M*r_pow5 + 60*r_pow6) + L_pow4*(-768*M_pow6 - 2816*M_pow5*r - 7000*M_pow4*r_pow2 + 1472*M_pow3*r_pow3 + 9274*M_pow2*r_pow4 + 3940*M*r_pow5 + 126*r_pow6)) - 4*a*E*L*M*(r_pow3 + a_pow2*twoM_plus_r)*(3*a_pow12*twoM_plus_r_pow3*(17*M + 6*r) + a_pow10*r*twoM_plus_r_pow2*(-204*M_pow3 + 90*M_pow2*r + 327*M*r_pow2 + 93*r_pow3 + L_pow2*(52*M + 48*r)) + r_pow9*(L_pow2 + r_pow2)*(27*twoM_minus_r*r_pow4 + L_pow4*(-14*M + 3*r) + 3*L_pow2*r_pow2*(-146*M + 69*r)) - a_pow2*r_pow6*(4*L_pow2*r_pow4*(390*M_pow2 + 103*M*r - 170*r_pow2) + 4*L_pow4*r_pow2*(216*M_pow2 + 115*M*r - 140*r_pow2) + L_pow6*(98*M_pow2 + 25*M*r - 24*r_pow2) + 3*r_pow6*(-54*M_pow2 - 13*M*r + 29*r_pow2)) - a_pow4*r_pow3*(4*L_pow4*r_pow2*(12*M_pow3 + 250*M_pow2*r - 25*M*r_pow2 - 133*r_pow3) + 8*L_pow2*r_pow4*(216*M_pow3 + 315*M_pow2*r - 98*M*r_pow2 - 126*r_pow3) + L_pow6*(32*M_pow3 + 86*M_pow2*r - 28*M*r_pow2 - 33*r_pow3) + 3*r_pow6*(108*M_pow3 + 10*M_pow2*r - 5*M*r_pow2 + 20*r_pow3)) + a_pow8*r*twoM_plus_r*(14*L_pow4*r*(2*M + 3*r) - 4*L_pow2*(48*M_pow4 + 124*M_pow3*r + 102*M_pow2*r_pow2 - 94*M*r_pow3 - 71*r_pow4) + 3*r_pow2*(-216*M_pow4 - 368*M_pow3*r + 80*M_pow2*r_pow2 + 230*M*r_pow3 + 55*r_pow4)) + a_pow6*r_pow2*(3*L_pow6*r*(9*M + 4*r) - 4*L_pow4*(64*M_pow4 + 124*M_pow3*r + 132*M_pow2*r_pow2 - 55*M*r_pow3 - 56*r_pow4) + 6*r_pow4*(-252*M_pow4 - 276*M_pow3*r + 30*M_pow2*r_pow2 + 85*M*r_pow3 + 15*r_pow4) + 8*L_pow2*r_pow2*(-60*M_pow4 - 318*M_pow3*r - 127*M_pow2*r_pow2 + 189*M*r_pow3 + 93*r_pow4))))*ur_pow6 + L_pow2*r_pow10*(r_pow3 + a_pow2*twoM_plus_r)*(36*a_pow10*M*twoM_plus_r_pow2*(5*M + 2*r) + r_pow9*(L_pow2*(206*M - 87*r)*r_pow2 + 12*r_pow4*(-4*M + 3*r) + L_pow4*(2*M + 3*r)) + 3*a_pow8*M*r*twoM_plus_r*(-176*M_pow3 + 228*M*r_pow2 + 80*r_pow3 + L_pow2*(35*M + 32*r)) + a_pow2*r_pow6*(6*L_pow2*(61*M - 29*r)*r_pow3 + L_pow4*(-4*M_pow2 + 34*M*r + 3*r_pow2) + 12*r_pow4*(-8*M_pow2 + 8*M*r + 9*r_pow2)) + a_pow4*r_pow3*(5*L_pow4*M*(-14*M_pow2 + 7*M*r + 10*r_pow2) + 3*L_pow2*r_pow2*(-302*M_pow3 + 99*M_pow2*r + 186*M*r_pow2 - 29*r_pow3) + 36*r_pow4*(-2*M_pow3 + 13*M_pow2*r + 12*M*r_pow2 + 3*r_pow3)) + a_pow6*r_pow2*(3*L_pow4*M*(17*M + 8*r) + 2*L_pow2*M*(-82*M_pow3 + 471*M*r_pow2 + 247*r_pow3) + 12*r_pow2*(-56*M_pow4 + 48*M_pow3*r + 105*M_pow2*r_pow2 + 38*M*r_pow3 + 3*r_pow4)))*ur_pow8)/(6.*pow(a_pow2 + r*r_minus_twoM,7)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5));
A6021 = (ur*(-24*a*E_pow3*M_pow2*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5)*(3*a_pow10*(6*M_pow2 + 7*M*r + 2*r_pow2) + 2*r_pow8*(-7*L_pow4 - 6*L_pow2*r_pow2 + 9*r_pow4) - a_pow2*r_pow5*(3*(3*M - 28*r)*r_pow4 + 3*L_pow2*r_pow2*(-83*M + 19*r) + L_pow4*(10*M + 33*r)) + 3*a_pow6*r_pow2*(-L_pow4 + L_pow2*(4*M_pow2 + M*r - 17*r_pow2) + 2*r_pow2*(13*M_pow2 + 42*M*r + 21*r_pow2)) + a_pow4*r_pow3*(-2*L_pow4*(7*M + 11*r) + 3*L_pow2*r*(20*M_pow2 + 63*M*r - 29*r_pow2) + 6*r_pow3*(-15*M_pow2 + 19*M*r + 25*r_pow2)) + 3*a_pow8*r*(-3*L_pow2*(M + r) + 2*(8*M_pow3 + 23*M_pow2*r + 25*M*r_pow2 + 8*r_pow3))) + 2*E_pow2*L*M*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5)*(a_pow10*(648*M_pow3 + 376*M_pow2*r + 276*M*r_pow2 + 147*r_pow3) + r_pow8*(r_pow4*(-112*M + 79*r) + L_pow4*(-228*M + 120*r) + L_pow2*r_pow2*(-372*M + 203*r)) + a_pow8*r*(1728*M_pow4 + 3532*M_pow3*r - 150*M_pow2*r_pow2 - 386*M*r_pow3 + 635*r_pow4 + L_pow2*(-324*M_pow2 + 270*M*r + 249*r_pow2)) + a_pow2*r_pow5*(-6*L_pow4*(18*M_pow2 + 155*M*r - 60*r_pow2) + 6*L_pow2*r_pow2*(895*M_pow2 - 887*M*r + 158*r_pow2) + r_pow4*(2694*M_pow2 - 1030*M*r + 431*r_pow2)) + 2*a_pow4*r_pow3*(-9*L_pow4*(28*M_pow2 + 43*M*r - 19*r_pow2) + r_pow3*(750*M_pow3 + 2719*M_pow2*r - 1455*M*r_pow2 + 483*r_pow3) + L_pow2*r*(1380*M_pow3 + 1784*M_pow2*r - 1809*M*r_pow2 + 768*r_pow3)) + 2*a_pow6*r_pow2*(L_pow4*(-54*M + 51*r) + L_pow2*(216*M_pow3 - 583*M_pow2*r - 195*M*r_pow2 + 520*r_pow3) + r*(416*M_pow4 + 2936*M_pow3*r + 861*M_pow2*r_pow2 - 1327*M*r_pow3 + 551*r_pow4))) + 2*a*E*M*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5)*(-23*a_pow10*r*(-4*M_pow2 + 4*M*r + 3*r_pow2) - r_pow5*(24*L_pow6*(6*M_pow2 - 28*M*r + 13*r_pow2) + 3*r_pow6*(227*M_pow2 - 180*M*r + 28*r_pow2) + 20*L_pow2*r_pow4*(142*M_pow2 - 145*M*r + 42*r_pow2) + L_pow4*r_pow2*(3711*M_pow2 - 5224*M*r + 1788*r_pow2)) + a_pow8*(r_pow2*(160*M_pow3 + 1680*M_pow2*r + 178*M*r_pow2 - 403*r_pow3) - 4*L_pow2*(162*M_pow3 - M_pow2*r + 257*M*r_pow2 + 111*r_pow3)) - a_pow2*r_pow3*(-12*L_pow6*(42*M_pow2 + 63*M*r - 43*r_pow2) + 4*L_pow2*r_pow3*(1502*M_pow3 + 994*M_pow2*r - 1618*M*r_pow2 + 559*r_pow3) + r_pow5*(492*M_pow3 + 1177*M_pow2*r - 2162*M*r_pow2 + 618*r_pow3) + L_pow4*r*(3360*M_pow3 + 1481*M_pow2*r - 4958*M*r_pow2 + 1398*r_pow3)) - a_pow6*r*(L_pow4*(-324*M_pow2 + 864*M*r + 579*r_pow2) + 4*L_pow2*(432*M_pow4 + 524*M_pow3*r - 1618*M_pow2*r_pow2 + 218*M*r_pow3 + 481*r_pow4) + r_pow2*(604*M_pow4 + 3292*M_pow3*r - 1913*M_pow2*r_pow2 - 1034*M*r_pow3 + 1049*r_pow4)) - a_pow4*r_pow2*(-12*L_pow6*(9*M - 17*r) + L_pow4*(432*M_pow3 - 2440*M_pow2*r + 206*M*r_pow2 + 1719*r_pow3) + 4*L_pow2*r*(416*M_pow4 + 2476*M_pow3*r - 2045*M_pow2*r_pow2 - 1172*M*r_pow3 + 719*r_pow4) + r_pow3*(-1740*M_pow4 + 2584*M_pow3*r - 509*M_pow2*r_pow2 - 2386*M*r_pow3 + 1249*r_pow4))) - L*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5)*(-(a_pow10*r*(-184*M_pow3 + 460*M_pow2*r + 150*M*r_pow2 + 9*r_pow3)) + r_pow5*(-12*L_pow6*M*(22*M_pow2 - 23*M*r + 6*r_pow2) + r_pow6*(37*M_pow3 - 132*M_pow2*r + 110*M*r_pow2 - 24*r_pow3) + 2*L_pow2*r_pow4*(-409*M_pow3 + 551*M_pow2*r - 264*M*r_pow2 + 48*r_pow3) + L_pow4*r_pow2*(-1503*M_pow3 + 2278*M_pow2*r - 1190*M*r_pow2 + 216*r_pow3)) - a_pow8*(r_pow2*(-320*M_pow4 - 3788*M_pow3*r + 912*M_pow2*r_pow2 + 215*M*r_pow3 - 66*r_pow4) + 2*L_pow2*(216*M_pow4 - 128*M_pow3*r + 824*M_pow2*r_pow2 + 303*M*r_pow3 + 9*r_pow4)) - a_pow2*r_pow3*(-12*L_pow6*M*(28*M_pow2 + 41*M*r - 29*r_pow2) + 4*L_pow2*r_pow3*(1298*M_pow4 + 38*M_pow3*r - 1015*M_pow2*r_pow2 + 307*M*r_pow3 + 30*r_pow4) + r_pow5*(2000*M_pow4 - 882*M_pow3*r - 533*M_pow2*r_pow2 + 134*M*r_pow3 + 36*r_pow4) + L_pow4*r*(2640*M_pow4 + 362*M_pow3*r - 3753*M_pow2*r_pow2 + 1006*M*r_pow3 + 300*r_pow4)) + a_pow4*r_pow2*(12*L_pow6*M*(6*M - 17*r) + L_pow4*(-288*M_pow4 + 2476*M_pow3*r + 32*M_pow2*r_pow2 - 1151*M*r_pow3 + 246*r_pow4) - 2*L_pow2*r*(832*M_pow5 + 4968*M_pow4*r - 5863*M_pow3*r_pow2 + 141*M_pow2*r_pow3 + 1189*M*r_pow4 - 57*r_pow5) + r_pow3*(3916*M_pow5 - 6412*M_pow4*r + 5873*M_pow3*r_pow2 - 606*M_pow2*r_pow3 - 741*M*r_pow4 + 84*r_pow5)) + a_pow6*r*(3*L_pow4*(72*M_pow3 - 324*M_pow2*r - 220*M*r_pow2 - 3*r_pow3) - 4*L_pow2*(288*M_pow5 + 110*M_pow4*r - 2261*M_pow3*r_pow2 + 652*M_pow2*r_pow3 + 241*M*r_pow4 - 78*r_pow5) + r_pow2*(-1208*M_pow5 - 6680*M_pow4*r + 6268*M_pow3*r_pow2 - 1951*M_pow2*r_pow3 - 562*M*r_pow4 + 171*r_pow5))) + r_pow2*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(-2*a_pow15*E*M*twoM_plus_r_pow3*(12*E_pow2*M*(8*M + 3*r) - r*(338*M + 147*r)) + 2*a*E*M*r_pow9*(L_pow6*r_pow2*(-23719*M_pow2 + 12*(2364 + 19*E_pow2)*M*r - 8388*r_pow2) + 3*r_pow8*(37*M_pow2 - 4*(24 + 19*E_pow2)*M*r + 44*r_pow2) - 6*L_pow8*(183*M_pow2 - 322*M*r + 114*r_pow2) + L_pow2*r_pow6*(1979*M_pow2 + 12*(-304 + 11*E_pow2)*M*r + 1152*r_pow2) - L_pow4*r_pow4*(12593*M_pow2 + 12*(-1283 + 11*E_pow2)*M*r + 4884*r_pow2)) + a_pow14*L*twoM_plus_r_pow2*(r*(-1352*M_pow3 - 1096*M_pow2*r - 24*M*r_pow2 + 9*r_pow3) + 4*E_pow2*M*(288*M_pow3 + 322*M_pow2*r + 429*M*r_pow2 + 105*r_pow3)) + L*r_pow9*(L_pow6*r_pow2*(9757*M_pow3 - 4*(3677 + 189*E_pow2)*M_pow2*r + 2*(3737 + 192*E_pow2)*M*r_pow2 - 1280*r_pow3) + L_pow4*r_pow4*(6959*M_pow3 - 2*(5041 + 770*E_pow2)*M_pow2*r + 2*(2533 + 390*E_pow2)*M*r_pow2 - 888*r_pow3) + 6*L_pow8*(145*M_pow3 - 124*M_pow2*r + 10*M*r_pow2 + 8*r_pow3) + r_pow8*(-1065*M_pow3 + 2*(815 - 134*E_pow2)*M_pow2*r + 2*(-445 + 96*E_pow2)*M*r_pow2 + 168*r_pow3) + L_pow2*r_pow6*(-2033*M_pow3 + 4*(1018 - 383*E_pow2)*M_pow2*r + 2*(-1259 + 414*E_pow2)*M*r_pow2 + 488*r_pow3)) + 2*a_pow3*E*M*r_pow6*(2*L_pow6*r_pow2*(-26807*M_pow3 + 42*(29 + 16*E_pow2)*M_pow2*r + 3*(6721 + 128*E_pow2)*M*r_pow2 - 7095*r_pow3) - 6*L_pow8*(280*M_pow3 - 451*M_pow2*r - 618*M*r_pow2 + 432*r_pow3) + r_pow8*(1680*M_pow3 - (2123 + 2712*E_pow2)*M_pow2*r - 2*(397 + 726*E_pow2)*M*r_pow2 + 906*r_pow3) + 2*L_pow2*r_pow6*(16001*M_pow3 + (-14299 + 8412*E_pow2)*M_pow2*r + (-731 + 168*E_pow2)*M*r_pow2 + 1075*r_pow3) - L_pow4*r_pow4*(-41268*M_pow3 + 3*(11251 + 5520*E_pow2)*M_pow2*r + 2*(-16535 + 102*E_pow2)*M*r_pow2 + 14062*r_pow3)) + a_pow2*L*r_pow6*(L_pow4*r_pow4*(-12228*M_pow4 + 12*(3583 + 5228*E_pow2)*M_pow3*r - (39509 + 43680*E_pow2)*M_pow2*r_pow2 + 2*(5691 + 2444*E_pow2)*M*r_pow3 - 228*r_pow4) + 6*L_pow8*(360*M_pow4 - 78*M_pow3*r - 573*M_pow2*r_pow2 + 286*M*r_pow3 - 12*r_pow4) + L_pow6*r_pow2*(24550*M_pow4 + (293 - 2256*E_pow2)*M_pow3*r - 3*(8957 + 828*E_pow2)*M_pow2*r_pow2 + 4*(2591 + 420*E_pow2)*M*r_pow3 + 52*r_pow4) + r_pow8*(-9936*M_pow4 + 2*(3647 - 7220*E_pow2)*M_pow3*r + (1875 + 9856*E_pow2)*M_pow2*r_pow2 + 2*(-1179 + 632*E_pow2)*M*r_pow3 + 420*r_pow4) + L_pow2*r_pow6*(-34474*M_pow4 + (46153 - 16168*E_pow2)*M_pow3*r - (12753 + 3620*E_pow2)*M_pow2*r_pow2 + 4*(-835 + 1313*E_pow2)*M*r_pow3 + 1356*r_pow4)) + 2*a_pow5*E*M*r_pow4*(6*L_pow8*(336*M_pow3 + 680*M_pow2*r + 172*M*r_pow2 - 369*r_pow3) + L_pow4*r_pow3*(171900*M_pow4 + 24*(1271 - 1398*E_pow2)*M_pow3*r - 7*(2809 + 4608*E_pow2)*M_pow2*r_pow2 + 2*(14725 + 108*E_pow2)*M*r_pow3 - 19057*r_pow4) + L_pow6*r*(-14944*M_pow4 + 30*(-2059 + 16*E_pow2)*M_pow3*r + 3*(7309 + 768*E_pow2)*M_pow2*r_pow2 + 12*(1865 + 74*E_pow2)*M*r_pow3 - 11553*r_pow4) + L_pow2*r_pow5*(22836*M_pow4 + 18*(-315 + 3704*E_pow2)*M_pow3*r + 12*(-4201 + 4102*E_pow2)*M_pow2*r_pow2 + 4*(1672 - 3*E_pow2)*M*r_pow3 - 2035*r_pow4) + r_pow7*(7416*M_pow4 - 8*(359 + 1410*E_pow2)*M_pow3*r - 2*(5179 + 6840*E_pow2)*M_pow2*r_pow2 + 2*(743 - 1938*E_pow2)*M*r_pow3 + 2779*r_pow4)) + a_pow4*L*r_pow4*(-6*L_pow8*(224*M_pow4 + 472*M_pow3*r + 266*M_pow2*r_pow2 - 385*M*r_pow3 - 6*r_pow4) + r_pow7*(-31176*M_pow5 - 8*(-97 + 2732*E_pow2)*M_pow4*r + 2*(15213 + 1348*E_pow2)*M_pow3*r_pow2 + 12*(-379 + 3204*E_pow2)*M_pow2*r_pow3 + (-3909 + 3860*E_pow2)*M*r_pow4 + 78*r_pow5) + L_pow2*r_pow5*(-92076*M_pow5 - 8*(-7447 + 27078*E_pow2)*M_pow4*r + (56911 - 48888*E_pow2)*M_pow3*r_pow2 + (-41647 + 7252*E_pow2)*M_pow2*r_pow3 + (4443 + 14012*E_pow2)*M*r_pow4 + 816*r_pow5) + L_pow6*r*(13024*M_pow5 + 12*(3123 + 20*E_pow2)*M_pow4*r - 6*(4865 + 1592*E_pow2)*M_pow3*r_pow2 - 531*(45 + 8*E_pow2)*M_pow2*r_pow3 + 51*(269 + 52*E_pow2)*M*r_pow4 + 924*r_pow5) + L_pow4*r_pow3*(-112404*M_pow5 + 4*(25003 + 34956*E_pow2)*M_pow4*r + (-3949 + 50328*E_pow2)*M_pow3*r_pow2 - 4*(14405 + 15981*E_pow2)*M_pow2*r_pow3 + 3*(7851 + 3764*E_pow2)*M*r_pow4 + 1362*r_pow5)) - 2*a_pow7*E*M*r_pow3*(L_pow8*(-288*M_pow2 + 528*M*r + 630*r_pow2) - 2*L_pow6*(576*M_pow4 + 24*(-251 + 14*E_pow2)*M_pow3*r + 2*(625 + 312*E_pow2)*M_pow2*r_pow2 + 6*(-675 + 32*E_pow2)*M*r_pow3 - 3855*r_pow4) + r_pow5*(-13056*M_pow5 + 24*(-247 + 868*E_pow2)*M_pow4*r + 48*(587 + 917*E_pow2)*M_pow3*r_pow2 + 2*(6691 + 14052*E_pow2)*M_pow2*r_pow3 + 20*(-500 + 279*E_pow2)*M*r_pow4 - 4843*r_pow5) + 2*L_pow2*r_pow3*(34756*M_pow5 - 24*(-909 + 1438*E_pow2)*M_pow4*r + 3*(4763 - 21744*E_pow2)*M_pow3*r_pow2 + (11123 - 25848*E_pow2)*M_pow2*r_pow3 + (1039 + 384*E_pow2)*M*r_pow4 + 3945*r_pow5) + L_pow4*r*(-4544*M_pow5 + 12*(-14479 + 160*E_pow2)*M_pow4*r + 60*(-899 + 540*E_pow2)*M_pow3*r_pow2 + 3*(-4271 + 6624*E_pow2)*M_pow2*r_pow3 + 2*(2267 - 276*E_pow2)*M*r_pow4 + 17345*r_pow5)) - 2*a_pow11*E*M*r*(L_pow4*(-6048*M_pow4 + 16*(523 + 63*E_pow2)*M_pow3*r + 24*(629 + 18*E_pow2)*M_pow2*r_pow2 + 4*(2158 - 9*E_pow2)*M*r_pow3 + 1881*r_pow4) + r_pow2*twoM_plus_r*(8*(-289 + 240*E_pow2)*M_pow5 + 12*(575 + 1264*E_pow2)*M_pow4*r + 2*(7405 + 11376*E_pow2)*M_pow3*r_pow2 + 3*(-871 + 4064*E_pow2)*M_pow2*r_pow3 + 2*(-5227 + 1074*E_pow2)*M*r_pow4 - 3160*r_pow5) + 4*L_pow2*(4032*M_pow6 + 192*(36 + E_pow2)*M_pow5*r - 4*(391 + 1110*E_pow2)*M_pow4*r_pow2 - 2*(605 + 2412*E_pow2)*M_pow3*r_pow3 + (2593 - 1110*E_pow2)*M_pow2*r_pow4 + (2399 + 84*E_pow2)*M*r_pow5 + 697*r_pow6)) - a_pow6*L*r_pow3*(6*L_pow8*(32*M_pow3 - 94*M_pow2*r - 136*M*r_pow2 + r_pow3) + L_pow6*(768*M_pow5 + 96*(-31 + 42*E_pow2)*M_pow4*r + 48*(281 + 163*E_pow2)*M_pow3*r_pow2 + 2*(-1645 + 618*E_pow2)*M_pow2*r_pow3 - (7627 + 1800*E_pow2)*M*r_pow4 + 417*r_pow5) + L_pow4*r*(704*M_pow6 + 8*(11749 - 2588*E_pow2)*M_pow5*r - 4*(10981 + 37716*E_pow2)*M_pow4*r_pow2 + 2*(28071 - 17800*E_pow2)*M_pow3*r_pow3 + (9017 + 17036*E_pow2)*M_pow2*r_pow4 - 4*(5816 + 3087*E_pow2)*M*r_pow5 + 135*r_pow6) + r_pow5*(39552*M_pow6 + 16*(1801 - 5104*E_pow2)*M_pow5*r - 16*(4631 + 2991*E_pow2)*M_pow4*r_pow2 - 8*(3887 + 7539*E_pow2)*M_pow3*r_pow3 + 2*(11173 - 29530*E_pow2)*M_pow2*r_pow4 + 4*(1483 - 1765*E_pow2)*M*r_pow5 + 519*r_pow6) + L_pow2*r_pow3*(-16328*M_pow6 + 4*(6995 + 97216*E_pow2)*M_pow5*r + 2*(-57013 + 218616*E_pow2)*M_pow4*r_pow2 + (10861 + 41984*E_pow2)*M_pow3*r_pow3 + (30861 - 34472*E_pow2)*M_pow2*r_pow4 - (10907 + 20088*E_pow2)*M*r_pow5 + 787*r_pow6)) - 2*a_pow9*E*M*r_pow2*(L_pow6*(3024*M_pow3 + 16*(325 - 6*E_pow2)*M_pow2*r - 6*(-961 + 6*E_pow2)*M*r_pow2 + 1959*r_pow3) + L_pow4*(2304*M_pow5 - 96*(765 + 4*E_pow2)*M_pow4*r + 16*(-1430 + 567*E_pow2)*M_pow3*r_pow2 + 4*(5239 + 1152*E_pow2)*M_pow2*r_pow3 - 6*(-4157 + 50*E_pow2)*M*r_pow4 + 9347*r_pow5) + r_pow3*(-8112*M_pow6 + 32*(-415 + 516*E_pow2)*M_pow5*r + 8*(3641 + 7464*E_pow2)*M_pow4*r_pow2 + 432*(95 + 154*E_pow2)*M_pow3*r_pow3 + (-4867 + 29664*E_pow2)*M_pow2*r_pow4 + 12*(-1557 + 385*E_pow2)*M*r_pow5 - 5082*r_pow6) + L_pow2*r*(6016*M_pow6 + 8*(10403 - 480*E_pow2)*M_pow5*r + 4*(5285 - 16584*E_pow2)*M_pow4*r_pow2 - 6*(1837 + 13536*E_pow2)*M_pow3*r_pow3 + (7423 - 23376*E_pow2)*M_pow2*r_pow4 + 2*(7001 + 426*E_pow2)*M*r_pow5 + 7240*r_pow6)) + a_pow8*L*r_pow2*(L_pow6*(2016*M_pow4 + 32*(149 - 18*E_pow2)*M_pow3*r + 12*(594 + 35*E_pow2)*M_pow2*r_pow2 + 12*(235 + 37*E_pow2)*M*r_pow3 - 9*r_pow4) + L_pow4*(1536*M_pow6 - 384*(145 + 6*E_pow2)*M_pow5*r + 16*(-815 + 2454*E_pow2)*M_pow4*r_pow2 + 8*(-1081 + 2213*E_pow2)*M_pow3*r_pow3 + 20*(907 + 454*E_pow2)*M_pow2*r_pow4 + (9231 + 6472*E_pow2)*M*r_pow5 - 828*r_pow6) + L_pow2*r*(2176*M_pow7 + 16*(3199 - 1004*E_pow2)*M_pow6*r - 56*(-341 + 6896*E_pow2)*M_pow5*r_pow2 + 16*(1490 - 18169*E_pow2)*M_pow4*r_pow3 + 2*(-17717 + 3968*E_pow2)*M_pow3*r_pow4 + (-733 + 47676*E_pow2)*M_pow2*r_pow5 + (8927 + 16292*E_pow2)*M*r_pow6 - 1017*r_pow7) + r_pow3*(-16848*M_pow7 + 64*(-517 + 2317*E_pow2)*M_pow6*r + 104*(651 + 2332*E_pow2)*M_pow5*r_pow2 + 8*(11163 + 11200*E_pow2)*M_pow4*r_pow3 + (-23489 + 64944*E_pow2)*M_pow3*r_pow4 + 2*(-17435 + 26234*E_pow2)*M_pow2*r_pow5 + 40*(-114 + 205*E_pow2)*M*r_pow6 - 336*r_pow7)) + a_pow10*L*r*(L_pow4*(-4032*M_pow5 + 32*(320 + 189*E_pow2)*M_pow4*r + 8*(1949 + 812*E_pow2)*M_pow3*r_pow2 + 4*(3032 + 1083*E_pow2)*M_pow2*r_pow3 + 12*(267 + 109*E_pow2)*M*r_pow4 + 9*r_pow5) + L_pow2*(10752*M_pow7 + 384*(25 + 12*E_pow2)*M_pow6*r - 192*(79 + 660*E_pow2)*M_pow5*r_pow2 - 16*(1147 + 4457*E_pow2)*M_pow4*r_pow3 + 40*(-226 + 777*E_pow2)*M_pow3*r_pow4 + 2*(4857 + 14926*E_pow2)*M_pow2*r_pow5 + (4497 + 7076*E_pow2)*M*r_pow6 - 261*r_pow7) + r_pow2*(32*(-289 + 548*E_pow2)*M_pow7 + 16*(1137 + 11236*E_pow2)*M_pow6*r + 96*(711 + 1603*E_pow2)*M_pow5*r_pow2 + 160*(29 + 193*E_pow2)*M_pow4*r_pow3 + 2*(-25803 + 20884*E_pow2)*M_pow3*r_pow4 + 9*(-2405 + 3784*E_pow2)*M_pow2*r_pow5 + 2*(-249 + 2956*E_pow2)*M*r_pow6 + 114*r_pow7)) - 2*a_pow13*E*M*twoM_plus_r*(L_pow2*(1152*M_pow4 - 16*(-134 + 63*E_pow2)*M_pow3*r - 8*(-329 + 54*E_pow2)*M_pow2*r_pow2 + 4*(341 + 9*E_pow2)*M*r_pow3 + 405*r_pow4) + r*twoM_plus_r*(12*E_pow2*M*(112*M_pow3 + 264*M_pow2*r + 192*M*r_pow2 + 41*r_pow3) - r*(-1888*M_pow3 + 672*M_pow2*r + 3066*M*r_pow2 + 1063*r_pow3))) + a_pow12*L*(L_pow2*(1536*M_pow6 - 32*(-125 + 378*E_pow2)*M_pow5*r + 16*(229 + 172*E_pow2)*M_pow4*r_pow2 + 40*(120 + 347*E_pow2)*M_pow3*r_pow3 + 116*(38 + 63*E_pow2)*M_pow2*r_pow4 + 12*(101 + 107*E_pow2)*M*r_pow5 + 21*r_pow6) + r*twoM_plus_r*(r*(7552*M_pow5 + 1816*M_pow4*r - 12532*M_pow3*r_pow2 - 6194*M_pow2*r_pow3 + 355*M*r_pow4 + 114*r_pow5) + 4*E_pow2*M*(4032*M_pow5 + 8208*M_pow4*r + 2036*M_pow3*r_pow2 + 2002*M_pow2*r_pow3 + 2728*M*r_pow4 + 601*r_pow5))))*ur_pow2 + r_pow5*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(-24*a*E_pow3*M_pow2*pow(r_pow3 + a_pow2*twoM_plus_r,3)*(-5*L_pow6*r_pow5 + 10*L_pow4*r_pow7 - 20*L_pow2*r_pow9 + 7*r_pow11 + 7*a_pow8*twoM_plus_r_pow3 + 14*a_pow6*r_pow2*twoM_plus_r_pow2*(M + 2*r) + 2*a_pow4*r_pow3*twoM_plus_r*(21*r_pow2*(M + r) - 10*L_pow2*twoM_plus_r) + a_pow2*r_pow3*(-7*L_pow6 + 10*L_pow4*r*twoM_plus_r - 40*L_pow2*r_pow3*twoM_plus_r + 14*r_pow5*(3*M + 2*r))) + 2*E_pow2*L*M*(a_pow16*twoM_plus_r_pow3*(916*M_pow2 + 492*M*r + 45*r_pow2) + r_pow14*(L_pow4*r_pow2*(-68*M + 25*r) + 12*L_pow2*r_pow4*(-59*M + 30*r) + L_pow6*(-90*M + 42*r) + r_pow6*(-142*M + 83*r)) + 2*a_pow2*r_pow11*(-3*L_pow6*(4*M_pow2 + 124*M*r - 53*r_pow2) + r_pow6*(-846*M_pow2 + 230*M*r + 261*r_pow2) + L_pow4*r_pow2*(12784*M_pow2 - 6827*M*r + 293*r_pow2) + 3*L_pow2*r_pow4*(-6068*M_pow2 + 2344*M*r + 353*r_pow2)) + a_pow4*r_pow8*(6*L_pow6*(524*M_pow3 - 498*M_pow2*r - 259*M*r_pow2 + 137*r_pow3) + 24*L_pow2*r_pow4*(-4998*M_pow3 - 2198*M_pow2*r + 2547*M*r_pow2 + 225*r_pow3) + 2*r_pow6*(-7368*M_pow3 + 20*M_pow2*r + 3300*M*r_pow2 + 717*r_pow3) + L_pow4*r_pow2*(38148*M_pow3 + 24990*M_pow2*r - 36184*M*r_pow2 + 2379*r_pow3)) + a_pow12*r_pow2*twoM_plus_r*(-6656*M_pow6 - 11904*M_pow5*r + 27424*M_pow4*r_pow2 + 82000*M_pow3*r_pow3 + 61888*M_pow2*r_pow4 + 16044*M*r_pow5 + 902*r_pow6 + L_pow4*(1658*M_pow2 + 774*M*r + 285*r_pow2) + 24*L_pow2*(204*M_pow4 - 670*M_pow3*r - 58*M_pow2*r_pow2 + 344*M*r_pow3 + 57*r_pow4)) + 2*a_pow6*r_pow5*(L_pow6*(888*M_pow4 - 756*M_pow3*r - 3144*M_pow2*r_pow2 - 351*M*r_pow3 + 489*r_pow4) + 2*L_pow4*r_pow2*(-5350*M_pow4 + 7706*M_pow3*r - 1502*M_pow2*r_pow2 - 7741*M*r_pow3 + 1039*r_pow4) + r_pow6*(-30416*M_pow4 - 14568*M_pow3*r + 17474*M_pow2*r_pow2 + 10722*M*r_pow3 + 1145*r_pow4) + 3*L_pow2*r_pow4*(-12272*M_pow4 - 32712*M_pow3*r + 4380*M_pow2*r_pow2 + 16294*M*r_pow3 + 1305*r_pow4)) + 2*a_pow14*twoM_plus_r_pow2*(2016*M_pow5 + 2936*M_pow4*r + 6408*M_pow3*r_pow2 + M_pow2*(-336*L_pow2*r + 6658*r_pow3) + 6*M*(73*L_pow2*r_pow2 + 363*r_pow4) + 21*(5*L_pow2*r_pow3 + 7*r_pow5)) + a_pow8*r_pow3*(-12*L_pow6*(168*M_pow4 + 344*M_pow3*r + 231*M_pow2*r_pow2 - 49*M*r_pow3 - 46*r_pow4) + 12*L_pow2*r_pow3*(3040*M_pow5 - 6080*M_pow4*r - 10768*M_pow3*r_pow2 + 6080*M_pow2*r_pow3 + 6625*M*r_pow4 + 590*r_pow5) + 4*r_pow5*(-28152*M_pow5 - 30148*M_pow4*r + 14996*M_pow3*r_pow2 + 26594*M_pow2*r_pow3 + 8677*M*r_pow4 + 600*r_pow5) + L_pow4*r*(10240*M_pow5 - 12944*M_pow4*r + 16152*M_pow3*r_pow2 - 1508*M_pow2*r_pow3 - 6308*M*r_pow4 + 3679*r_pow5)) + 2*a_pow10*r_pow3*(3*L_pow6*(44*M_pow2 + 65*M*r + 20*r_pow2) + L_pow4*(-4364*M_pow4 + 3396*M_pow3*r + 3564*M_pow2*r_pow2 + 1701*M*r_pow3 + 813*r_pow4) - 3*L_pow2*(5376*M_pow6 - 608*M_pow5*r + 12432*M_pow4*r_pow2 + 12096*M_pow3*r_pow3 - 6964*M_pow2*r_pow4 - 6228*M*r_pow5 - 675*r_pow6) + r_pow2*(-41952*M_pow6 - 74144*M_pow5*r + 18096*M_pow4*r_pow2 + 104208*M_pow3*r_pow3 + 69814*M_pow2*r_pow4 + 16170*M*r_pow5 + 879*r_pow6))) + 2*a*E*M*(2*a_pow16*twoM_plus_r_pow4*(356*M + 213*r) + r_pow11*(L_pow6*r_pow2*(-33148*M_pow2 + 35564*M*r - 9477*r_pow2) + 24*r_pow8*(54*M_pow2 - 59*M*r + 16*r_pow2) - 12*L_pow8*(168*M_pow2 - 193*M*r + 54*r_pow2) + 3*L_pow4*r_pow4*(4604*M_pow2 - 4172*M*r + 931*r_pow2) + 4*L_pow2*r_pow6*(2782*M_pow2 - 3311*M*r + 954*r_pow2)) - a_pow2*r_pow8*(2*r_pow8*(-5760*M_pow3 + 2648*M_pow2*r + 3350*M*r_pow2 - 1647*r_pow3) + 12*L_pow8*(634*M_pow3 - 315*M_pow2*r - 511*M*r_pow2 + 258*r_pow3) - 4*L_pow4*r_pow4*(35100*M_pow3 - 12418*M_pow2*r - 6644*M*r_pow2 + 1943*r_pow3) - 2*L_pow2*r_pow6*(21692*M_pow3 - 8154*M_pow2*r - 17656*M*r_pow2 + 8501*r_pow3) + L_pow6*r_pow2*(56280*M_pow3 + 17420*M_pow2*r - 70426*M*r_pow2 + 25103*r_pow3)) - 2*a_pow14*twoM_plus_r_pow2*(L_pow2*(1832*M_pow3 - 788*M_pow2*r - 1276*M*r_pow2 - 327*r_pow3) + r*(5072*M_pow4 + 4216*M_pow3*r - 5944*M_pow2*r_pow2 - 6850*M*r_pow3 - 1729*r_pow4)) + a_pow4*r_pow5*(L_pow6*r_pow2*(24444*M_pow4 - 92876*M_pow3*r + 36731*M_pow2*r_pow2 + 58446*M*r_pow3 - 26443*r_pow4) - 12*L_pow8*(416*M_pow4 + 194*M_pow3*r - 1020*M_pow2*r_pow2 - 211*M*r_pow3 + 393*r_pow4) + L_pow4*r_pow4*(168084*M_pow4 + 157476*M_pow3*r - 153503*M_pow2*r_pow2 - 22950*M*r_pow3 + 4598*r_pow4) + 2*r_pow8*(20160*M_pow4 + 5368*M_pow3*r - 24644*M_pow2*r_pow2 - 2224*M*r_pow3 + 6019*r_pow4) + 4*L_pow2*r_pow6*(24484*M_pow4 + 12350*M_pow3*r - 25403*M_pow2*r_pow2 - 7159*M*r_pow3 + 7904*r_pow4)) + a_pow6*r_pow3*(12*L_pow8*(168*M_pow4 + 436*M_pow3*r + 517*M_pow2*r_pow2 - 201*M*r_pow3 - 246*r_pow4) + L_pow6*r*(-14720*M_pow5 + 20228*M_pow4*r - 16328*M_pow3*r_pow2 + 53863*M_pow2*r_pow3 + 15766*M*r_pow4 - 17051*r_pow5) - 2*L_pow4*r_pow3*(47100*M_pow5 - 69900*M_pow4*r - 24803*M_pow3*r_pow2 + 68491*M_pow2*r_pow3 + 12883*M*r_pow4 + 2781*r_pow5) + 2*r_pow7*(34560*M_pow5 + 41344*M_pow4*r - 54800*M_pow3*r_pow2 - 48956*M_pow2*r_pow3 + 15970*M*r_pow4 + 12323*r_pow5) + 2*L_pow2*r_pow5*(118960*M_pow5 + 107104*M_pow4*r - 58304*M_pow3*r_pow2 - 85796*M_pow2*r_pow3 + 2200*M*r_pow4 + 16709*r_pow5)) + a_pow12*twoM_plus_r*(-(L_pow4*r*(-2688*M_pow3 + 3181*M_pow2*r + 2468*M*r_pow2 + 654*r_pow3)) - 4*L_pow2*(2016*M_pow6 + 2848*M_pow5*r + 17324*M_pow4*r_pow2 + 13616*M_pow3*r_pow3 - 2175*M_pow2*r_pow4 - 4403*M*r_pow5 - 1096*r_pow6) + 2*r_pow2*(8896*M_pow6 + 2048*M_pow5*r - 41760*M_pow4*r_pow2 - 30216*M_pow3*r_pow3 + 23056*M_pow2*r_pow4 + 26286*M*r_pow5 + 6137*r_pow6)) - a_pow8*r_pow3*(12*L_pow8*(44*M_pow2 + 130*M*r + 57*r_pow2) + L_pow6*(-17456*M_pow4 - 1748*M_pow3*r + 2571*M_pow2*r_pow2 + 14202*M*r_pow3 + 7800*r_pow4) - 4*L_pow2*r_pow2*(68624*M_pow6 + 100056*M_pow5*r - 25528*M_pow4*r_pow2 - 93196*M_pow3*r_pow3 - 36024*M_pow2*r_pow4 + 8931*M*r_pow5 + 5998*r_pow6) + L_pow4*(-41472*M_pow6 + 71144*M_pow5*r - 103308*M_pow4*r_pow2 - 45790*M_pow3*r_pow3 + 64192*M_pow2*r_pow4 + 30182*M*r_pow5 + 8449*r_pow6) - 2*r_pow4*(28800*M_pow6 + 77312*M_pow5*r - 42784*M_pow4*r_pow2 - 134608*M_pow3*r_pow3 - 18824*M_pow2*r_pow4 + 45960*M*r_pow5 + 15535*r_pow6)) - a_pow10*r_pow2*(L_pow6*(6632*M_pow3 + 9711*M_pow2*r + 6384*M*r_pow2 + 1566*r_pow3) + 2*L_pow4*(9792*M_pow5 - 30772*M_pow4*r - 13169*M_pow3*r_pow2 + 12673*M_pow2*r_pow3 + 8541*M*r_pow4 + 1961*r_pow5) - 2*L_pow2*(21376*M_pow7 + 83936*M_pow6*r - 38864*M_pow5*r_pow2 - 219664*M_pow4*r_pow3 - 150036*M_pow3*r_pow4 - 8578*M_pow2*r_pow5 + 22984*M*r_pow6 + 6367*r_pow7) - 2*r_pow2*(9216*M_pow7 + 60800*M_pow6*r + 2720*M_pow5*r_pow2 - 153200*M_pow4*r_pow3 - 95904*M_pow3*r_pow4 + 52112*M_pow2*r_pow5 + 57262*M*r_pow6 + 12397*r_pow7))) - L*(4*a_pow16*M*twoM_plus_r_pow3*(712*M_pow2 + 806*M*r + 195*r_pow2) - r_pow11*(L_pow6*r_pow2*(17960*M_pow3 - 27118*M_pow2*r + 13697*M*r_pow2 - 2314*r_pow3) + 18*L_pow8*(66*M_pow3 - 53*M_pow2*r + 2*M*r_pow2 + 4*r_pow3) + 2*r_pow8*(-894*M_pow3 + 961*M_pow2*r - 305*M*r_pow2 + 24*r_pow3) + L_pow4*r_pow4*(-1124*M_pow3 + 2368*M_pow2*r - 1375*M*r_pow2 + 236*r_pow3) + 2*L_pow2*r_pow6*(-5306*M_pow3 + 8423*M_pow2*r - 4421*M*r_pow2 + 768*r_pow3)) - a_pow2*r_pow8*(6*L_pow8*M*(726*M_pow3 + 293*M_pow2*r - 1197*M*r_pow2 + 438*r_pow3) + L_pow6*r_pow2*(26236*M_pow4 + 25170*M_pow3*r - 61470*M_pow2*r_pow2 + 26902*M*r_pow3 - 2903*r_pow4) + 2*r_pow8*(-9066*M_pow4 + 2301*M_pow3*r + 5661*M_pow2*r_pow2 - 2330*M*r_pow3 + 36*r_pow4) + L_pow4*r_pow4*(-105000*M_pow4 + 122272*M_pow3*r - 39048*M_pow2*r_pow2 - 1339*M*r_pow3 + 1641*r_pow4) + 2*L_pow2*r_pow6*(-40862*M_pow4 + 32349*M_pow3*r + 10510*M_pow2*r_pow2 - 13357*M*r_pow3 + 2556*r_pow4)) + a_pow4*r_pow5*(2*L_pow2*r_pow6*(75908*M_pow5 + 36940*M_pow4*r - 112460*M_pow3*r_pow2 + 9844*M_pow2*r_pow3 + 20027*M*r_pow4 - 2571*r_pow5) + L_pow6*r_pow2*(24524*M_pow5 - 118300*M_pow4*r + 40665*M_pow3*r_pow2 + 76160*M_pow2*r_pow3 - 35861*M*r_pow4 - 902*r_pow5) - 6*L_pow8*(912*M_pow5 + 704*M_pow4*r - 1467*M_pow3*r_pow2 - 1254*M_pow2*r_pow3 + 960*M*r_pow4 - 9*r_pow5) + 2*r_pow8*(34752*M_pow5 + 22376*M_pow4*r - 41305*M_pow3*r_pow2 - 7734*M_pow2*r_pow3 + 9360*M*r_pow4 + 99*r_pow5) - L_pow4*r_pow4*(-228804*M_pow5 + 50060*M_pow4*r + 185211*M_pow3*r_pow2 - 114286*M_pow2*r_pow3 + 13287*M*r_pow4 + 3147*r_pow5)) - 2*a_pow14*twoM_plus_r*(4*L_pow2*M*(916*M_pow4 - 1280*M_pow3*r - 2130*M_pow2*r_pow2 - 872*M*r_pow3 - 87*r_pow4) + r*(20288*M_pow6 + 29712*M_pow5*r - 12416*M_pow4*r_pow2 - 36600*M_pow3*r_pow3 - 18088*M_pow2*r_pow4 - 2507*M*r_pow5 + 81*r_pow6)) + a_pow6*r_pow3*(6*L_pow8*(224*M_pow5 + 704*M_pow4*r + 1312*M_pow3*r_pow2 - 192*M_pow2*r_pow3 - 801*M*r_pow4 - 3*r_pow5) + L_pow6*r*(-12800*M_pow6 + 6888*M_pow5*r - 40044*M_pow4*r_pow2 + 84618*M_pow3*r_pow3 + 21897*M_pow2*r_pow4 - 32204*M*r_pow5 - 1257*r_pow6) + 4*L_pow2*r_pow5*(52868*M_pow6 + 72934*M_pow5*r - 59896*M_pow4*r_pow2 - 73441*M_pow3*r_pow3 + 23418*M_pow2*r_pow4 + 12409*M*r_pow5 - 42*r_pow6) + 2*r_pow7*(62448*M_pow6 + 111000*M_pow5*r - 83308*M_pow4*r_pow2 - 102826*M_pow3*r_pow3 + 21308*M_pow2*r_pow4 + 21025*M*r_pow5 + 195*r_pow6) - L_pow4*r_pow3*(57032*M_pow6 - 195836*M_pow5*r + 180142*M_pow4*r_pow2 + 48501*M_pow3*r_pow3 - 89167*M_pow2*r_pow4 + 30065*M*r_pow5 + 1955*r_pow6)) + a_pow8*r_pow3*(-6*L_pow8*M*(88*M_pow2 + 390*M*r + 219*r_pow2) + L_pow6*(17456*M_pow5 + 17080*M_pow4*r + 23121*M_pow3*r_pow2 - 14720*M_pow2*r_pow3 - 13040*M*r_pow4 + 234*r_pow5) + 2*r_pow4*(51360*M_pow7 + 187632*M_pow6*r - 39864*M_pow5*r_pow2 - 271552*M_pow4*r_pow3 - 56500*M_pow3*r_pow4 + 79379*M_pow2*r_pow5 + 26815*M*r_pow6 - 90*r_pow7) + L_pow4*(33792*M_pow7 - 96592*M_pow6*r + 60048*M_pow5*r_pow2 - 57096*M_pow4*r_pow3 + 21449*M_pow3*r_pow4 + 7095*M_pow2*r_pow5 - 24050*M*r_pow6 + 147*r_pow7) + 2*L_pow2*r_pow2*(161872*M_pow7 + 190512*M_pow6*r - 79956*M_pow5*r_pow2 - 255132*M_pow4*r_pow3 - 50510*M_pow3*r_pow4 + 75409*M_pow2*r_pow5 + 21895*M*r_pow6 + 1134*r_pow7)) + a_pow12*(L_pow4*M*r*(5376*M_pow4 - 5716*M_pow3*r - 12790*M_pow2*r_pow2 - 9097*M*r_pow3 - 2262*r_pow4) + 2*r_pow2*(35584*M_pow8 + 37232*M_pow7*r - 156128*M_pow6*r_pow2 - 214360*M_pow5*r_pow3 + 19256*M_pow4*r_pow4 + 137135*M_pow3*r_pow5 + 65748*M_pow2*r_pow6 + 8570*M*r_pow7 - 321*r_pow8) - 2*L_pow2*(5376*M_pow8 + 7360*M_pow7*r + 91360*M_pow6*r_pow2 + 86000*M_pow5*r_pow3 - 17904*M_pow4*r_pow4 - 50840*M_pow3*r_pow5 - 19562*M_pow2*r_pow6 - 1713*M*r_pow7 + 27*r_pow8)) + a_pow10*r_pow2*(-(L_pow6*M*(6632*M_pow3 + 13010*M_pow2*r + 11901*M*r_pow2 + 3492*r_pow3)) + L_pow4*(-19584*M_pow6 + 68560*M_pow5*r + 35734*M_pow4*r_pow2 + 3801*M_pow3*r_pow3 - 18299*M_pow2*r_pow4 - 9498*M*r_pow5 + 360*r_pow6) + 2*r_pow2*(14496*M_pow8 + 134128*M_pow7*r + 42016*M_pow6*r_pow2 - 301656*M_pow5*r_pow3 - 210286*M_pow4*r_pow4 + 88351*M_pow3*r_pow5 + 101635*M_pow2*r_pow6 + 19740*M*r_pow7 - 414*r_pow8) + 2*L_pow2*(24064*M_pow8 + 105152*M_pow7*r - 67976*M_pow6*r_pow2 - 247532*M_pow5*r_pow3 - 122542*M_pow4*r_pow4 + 56911*M_pow3*r_pow5 + 55882*M_pow2*r_pow6 + 9533*M*r_pow7 + 408*r_pow8))))*ur_pow4 + r_pow7*(12*E_pow2*L*M*r*pow(r_pow3 + a_pow2*twoM_plus_r,3)*(7*a_pow10*twoM_plus_r_pow4*(6*M + r) + r_pow7*(-5*L_pow8 - 15*L_pow6*r_pow2 + 20*L_pow4*r_pow4 + 37*L_pow2*r_pow6 + 7*r_pow8) + a_pow6*r_pow2*twoM_plus_r_pow2*(14*r_pow4*(22*M + 5*r) + L_pow4*(43*M + 9*r) + 8*L_pow2*r_pow2*(40*M + 11*r)) + a_pow8*r*twoM_plus_r_pow3*(7*r_pow2*(26*M + 5*r) + L_pow2*(82*M + 17*r)) + a_pow2*r_pow4*(-10*L_pow6*r_pow2*(5*M + 2*r) - L_pow8*(23*M + 4*r) + 7*r_pow8*(14*M + 5*r) + 16*L_pow2*r_pow6*(19*M + 8*r) + L_pow4*r_pow4*(123*M + 49*r)) + a_pow4*r_pow3*(-5*L_pow6*(8*M_pow2 + 6*M*r + r_pow2) + 14*r_pow6*(36*M_pow2 + 28*M*r + 5*r_pow2) + 18*L_pow2*r_pow4*(52*M_pow2 + 44*M*r + 9*r_pow2) + 2*L_pow4*r_pow2*(126*M_pow2 + 101*M*r + 19*r_pow2))) + 2*a*E*M*(210*a_pow18*twoM_plus_r_pow7 + 3*r_pow14*(L_pow2 + r_pow2)*(2*L_pow8*(84*M - 37*r) + L_pow6*(2178*M - 1039*r)*r_pow2 - 5*L_pow4*(638*M - 291*r)*r_pow4 - 4*L_pow2*(89*M - 31*r)*r_pow6 + 28*r_pow8*(-3*M + 2*r)) + 4*a_pow16*r*twoM_plus_r_pow4*(-21*twoM_plus_r_pow2*(8*M_pow2 - 5*M*r - 22*r_pow2) + 5*L_pow2*(77*M_pow2 + 114*M*r + 36*r_pow2)) + a_pow2*r_pow11*(L_pow8*r_pow2*(9408*M_pow2 + 10732*M*r - 9881*r_pow2) + 12*L_pow10*(232*M_pow2 + 57*M*r - 83*r_pow2) + 42*r_pow10*(-84*M_pow2 + 6*M*r + 37*r_pow2) + 12*L_pow6*r_pow4*(-778*M_pow2 - 401*M*r + 285*r_pow2) + 8*L_pow2*r_pow8*(-2286*M_pow2 - 445*M*r + 650*r_pow2) + 3*L_pow4*r_pow6*(-20096*M_pow2 - 6448*M*r + 7669*r_pow2)) + a_pow4*r_pow8*(L_pow8*r_pow2*(-1530*M_pow3 + 19833*M_pow2*r + 3232*M*r_pow2 - 11881*r_pow3) + 6*L_pow10*(614*M_pow3 + 733*M_pow2*r - 202*M*r_pow2 - 255*r_pow3) - 12*L_pow6*r_pow4*(1090*M_pow3 + 1335*M_pow2*r + 488*M*r_pow2 - 166*r_pow3) + 336*r_pow10*(-63*M_pow3 - 35*M_pow2*r + 35*M*r_pow2 + 19*r_pow3) + 15*L_pow4*r_pow6*(-8422*M_pow3 - 10993*M_pow2*r + 1342*M*r_pow2 + 3138*r_pow3) + 4*L_pow2*r_pow8*(-24534*M_pow3 - 20697*M_pow2*r + 5350*M*r_pow2 + 5075*r_pow3)) + a_pow6*r_pow5*(L_pow8*r_pow2*(17532*M_pow4 + 21234*M_pow3*r + 15409*M_pow2*r_pow2 - 7304*M*r_pow3 - 8105*r_pow4) + 12*L_pow10*(184*M_pow4 + 321*M_pow3*r + 80*M_pow2*r_pow2 - 184*M*r_pow3 - 83*r_pow4) + 1176*r_pow10*(-60*M_pow4 - 74*M_pow3*r + 18*M_pow2*r_pow2 + 46*M*r_pow3 + 13*r_pow4) - 24*L_pow6*r_pow4*(1732*M_pow4 + 1351*M_pow3*r + 897*M_pow2*r_pow2 + 598*M*r_pow3 + 96*r_pow4) + 40*L_pow2*r_pow8*(-6720*M_pow4 - 10461*M_pow3*r - 1892*M_pow2*r_pow2 + 2986*M*r_pow3 + 1078*r_pow4) + 15*L_pow4*r_pow6*(-11332*M_pow4 - 24586*M_pow3*r - 11395*M_pow2*r_pow2 + 5768*M*r_pow3 + 3574*r_pow4)) + a_pow14*r*twoM_plus_r_pow3*(15*L_pow4*r*(161*M_pow2 + 128*M*r + 44*r_pow2) + 168*r_pow2*twoM_plus_r_pow2*(-6*M_pow3 - 30*M_pow2*r + 20*M*r_pow2 + 43*r_pow3) - 8*L_pow2*(1008*M_pow5 + 2282*M_pow4*r + 1941*M_pow3*r_pow2 - 1604*M_pow2*r_pow3 - 2600*M*r_pow4 - 750*r_pow5)) - a_pow10*r_pow3*twoM_plus_r*(L_pow8*r*(2093*M_pow2 + 1896*M*r + 630*r_pow2) + 588*r_pow6*twoM_plus_r_pow2*(36*M_pow3 + 52*M_pow2*r - 40*M*r_pow2 - 41*r_pow3) + 3*L_pow4*r_pow2*(42296*M_pow5 + 75208*M_pow4*r + 48776*M_pow3*r_pow2 + 2562*M_pow2*r_pow3 - 15326*M*r_pow4 - 5889*r_pow5) + 40*L_pow2*r_pow4*(4608*M_pow5 + 12372*M_pow4*r + 8090*M_pow3*r_pow2 - 3184*M_pow2*r_pow3 - 4575*M*r_pow4 - 1106*r_pow5) + 12*L_pow6*(688*M_pow5 + 1372*M_pow4*r + 150*M_pow3*r_pow2 + 50*M_pow2*r_pow3 + 409*M*r_pow4 + 125*r_pow5)) - a_pow8*r_pow4*(6*L_pow10*r*(133*M_pow2 + 148*M*r + 40*r_pow2) + 5880*r_pow8*twoM_plus_r_pow2*(6*M_pow3 + 6*M_pow2*r - 5*M*r_pow2 - 4*r_pow3) + 20*L_pow2*r_pow6*(20592*M_pow5 + 48424*M_pow4*r + 27764*M_pow3*r_pow2 - 9263*M_pow2*r_pow3 - 12340*M*r_pow4 - 2765*r_pow5) + 15*L_pow4*r_pow4*(17192*M_pow5 + 36400*M_pow4*r + 29444*M_pow3*r_pow2 + 3074*M_pow2*r_pow3 - 7386*M*r_pow4 - 2539*r_pow5) + 12*L_pow6*r_pow2*(5432*M_pow5 + 6652*M_pow4*r + 2514*M_pow3*r_pow2 + 1884*M_pow2*r_pow3 + 1391*M*r_pow4 + 282*r_pow5) + L_pow8*(-3840*M_pow5 - 13748*M_pow4*r - 5442*M_pow3*r_pow2 + 7469*M_pow2*r_pow3 + 9998*M*r_pow4 + 3396*r_pow5)) + a_pow12*r_pow2*twoM_plus_r_pow2*(-12*L_pow6*r*(-35*M_pow2 + 44*M*r + 20*r_pow2) + 2352*r_pow4*twoM_plus_r_pow2*(-3*M_pow3 - 7*M_pow2*r + 5*M*r_pow2 + 7*r_pow3) - 3*L_pow4*(5248*M_pow5 + 11956*M_pow4*r + 5330*M_pow3*r_pow2 - 3399*M_pow2*r_pow3 - 4626*M*r_pow4 - 1684*r_pow5) + 4*L_pow2*r_pow2*(-12696*M_pow5 - 35244*M_pow4*r - 26602*M_pow3*r_pow2 + 13233*M_pow2*r_pow3 + 20610*M*r_pow4 + 5425*r_pow5))) + L*(-6*a_pow18*M*twoM_plus_r_pow5*(280*M_pow2 + 418*M*r + 171*r_pow2) + r_pow14*(L_pow2 + r_pow2)*(L_pow6*r_pow2*(-6758*M_pow2 + 6551*M*r - 1574*r_pow2) - 6*L_pow8*(64*M_pow2 - 21*M*r - 6*r_pow2) - 2*r_pow8*(-274*M_pow2 + 53*M*r + 48*r_pow2) + 2*L_pow2*r_pow6*(2194*M_pow2 - 2019*M*r + 452*r_pow2) + L_pow4*r_pow4*(6538*M_pow2 - 6579*M*r + 1658*r_pow2)) - 2*a_pow16*M*r*twoM_plus_r_pow3*(-5376*M_pow5 - 10576*M_pow4*r + 9984*M_pow3*r_pow2 + 31680*M_pow2*r_pow3 + 21544*M*r_pow4 + 4593*r_pow5 + 10*L_pow2*(308*M_pow3 + 1018*M_pow2*r + 729*M*r_pow2 + 159*r_pow3)) + a_pow2*r_pow11*(2*r_pow10*(2504*M_pow3 + 2816*M_pow2*r - 1961*M*r_pow2 - 252*r_pow3) - 6*L_pow10*(180*M_pow3 + 394*M_pow2*r - 283*M*r_pow2 - 3*r_pow3) + 4*L_pow6*r_pow4*(7108*M_pow3 - 5276*M_pow2*r + 752*M*r_pow2 + 153*r_pow3) + 4*L_pow2*r_pow8*(7440*M_pow3 + 3324*M_pow2*r - 5521*M*r_pow2 + 830*r_pow3) - L_pow8*r_pow2*(3072*M_pow3 + 21042*M_pow2*r - 16736*M*r_pow2 + 2491*r_pow3) + 3*L_pow4*r_pow6*(24440*M_pow3 - 1278*M_pow2*r - 11576*M*r_pow2 + 3071*r_pow3)) + a_pow4*r_pow8*(L_pow8*r_pow2*(24234*M_pow4 - 49525*M_pow3*r - 17992*M_pow2*r_pow2 + 28413*M*r_pow3 - 368*r_pow4) - 6*L_pow10*(198*M_pow4 + 1125*M_pow3*r + 92*M_pow2*r_pow2 - 624*M*r_pow3 + 3*r_pow4) - 8*r_pow10*(-2190*M_pow4 - 7623*M_pow3*r + 586*M_pow2*r_pow2 + 2790*M*r_pow3 + 126*r_pow4) + 4*L_pow6*r_pow4*(14514*M_pow4 + 441*M_pow3*r - 11990*M_pow2*r_pow2 + 3615*M*r_pow3 + 333*r_pow4) + 4*L_pow2*r_pow8*(20574*M_pow4 + 50597*M_pow3*r - 7720*M_pow2*r_pow2 - 18027*M*r_pow3 + 1120*r_pow4) + 3*L_pow4*r_pow6*(52574*M_pow4 + 72625*M_pow3*r - 29122*M_pow2*r_pow2 - 22548*M*r_pow3 + 3744*r_pow4)) + a_pow6*r_pow5*(-6*L_pow10*M*(368*M_pow4 + 668*M_pow3*r + 577*M_pow2*r_pow2 - 703*M*r_pow3 - 534*r_pow4) + 8*r_pow10*(3520*M_pow5 + 32776*M_pow4*r + 15825*M_pow3*r_pow2 - 14128*M_pow2*r_pow3 - 7567*M*r_pow4 - 105*r_pow5) + 4*L_pow2*r_pow8*(42760*M_pow5 + 188788*M_pow4*r + 88375*M_pow3*r_pow2 - 74897*M_pow2*r_pow3 - 40555*M*r_pow4 + 220*r_pow5) + 4*L_pow6*r_pow4*(10588*M_pow5 + 7264*M_pow4*r - 15006*M_pow3*r_pow2 - 4756*M_pow2*r_pow3 + 6209*M*r_pow4 + 291*r_pow5) + L_pow8*r_pow2*(-7372*M_pow5 - 19116*M_pow4*r - 49138*M_pow3*r_pow2 + 20655*M_pow2*r_pow3 + 27504*M*r_pow4 + 585*r_pow5) + 3*L_pow4*r_pow6*(47060*M_pow5 + 196356*M_pow4*r + 71568*M_pow3*r_pow2 - 87797*M_pow2*r_pow3 - 36440*M*r_pow4 + 1346*r_pow5)) + a_pow8*r_pow4*(6*L_pow10*M*r*(266*M_pow2 + 435*M*r + 154*r_pow2) + 4*M*r_pow8*(4720*M_pow5 + 156040*M_pow4*r + 169940*M_pow3*r_pow2 - 34330*M_pow2*r_pow3 - 89722*M*r_pow4 - 24689*r_pow5) + L_pow8*M*(-3840*M_pow5 - 18856*M_pow4*r - 24742*M_pow3*r_pow2 + 1799*M_pow2*r_pow3 + 28036*M*r_pow4 + 11820*r_pow5) + 4*L_pow6*r_pow2*(22928*M_pow6 + 13928*M_pow5*r - 9428*M_pow4*r_pow2 - 7232*M_pow3*r_pow3 + 6703*M_pow2*r_pow4 + 4976*M*r_pow5 + 90*r_pow6) - 3*L_pow4*r_pow4*(-53320*M_pow6 - 222108*M_pow5*r - 224528*M_pow4*r_pow2 + 57774*M_pow3*r_pow3 + 134778*M_pow2*r_pow4 + 37527*M*r_pow5 + 526*r_pow6) - 4*L_pow2*r_pow6*(-63840*M_pow6 - 372704*M_pow5*r - 362952*M_pow4*r_pow2 + 68826*M_pow3*r_pow3 + 192233*M_pow2*r_pow4 + 56905*M*r_pow5 + 790*r_pow6)) - a_pow14*r*twoM_plus_r_pow2*(3*L_pow4*M*r*(3220*M_pow3 + 6516*M_pow2*r + 4205*M*r_pow2 + 820*r_pow3) - 4*L_pow2*M*(4032*M_pow6 + 11536*M_pow5*r + 26100*M_pow4*r_pow2 - 3060*M_pow3*r_pow3 - 41765*M_pow2*r_pow4 - 29369*M*r_pow5 - 6117*r_pow6) - 8*r_pow2*(320*M_pow7 + 13344*M_pow6*r + 25148*M_pow5*r_pow2 - 2844*M_pow4*r_pow3 - 31881*M_pow3*r_pow4 - 21728*M_pow2*r_pow5 - 4391*M*r_pow6 + 9*r_pow7)) + a_pow12*r_pow2*twoM_plus_r*(12*L_pow6*M*r*(-140*M_pow3 + 357*M_pow2*r + 394*M*r_pow2 + 120*r_pow3) + 3*L_pow4*M*(10496*M_pow6 + 29904*M_pow5*r + 31604*M_pow4*r_pow2 - 4720*M_pow3*r_pow3 - 40551*M_pow2*r_pow4 - 27554*M*r_pow5 - 5322*r_pow6) + 4*L_pow2*r_pow2*(8720*M_pow7 + 97712*M_pow6*r + 179680*M_pow5*r_pow2 + 9884*M_pow4*r_pow3 - 160999*M_pow3*r_pow4 - 110232*M_pow2*r_pow5 - 22461*M*r_pow6 - 180*r_pow7) + 8*r_pow4*(656*M_pow7 + 52576*M_pow6*r + 95608*M_pow5*r_pow2 + 10128*M_pow4*r_pow3 - 73399*M_pow3*r_pow4 - 49810*M_pow2*r_pow5 - 9548*M*r_pow6 + 42*r_pow7)) + a_pow10*r_pow3*(L_pow8*M*r*(8372*M_pow3 + 16984*M_pow2*r + 11781*M*r_pow2 + 2670*r_pow3) + 4*L_pow6*M*(4128*M_pow6 + 9408*M_pow5*r - 6172*M_pow4*r_pow2 - 8160*M_pow3*r_pow3 + 3990*M_pow2*r_pow4 + 6592*M*r_pow5 + 1983*r_pow6) + 4*L_pow2*r_pow4*(46368*M_pow7 + 395200*M_pow6*r + 595336*M_pow5*r_pow2 + 88040*M_pow4*r_pow3 - 348298*M_pow3*r_pow4 - 236878*M_pow2*r_pow5 - 47391*M*r_pow6 - 698*r_pow7) + 3*L_pow4*r_pow2*(74992*M_pow7 + 182144*M_pow6*r + 213100*M_pow5*r_pow2 + 21844*M_pow4*r_pow3 - 150200*M_pow3*r_pow4 - 101896*M_pow2*r_pow5 - 20100*M*r_pow6 - 345*r_pow7) + 4*r_pow6*(1344*M_pow7 + 229632*M_pow6*r + 394792*M_pow5*r_pow2 + 72120*M_pow4*r_pow3 - 216390*M_pow3*r_pow4 - 144568*M_pow2*r_pow5 - 26439*M*r_pow6 + 126*r_pow7))))*ur_pow6 - 6*L*r_pow10*(70*a_pow16*M*twoM_plus_r_pow6 + r_pow14*(-30*L_pow6*(5*M - 2*r)*r_pow2 + L_pow4*(298*M - 129*r)*r_pow4 + 14*M*r_pow8 - L_pow8*(8*M + r) + 2*L_pow2*r_pow6*(17*M + 10*r)) + 2*a_pow14*M*r*twoM_plus_r_pow3*(-28*twoM_plus_r_pow2*(2*M_pow2 - 2*M*r - 9*r_pow2) + 5*L_pow2*(42*M_pow2 + 56*M*r + 17*r_pow2)) + a_pow2*r_pow12*(-(L_pow8*(71*M + r)) + 56*M*r_pow7*(2*M + 3*r) + L_pow4*r_pow3*(352*M_pow2 + 721*M*r - 387*r_pow2) + 30*L_pow6*r*(4*M_pow2 - 13*M*r + 4*r_pow2) + 2*L_pow2*r_pow5*(102*M_pow2 + 317*M*r + 40*r_pow2)) + a_pow4*r_pow8*(L_pow8*M*(114*M_pow2 - 161*M*r - 155*r_pow2) + 56*M*r_pow8*(3*M_pow2 + 27*M*r + 14*r_pow2) + L_pow4*r_pow4*(-1742*M_pow3 + 1511*M_pow2*r + 1413*M*r_pow2 - 387*r_pow3) + 20*L_pow6*r_pow2*(36*M_pow3 - 15*M_pow2*r - 37*M*r_pow2 + 3*r_pow3) + 10*L_pow2*r_pow6*(-36*M_pow3 + 382*M_pow2*r + 253*M*r_pow2 + 12*r_pow3)) + a_pow6*r_pow5*(L_pow8*M*(110*M_pow3 - 55*M_pow2*r - 321*M*r_pow2 - 134*r_pow3) - 280*M*r_pow8*(4*M_pow3 - 18*M_pow2*r - 24*M*r_pow2 - 7*r_pow3) - 60*L_pow6*M*r_pow2*(2*M_pow3 + 3*M_pow2*r + 20*M*r_pow2 + 12*r_pow3) + L_pow4*r_pow4*(-2026*M_pow4 + 45*M_pow3*r + 4881*M_pow2*r_pow2 + 2209*M*r_pow3 - 129*r_pow4) + 10*L_pow2*r_pow6*(-452*M_pow4 + 750*M_pow3*r + 1410*M_pow2*r_pow2 + 479*M*r_pow3 + 8*r_pow4)) + a_pow12*M*r_pow2*twoM_plus_r_pow2*(56*r_pow2*twoM_plus_r_pow2*(-11*M_pow2 + 13*M*r + 28*r_pow2) + 3*L_pow4*(119*M_pow2 + 98*M*r + 30*r_pow2) + L_pow2*(-368*M_pow4 + 4112*M_pow2*r_pow2 + 4388*M*r_pow3 + 1174*r_pow4)) - a_pow10*M*r_pow3*twoM_plus_r*(10*L_pow6*(14*M_pow2 + 14*M*r + 5*r_pow2) - 56*r_pow4*twoM_plus_r_pow2*(-24*M_pow2 + 36*M*r + 49*r_pow2) + L_pow4*(740*M_pow4 - 1521*M_pow2*r_pow2 - 1607*M*r_pow3 - 534*r_pow4) - 2*L_pow2*r_pow2*(-2088*M_pow4 - 136*M_pow3*r + 7588*M_pow2*r_pow2 + 6916*M*r_pow3 + 1667*r_pow4)) + a_pow8*r_pow4*(-140*M*r_pow6*twoM_plus_r_pow2*(10*M_pow2 - 22*M*r - 21*r_pow2) - L_pow8*M*(147*M_pow2 + 154*M*r + 40*r_pow2) + 30*L_pow6*M*(8*M_pow4 - 20*M_pow2*r_pow2 - 26*M*r_pow3 - 9*r_pow4) + L_pow4*M*r_pow2*(224*M_pow4 + 1508*M_pow3*r + 5661*M_pow2*r_pow2 + 5743*M*r_pow3 + 1663*r_pow4) + 10*L_pow2*r_pow4*(-1032*M_pow5 + 248*M_pow4*r + 3016*M_pow3*r_pow2 + 2348*M_pow2*r_pow3 + 519*M*r_pow4 + 2*r_pow5)))*ur_pow8))/(12.*r_pow2*pow(a_pow2 + r*r_minus_twoM,7)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),6));
A6200 = (r_pow3*((-8*M*r_pow2*pow(a_pow2 + r*r_minus_twoM,2)*pow(r_pow3 + a_pow2*twoM_plus_r,2)*(-3*a_pow4*E_pow2 + 6*a_pow3*E*L + 2*a*E*L*r*(-2*M + 3*r) + a_pow2*(-3*L_pow2 + E_pow2*(2*M - 5*r)*r) - r*(2*E_pow2*r_pow3 + L_pow2*r_minus_twoM))*ur_pow2*(-(a_pow4*twoM_plus_r) - a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) - r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2))))/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3) + (16*L*M*r_pow4*(-a_pow2 + twoM_minus_r*r)*pow(r_pow3 + a_pow2*twoM_plus_r,3)*(3*a_pow3*E - 3*a_pow2*L + L*twoM_minus_r*r + a*E*r*(-2*M + 3*r))*ur_pow4*(-(a_pow4*twoM_plus_r) - a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) - r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2))))/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),4) - (32*a*L*M_pow2*r_pow4*(a_pow2 + r*r_minus_twoM)*pow(r_pow3 + a_pow2*twoM_plus_r,2)*(3*a_pow4*E - 3*a_pow3*L + a*L*(2*M - 3*r)*r + 2*E*r_pow4 + a_pow2*E*r*(-2*M + 5*r))*ur_pow4*(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2))))/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),4) - (32*a*L_pow2*M_pow2*r_pow6*pow(r_pow3 + a_pow2*twoM_plus_r,3)*ur_pow4*(a_pow2*E*L + E*L*r*r_minus_twoM - 3*a_pow3*ur_pow2 + a*(2*M - 3*r)*r*ur_pow2)*(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2))))/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5) + (8*L_pow2*M*r_pow6*pow(r_pow3 + a_pow2*twoM_plus_r,4)*ur_pow4*(a_pow2*(E_pow2 - 3*ur_pow2) - twoM_minus_r*r*(E_pow2 - ur_pow2))*(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2))))/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5) + (32*a_pow2*L_pow2*M_pow3*r_pow6*pow(r_pow3 + a_pow2*twoM_plus_r,2)*ur_pow4*(-3*a_pow4*ur_pow2 + a_pow2*(L_pow2 + (2*M - 5*r)*r*ur_pow2) + r*(L_pow2*r_minus_twoM - 2*r_pow3*ur_pow2))*(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2))))/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5) - (12*M*pow(a_pow2 + r*r_minus_twoM,2)*(-3*a_pow4*E_pow2 + 6*a_pow3*E*L + 2*a*E*L*r*(-2*M + 3*r) + a_pow2*(-3*L_pow2 + E_pow2*(2*M - 5*r)*r) - r*(2*E_pow2*r_pow3 + L_pow2*r_minus_twoM))*pow(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2)),2))/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2) + (24*L*M*r_pow2*(-a_pow2 + twoM_minus_r*r)*(r_pow3 + a_pow2*twoM_plus_r)*(3*a_pow3*E - 3*a_pow2*L + L*twoM_minus_r*r + a*E*r*(-2*M + 3*r))*ur_pow2*pow(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2)),2))/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3) + (48*a*L*M_pow2*r_pow2*(a_pow2 + r*r_minus_twoM)*(3*a_pow4*E - 3*a_pow3*L + a*L*(2*M - 3*r)*r + 2*E*r_pow4 + a_pow2*E*r*(-2*M + 5*r))*ur_pow2*pow(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2)),2))/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3) + (48*a*L_pow2*M_pow2*r_pow4*(r_pow3 + a_pow2*twoM_plus_r)*ur_pow2*(a_pow2*E*L + E*L*r*r_minus_twoM - 3*a_pow3*ur_pow2 + a*(2*M - 3*r)*r*ur_pow2)*pow(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2)),2))/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),4) + (12*L_pow2*M*r_pow4*pow(r_pow3 + a_pow2*twoM_plus_r,2)*ur_pow2*(-(a_pow2*(E_pow2 - 3*ur_pow2)) + twoM_minus_r*r*(E_pow2 - ur_pow2))*pow(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2)),2))/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),4) - (48*a_pow2*L_pow2*M_pow3*r_pow4*ur_pow2*(-3*a_pow4*ur_pow2 + a_pow2*(L_pow2 + (2*M - 5*r)*r*ur_pow2) + r*(L_pow2*r_minus_twoM - 2*r_pow3*ur_pow2))*pow(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2)),2))/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),4) - (4*M*r_pow2*(a_pow2 + r*r_minus_twoM)*pow(r_pow3 + a_pow2*twoM_plus_r,2)*ur_pow2*(-3*a_pow4*E_pow2 + 6*a_pow3*E*L + 2*a*E*L*r*(-4*M + 3*r) + a_pow2*(-3*L_pow2 + 4*E_pow2*(M - r)*r) + r*(L_pow2*(4*M - 2*r) + r_pow3*(-E_pow2 + ur_pow2)))*pow(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2)),2))/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),4) + (4*M*(a_pow2 + r*r_minus_twoM)*(-3*a_pow4*E_pow2 + 6*a_pow3*E*L + 2*a*E*L*r*(-4*M + 3*r) + a_pow2*(-3*L_pow2 + 4*E_pow2*(M - r)*r) + r*(L_pow2*(4*M - 2*r) + r_pow3*(-E_pow2 + ur_pow2)))*pow(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2)),3))/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3) + (2*r*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2)),2)*(-3*a_pow2*(a_pow2 + r*r_minus_twoM) + M*r*(a_pow2 + r*r_minus_twoM) + (L_pow2*r_pow3*(3*a_pow4*M + r_pow4*(-2*M + 3*r) + a_pow2*r*(2*M_pow2 + 7*M*r + 3*r_pow2))*ur_pow2)/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2) + (r_pow2*ur_pow2*(3*a_pow6*twoM_plus_r_pow2 - 6*a*E*L*M*r_pow3*(3*L_pow2 + 4*r_pow2) + a_pow4*r*twoM_plus_r*(6*L_pow2 - 26*M_pow2 - M*r + 12*r_pow2) - 6*a_pow3*E*L*M*r*(L_pow2 + 4*r*twoM_plus_r) + a_pow2*r*(3*L_pow4*twoM_plus_r + r_pow3*(-52*M_pow2 - 2*M*r + 15*r_pow2) + 3*L_pow2*M*r_pow2*(-4 + ur_pow2)) + r_pow3*(L_pow4*(9*M - 6*r) + r_pow4*(-13*M + 6*r) - 3*L_pow2*r_pow3*(2 + ur_pow2))))/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)))/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2) + (18*pow(a_pow2 + r*r_minus_twoM,3)*(r - (r_pow3*(r_pow3 + a_pow2*twoM_plus_r)*ur_pow2)/((a_pow2 + r*r_minus_twoM)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2))))*(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2)))*((a_pow2 + r*r_minus_twoM)*(-(M*r) + (L_pow2*r_pow6*ur_pow2)/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2) + a_pow2*(1 - (L_pow2*M*r_pow3*ur_pow2)/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2))) + (r_pow2*(r_pow3 + a_pow2*twoM_plus_r)*ur_pow2*(-2*a_pow5*E*L*M*twoM_plus_r + a_pow6*twoM_plus_r_pow2 - 6*a*E*L*M*r_pow3*(L_pow2 + r_pow2) - 2*a_pow3*E*L*M*r*(L_pow2 + 6*M*r + 4*r_pow2) + a_pow4*twoM_plus_r*(2*L_pow2*(M + r) + r*(-2*M_pow2 - M*r + 2*r_pow2)) + a_pow2*r*(L_pow4*twoM_plus_r + r_pow3*(-4*M_pow2 - 2*M*r + r_pow2) + L_pow2*M*r*(4*M + r*ur_pow2)) - r_pow3*(M*r_pow4 + L_pow4*(-3*M + 2*r) + L_pow2*r_pow2*(-2*M + r*(2 + ur_pow2)))))/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)))/(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2)) + 9*r*pow(a_pow2 + r*r_minus_twoM,2)*pow((a_pow2 + r*r_minus_twoM)*(-(M*r) + (L_pow2*r_pow6*ur_pow2)/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2) + a_pow2*(1 - (L_pow2*M*r_pow3*ur_pow2)/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2))) + (r_pow2*(r_pow3 + a_pow2*twoM_plus_r)*ur_pow2*(-2*a_pow5*E*L*M*twoM_plus_r + a_pow6*twoM_plus_r_pow2 - 6*a*E*L*M*r_pow3*(L_pow2 + r_pow2) - 2*a_pow3*E*L*M*r*(L_pow2 + 6*M*r + 4*r_pow2) + a_pow4*twoM_plus_r*(2*L_pow2*(M + r) + r*(-2*M_pow2 - M*r + 2*r_pow2)) + a_pow2*r*(L_pow4*twoM_plus_r + r_pow3*(-4*M_pow2 - 2*M*r + r_pow2) + L_pow2*M*r*(4*M + r*ur_pow2)) - r_pow3*(M*r_pow4 + L_pow4*(-3*M + 2*r) + L_pow2*r_pow2*(-2*M + r*(2 + ur_pow2)))))/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3),2) - (2*r*pow(a_pow2 + r*r_minus_twoM,2)*(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2)))*((a_pow2 + r*r_minus_twoM)*(3*a_pow4 + 2*a_pow2*(M - 6*r)*r - M*(M - 8*r)*r_pow2 + (6*a_pow4*L_pow2*M*r_pow3*ur_pow2)/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2) - (10*a_pow2*L_pow2*M_pow2*r_pow4*ur_pow2)/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2) + (16*a_pow2*L_pow2*M*r_pow5*ur_pow2)/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2) + (6*a_pow2*L_pow2*r_pow6*ur_pow2)/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2) - (2*L_pow2*M*r_pow7*ur_pow2)/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2) - (L_pow4*r_pow6*pow(-(a_pow2*M) + r_pow3,2)*ur_pow4)/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),4)) + (r*ur_pow2*(3*r*pow(-2*a_pow5*E*L*M*twoM_plus_r + a_pow6*twoM_plus_r_pow2 - 6*a*E*L*M*r_pow3*(L_pow2 + r_pow2) - 2*a_pow3*E*L*M*r*(L_pow2 + 6*M*r + 4*r_pow2) + a_pow4*twoM_plus_r*(2*L_pow2*(M + r) + r*(-2*M_pow2 - M*r + 2*r_pow2)) + a_pow2*r*(L_pow4*twoM_plus_r + r_pow3*(-4*M_pow2 - 2*M*r + r_pow2) + L_pow2*M*r*(4*M + r*ur_pow2)) - r_pow3*(M*r_pow4 + L_pow4*(-3*M + 2*r) + L_pow2*r_pow2*(-2*M + r*(2 + ur_pow2))),2) - 4*(r_pow3 + a_pow2*twoM_plus_r)*(a*L*M*(-2*a*L*M + E*r_pow3 + a_pow2*E*twoM_plus_r)*(-((3*a_pow2 + r*(-5*M + 6*r))*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)) - L_pow2*r_pow3*(-(a_pow2*M) + r_pow3)*ur_pow2) + L*(2*a*E*M + L*r_minus_twoM)*(-((-3*a_pow4*M + M*r_pow4 + a_pow2*r*(5*M_pow2 - 8*M*r - 3*r_pow2))*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)) - L_pow2*r_pow3*pow(-(a_pow2*M) + r_pow3,2)*ur_pow2) + r_pow2*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2))*(-(a_pow6*(2*M - 3*r)*twoM_plus_r_pow2) + a_pow4*r*(4*M_pow4 - 4*M_pow3*r - 15*M_pow2*r_pow2 + 6*M*r_pow3 + 6*r_pow4 + L_pow2*(-8*M_pow2 + 6*r_pow2 + M*r*(8 + 3*ur_pow2))) + r_pow3*(L_pow4*M*(M - 2*r) + M*(M - 2*r)*r_pow4 + L_pow2*r_pow2*(2*M_pow2 + 3*r_pow2*ur_pow2 - M*r*(4 + 5*ur_pow2))) - a_pow2*r_pow2*(L_pow4*(2*M - 3*r) + r_pow2*(-4*M_pow3 + 6*M_pow2*r + 6*M*r_pow2 - 3*r_pow3) + L_pow2*(-4*M_pow3 - 6*r_pow3 + 2*M*r_pow2*(4 + ur_pow2) + M_pow2*r*(6 + 7*ur_pow2)))))))/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),4)))/(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2))))/(24.*pow(a_pow2 + r*r_minus_twoM,8));
A6201 = (r*ur*(-72*a*E_pow3*M_pow2*(a_pow2 + r_pow2)*pow(a_pow2 + r*r_minus_twoM,2)*(-(L_pow2*r) + r_pow3 + a_pow2*twoM_plus_r)*(a_pow4 + 6*r_pow4 + a_pow2*r*(6*M + 7*r))*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5) + 2*E_pow2*L*M*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5)*(24*a_pow8*(9*M_pow2 + 7*M*r + 5*r_pow2) + 3*a_pow6*r*(432*M_pow3 - 6*L_pow2*(6*M - 5*r) + 428*M_pow2*r - 46*M*r_pow2 + 145*r_pow3) + r_pow7*(-3*L_pow2*(92*M - 49*r) + r_pow2*(-112*M + 79*r)) + a_pow2*r_pow4*(-12*L_pow2*(37*M_pow2 + 75*M*r - 32*r_pow2) + r_pow2*(2216*M_pow2 - 970*M*r + 353*r_pow2)) + a_pow4*r_pow2*(L_pow2*(-648*M_pow2 - 732*M*r + 327*r_pow2) + r*(1352*M_pow3 + 2868*M_pow2*r - 1116*M*r_pow2 + 589*r_pow3))) - 2*a*E*M*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5)*(129*a_pow8*r*twoM_plus_r + 3*a_pow6*(L_pow2*(72*M_pow2 + 76*M*r + 73*r_pow2) + 2*r_pow2*(-198*M_pow2 + 44*M*r + 93*r_pow2)) + r_pow4*(-12*L_pow4*(20*M_pow2 + 35*M*r - 24*r_pow2) + 3*r_pow4*(227*M_pow2 - 156*M*r + 16*r_pow2) + L_pow2*r_pow2*(1763*M_pow2 - 2096*M*r + 696*r_pow2)) + 3*a_pow4*r*(L_pow4*(-36*M + 60*r) + L_pow2*(432*M_pow3 + 64*M_pow2*r - 310*M*r_pow2 + 229*r_pow3) + r_pow2*(434*M_pow3 - 627*M_pow2*r - 360*M*r_pow2 + 273*r_pow3)) + a_pow2*r_pow2*(-12*L_pow4*(54*M_pow2 + 50*M*r - 39*r_pow2) + 6*r_pow3*(227*M_pow3 + 66*M_pow2*r - 273*M*r_pow2 + 73*r_pow3) + L_pow2*r*(1408*M_pow3 + 2161*M_pow2*r - 2522*M*r_pow2 + 1002*r_pow3))) + L*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5)*(3*a_pow8*r*(172*M_pow2 + 18*M*r - 9*r_pow2) + 3*a_pow6*(r_pow2*(-792*M_pow3 + 518*M_pow2*r + 81*M*r_pow2 - 37*r_pow3) + L_pow2*(48*M_pow3 + 64*M_pow2*r + 66*M*r_pow2 - 9*r_pow3)) + r_pow4*(-6*L_pow4*M*r_minus_twoM_pow2 + L_pow2*r_pow2*(575*M_pow3 - 954*M_pow2*r + 568*M*r_pow2 - 120*r_pow3) + r_pow4*(-37*M_pow3 + 156*M_pow2*r - 122*M*r_pow2 + 24*r_pow3)) + a_pow4*r*(-36*L_pow4*M*(2*M - 5*r) + r_pow2*(2604*M_pow4 - 4790*M_pow3*r + 871*M_pow2*r_pow2 + 475*M*r_pow3 - 60*r_pow4) + L_pow2*(864*M_pow4 - 600*M_pow3*r - 936*M_pow2*r_pow2 + 753*M*r_pow3 + 6*r_pow4)) + a_pow2*r_pow2*(-6*L_pow4*M*(72*M_pow2 + 52*M*r - 47*r_pow2) + r_pow3*(2434*M_pow4 - 1081*M_pow3*r - 425*M_pow2*r_pow2 + 50*M*r_pow3 + 48*r_pow4) + L_pow2*r*(976*M_pow4 + 1322*M_pow3*r - 2197*M_pow2*r_pow2 + 604*M*r_pow3 + 72*r_pow4))) + r_pow3*(a_pow2 + r*r_minus_twoM)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(486*a_pow13*E*M*twoM_plus_r_pow3 + 3*a_pow12*L*twoM_plus_r_pow2*(12*(-27 + 26*E_pow2)*M_pow2 + 4*(23 + 8*E_pow2)*M*r + 27*r_pow2) + 2*a*E*M*r_pow7*(L_pow4*r_pow2*(-4133*M_pow2 + 2*(2821 + 108*E_pow2)*M*r - 1980*r_pow2) + 3*r_pow6*(37*M_pow2 - 4*(36 + 19*E_pow2)*M*r + 68*r_pow2) - 9*L_pow6*(317*M_pow2 - 482*M*r + 164*r_pow2) + L_pow2*r_pow4*(1439*M_pow2 + 12*(-184 + 3*E_pow2)*M*r + 612*r_pow2)) + L*r_pow7*(L_pow4*r_pow2*(1987*M_pow3 - (2993 + 792*E_pow2)*M_pow2*r + 2*(815 + 198*E_pow2)*M*r_pow2 - 320*r_pow3) + 3*L_pow6*(403*M_pow3 - 631*M_pow2*r + 334*M*r_pow2 - 60*r_pow3) + r_pow6*(-1065*M_pow3 + 2*(887 - 134*E_pow2)*M_pow2*r + 2*(-505 + 96*E_pow2)*M*r_pow2 + 192*r_pow3) + L_pow2*r_pow4*(-1391*M_pow3 + 2*(1257 - 586*E_pow2)*M_pow2*r + 2*(-697 + 334*E_pow2)*M*r_pow2 + 236*r_pow3)) - 2*a_pow3*E*M*r_pow4*(-9*L_pow6*(16*M_pow3 - 203*M_pow2*r + 574*M*r_pow2 - 254*r_pow3) + 6*r_pow6*(-111*M_pow3 + (297 + 304*E_pow2)*M_pow2*r + (185 + 186*E_pow2)*M*r_pow2 - 191*r_pow3) - L_pow2*r_pow4*(25992*M_pow3 + (-17015 + 3132*E_pow2)*M_pow2*r + 8*(-386 + 9*E_pow2)*M*r_pow2 + 1476*r_pow3) + 2*L_pow4*r_pow2*(-929*M_pow3 + (911 + 54*E_pow2)*M_pow2*r - (5323 + 324*E_pow2)*M*r_pow2 + 2934*r_pow3)) + a_pow2*L*r_pow4*(6*L_pow6*(120*M_pow4 + 417*M_pow3*r - 800*M_pow2*r_pow2 + 250*M*r_pow3 + 18*r_pow4) - 2*L_pow4*r_pow2*(1464*M_pow4 - 214*(26 + 9*E_pow2)*M_pow3*r + 9*(627 + 332*E_pow2)*M_pow2*r_pow2 - (1906 + 765*E_pow2)*M*r_pow3 + 100*r_pow4) + r_pow6*(-7014*M_pow4 + (5735 - 11096*E_pow2)*M_pow3*r + 3*(675 + 2344*E_pow2)*M_pow2*r_pow2 + 2*(-1331 + 538*E_pow2)*M*r_pow3 + 540*r_pow4) + L_pow2*r_pow4*(-20370*M_pow4 + (24169 - 3972*E_pow2)*M_pow3*r - 2*(2353 + 1322*E_pow2)*M_pow2*r_pow2 + 2*(-1069 + 1453*E_pow2)*M*r_pow3 + 556*r_pow4)) + 2*a_pow5*E*M*r_pow2*(9*L_pow6*(288*M_pow3 + 120*M_pow2*r + 160*M*r_pow2 - 205*r_pow3) + L_pow4*r*(1888*M_pow4 + 2*(1447 + 432*E_pow2)*M_pow3*r + 3*(3035 + 252*E_pow2)*M_pow2*r_pow2 + 8*(731 + 81*E_pow2)*M*r_pow3 - 7047*r_pow4) + L_pow2*r_pow3*(48468*M_pow4 + 4*(1771 + 1566*E_pow2)*M_pow3*r + 3*(-13319 + 2016*E_pow2)*M_pow2*r_pow2 - 846*M*r_pow3 + 777*r_pow4) + 3*r_pow5*(444*M_pow4 - 6*(55 + 304*E_pow2)*M_pow3*r - 32*(75 + 74*E_pow2)*M_pow2*r_pow2 - 8*(-22 + 91*E_pow2)*M*r_pow3 + 943*r_pow4)) - a_pow4*L*r_pow2*(3*L_pow6*(576*M_pow4 + 180*M_pow3*r + 744*M_pow2*r_pow2 - 661*M*r_pow3 - 9*r_pow4) + L_pow2*r_pow3*(56664*M_pow5 + 8*(-3551 + 1983*E_pow2)*M_pow4*r + (-34315 + 13636*E_pow2)*M_pow3*r_pow2 + 4*(4771 + 708*E_pow2)*M_pow2*r_pow3 - (329 + 5148*E_pow2)*M*r_pow4 - 434*r_pow5) + r_pow5*(15276*M_pow5 + 32*(47 + 1236*E_pow2)*M_pow4*r - (20609 + 2112*E_pow2)*M_pow3*r_pow2 + (2425 - 27968*E_pow2)*M_pow2*r_pow3 + (3911 - 2480*E_pow2)*M*r_pow4 - 366*r_pow5) + L_pow4*r*(1600*M_pow5 + 4*(-1769 + 684*E_pow2)*M_pow4*r + 3*(1237 + 120*E_pow2)*M_pow3*r_pow2 + 3*(4457 + 1776*E_pow2)*M_pow2*r_pow3 - 9*(773 + 246*E_pow2)*M*r_pow4 - 279*r_pow5)) - 2*a_pow7*E*M*r*(9*L_pow6*(12*M_pow2 + 40*M*r + 61*r_pow2) + 2*L_pow4*(432*M_pow4 - 8*(371 + 54*E_pow2)*M_pow3*r - (3899 + 270*E_pow2)*M_pow2*r_pow2 + 2*(449 - 54*E_pow2)*M*r_pow3 + 2088*r_pow4) - 6*r_pow3*(148*M_pow5 - 8*(-75 + 152*E_pow2)*M_pow4*r - (1603 + 2640*E_pow2)*M_pow3*r_pow2 - (1489 + 1728*E_pow2)*M_pow2*r_pow3 + (939 - 356*E_pow2)*M*r_pow4 + 649*r_pow5) + L_pow2*r*(-4480*M_pow5 - 4*(5359 + 72*E_pow2)*M_pow4*r - 8*(-4118 + 729*E_pow2)*M_pow3*r_pow2 + (32605 - 3672*E_pow2)*M_pow2*r_pow3 + 6*(227 + 12*E_pow2)*M*r_pow4 + 651*r_pow5)) - 2*a_pow9*E*M*(L_pow4*(-648*M_pow3 + 4*(163 + 9*E_pow2)*M_pow2*r + 2172*M*r_pow2 + 1017*r_pow3) + 3*r_pow2*twoM_plus_r*((-636 + 608*E_pow2)*M_pow4 + 4*(187 + 500*E_pow2)*M_pow3*r + (1941 + 1544*E_pow2)*M_pow2*r_pow2 + 6*(-147 + 58*E_pow2)*M*r_pow3 - 1036*r_pow4) + L_pow2*(9792*M_pow5 + 32*(251 + 9*E_pow2)*M_pow4*r - 28*(-767 + 54*E_pow2)*M_pow3*r_pow2 + 2*(6631 - 432*E_pow2)*M_pow2*r_pow3 + 2*(1241 + 18*E_pow2)*M*r_pow4 + 789*r_pow5)) - a_pow6*L*r*(-18*L_pow6*(4*M_pow3 + 20*M_pow2*r + 42*M*r_pow2 - r_pow3) + 2*L_pow4*(-288*M_pow5 + 4*(553 + 648*E_pow2)*M_pow4*r + 2*(2648 + 675*E_pow2)*M_pow3*r_pow2 + (47 + 540*E_pow2)*M_pow2*r_pow3 - (2906 + 711*E_pow2)*M*r_pow4 - 102*r_pow5) + L_pow2*r*(8128*M_pow6 + 8*(2791 + 344*E_pow2)*M_pow5*r + 6*(-9263 + 4088*E_pow2)*M_pow4*r_pow2 + 39*(-65 + 492*E_pow2)*M_pow3*r_pow3 - 8*(-2134 + 9*E_pow2)*M_pow2*r_pow4 - (3181 + 4688*E_pow2)*M*r_pow5 - 288*r_pow6) + r_pow3*(11016*M_pow6 + 4*(3893 + 8408*E_pow2)*M_pow5*r + 2*(-17311 + 11856*E_pow2)*M_pow4*r_pow2 - 3*(6931 + 18960*E_pow2)*M_pow3*r_pow3 + (12887 - 41408*E_pow2)*M_pow2*r_pow4 + (4991 - 3000*E_pow2)*M*r_pow5 + 141*r_pow6)) + a_pow8*L*(L_pow4*(-432*M_pow4 + 8*(95 + 27*E_pow2)*M_pow3*r + 12*(257 + 30*E_pow2)*M_pow2*r_pow2 + 3*(563 + 114*E_pow2)*M*r_pow3 + 45*r_pow4) + r_pow2*(16*(-477 + 404*E_pow2)*M_pow6 + 64*(319 + 111*E_pow2)*M_pow5*r + 8*(4535 + 5612*E_pow2)*M_pow4*r_pow2 + 4*(-2467 + 17848*E_pow2)*M_pow3*r_pow3 + 3*(-6091 + 9900*E_pow2)*M_pow2*r_pow4 + (-3247 + 2000*E_pow2)*M*r_pow5 - 99*r_pow6) + L_pow2*(6528*M_pow6 + 32*(47 + 54*E_pow2)*M_pow5*r - 8*(-1965 + 1309*E_pow2)*M_pow4*r_pow2 - 4*(1907 + 1683*E_pow2)*M_pow3*r_pow3 + 2*(-1085 + 1346*E_pow2)*M_pow2*r_pow4 + (3641 + 2216*E_pow2)*M*r_pow5 + 318*r_pow6)) - 6*a_pow11*E*M*twoM_plus_r*(L_pow2*((624 - 36*E_pow2)*M_pow2 + 212*M*r + 75*r_pow2) + 4*twoM_plus_r*(17*E_pow2*M*twoM_plus_r_pow2 + r*(119*M_pow2 - 43*M*r - 112*r_pow2))) + a_pow10*L*(L_pow2*(-144*(-26 + 9*E_pow2)*M_pow4 + 8*(270 + 41*E_pow2)*M_pow3*r + 6*(481 + 210*E_pow2)*M_pow2*r_pow2 + 219*(7 + 2*E_pow2)*M*r_pow3 + 144*r_pow4) + twoM_plus_r*(r*(5712*M_pow4 - 4852*M_pow3*r - 7212*M_pow2*r_pow2 - 197*M*r_pow3 + 141*r_pow4) + 4*E_pow2*M*(2448*M_pow4 + 2228*M_pow3*r + 3514*M_pow2*r_pow2 + 2224*M*r_pow3 + 173*r_pow4))))*ur_pow2 + r_pow5*(-24*a*E_pow3*M_pow2*pow(r_pow3 + a_pow2*twoM_plus_r,2)*(r_pow11*(-30*L_pow6 - 35*L_pow4*r_pow2 + 2*L_pow2*r_pow4 + 7*r_pow6) + a_pow12*twoM_plus_r_pow3*(-9*L_pow2 + 7*twoM_plus_r_pow2) - a_pow2*r_pow6*(3*L_pow8*(6*M - r) + 5*L_pow2*r_pow6*(-14*M + r) - 14*r_pow8*(5*M + 3*r) + 3*L_pow6*r_pow2*(34*M + 29*r) + 5*L_pow4*r_pow4*(24*M + 31*r)) + a_pow10*r*twoM_plus_r_pow2*(-15*L_pow4 + 14*r*twoM_plus_r_pow2*(M + 3*r) + L_pow2*(92*M_pow2 + 2*M*r - 49*r_pow2)) - a_pow4*r_pow4*(6*L_pow8*(3*M - r) - 35*r_pow7*(8*M_pow2 + 10*M*r + 3*r_pow2) + 30*L_pow4*r_pow3*(2*M_pow2 + 14*M*r + 9*r_pow2) + 3*L_pow6*r*(28*M_pow2 + 62*M*r + 29*r_pow2) + L_pow2*r_pow5*(-372*M_pow2 - 178*M*r + 49*r_pow2)) + a_pow8*r_pow2*twoM_plus_r*(-3*L_pow6 + 35*r_pow3*twoM_plus_r_pow2*(2*M + 3*r) + 5*L_pow4*(8*M_pow2 - 22*M*r - 19*r_pow2) + 4*L_pow2*r*(58*M_pow3 + 116*M_pow2*r + 5*M*r_pow2 - 26*r_pow3)) + a_pow6*r_pow3*(3*L_pow8 + 140*r_pow5*(M + r)*twoM_plus_r_pow2 - 3*L_pow6*(20*M_pow2 + 30*M*r + 11*r_pow2) + 2*L_pow2*r_pow3*(356*M_pow3 + 432*M_pow2*r + 30*M*r_pow2 - 53*r_pow3) - 10*L_pow4*r*(-8*M_pow3 + 18*M_pow2*r + 54*M*r_pow2 + 23*r_pow3))) + 2*E_pow2*L*M*(-6*a_pow18*twoM_plus_r_pow5*(34*M + 15*r) - r_pow16*(L_pow2 + r_pow2)*(9*L_pow6 + 3*L_pow4*(172*M - 89*r)*r + L_pow2*(586*M - 323*r)*r_pow3 + (142*M - 83*r)*r_pow5) - a_pow16*twoM_plus_r_pow3*(-4032*M_pow5 - 13616*M_pow4*r - 13088*M_pow3*r_pow2 - 2232*M_pow2*r_pow3 + 1916*M*r_pow4 + 605*r_pow5 + 2*L_pow2*(648*M_pow3 + 572*M_pow2*r + 300*M*r_pow2 + 117*r_pow3)) + 2*a_pow4*r_pow9*(9*L_pow8*(142*M_pow3 + 113*M_pow2*r - 195*M*r_pow2 + 5*r_pow3) + 2*r_pow8*(-4134*M_pow3 - 81*M_pow2*r + 1981*M*r_pow2 + 457*r_pow3) + L_pow6*r_pow2*(-14364*M_pow3 - 8322*M_pow2*r + 4560*M*r_pow2 + 1103*r_pow3) + 2*L_pow2*r_pow6*(-30120*M_pow3 - 6124*M_pow2*r + 12003*M*r_pow2 + 1698*r_pow3) + L_pow4*r_pow4*(-67370*M_pow3 - 22017*M_pow2*r + 25980*M*r_pow2 + 3529*r_pow3)) + 2*a_pow2*r_pow12*(18*L_pow8*M*(77*M - 41*r) + r_pow8*(-1150*M_pow2 + 322*M*r + 303*r_pow2) + 2*L_pow2*r_pow6*(-4932*M_pow2 + 1601*M*r + 648*r_pow2) + L_pow4*r_pow4*(-14540*M_pow2 + 4328*M*r + 1607*r_pow2) + L_pow6*(-4368*M_pow2*r_pow2 + 710*M*r_pow3 + 596*r_pow4)) - 2*a_pow6*r_pow6*(L_pow4*r_pow4*(117592*M_pow4 + 130924*M_pow3*r - 34469*M_pow2*r_pow2 - 49975*M*r_pow3 - 3865*r_pow4) + 4*L_pow6*r_pow2*(4026*M_pow4 + 6864*M_pow3*r + 640*M_pow2*r_pow2 - 1775*M*r_pow3 - 258*r_pow4) + 9*L_pow8*(8*M_pow4 - 4*M_pow3*r + 91*M_pow2*r_pow2 + 153*M*r_pow3 - 10*r_pow4) - 2*r_pow8*(-16780*M_pow4 - 5488*M_pow3*r + 11139*M_pow2*r_pow2 + 6241*M*r_pow3 + 700*r_pow4) - 2*L_pow2*r_pow6*(-79064*M_pow4 - 62844*M_pow3*r + 33632*M_pow2*r_pow2 + 29361*M*r_pow3 + 2264*r_pow4)) + a_pow8*r_pow4*(-9*L_pow8*(288*M_pow4 + 180*M_pow3*r + 122*M_pow2*r_pow2 + 74*M*r_pow3 - 15*r_pow4) + 2*L_pow6*r*(-5568*M_pow5 - 22976*M_pow4*r - 17808*M_pow3*r_pow2 + 3172*M_pow2*r_pow3 + 4806*M*r_pow4 + 503*r_pow5) + 2*r_pow7*(-82000*M_pow5 - 52040*M_pow4*r + 68820*M_pow3*r_pow2 + 70750*M_pow2*r_pow3 + 18668*M*r_pow4 + 945*r_pow5) + 4*L_pow2*r_pow5*(-102384*M_pow5 - 143504*M_pow4*r + 20044*M_pow3*r_pow2 + 97096*M_pow2*r_pow3 + 35303*M*r_pow4 + 1425*r_pow5) + 2*L_pow4*r_pow3*(-83128*M_pow5 - 179660*M_pow4*r - 41528*M_pow3*r_pow2 + 93474*M_pow2*r_pow3 + 45269*M*r_pow4 + 1985*r_pow5)) + 2*a_pow10*r_pow3*(9*L_pow8*(24*M_pow3 + 13*M_pow2*r + 3*M*r_pow2 + 2*r_pow3) - 2*L_pow6*(2160*M_pow5 + 4868*M_pow4*r + 2152*M_pow3*r_pow2 - 1080*M_pow2*r_pow3 - 727*M*r_pow4 - 58*r_pow5) + 2*r_pow5*(-59856*M_pow6 - 54576*M_pow5*r + 66160*M_pow4*r_pow2 + 106000*M_pow3*r_pow3 + 47205*M_pow2*r_pow4 + 6647*M*r_pow5 - 133*r_pow6) + 2*L_pow2*r_pow3*(-64992*M_pow6 - 121136*M_pow5*r - 336*M_pow4*r_pow2 + 137256*M_pow3*r_pow3 + 100348*M_pow2*r_pow4 + 21435*M*r_pow5 + 24*r_pow6) + L_pow4*r*(-19840*M_pow6 - 68688*M_pow5*r - 56652*M_pow4*r_pow2 + 45764*M_pow3*r_pow3 + 67482*M_pow2*r_pow4 + 19266*M*r_pow5 + 145*r_pow6)) - 2*a_pow14*r*twoM_plus_r_pow2*(L_pow4*(1080*M_pow3 + 379*M_pow2*r - 3*M*r_pow2 + 81*r_pow3) - 2*L_pow2*(3312*M_pow5 + 6296*M_pow4*r + 5976*M_pow3*r_pow2 + 3388*M_pow2*r_pow3 + 243*M*r_pow4 - 312*r_pow5) + 2*r*(4112*M_pow6 - 1264*M_pow5*r - 20512*M_pow4*r_pow2 - 22208*M_pow3*r_pow3 - 6989*M_pow2*r_pow4 + 517*M*r_pow5 + 408*r_pow6)) - 2*a_pow12*r_pow2*twoM_plus_r*(L_pow6*(216*M_pow3 - 106*M_pow2*r - 138*M*r_pow2 - 9*r_pow3) - L_pow4*(2880*M_pow5 - 1036*M_pow4*r + 3012*M_pow3*r_pow2 + 9071*M_pow2*r_pow3 + 3096*M*r_pow4 - 273*r_pow5) + 2*r_pow3*(24080*M_pow6 + 13744*M_pow5*r - 51176*M_pow4*r_pow2 - 64872*M_pow3*r_pow3 - 24979*M_pow2*r_pow4 - 1753*M*r_pow5 + 511*r_pow6) + 2*L_pow2*r*(8608*M_pow6 + 6528*M_pow5*r - 21320*M_pow4*r_pow2 - 46556*M_pow3*r_pow3 - 31370*M_pow2*r_pow4 - 5853*M*r_pow5 + 542*r_pow6))) + 2*a*E*M*(582*a_pow18*twoM_plus_r_pow6 - r_pow12*(L_pow2 + r_pow2)*(L_pow4*r_pow4*(-15580*M_pow2 + 16112*M*r - 4101*r_pow2) + 9*L_pow6*r_pow2*(-156*M_pow2 + 20*M*r + 31*r_pow2) - 12*r_pow8*(108*M_pow2 - 124*M*r + 35*r_pow2) + 18*L_pow8*(304*M_pow2 - 332*M*r + 89*r_pow2) - 4*L_pow2*r_pow6*(2302*M_pow2 - 2627*M*r + 732*r_pow2)) + 6*a_pow16*twoM_plus_r_pow4*(L_pow2*(136*M_pow2 + 483*M*r + 275*r_pow2) + 2*r*(-688*M_pow3 - 144*M_pow2*r + 954*M*r_pow2 + 427*r_pow3)) - a_pow2*r_pow9*(L_pow4*r_pow6*(-181568*M_pow3 + 74180*M_pow2*r + 81544*M*r_pow2 - 36661*r_pow3) + 2*L_pow2*r_pow8*(-44982*M_pow3 + 23221*M_pow2*r + 22631*M*r_pow2 - 11664*r_pow3) + 6*r_pow10*(-2592*M_pow3 + 1380*M_pow2*r + 1256*M*r_pow2 - 665*r_pow3) + 18*L_pow10*(306*M_pow3 + 191*M_pow2*r - 622*M*r_pow2 + 235*r_pow3) - 2*L_pow6*r_pow4*(61348*M_pow3 - 17600*M_pow2*r - 18831*M*r_pow2 + 5977*r_pow3) + L_pow8*r_pow2*(-11616*M_pow3 + 3700*M_pow2*r - 16956*M*r_pow2 + 9329*r_pow3)) + a_pow4*r_pow6*(L_pow8*r_pow2*(33684*M_pow4 + 12596*M_pow3*r + 16373*M_pow2*r_pow2 + 9498*M*r_pow3 - 18385*r_pow4) - 36*L_pow10*(64*M_pow4 + 129*M_pow3*r - 157*M_pow2*r_pow2 - 200*M*r_pow3 + 126*r_pow4) + 24*r_pow10*(3240*M_pow4 + 420*M_pow3*r - 3234*M_pow2*r_pow2 - 143*M*r_pow3 + 698*r_pow4) + 2*L_pow6*r_pow4*(141024*M_pow4 + 68400*M_pow3*r - 71986*M_pow2*r_pow2 - 18795*M*r_pow3 + 4944*r_pow4) + 2*L_pow2*r_pow8*(154896*M_pow4 + 26642*M_pow3*r - 159420*M_pow2*r_pow2 - 11805*M*r_pow3 + 35829*r_pow4) + L_pow4*r_pow6*(503324*M_pow4 + 165852*M_pow3*r - 410421*M_pow2*r_pow2 - 61462*M*r_pow3 + 80380*r_pow4)) + a_pow6*r_pow4*(18*L_pow10*(144*M_pow4 + 84*M_pow3*r + 271*M_pow2*r_pow2 + 28*M*r_pow3 - 137*r_pow4) + L_pow8*r*(10176*M_pow5 + 29084*M_pow4*r + 19128*M_pow3*r_pow2 + 20561*M_pow2*r_pow3 - 14986*M*r_pow4 - 18077*r_pow5) - 4*L_pow6*r_pow3*(-63656*M_pow5 - 88088*M_pow4*r + 11262*M_pow3*r_pow2 + 43446*M_pow2*r_pow3 + 12089*M*r_pow4 + 1305*r_pow5) + 24*r_pow9*(8640*M_pow5 + 7540*M_pow4*r - 10220*M_pow3*r_pow2 - 7512*M_pow2*r_pow3 + 2555*M*r_pow4 + 1701*r_pow5) + 2*L_pow2*r_pow7*(280208*M_pow5 + 262072*M_pow4*r - 330260*M_pow3*r_pow2 - 279989*M_pow2*r_pow3 + 80299*M*r_pow4 + 63600*r_pow5) + L_pow4*r_pow5*(678832*M_pow5 + 766108*M_pow4*r - 474116*M_pow3*r_pow2 - 600019*M_pow2*r_pow3 + 56330*M*r_pow4 + 96390*r_pow5)) + a_pow14*twoM_plus_r_pow2*(24*r_pow2*twoM_plus_r_pow2*(300*M_pow4 - 308*M_pow3*r - 1320*M_pow2*r_pow2 + 393*M*r_pow3 + 833*r_pow4) + L_pow4*(2592*M_pow4 + 3280*M_pow3*r + 2553*M_pow2*r_pow2 + 2658*M*r_pow3 + 900*r_pow4) - 2*L_pow2*(4032*M_pow6 + 21184*M_pow5*r + 41356*M_pow4*r_pow2 + 23352*M_pow3*r_pow3 - 22069*M_pow2*r_pow4 - 26389*M*r_pow5 - 6744*r_pow6)) - a_pow8*r_pow3*(18*L_pow10*(24*M_pow3 + 2*M_pow2*r + 46*M*r_pow2 + 31*r_pow3) + L_pow8*(-8640*M_pow5 - 17344*M_pow4*r - 16692*M_pow3*r_pow2 + 2261*M_pow2*r_pow3 + 19966*M*r_pow4 + 8910*r_pow5) + L_pow4*r_pow3*(-502576*M_pow6 - 883760*M_pow5*r + 66320*M_pow4*r_pow2 + 943576*M_pow3*r_pow3 + 395726*M_pow2*r_pow4 - 127880*M*r_pow5 - 68965*r_pow6) - 24*r_pow7*(12960*M_pow6 + 23040*M_pow5*r - 12440*M_pow4*r_pow2 - 30280*M_pow3*r_pow3 - 3450*M_pow2*r_pow4 + 8561*M*r_pow5 + 2653*r_pow6) + 2*L_pow6*r*(-45440*M_pow6 - 93056*M_pow5*r - 34008*M_pow4*r_pow2 + 64660*M_pow3*r_pow3 + 70164*M_pow2*r_pow4 + 30900*M*r_pow5 + 6389*r_pow6) - 2*L_pow2*r_pow5*(301824*M_pow6 + 512848*M_pow5*r - 259152*M_pow4*r_pow2 - 737572*M_pow3*r_pow3 - 135236*M_pow2*r_pow4 + 204605*M*r_pow5 + 71625*r_pow6)) + a_pow12*r*twoM_plus_r*(2*L_pow6*(2160*M_pow4 + 436*M_pow3*r - 3600*M_pow2*r_pow2 - 2955*M*r_pow3 - 690*r_pow4) + 24*r_pow3*twoM_plus_r_pow2*(432*M_pow5 + 1952*M_pow4*r - 2128*M_pow3*r_pow2 - 4416*M_pow2*r_pow3 + 1351*M*r_pow4 + 1890*r_pow5) - L_pow4*(26496*M_pow6 + 86912*M_pow5*r + 118728*M_pow4*r_pow2 + 94154*M_pow3*r_pow3 + 15069*M_pow2*r_pow4 - 21174*M*r_pow5 - 7626*r_pow6) + 2*L_pow2*r*(40960*M_pow7 + 66448*M_pow6*r - 69736*M_pow5*r_pow2 - 276492*M_pow4*r_pow3 - 178546*M_pow3*r_pow4 + 74566*M_pow2*r_pow5 + 102431*M*r_pow6 + 24639*r_pow7)) + a_pow10*r_pow2*(L_pow8*(864*M_pow4 - 1280*M_pow3*r - 7161*M_pow2*r_pow2 - 6642*M*r_pow3 - 1770*r_pow4) + 12*r_pow5*twoM_plus_r_pow2*(5184*M_pow5 + 10824*M_pow4*r - 12600*M_pow3*r_pow2 - 16816*M_pow2*r_pow3 + 5306*M*r_pow4 + 5495*r_pow5) - 2*L_pow6*(5760*M_pow6 + 8816*M_pow5*r + 14976*M_pow4*r_pow2 + 35160*M_pow3*r_pow3 + 38676*M_pow2*r_pow4 + 19167*M*r_pow5 + 3591*r_pow6) + L_pow4*r*(204544*M_pow7 + 338448*M_pow6*r - 56592*M_pow5*r_pow2 - 687824*M_pow4*r_pow3 - 633592*M_pow3*r_pow4 - 96666*M_pow2*r_pow5 + 95180*M*r_pow6 + 30049*r_pow7) + 2*L_pow2*r_pow3*(211296*M_pow7 + 461104*M_pow6*r - 68256*M_pow5*r_pow2 - 884064*M_pow4*r_pow3 - 561106*M_pow3*r_pow4 + 170433*M_pow2*r_pow5 + 235527*M*r_pow6 + 52584*r_pow7))) - L*(6*a_pow18*twoM_plus_r_pow5*(388*M_pow2 + 147*M*r - 18*r_pow2) + r_pow12*(L_pow2 + r_pow2)*(L_pow4*r_pow4*(9836*M_pow3 - 15520*M_pow2*r + 8005*M*r_pow2 - 1352*r_pow3) + 4*L_pow2*r_pow6*(2236*M_pow3 - 3244*M_pow2*r + 1555*M*r_pow2 - 246*r_pow3) + L_pow6*r_pow2*(-884*M_pow3 + 412*M_pow2*r + 187*M*r_pow2 - 86*r_pow3) + 2*r_pow8*(894*M_pow3 - 1069*M_pow2*r + 407*M*r_pow2 - 48*r_pow3) - 18*L_pow8*(174*M_pow3 - 247*M_pow2*r + 116*M*r_pow2 - 18*r_pow3)) + a_pow16*twoM_plus_r_pow3*(-33024*M_pow5*r - 23504*M_pow4*r_pow2 + 42128*M_pow3*r_pow3 + 39776*M_pow2*r_pow4 + 7078*M*r_pow5 - 702*r_pow6 + 3*L_pow2*(544*M_pow4 + 3624*M_pow3*r + 3258*M_pow2*r_pow2 + 353*M*r_pow3 - 135*r_pow4)) - a_pow2*r_pow9*(L_pow8*r_pow2*(-18004*M_pow4 + 41134*M_pow3*r - 34128*M_pow2*r_pow2 + 9934*M*r_pow3 - 479*r_pow4) + 9*L_pow10*(174*M_pow4 + 995*M_pow3*r - 1439*M_pow2*r_pow2 + 508*M*r_pow3 - 30*r_pow4) + 2*r_pow10*(-10710*M_pow4 + 4013*M_pow3*r + 5892*M_pow2*r_pow2 - 3118*M*r_pow3 + 258*r_pow4) + 2*L_pow6*r_pow4*(-55786*M_pow4 + 56277*M_pow3*r - 5640*M_pow2*r_pow2 - 8520*M*r_pow3 + 2091*r_pow4) + L_pow2*r_pow8*(-111210*M_pow4 + 72019*M_pow3*r + 40675*M_pow2*r_pow2 - 35080*M*r_pow3 + 5316*r_pow4) + L_pow4*r_pow6*(-182656*M_pow4 + 145232*M_pow3*r + 38788*M_pow2*r_pow2 - 51462*M*r_pow3 + 9245*r_pow4)) + a_pow4*r_pow6*(L_pow4*r_pow6*(567260*M_pow5 + 10844*M_pow4*r - 526877*M_pow3*r_pow2 + 69714*M_pow2*r_pow3 + 91190*M*r_pow4 - 13458*r_pow5) + L_pow2*r_pow8*(426096*M_pow5 + 92552*M_pow4*r - 440953*M_pow3*r_pow2 + 7137*M_pow2*r_pow3 + 92406*M*r_pow4 - 10398*r_pow5) + 2*L_pow6*r_pow4*(144732*M_pow5 - 38744*M_pow4*r - 101484*M_pow3*r_pow2 + 45912*M_pow2*r_pow3 + 2549*M*r_pow4 - 1932*r_pow5) + 2*r_pow10*(53460*M_pow5 + 27520*M_pow4*r - 57176*M_pow3*r_pow2 - 7721*M_pow2*r_pow3 + 12800*M*r_pow4 - 567*r_pow5) - 9*L_pow10*(352*M_pow5 + 664*M_pow4*r - 331*M_pow3*r_pow2 - 1465*M_pow2*r_pow3 + 750*M*r_pow4 + 18*r_pow5) + L_pow8*r_pow2*(43156*M_pow5 - 57596*M_pow4*r - 2905*M_pow3*r_pow2 + 58490*M_pow2*r_pow3 - 25547*M*r_pow4 + 64*r_pow5)) + a_pow6*r_pow4*(9*L_pow10*(192*M_pow5 + 104*M_pow4*r + 792*M_pow3*r_pow2 + 178*M_pow2*r_pow3 - 553*M*r_pow4 - 9*r_pow5) + L_pow2*r_pow7*(767920*M_pow6 + 999752*M_pow5*r - 957820*M_pow4*r_pow2 - 877170*M_pow3*r_pow3 + 275670*M_pow2*r_pow4 + 172879*M*r_pow5 - 10455*r_pow6) + L_pow4*r_pow5*(730944*M_pow6 + 750536*M_pow5*r - 922816*M_pow4*r_pow2 - 637788*M_pow3*r_pow3 + 279489*M_pow2*r_pow4 + 116654*M*r_pow5 - 8642*r_pow6) + 2*r_pow9*(142320*M_pow6 + 216840*M_pow5*r - 147790*M_pow4*r_pow2 - 176283*M_pow3*r_pow3 + 35260*M_pow2*r_pow4 + 33403*M*r_pow5 - 726*r_pow6) + L_pow8*r*(6144*M_pow6 - 2056*M_pow5*r - 28428*M_pow4*r_pow2 + 72874*M_pow3*r_pow3 + 15201*M_pow2*r_pow4 - 33044*M*r_pow5 - 357*r_pow6) - 2*L_pow6*r_pow3*(-123864*M_pow6 - 77428*M_pow5*r + 153682*M_pow4*r_pow2 + 17811*M_pow3*r_pow3 - 49011*M_pow2*r_pow4 + 9311*M*r_pow5 + 575*r_pow6)) + a_pow8*r_pow3*(-9*L_pow10*(32*M_pow4 - 12*M_pow3*r + 180*M_pow2*r_pow2 + 133*M*r_pow3 - 3*r_pow4) + L_pow8*(5760*M_pow6 + 10144*M_pow5*r + 29992*M_pow4*r_pow2 + 24463*M_pow3*r_pow3 - 28034*M_pow2*r_pow4 - 19898*M*r_pow5 - 180*r_pow6) + L_pow2*r_pow5*(702336*M_pow7 + 1911712*M_pow6*r - 479736*M_pow5*r_pow2 - 2569168*M_pow4*r_pow3 - 472110*M_pow3*r_pow4 + 726988*M_pow2*r_pow5 + 221495*M*r_pow6 - 6765*r_pow7) + L_pow4*r_pow3*(467024*M_pow7 + 912896*M_pow6*r - 392096*M_pow5*r_pow2 - 1366288*M_pow4*r_pow3 - 146450*M_pow3*r_pow4 + 409208*M_pow2*r_pow5 + 99945*M*r_pow6 - 3128*r_pow7) + 2*r_pow7*(213120*M_pow7 + 590480*M_pow6*r - 65560*M_pow5*r_pow2 - 652880*M_pow4*r_pow3 - 156550*M_pow3*r_pow4 + 161079*M_pow2*r_pow5 + 55556*M*r_pow6 - 849*r_pow7) + 2*L_pow6*r*(47360*M_pow7 + 49696*M_pow6*r - 44800*M_pow5*r_pow2 - 44472*M_pow4*r_pow3 + 36843*M_pow3*r_pow4 + 141*M_pow2*r_pow5 - 15729*M*r_pow6 - 258*r_pow7)) + a_pow14*twoM_plus_r*(L_pow4*(3456*M_pow6 + 5696*M_pow5*r + 5412*M_pow4*r_pow2 + 3862*M_pow3*r_pow3 - 2859*M_pow2*r_pow4 - 3042*M*r_pow5 - 540*r_pow6) - 2*r_pow2*twoM_plus_r_pow2*(-14400*M_pow6 + 3604*M_pow5*r + 71428*M_pow4*r_pow2 + 16925*M_pow3*r_pow3 - 47706*M_pow2*r_pow4 - 17617*M*r_pow5 + 942*r_pow6) + L_pow2*(-10752*M_pow8 - 76672*M_pow7*r - 234208*M_pow6*r_pow2 - 227472*M_pow5*r_pow3 + 142176*M_pow4*r_pow4 + 304264*M_pow3*r_pow5 + 132690*M_pow2*r_pow6 + 11977*M*r_pow7 - 2043*r_pow8)) + a_pow10*r_pow2*(L_pow8*M*(576*M_pow4 - 1712*M_pow3*r - 12362*M_pow2*r_pow2 - 14235*M*r_pow3 - 4368*r_pow4) - 2*L_pow6*(3840*M_pow7 + 11216*M_pow6*r - 4984*M_pow5*r_pow2 - 13768*M_pow4*r_pow3 + 12756*M_pow3*r_pow4 + 29151*M_pow2*r_pow5 + 11353*M*r_pow6 + 378*r_pow7) + L_pow2*r_pow3*(393120*M_pow8 + 1465744*M_pow7*r + 299200*M_pow6*r_pow2 - 2941128*M_pow5*r_pow3 - 2023102*M_pow4*r_pow4 + 759641*M_pow3*r_pow5 + 902313*M_pow2*r_pow6 + 171414*M*r_pow7 - 4890*r_pow8) + L_pow4*r*(226816*M_pow8 + 312352*M_pow7*r - 105712*M_pow6*r_pow2 - 882528*M_pow5*r_pow3 - 534992*M_pow4*r_pow4 + 294484*M_pow3*r_pow5 + 272826*M_pow2*r_pow6 + 38606*M*r_pow7 - 2493*r_pow8) + 2*r_pow5*(170208*M_pow8 + 785072*M_pow7*r + 267104*M_pow6*r_pow2 - 1100896*M_pow5*r_pow3 - 796070*M_pow4*r_pow4 + 200429*M_pow3*r_pow5 + 287066*M_pow2*r_pow6 + 57757*M*r_pow7 - 1188*r_pow8)) + a_pow12*r*(L_pow6*(5760*M_pow6 + 304*M_pow5*r - 28752*M_pow4*r_pow2 - 43390*M_pow3*r_pow3 - 25998*M_pow2*r_pow4 - 6120*M*r_pow5 - 270*r_pow6) + 2*r_pow3*twoM_plus_r_pow2*(14160*M_pow7 + 110896*M_pow6*r - 17852*M_pow5*r_pow2 - 261188*M_pow4*r_pow3 - 65288*M_pow3*r_pow4 + 112725*M_pow2*r_pow5 + 41360*M*r_pow6 - 1353*r_pow7) - L_pow4*(35328*M_pow8 + 164608*M_pow7*r + 258336*M_pow6*r_pow2 + 204092*M_pow5*r_pow3 - 65700*M_pow4*r_pow4 - 164155*M_pow3*r_pow5 - 54158*M_pow2*r_pow6 + 2760*M*r_pow7 + 1998*r_pow8) + L_pow2*r*(174592*M_pow9 + 453760*M_pow8*r + 76208*M_pow7*r_pow2 - 1727568*M_pow6*r_pow3 - 2024440*M_pow5*r_pow4 + 164984*M_pow4*r_pow5 + 1203443*M_pow3*r_pow6 + 563673*M_pow2*r_pow7 + 67700*M*r_pow8 - 4056*r_pow9))))*ur_pow4 + r_pow7*(6*E_pow2*L*M*r*pow(r_pow3 + a_pow2*twoM_plus_r,2)*(2*r_pow9*(-10*L_pow6 + 15*L_pow4*r_pow2 + 25*L_pow2*r_pow4 + 7*r_pow6) + a_pow10*twoM_plus_r_pow2*(14*twoM_plus_r_pow2*(6*M + r) - 3*L_pow2*(18*M + 5*r)) + a_pow2*r_pow6*(14*r_pow6*(14*M + 5*r) + 6*L_pow4*r_pow2*(26*M + 9*r) - L_pow6*(56*M + 55*r) + L_pow2*r_pow4*(450*M + 193*r)) + 2*a_pow4*r_pow3*(3*L_pow4*r_pow2*(62*M_pow2 + 25*M*r - 2*r_pow2) + 14*r_pow6*(36*M_pow2 + 28*M*r + 5*r_pow2) + 6*L_pow2*r_pow4*(137*M_pow2 + 107*M*r + 22*r_pow2) - L_pow6*(34*M_pow2 + 40*M*r + 25*r_pow2)) + 2*a_pow8*r*twoM_plus_r*(-3*L_pow4*(13*M + 5*r) + 7*r_pow2*twoM_plus_r_pow2*(26*M + 5*r) + L_pow2*(444*M_pow3 + 434*M_pow2*r + 80*M*r_pow2 - r_pow3)) + a_pow6*r_pow2*(-3*L_pow6*(8*M + 5*r) + 28*r_pow4*twoM_plus_r_pow2*(22*M + 5*r) + 6*L_pow4*(60*M_pow3 + 32*M_pow2*r - 24*M*r_pow2 - 11*r_pow3) + 2*L_pow2*r_pow2*(1388*M_pow3 + 1554*M_pow2*r + 552*M*r_pow2 + 67*r_pow3))) - L*(12*a_pow16*M*twoM_plus_r_pow5*(70*M + 127*r) + 2*a_pow14*r*twoM_plus_r_pow3*(-2688*M_pow5 - 8360*M_pow4*r + 4388*M_pow3*r_pow2 + 14690*M_pow2*r_pow3 + 5299*M*r_pow4 - 36*r_pow5 + 9*L_pow2*M*(328*M_pow2 + 520*M*r + 201*r_pow2)) + r_pow13*(L_pow4*r_pow4*(-6302*M_pow2 + 5849*M*r - 1310*r_pow2) + 2*r_pow8*(-274*M_pow2 + 77*M*r + 36*r_pow2) + 3*L_pow8*(446*M_pow2 - 355*M*r + 63*r_pow2) - 4*L_pow2*r_pow6*(838*M_pow2 - 610*M*r + 85*r_pow2) - 2*L_pow6*r_pow2*(954*M_pow2 - 1123*M*r + 323*r_pow2)) + a_pow2*r_pow10*(L_pow6*r_pow2*(-12036*M_pow3 + 4720*M_pow2*r + 2577*M*r_pow2 - 1403*r_pow3) + 9*L_pow8*(48*M_pow3 + 536*M_pow2*r - 359*M*r_pow2 + 27*r_pow3) + 2*r_pow8*(-1992*M_pow3 - 2632*M_pow2*r + 1837*M*r_pow2 + 180*r_pow3) - 2*L_pow2*r_pow6*(8876*M_pow3 + 6056*M_pow2*r - 7537*M*r_pow2 + 722*r_pow3) - L_pow4*r_pow4*(31312*M_pow3 + 4792*M_pow2*r - 18939*M*r_pow2 + 4179*r_pow3)) - a_pow4*r_pow7*(9*L_pow8*M*(42*M_pow3 - 919*M_pow2*r - 315*M*r_pow2 + 592*r_pow3) - 2*r_pow8*(-3480*M_pow4 - 25132*M_pow3*r + 1122*M_pow2*r_pow2 + 9303*M*r_pow3 + 324*r_pow4) + 2*L_pow6*r_pow2*(7926*M_pow4 + 4049*M_pow3*r - 4988*M_pow2*r_pow2 + 531*M*r_pow3 + 326*r_pow4) + 4*L_pow2*r_pow6*(7402*M_pow4 + 31959*M_pow3*r - 3414*M_pow2*r_pow2 - 12030*M*r_pow3 + 549*r_pow4) + L_pow4*r_pow4*(54102*M_pow4 + 104093*M_pow3*r - 24338*M_pow2*r_pow2 - 36273*M*r_pow3 + 4155*r_pow4)) + a_pow6*r_pow4*(3*L_pow8*(544*M_pow5 + 1204*M_pow4*r + 1869*M_pow3*r_pow2 - 1195*M_pow2*r_pow3 - 1336*M*r_pow4 - 18*r_pow5) + 2*r_pow8*(8000*M_pow5 - 84800*M_pow4*r - 51980*M_pow3*r_pow2 + 39220*M_pow2*r_pow3 + 22417*M*r_pow4 + 180*r_pow5) + L_pow6*r_pow2*(-8652*M_pow5 - 4800*M_pow4*r + 8127*M_pow3*r_pow2 + 841*M_pow2*r_pow3 - 3593*M*r_pow4 + 321*r_pow5) - L_pow4*r_pow4*(60760*M_pow5 + 218324*M_pow4*r + 106767*M_pow3*r_pow2 - 94925*M_pow2*r_pow3 - 52097*M*r_pow4 + 491*r_pow5) - 2*L_pow2*r_pow6*(11896*M_pow5 + 179648*M_pow4*r + 106980*M_pow3*r_pow2 - 80742*M_pow2*r_pow3 - 46775*M*r_pow4 + 572*r_pow5)) + a_pow8*r_pow3*(18*L_pow8*M*(32*M_pow3 - 43*M_pow2*r - 136*M*r_pow2 - 56*r_pow3) - 2*L_pow6*(4320*M_pow6 - 752*M_pow5*r - 5940*M_pow4*r_pow2 + 728*M_pow3*r_pow3 + 5187*M_pow2*r_pow4 + 1823*M*r_pow5 - 108*r_pow6) + 10*r_pow6*(7584*M_pow6 - 27472*M_pow5*r - 42576*M_pow4*r_pow2 + 5344*M_pow3*r_pow3 + 22130*M_pow2*r_pow4 + 6289*M*r_pow5 - 36*r_pow6) + 4*L_pow2*r_pow4*(-11960*M_pow6 - 131084*M_pow5*r - 159800*M_pow4*r_pow2 + 23370*M_pow3*r_pow3 + 90230*M_pow2*r_pow4 + 27422*M*r_pow5 + 101*r_pow6) + L_pow4*r_pow2*(-76088*M_pow6 - 204620*M_pow5*r - 192014*M_pow4*r_pow2 + 49339*M_pow3*r_pow3 + 133555*M_pow2*r_pow4 + 43542*M*r_pow5 + 1317*r_pow6)) + a_pow12*r*twoM_plus_r*(L_pow4*M*(2592*M_pow4 + 8116*M_pow3*r + 11780*M_pow2*r_pow2 + 7533*M*r_pow3 + 1656*r_pow4) + 2*r_pow2*twoM_plus_r_pow2*(2992*M_pow5 - 11856*M_pow4*r - 20552*M_pow3*r_pow2 + 15776*M_pow2*r_pow3 + 16517*M*r_pow4 - 180*r_pow5) - 4*L_pow2*(4032*M_pow7 + 17184*M_pow6*r + 26452*M_pow5*r_pow2 - 7440*M_pow4*r_pow3 - 43713*M_pow3*r_pow4 - 30322*M_pow2*r_pow5 - 6432*M*r_pow6 - 45*r_pow7)) + a_pow10*r_pow2*(L_pow6*M*(3744*M_pow4 - 1472*M_pow3*r - 9121*M_pow2*r_pow2 - 6591*M*r_pow3 - 1446*r_pow4) + 2*r_pow4*twoM_plus_r_pow2*(12768*M_pow5 - 41792*M_pow4*r - 50572*M_pow3*r_pow2 + 34980*M_pow2*r_pow3 + 28983*M*r_pow4 - 324*r_pow5) + 2*L_pow2*r_pow2*(-38368*M_pow7 - 219552*M_pow6*r - 352776*M_pow5*r_pow2 - 52760*M_pow4*r_pow3 + 254652*M_pow3*r_pow4 + 181764*M_pow2*r_pow5 + 37047*M*r_pow6 + 318*r_pow7) + L_pow4*(-42624*M_pow7 - 89296*M_pow6*r - 80308*M_pow5*r_pow2 + 21412*M_pow4*r_pow3 + 105859*M_pow3*r_pow4 + 72303*M_pow2*r_pow5 + 16284*M*r_pow6 + 522*r_pow7))) + 2*a*E*M*(210*a_pow16*twoM_plus_r_pow6 + 3*r_pow13*(5*L_pow8*(82*M - 33*r) - 4*L_pow2*(94*M - 41*r)*r_pow6 + 28*r_pow8*(-3*M + 2*r) + 8*L_pow6*r_pow2*(-116*M + 43*r) + L_pow4*r_pow4*(-1658*M + 659*r)) + 2*a_pow2*r_pow10*(9*L_pow8*(140*M_pow2 + 115*M*r - 81*r_pow2) + 21*r_pow8*(-72*M_pow2 + 4*M*r + 33*r_pow2) + 3*L_pow2*r_pow6*(-2120*M_pow2 - 378*M*r + 639*r_pow2) + L_pow6*r_pow2*(-4320*M_pow2 - 2302*M*r + 1577*r_pow2) + L_pow4*r_pow4*(-14712*M_pow2 - 4831*M*r + 4673*r_pow2)) + 6*a_pow14*r*twoM_plus_r_pow4*(L_pow2*(246*M + 127*r) + 7*(-32*M_pow3 + 4*M_pow2*r + 88*M*r_pow2 + 39*r_pow3)) + a_pow4*r_pow7*(-4*L_pow6*r_pow2*(1854*M_pow3 + 3495*M_pow2*r + 572*M*r_pow2 - 833*r_pow3) + 63*L_pow8*(38*M_pow3 + 81*M_pow2*r + 10*M*r_pow2 - 27*r_pow3) + 42*r_pow8*(-360*M_pow3 - 216*M_pow2*r + 210*M*r_pow2 + 119*r_pow3) + 24*L_pow2*r_pow6*(-2444*M_pow3 - 1981*M_pow2*r + 598*M*r_pow2 + 523*r_pow3) + L_pow4*r_pow4*(-70326*M_pow3 - 78505*M_pow2*r + 7744*M*r_pow2 + 18582*r_pow3)) + 2*a_pow6*r_pow4*(-2*L_pow6*r_pow2*(1716*M_pow4 + 2082*M_pow3*r + 2363*M_pow2*r_pow2 + 482*M*r_pow3 - 310*r_pow4) + 3*L_pow8*(272*M_pow4 + 597*M_pow3*r + 480*M_pow2*r_pow2 - 140*M*r_pow3 - 159*r_pow4) + 105*r_pow8*(-192*M_pow4 - 256*M_pow3*r + 60*M_pow2*r_pow2 + 168*M*r_pow3 + 49*r_pow4) + 3*L_pow4*r_pow4*(-16340*M_pow4 - 29139*M_pow3*r - 10695*M_pow2*r_pow2 + 6357*M*r_pow3 + 3353*r_pow4) + 3*L_pow2*r_pow6*(-23488*M_pow4 - 34576*M_pow3*r - 4680*M_pow2*r_pow2 + 10850*M*r_pow3 + 3745*r_pow4)) + a_pow12*r*twoM_plus_r_pow2*(42*r_pow2*twoM_plus_r_pow2*(-24*M_pow3 - 104*M_pow2*r + 70*M*r_pow2 + 133*r_pow3) + L_pow4*(1296*M_pow3 + 2533*M_pow2*r + 2226*M*r_pow2 + 678*r_pow3) - 24*L_pow2*(336*M_pow5 + 996*M_pow4*r + 552*M_pow3*r_pow2 - 875*M_pow2*r_pow3 - 904*M*r_pow4 - 216*r_pow5)) + a_pow8*r_pow3*(9*L_pow8*(64*M_pow3 + 9*M_pow2*r - 58*M*r_pow2 - 24*r_pow3) + 210*r_pow6*twoM_plus_r_pow2*(-72*M_pow3 - 88*M_pow2*r + 70*M*r_pow2 + 63*r_pow3) - 4*L_pow6*(2160*M_pow5 + 1468*M_pow4*r + 234*M_pow3*r_pow2 + 989*M_pow2*r_pow3 + 524*M*r_pow4 + 15*r_pow5) + 12*L_pow2*r_pow4*(-15392*M_pow5 - 33600*M_pow4*r - 16752*M_pow3*r_pow2 + 8660*M_pow2*r_pow3 + 9250*M*r_pow4 + 1985*r_pow5) + L_pow4*r_pow2*(-91896*M_pow5 - 193300*M_pow4*r - 135262*M_pow3*r_pow2 + 7108*M_pow2*r_pow3 + 44212*M*r_pow4 + 12667*r_pow5)) + 2*a_pow10*r_pow2*twoM_plus_r*(L_pow6*(936*M_pow3 + 230*M_pow2*r - 228*M*r_pow2 - 45*r_pow3) + 21*r_pow4*twoM_plus_r_pow2*(-144*M_pow3 - 288*M_pow2*r + 210*M*r_pow2 + 259*r_pow3) + L_pow4*(-10656*M_pow5 - 19034*M_pow4*r - 11277*M_pow3*r_pow2 + 3613*M_pow2*r_pow3 + 7280*M*r_pow4 + 2220*r_pow5) + L_pow2*(-30912*M_pow5*r_pow2 - 76752*M_pow4*r_pow3 - 40272*M_pow3*r_pow4 + 31512*M_pow2*r_pow5 + 33144*M*r_pow6 + 7491*r_pow7))))*ur_pow6 - 3*L*r_pow10*(140*a_pow14*M*twoM_plus_r_pow5 + 2*r_pow13*(15*L_pow4*(8*M - 3*r)*r_pow2 + 14*M*r_pow6 + L_pow6*(-32*M + 6*r) + 2*L_pow2*r_pow4*(13*M + 6*r)) + a_pow2*r_pow10*(28*M*r_pow6*(6*M + 11*r) + 6*L_pow4*r_pow2*(38*M_pow2 + 99*M*r - 42*r_pow2) - 3*L_pow6*(2*M_pow2 + 87*M*r - 7*r_pow2) + 2*L_pow2*r_pow4*(86*M_pow2 + 403*M*r + 48*r_pow2)) + 2*a_pow12*M*r*twoM_plus_r_pow3*(L_pow2*(326*M + 169*r) + 14*(-16*M_pow3 + 8*M_pow2*r + 70*M*r_pow2 + 31*r_pow3)) + a_pow4*r_pow7*(140*M*r_pow7*(16*M + 9*r) + 3*L_pow6*(92*M_pow3 - 154*M_pow2*r - 159*M*r_pow2 + 3*r_pow3) - 6*L_pow4*r_pow2*(246*M_pow3 - 153*M_pow2*r - 166*M*r_pow2 + 39*r_pow3) + 2*L_pow2*r_pow4*(-424*M_pow3 + 1988*M_pow2*r + 1425*M*r_pow2 + 72*r_pow3)) + a_pow6*r_pow4*(L_pow6*M*(226*M_pow3 - 171*M_pow2*r - 849*M*r_pow2 - 376*r_pow3) - 140*M*r_pow6*(16*M_pow3 - 40*M_pow2*r - 62*M*r_pow2 - 19*r_pow3) - 6*L_pow4*r_pow2*(322*M_pow4 + 165*M_pow3*r - 402*M_pow2*r_pow2 - 199*M*r_pow3 + 12*r_pow4) + 4*L_pow2*r_pow4*(-1264*M_pow4 + 1500*M_pow3*r + 3250*M_pow2*r_pow2 + 1143*M*r_pow3 + 24*r_pow4)) + 2*a_pow10*M*r_pow2*twoM_plus_r*(3*L_pow4*(7*M_pow2 + 34*M*r + 16*r_pow2) + 14*r_pow2*twoM_plus_r_pow2*(-36*M_pow2 + 44*M*r + 81*r_pow2) + L_pow2*(-1264*M_pow4 - 368*M_pow3*r + 4024*M_pow2*r_pow2 + 3704*M*r_pow3 + 879*r_pow4)) + a_pow8*r_pow3*(-140*M*r_pow4*twoM_plus_r_pow2*(12*M_pow2 - 20*M*r - 23*r_pow2) - 3*L_pow6*M*(115*M_pow2 + 125*M*r + 34*r_pow2) + 6*L_pow4*M*(4*M_pow4 - 72*M_pow3*r + 216*M_pow2*r_pow2 + 341*M*r_pow3 + 108*r_pow4) + 8*L_pow2*r_pow2*(-1088*M_pow5 + 20*M_pow4*r + 2718*M_pow3*r_pow2 + 2180*M_pow2*r_pow3 + 487*M*r_pow4 + 3*r_pow5)))*ur_pow8))/(48.*pow(a_pow2 + r*r_minus_twoM,7)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),6));
A7000 = -(r_pow5*pow(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2)),2)*((a_pow2 + r*r_minus_twoM)*(-(M*r) + (L_pow2*r_pow6*ur_pow2)/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2) + a_pow2*(1 - (L_pow2*M*r_pow3*ur_pow2)/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2))) + (r_pow2*(r_pow3 + a_pow2*twoM_plus_r)*ur_pow2*(-2*a_pow5*E*L*M*twoM_plus_r + a_pow6*twoM_plus_r_pow2 - 6*a*E*L*M*r_pow3*(L_pow2 + r_pow2) - 2*a_pow3*E*L*M*r*(L_pow2 + 6*M*r + 4*r_pow2) + a_pow4*twoM_plus_r*(2*L_pow2*(M + r) + r*(-2*M_pow2 - M*r + 2*r_pow2)) + a_pow2*r*(L_pow4*twoM_plus_r + r_pow3*(-4*M_pow2 - 2*M*r + r_pow2) + L_pow2*M*r*(4*M + r*ur_pow2)) - r_pow3*(M*r_pow4 + L_pow4*(-3*M + 2*r) + L_pow2*r_pow2*(-2*M + r*(2 + ur_pow2)))))/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)))/(2.*pow(a_pow2 + r*r_minus_twoM,7)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2));
A7001 = (r_pow3*ur*(-4*E_pow2*L*M*pow(a_pow2 + r*r_minus_twoM,3)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5)*(r_pow7 + 3*a_pow6*(M + r) + a_pow2*r_pow4*(-29*M + 5*r) + a_pow4*r*(-8*M_pow2 - 14*M*r + 7*r_pow2)) + 2*a*E*M*pow(a_pow2 + r*r_minus_twoM,3)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5)*(15*a_pow6*twoM_plus_r + r_pow4*(3*r_pow2*(-11*M + 4*r) + L_pow2*(-61*M + 48*r)) - a_pow2*r*(3*r_pow2*(22*M_pow2 + 12*M*r - 15*r_pow2) + L_pow2*(32*M_pow2 + 43*M*r - 9*r_pow2)) + 3*a_pow4*(L_pow2*(4*M + r) + r*(-18*M_pow2 + 13*M*r + 16*r_pow2))) - L*pow(a_pow2 + r*r_minus_twoM,3)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5)*(3*a_pow6*(20*M_pow2 - 4*M*r - 3*r_pow2) + r_pow4*(M*r_pow2*(-7*M + 2*r) + L_pow2*(-31*M_pow2 + 38*M*r - 12*r_pow2)) + a_pow4*(3*L_pow2*(4*M_pow2 - 2*M*r - 3*r_pow2) + r*(-108*M_pow3 + 154*M_pow2*r + 32*M*r_pow2 - 9*r_pow3)) + a_pow2*r*(M*r_pow2*(-134*M_pow2 + 3*M*r + 28*r_pow2) + L_pow2*(-32*M_pow3 - 30*M_pow2*r + 26*M*r_pow2 + 12*r_pow3))) + 2*r_pow2*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(-2*E_pow2*L*M*(r_pow3 + a_pow2*twoM_plus_r)*(2*r_pow10 + 3*a_pow8*(10*M_pow2 + 9*M*r + 2*r_pow2) + a_pow6*r*(-32*M_pow3 - 3*L_pow2*(M - 2*r) + 36*M_pow2*r + 69*M*r_pow2 + 20*r_pow3) + 3*a_pow2*r_pow5*(L_pow2*(-49*M + 2*r) + r_pow2*(9*M + 4*r)) + 3*a_pow4*r_pow2*(L_pow2*(-8*M_pow2 - 30*M*r + 4*r_pow2) + r_pow2*(10*M_pow2 + 23*M*r + 8*r_pow2))) + a*E*M*(30*a_pow10*twoM_plus_r_pow3 + r_pow8*(6*r_pow4*(-11*M + 4*r) + L_pow2*r_pow2*(-215*M + 147*r) + L_pow4*(-357*M + 219*r)) - a_pow2*r_pow5*(L_pow4*(828*M_pow2 + 223*M*r - 281*r_pow2) + 6*L_pow2*r_pow2*(37*M_pow2 + 4*M*r - 65*r_pow2) + 6*r_pow4*(66*M_pow2 + 18*M*r - 23*r_pow2)) + 3*a_pow8*twoM_plus_r*(L_pow2*(40*M_pow2 + 37*M*r + 15*r_pow2) + 2*r*(-36*M_pow3 + 8*M_pow2*r + 65*M*r_pow2 + 26*r_pow3)) + a_pow4*r_pow2*(-(L_pow4*(192*M_pow3 + 716*M_pow2*r + 191*M*r_pow2 - 77*r_pow3)) + 12*r_pow4*(-66*M_pow3 - 69*M_pow2*r + 27*M*r_pow2 + 25*r_pow3) + 6*L_pow2*r_pow2*(48*M_pow3 + 7*M_pow2*r + 69*M*r_pow2 + 64*r_pow3)) + a_pow6*r*(L_pow4*(-24*M_pow2 + 19*M*r + 15*r_pow2) + 12*r_pow2*(-44*M_pow4 - 104*M_pow3*r + 3*M_pow2*r_pow2 + 74*M*r_pow3 + 26*r_pow4) + L_pow2*(-256*M_pow4 - 48*M_pow3*r + 222*M_pow2*r_pow2 + 424*M*r_pow3 + 186*r_pow4))) - L*(3*a_pow10*twoM_plus_r_pow2*(20*M_pow2 + 2*M*r - 3*r_pow2) + r_pow8*(L_pow4*(-101*M_pow2 + 113*M*r - 32*r_pow2) + L_pow2*r_pow2*(-80*M_pow2 + 77*M*r - 20*r_pow2) + 3*r_pow4*(-M_pow2 - 4*M*r + 2*r_pow2)) - a_pow2*r_pow5*(3*r_pow4*(30*M_pow3 + 29*M_pow2*r - 14*M*r_pow2 - 4*r_pow3) + L_pow4*(250*M_pow3 + 24*M_pow2*r - 119*M*r_pow2 + 8*r_pow3) + L_pow2*r_pow2*(184*M_pow3 + 103*M_pow2*r - 174*M*r_pow2 + 22*r_pow3)) + a_pow4*r_pow2*(L_pow2*r_pow2*(248*M_pow4 - 530*M_pow3*r + 159*M_pow2*r_pow2 + 296*M*r_pow3 - 2*r_pow4) - 3*r_pow4*(108*M_pow4 + 152*M_pow3*r - 55*M_pow2*r_pow2 - 50*M*r_pow3 + 3*r_pow4) + L_pow4*(-96*M_pow4 - 308*M_pow3*r + 6*M_pow2*r_pow2 + 121*M*r_pow3 + 15*r_pow4)) + a_pow6*r*(L_pow4*(-12*M_pow3 + M_pow2*r - 15*M*r_pow2 - 9*r_pow3) + L_pow2*(-128*M_pow5 - 128*M_pow4*r + 12*M_pow3*r_pow2 + 455*M_pow2*r_pow3 + 154*M*r_pow4 - 18*r_pow5) + 3*r_pow2*(-104*M_pow5 - 292*M_pow4*r + 34*M_pow3*r_pow2 + 197*M_pow2*r_pow3 + 32*M*r_pow4 - 13*r_pow5)) + a_pow8*(L_pow2*(120*M_pow4 + 174*M_pow3*r + 49*M_pow2*r_pow2 - 45*M*r_pow3 - 18*r_pow4) - 3*r*(144*M_pow5 + 24*M_pow4*r - 236*M_pow3*r_pow2 - 130*M_pow2*r_pow3 + 10*M*r_pow4 + 11*r_pow5))))*ur_pow2 + r_pow4*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(-4*E_pow2*L*M*(a_pow2 + r*r_minus_twoM)*pow(r_pow3 + a_pow2*twoM_plus_r,2)*(-3*L_pow2*r_pow8 + r_pow10 + 3*a_pow8*(8*M_pow2 + 6*M*r + r_pow2) - 3*a_pow2*r_pow5*(-2*r_pow2*(9*M + r) + L_pow2*(42*M + r)) + a_pow6*r*(-16*M_pow3 + 72*M_pow2*r + 66*M*r_pow2 + 10*r_pow3 + L_pow2*(-6*M + 3*r)) + 3*a_pow4*r_pow2*(L_pow2*(-8*M_pow2 - 28*M*r + r_pow2) + 2*r_pow2*(16*M_pow2 + 17*M*r + 2*r_pow2))) + 2*a*E*M*(r_pow4*r_minus_twoM + a_pow4*twoM_plus_r + a_pow2*(-4*M_pow2*r + 2*r_pow3))*(15*a_pow10*twoM_plus_r_pow3 + r_pow8*(3*r_pow4*(-11*M + 4*r) + L_pow2*r_pow2*(-67*M + 60*r) + L_pow4*(-504*M + 267*r)) + a_pow2*r_pow5*(3*r_pow4*(-66*M_pow2 - 18*M*r + 23*r_pow2) + 3*L_pow2*r_pow2*(44*M_pow2 + 11*M*r + 65*r_pow2) + L_pow4*(-654*M_pow2 - 413*M*r + 382*r_pow2)) + 3*a_pow8*twoM_plus_r*(L_pow2*(32*M_pow2 + 38*M*r + 15*r_pow2) + r*(-36*M_pow3 + 8*M_pow2*r + 65*M*r_pow2 + 26*r_pow3)) + a_pow4*r_pow2*(-(L_pow4*(192*M_pow3 + 682*M_pow2*r + 262*M*r_pow2 - 145*r_pow3)) + 6*r_pow4*(-66*M_pow3 - 69*M_pow2*r + 27*M*r_pow2 + 25*r_pow3) + 3*L_pow2*r_pow2*(156*M_pow3 + 112*M_pow2*r + 117*M*r_pow2 + 85*r_pow3)) + a_pow6*r*(L_pow4*(-48*M_pow2 + 11*M*r + 30*r_pow2) + 6*r_pow2*(-44*M_pow4 - 104*M_pow3*r + 3*M_pow2*r_pow2 + 74*M*r_pow3 + 26*r_pow4) + L_pow2*(-128*M_pow4 + 156*M_pow3*r + 408*M_pow2*r_pow2 + 455*M*r_pow3 + 165*r_pow4))) - L*(a_pow2 + r*r_minus_twoM)*(3*a_pow12*twoM_plus_r_pow3*(20*M_pow2 + 20*M*r - 3*r_pow2) + r_pow11*(L_pow4*(-387*M_pow2 + 406*M*r - 107*r_pow2) + 3*r_pow4*(3*M_pow2 - 18*M*r + 8*r_pow2) - 2*L_pow2*r_pow2*(87*M_pow2 - 74*M*r + 16*r_pow2)) - 2*a_pow2*r_pow8*(-3*r_pow4*(24*M_pow3 - 73*M_pow2*r + 11*M*r_pow2 + 12*r_pow3) + L_pow2*r_pow2*(-44*M_pow3 + 343*M_pow2*r - 252*M*r_pow2 + 30*r_pow3) + L_pow4*(540*M_pow3 + 50*M_pow2*r - 324*M*r_pow2 + 77*r_pow3)) + a_pow4*r_pow5*(-2*L_pow2*r_pow2*(-828*M_pow4 + 1042*M_pow3*r + 263*M_pow2*r_pow2 - 582*M*r_pow3 + 3*r_pow4) + L_pow4*(-696*M_pow4 - 1988*M_pow3*r + 226*M_pow2*r_pow2 + 800*M*r_pow3 + 4*r_pow4) + 3*r_pow4*(216*M_pow4 - 408*M_pow3*r - 118*M_pow2*r_pow2 + 166*M*r_pow3 + 13*r_pow4)) + 2*a_pow10*twoM_plus_r*(L_pow2*(96*M_pow4 + 204*M_pow3*r + 164*M_pow2*r_pow2 + 30*M*r_pow3 - 9*r_pow4) + 3*r*(-72*M_pow5 - 140*M_pow4*r + 54*M_pow3*r_pow2 + 131*M_pow2*r_pow3 + 19*M*r_pow4 - 10*r_pow5)) - 2*a_pow6*r_pow2*(L_pow4*(192*M_pow5 + 692*M_pow4*r + 504*M_pow3*r_pow2 - 370*M_pow2*r_pow3 - 288*M*r_pow4 - 21*r_pow5) + 6*r_pow4*(-96*M_pow5 + 132*M_pow4*r + 146*M_pow3*r_pow2 - 86*M_pow2*r_pow3 - 47*M*r_pow4 + 7*r_pow5) - L_pow2*r_pow2*(720*M_pow5 - 612*M_pow4*r - 1156*M_pow3*r_pow2 + 895*M_pow2*r_pow3 + 716*M*r_pow4 + 11*r_pow5)) + a_pow8*r*(L_pow4*(-96*M_pow4 - 4*M_pow3*r + 97*M_pow2*r_pow2 + 18*M*r_pow3 - 9*r_pow4) + 3*r_pow2*(240*M_pow6 - 448*M_pow5*r - 1000*M_pow4*r_pow2 + 168*M_pow3*r_pow3 + 547*M_pow2*r_pow4 + 58*M*r_pow5 - 42*r_pow6) - 2*L_pow2*(128*M_pow6 + 264*M_pow5*r + 296*M_pow4*r_pow2 - 806*M_pow3*r_pow3 - 1126*M_pow2*r_pow4 - 324*M*r_pow5 + 9*r_pow6))))*ur_pow4 + 2*L*r_pow7*(r_pow3 + a_pow2*twoM_plus_r)*(-18*a_pow14*M*twoM_plus_r_pow4 + twoM_minus_r*r_pow11*(L_pow2 + r_pow2)*(L_pow4*(73*M - 35*r) - 2*(M - 3*r)*r_pow4 + L_pow2*r_pow2*(5*M + 4*r)) + 4*E_pow2*L_pow2*M*r*pow(r_pow3 + a_pow2*twoM_plus_r,4)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2)) - a_pow2*r_pow8*(2*r_pow6*(44*M_pow3 - 66*M_pow2*r + 3*M*r_pow2 + 12*r_pow3) + L_pow2*r_pow4*(258*M_pow3 - 411*M_pow2*r + 84*M*r_pow2 + 40*r_pow3) - L_pow6*(90*M_pow3 + 229*M_pow2*r - 252*M*r_pow2 + 58*r_pow3) - L_pow4*r_pow2*(184*M_pow3 + 376*M_pow2*r - 396*M*r_pow2 + 75*r_pow3)) - a_pow12*twoM_plus_r_pow2*(L_pow2*M*(102*M_pow2 + 175*M*r + 69*r_pow2) - 2*r*(128*M_pow4 + 84*M_pow3*r - 72*M_pow2*r_pow2 - 35*M*r_pow3 + 3*r_pow4)) - a_pow4*r_pow5*(L_pow4*r_pow2*(384*M_pow4 - 1578*M_pow3*r - 283*M_pow2*r_pow2 + 726*M*r_pow3 - 39*r_pow4) + L_pow6*(156*M_pow4 - 500*M_pow3*r - 158*M_pow2*r_pow2 + 296*M*r_pow3 - 11*r_pow4) + 2*r_pow6*(272*M_pow4 - 152*M_pow3*r - 132*M_pow2*r_pow2 + 69*M*r_pow3 + 15*r_pow4) + 3*L_pow2*r_pow4*(396*M_pow4 - 358*M_pow3*r - 239*M_pow2*r_pow2 + 165*M*r_pow3 + 20*r_pow4)) - a_pow6*r_pow2*(2*M*r_pow6*(736*M_pow4 + 112*M_pow3*r - 544*M_pow2*r_pow2 + 4*M*r_pow3 + 115*r_pow4) + L_pow6*(-64*M_pow5 - 104*M_pow4*r - 246*M_pow3*r_pow2 + 183*M_pow2*r_pow3 + 220*M*r_pow4 + 12*r_pow5) + 2*L_pow2*r_pow4*(732*M_pow5 - 560*M_pow4*r - 1398*M_pow3*r_pow2 + 233*M_pow2*r_pow3 + 440*M*r_pow4 + 20*r_pow5) + L_pow4*r_pow2*(192*M_pow5 - 1592*M_pow4*r - 1952*M_pow3*r_pow2 + 903*M_pow2*r_pow3 + 908*M*r_pow4 + 23*r_pow5)) - a_pow10*r*twoM_plus_r*(L_pow4*M*(122*M_pow2 + 209*M*r + 84*r_pow2) + L_pow2*M*(-408*M_pow4 - 784*M_pow3*r + 168*M_pow2*r_pow2 + 897*M*r_pow3 + 348*r_pow4) + 2*r*(224*M_pow6 + 192*M_pow5*r - 504*M_pow4*r_pow2 - 332*M_pow3*r_pow3 + 132*M_pow2*r_pow4 + 57*M*r_pow5 - 12*r_pow6)) - a_pow8*r*(L_pow6*M*r*(20*M_pow2 + 70*M*r + 33*r_pow2) + 2*r_pow4*(928*M_pow6 + 720*M_pow5*r - 864*M_pow4*r_pow2 - 544*M_pow3*r_pow3 + 186*M_pow2*r_pow4 + 75*M*r_pow5 - 15*r_pow6) + L_pow2*r_pow2*(336*M_pow6 - 1368*M_pow5*r - 3704*M_pow4*r_pow2 - 580*M_pow3*r_pow3 + 1920*M_pow2*r_pow4 + 765*M*r_pow5 + 10*r_pow6) + L_pow4*(-128*M_pow6 - 680*M_pow5*r - 1124*M_pow4*r_pow2 + 374*M_pow3*r_pow3 + 1343*M_pow2*r_pow4 + 522*M*r_pow5 + 18*r_pow6)) + a*E*L*M*(r_pow3 + a_pow2*twoM_plus_r)*(3*a_pow10*twoM_plus_r_pow2*(17*M + 6*r) + a_pow8*r*twoM_plus_r*(-204*M_pow3 + 90*M_pow2*r + 276*M*r_pow2 + 75*r_pow3 + L_pow2*(61*M + 36*r)) + r_pow8*(L_pow2 + r_pow2)*(27*twoM_minus_r*r_pow2 + L_pow2*(-208*M + 96*r)) + a_pow2*r_pow5*(3*r_pow4*(18*M_pow2 + 13*M*r - 20*r_pow2) + 2*L_pow4*(10*M_pow2 - 99*M*r + 79*r_pow2) + L_pow2*r_pow2*(-450*M_pow2 - 175*M*r + 221*r_pow2)) - a_pow4*r_pow2*(6*M*r_pow4*(72*M_pow2 + 27*M*r - 16*r_pow2) + L_pow2*r_pow2*(348*M_pow3 + 646*M_pow2*r - 157*M*r_pow2 - 271*r_pow3) + L_pow4*(64*M_pow3 + 84*M_pow2*r + 84*M*r_pow2 - 80*r_pow3)) + a_pow6*r*(2*L_pow4*r*(5*M + 9*r) + 6*r_pow2*(-108*M_pow4 - 150*M_pow3*r + 25*M_pow2*r_pow2 + 69*M*r_pow3 + 15*r_pow4) + L_pow2*(-128*M_pow4 - 436*M_pow3*r - 162*M_pow2*r_pow2 + 311*M*r_pow3 + 155*r_pow4))))*ur_pow6 - L_pow3*r_pow10*pow(r_pow3 + a_pow2*twoM_plus_r,2)*(12*a_pow8*M*(10*M_pow2 + 9*M*r + 2*r_pow2) + r_pow8*(L_pow2*(38*M - 15*r) + 4*r_pow2*(-4*M + 3*r)) + a_pow2*r_pow5*(24*r_pow3*(M + r) + L_pow2*(-76*M_pow2 + 70*M*r - 15*r_pow2)) + a_pow4*r_pow2*(L_pow2*M*(-34*M_pow2 + 17*M*r + 86*r_pow2) + 12*r_pow2*(-2*M_pow3 + 9*M_pow2*r + 6*M*r_pow2 + r_pow3)) + a_pow6*M*r*(3*L_pow2*(11*M + 8*r) + 8*(-22*M_pow3 + 21*M*r_pow2 + 7*r_pow3)))*ur_pow8))/(12.*pow(a_pow2 + r*r_minus_twoM,8)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),6));
A7020 = (-24*a*E_pow3*L*M_pow2*pow(a_pow2 + r*r_minus_twoM,3)*(3*a_pow6 + 23*a_pow2*r_pow4 + 9*r_pow6 + a_pow4*r*(4*M + 17*r))*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),7) + 2*E_pow2*M*pow(a_pow2 + r*r_minus_twoM,3)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),7)*(3*a_pow8*(2*M - 7*r) + r_pow6*(L_pow2*(88*M - 54*r) + (40*M - 29*r)*r_pow2) + 2*a_pow6*(54*L_pow2*M + r*(35*M_pow2 + 88*M*r - 48*r_pow2)) - 2*a_pow2*r_pow3*(r_pow2*(133*M_pow2 - 118*M*r + 56*r_pow2) + L_pow2*(26*M_pow2 - 251*M*r + 65*r_pow2)) + 2*a_pow4*r*(L_pow2*(72*M_pow2 + 239*M*r - 38*r_pow2) - r*(40*M_pow3 + 78*M_pow2*r - 195*M*r_pow2 + 79*r_pow3))) - 4*a*E*L*M*pow(a_pow2 + r*r_minus_twoM,3)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),7)*(a_pow6*(6*M + 9*r) + 2*a_pow4*(27*L_pow2*M + r*(35*M_pow2 + 24*M*r - 9*r_pow2)) - r_pow3*(r_pow2*(85*M_pow2 - 122*M*r + 51*r_pow2) + L_pow2*(52*M_pow2 - 144*M*r + 69*r_pow2)) + a_pow2*r*(L_pow2*(72*M_pow2 + 172*M*r - 69*r_pow2) - r*(80*M_pow3 + 65*M_pow2*r - 128*M*r_pow2 + 84*r_pow3))) + pow(a_pow2 + r*r_minus_twoM,3)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),7)*(3*a_pow8*r*(26*M + 3*r) + a_pow6*(r_pow2*(-322*M_pow2 + 147*M*r - 9*r_pow2) + 3*L_pow2*(4*M_pow2 + 26*M*r + 3*r_pow2)) + M*r_pow3*(-4*L_pow4*(26*M_pow2 - 31*M*r + 9*r_pow2) + L_pow2*r_pow2*(-25*M_pow2 + 12*M*r + 10*r_pow2) + r_pow4*(91*M_pow2 - 118*M*r + 46*r_pow2)) + a_pow4*(72*L_pow4*M_pow2 + r_pow3*(376*M_pow3 - 365*M_pow2*r + 205*M*r_pow2 - 90*r_pow3) + L_pow2*r*(140*M_pow3 - 160*M_pow2*r + 23*M*r_pow2 - 36*r_pow3)) + a_pow2*r*(4*L_pow4*M*(24*M_pow2 + 35*M*r - 31*r_pow2) + L_pow2*r*(-160*M_pow4 + 52*M_pow3*r + 27*M_pow2*r_pow2 + 102*M*r_pow3 - 84*r_pow4) + r_pow3*(-166*M_pow4 + 289*M_pow3*r - 371*M_pow2*r_pow2 + 272*M*r_pow3 - 72*r_pow4))) + 2*r_pow2*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5)*(9*a_pow12*r*twoM_plus_r_pow2*(3*M + r) + 36*a*E_pow3*L*M_pow2*(-(L_pow2*r) + r_pow3 + a_pow2*twoM_plus_r)*(4*r_pow9 + 3*a_pow8*(M + r) + a_pow2*r_pow6*(-83*M + 19*r) + a_pow6*r*(-4*M_pow2 - M*r + 17*r_pow2) + a_pow4*r_pow3*(-20*M_pow2 - 63*M*r + 29*r_pow2)) + r_pow7*(L_pow4*M*r_pow2*(-303*M_pow2 + 275*M*r - 46*r_pow2) + M*r_pow6*(121*M_pow2 - 149*M*r + 54*r_pow2) + L_pow2*r_pow4*(216*M_pow3 - 419*M_pow2*r + 262*M*r_pow2 - 42*r_pow3) + L_pow6*(-686*M_pow3 + 1097*M_pow2*r - 590*M*r_pow2 + 108*r_pow3)) + a_pow10*(3*L_pow2*M*(112*M_pow3 + 576*M_pow2*r + 230*M*r_pow2 + 21*r_pow3) + 2*r_pow2*(-88*M_pow4 + 36*M_pow3*r + 156*M_pow2*r_pow2 + 76*M*r_pow3 + 9*r_pow4)) - a_pow2*r_pow4*(2*r_pow6*(-306*M_pow4 + 150*M_pow3*r + 216*M_pow2*r_pow2 - 190*M*r_pow3 + 33*r_pow4) + 2*L_pow4*r_pow2*(134*M_pow4 + 1851*M_pow3*r - 1518*M_pow2*r_pow2 + 162*M*r_pow3 + 84*r_pow4) + L_pow6*(848*M_pow4 + 1145*M_pow3*r - 1842*M_pow2*r_pow2 + 296*M*r_pow3 + 156*r_pow4) + L_pow2*r_pow4*(-1408*M_pow4 + 2425*M_pow3*r - 516*M_pow2*r_pow2 - 634*M*r_pow3 + 216*r_pow4)) + a_pow4*r_pow2*(L_pow6*(-144*M_pow4 - 600*M_pow3*r + 698*M_pow2*r_pow2 - 126*M*r_pow3 + 87*r_pow4) + L_pow2*r_pow3*(8464*M_pow5 - 5648*M_pow4*r - 3140*M_pow3*r_pow2 + 3231*M_pow2*r_pow3 + 102*M*r_pow4 - 399*r_pow5) + r_pow5*(996*M_pow5 + 360*M_pow4*r - 1674*M_pow3*r_pow2 + 378*M_pow2*r_pow3 + 491*M*r_pow4 - 207*r_pow5) + L_pow4*r*(688*M_pow5 - 5196*M_pow4*r + 995*M_pow3*r_pow2 + 2613*M_pow2*r_pow3 - 957*M*r_pow4 - 165*r_pow5)) - a_pow8*(3*L_pow4*(72*M_pow4 - 668*M_pow3*r - 264*M_pow2*r_pow2 + 27*M*r_pow3 + 9*r_pow4) + r_pow3*(492*M_pow5 + 800*M_pow4*r - 21*M_pow3*r_pow2 - 411*M_pow2*r_pow3 - 8*M*r_pow4 + 66*r_pow5) + L_pow2*r*(1032*M_pow5 + 4816*M_pow4*r - 4194*M_pow3*r_pow2 - 1818*M_pow2*r_pow3 + 266*M*r_pow4 + 93*r_pow5)) + a_pow6*r*(3*L_pow6*(36*M_pow3 + 106*M_pow2*r - 27*M*r_pow2 - 6*r_pow3) + 2*L_pow4*(144*M_pow5 - 1602*M_pow4*r + 2125*M_pow3*r_pow2 + 916*M_pow2*r_pow3 - 182*M*r_pow4 - 12*r_pow5) + L_pow2*r*(928*M_pow6 + 3068*M_pow5*r - 13852*M_pow4*r_pow2 + 2171*M_pow3*r_pow3 + 3436*M_pow2*r_pow4 - 599*M*r_pow5 - 318*r_pow6) + 4*r_pow3*(128*M_pow6 + 182*M_pow5*r - 387*M_pow4*r_pow2 - 203*M_pow3*r_pow3 + 226*M_pow2*r_pow4 + 21*M*r_pow5 - 54*r_pow6)) - a*E*L*M*(3*a_pow10*(224*M_pow3 + 812*M_pow2*r + 460*M*r_pow2 + 55*r_pow3) + r_pow7*(L_pow4*(-4139*M_pow2 + 4844*M*r - 1482*r_pow2) + r_pow4*(-647*M_pow2 + 128*M*r + 102*r_pow2) - 2*L_pow2*r_pow2*(1337*M_pow2 - 878*M*r + 168*r_pow2)) + a_pow2*r_pow4*(4*L_pow2*r_pow2*(41*M_pow3 - 2906*M_pow2*r + 1702*M*r_pow2 - 327*r_pow3) + r_pow4*(4572*M_pow3 - 5291*M_pow2*r + 1846*M*r_pow2 + 66*r_pow3) - L_pow4*(2416*M_pow3 + 5145*M_pow2*r - 4998*M*r_pow2 + 258*r_pow3)) - a_pow4*r_pow2*(L_pow4*(432*M_pow3 + 1236*M_pow2*r - 1822*M*r_pow2 + 237*r_pow3) + r_pow3*(-12660*M_pow4 + 1832*M_pow3*r + 11697*M_pow2*r_pow2 - 4422*M*r_pow3 - 189*r_pow4) + 2*L_pow2*r*(-1408*M_pow4 + 4558*M_pow3*r + 9*M_pow2*r_pow2 - 4678*M*r_pow3 + 585*r_pow4)) + a_pow8*(6*L_pow2*(-108*M_pow3 + 614*M_pow2*r + 366*M*r_pow2 + 31*r_pow3) + r*(-2064*M_pow4 - 7040*M_pow3*r + 4372*M_pow2*r_pow2 + 5626*M*r_pow3 + 693*r_pow4)) + a_pow6*r*(3*L_pow4*(108*M_pow2 + 248*M*r + 7*r_pow2) + 4*L_pow2*(216*M_pow4 - 1548*M_pow3*r + 2158*M_pow2*r_pow2 + 1751*M*r_pow3 - 3*r_pow4) + r*(1856*M_pow5 + 5132*M_pow4*r - 18580*M_pow3*r_pow2 - 6869*M_pow2*r_pow3 + 6950*M*r_pow4 + 753*r_pow5))) + E_pow2*M*(3*a_pow12*twoM_plus_r_pow2*(28*M + 31*r) + r_pow10*(L_pow4*(82*M - 58*r) + r_pow4*(-62*M + 23*r) - L_pow2*r_pow2*(28*M + 29*r)) + a_pow2*r_pow7*(-8*L_pow4*(793*M_pow2 - 568*M*r + 23*r_pow2) + 2*r_pow4*(187*M_pow2 - 327*M*r + 111*r_pow2) + L_pow2*r_pow2*(-1254*M_pow2 - 1156*M*r + 137*r_pow2)) + a_pow4*r_pow4*(-4*L_pow4*(572*M_pow3 + 1567*M_pow2*r - 924*M*r_pow2 + 23*r_pow3) + 2*L_pow2*r_pow2*(3258*M_pow3 - 3635*M_pow2*r + 924*M*r_pow2 + 390*r_pow3) + r_pow4*(2472*M_pow3 - 1116*M_pow2*r - 1476*M*r_pow2 + 751*r_pow3)) + a_pow10*(3*L_pow2*(-216*M_pow3 + 452*M_pow2*r + 432*M*r_pow2 + 65*r_pow3) + 2*r*(-516*M_pow4 - 1112*M_pow3*r + 75*M_pow2*r_pow2 + 753*M*r_pow3 + 251*r_pow4)) + 2*a_pow6*r_pow2*(-4*L_pow4*(54*M_pow3 + 84*M_pow2*r - 217*M*r_pow2 - 17*r_pow3) + 2*r_pow3*(854*M_pow4 + 400*M_pow3*r - 1179*M_pow2*r_pow2 - 161*M*r_pow3 + 311*r_pow4) + L_pow2*r*(1784*M_pow4 + 740*M_pow3*r - 775*M_pow2*r_pow2 + 3490*M*r_pow3 + 614*r_pow4)) + a_pow8*r*(6*L_pow4*(54*M_pow2 + 89*M*r + 17*r_pow2) + L_pow2*(864*M_pow4 - 2772*M_pow3*r + 3086*M_pow2*r_pow2 + 5300*M*r_pow3 + 809*r_pow4) + r*(928*M_pow5 + 2064*M_pow4*r - 3528*M_pow3*r_pow2 - 3784*M_pow2*r_pow3 + 1290*M*r_pow4 + 1101*r_pow5))))*ur_pow2 + r_pow4*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(24*a*E_pow3*L*M_pow2*(r_pow4*r_minus_twoM + a_pow4*twoM_plus_r + a_pow2*(-4*M_pow2*r + 2*r_pow3))*(3*a_pow12*twoM_plus_r_pow2*(8*M + 3*r) + r_pow11*(12*L_pow4 - 11*L_pow2*r_pow2 + 22*r_pow4) + a_pow10*r*twoM_plus_r*(56*M_pow3 + 372*M_pow2*r + 342*M*r_pow2 + 79*r_pow3 + L_pow2*(-42*M + 3*r)) + a_pow2*r_pow8*(3*L_pow4*(217*M + 4*r) - L_pow2*r_pow2*(1380*M + 17*r) + r_pow4*(284*M + 131*r)) + a_pow4*r_pow5*(3*L_pow4*(40*M_pow2 + 217*M*r - 6*r_pow2) + 6*L_pow2*r_pow2*(-466*M_pow2 - 448*M*r + 3*r_pow2) + r_pow4*(852*M_pow2 + 1124*M*r + 313*r_pow2)) + a_pow6*r_pow3*(3*L_pow4*(16*M_pow2 + 59*M*r - 8*r_pow2) - 2*L_pow2*r*(80*M_pow3 + 1350*M_pow2*r + 828*M*r_pow2 - 23*r_pow3) + 2*r_pow3*(352*M_pow3 + 1152*M_pow2*r + 888*M*r_pow2 + 191*r_pow3)) + a_pow8*r_pow2*(L_pow4*(9*M - 6*r) + L_pow2*(32*M_pow3 - 756*M_pow2*r - 384*M*r_pow2 + 25*r_pow3) + 8*r*(-10*M_pow4 + 152*M_pow3*r + 297*M_pow2*r_pow2 + 172*M*r_pow3 + 31*r_pow4))) + 2*E_pow2*M*(a_pow2 + r*r_minus_twoM)*(3*a_pow16*twoM_plus_r_pow4*(96*M + 73*r) + r_pow14*(-5*L_pow4*(62*M - 23*r)*r_pow2 + r_pow6*(-156*M + 79*r) + L_pow6*(-172*M + 88*r) + 2*L_pow2*r_pow4*(-237*M + 98*r)) + 2*a_pow2*r_pow11*(6*L_pow2*r_pow4*(390*M_pow2 - 771*M*r + 172*r_pow2) + L_pow6*(-9444*M_pow2 + 4948*M*r + 178*r_pow2) + 2*L_pow4*r_pow2*(2794*M_pow2 - 2115*M*r + 330*r_pow2) + r_pow6*(-102*M_pow2 - 623*M*r + 395*r_pow2)) + a_pow4*r_pow8*(-2*L_pow2*r_pow4*(384*M_pow3 + 15290*M_pow2*r + 10884*M*r_pow2 - 4005*r_pow3) - 4*L_pow6*(8418*M_pow3 + 5386*M_pow2*r - 4371*M*r_pow2 - 183*r_pow3) + 4*r_pow6*(1362*M_pow3 - 1948*M_pow2*r - 510*M*r_pow2 + 825*r_pow3) + L_pow4*r_pow2*(99516*M_pow3 + 1266*M_pow2*r - 14814*M*r_pow2 + 4733*r_pow3)) - 2*a_pow14*twoM_plus_r_pow2*(3*L_pow2*(288*M_pow3 - 380*M_pow2*r - 407*M*r_pow2 - 105*r_pow3) + r*(2024*M_pow4 + 2708*M_pow3*r - 1470*M_pow2*r_pow2 - 2789*M*r_pow3 - 815*r_pow4)) - 2*a_pow6*r_pow5*(L_pow2*r_pow4*(35304*M_pow4 + 59132*M_pow3*r + 42236*M_pow2*r_pow2 + 1431*M*r_pow3 - 7975*r_pow4) + r_pow6*(-13392*M_pow4 + 3672*M_pow3*r + 13990*M_pow2*r_pow2 - 2559*M*r_pow3 - 3817*r_pow4) + L_pow6*(4144*M_pow4 + 21940*M_pow3*r + 8232*M_pow2*r_pow2 - 5282*M*r_pow3 - 470*r_pow4) - 4*L_pow4*r_pow2*(19739*M_pow4 + 19966*M_pow3*r - 536*M_pow2*r_pow2 + 449*M*r_pow3 + 1004*r_pow4)) + a_pow8*r_pow3*(-4*L_pow6*(864*M_pow4 + 3698*M_pow3*r + 774*M_pow2*r_pow2 - 1072*M*r_pow3 - 167*r_pow4) - 6*L_pow2*r_pow3*(14256*M_pow5 + 41896*M_pow4*r + 33744*M_pow3*r_pow2 + 5220*M_pow2*r_pow3 - 6929*M*r_pow4 - 3020*r_pow5) + 2*r_pow5*(25536*M_pow5 + 12152*M_pow4*r - 34488*M_pow3*r_pow2 - 15068*M_pow2*r_pow3 + 11726*M*r_pow4 + 5395*r_pow5) + L_pow4*r*(12128*M_pow5 + 147600*M_pow4*r + 105536*M_pow3*r_pow2 + 27212*M_pow2*r_pow3 + 23398*M*r_pow4 + 7173*r_pow5)) + a_pow12*r*twoM_plus_r*(L_pow4*(3024*M_pow3 + 3922*M_pow2*r + 2856*M*r_pow2 + 603*r_pow3) - 2*L_pow2*(2016*M_pow5 + 19328*M_pow4*r + 9836*M_pow3*r_pow2 - 10062*M_pow2*r_pow3 - 9044*M*r_pow4 - 2117*r_pow5) + 4*r*(1680*M_pow6 + 2344*M_pow5*r - 6604*M_pow4*r_pow2 - 8806*M_pow3*r_pow3 + 1604*M_pow2*r_pow4 + 4714*M*r_pow5 + 1315*r_pow6)) + 2*a_pow10*r_pow2*(L_pow6*(-324*M_pow3 + 524*M_pow2*r + 570*M*r_pow2 + 96*r_pow3) + 2*L_pow4*(-576*M_pow5 + 9638*M_pow4*r + 10360*M_pow3*r_pow2 + 7806*M_pow2*r_pow3 + 4301*M*r_pow4 + 818*r_pow5) + 2*L_pow2*r*(3792*M_pow6 - 31016*M_pow5*r - 57660*M_pow4*r_pow2 - 20388*M_pow3*r_pow3 + 14906*M_pow2*r_pow4 + 13260*M*r_pow5 + 2979*r_pow6) + r_pow3*(21792*M_pow6 + 25424*M_pow5*r - 36336*M_pow4*r_pow2 - 46656*M_pow3*r_pow3 + 5086*M_pow2*r_pow4 + 18351*M*r_pow5 + 4797*r_pow6))) - 2*a*E*L*M*(a_pow2 + r*r_minus_twoM)*(3*a_pow14*twoM_plus_r_pow3*(384*M_pow2 + 486*M*r + 125*r_pow2) + r_pow11*(L_pow6*(-12979*M_pow2 + 14014*M*r - 3846*r_pow2) + L_pow4*r_pow2*(-1903*M_pow2 - 350*M*r + 420*r_pow2) + r_pow6*(795*M_pow2 - 1508*M*r + 582*r_pow2) + L_pow2*r_pow4*(5751*M_pow2 - 10112*M*r + 3498*r_pow2)) + a_pow2*r_pow8*(3*r_pow6*(3472*M_pow3 - 3637*M_pow2*r - 1206*M*r_pow2 + 1274*r_pow3) + L_pow4*r_pow2*(58032*M_pow3 - 52133*M_pow2*r + 8496*M*r_pow2 + 1646*r_pow3) - 2*L_pow6*(9977*M_pow3 + 5923*M_pow2*r - 9783*M*r_pow2 + 1835*r_pow3) + 2*L_pow2*r_pow4*(20301*M_pow3 - 23559*M_pow2*r - 6229*M*r_pow2 + 6084*r_pow3)) + a_pow4*r_pow5*(L_pow6*(-7936*M_pow4 - 33206*M_pow3*r - 6713*M_pow2*r_pow2 + 17848*M*r_pow3 + 513*r_pow4) + L_pow4*r_pow2*(137604*M_pow4 + 14788*M_pow3*r - 70113*M_pow2*r_pow2 + 29902*M*r_pow3 + 3129*r_pow4) + r_pow6*(46776*M_pow4 - 16744*M_pow3*r - 47646*M_pow2*r_pow2 + 8346*M*r_pow3 + 10941*r_pow4) + L_pow2*r_pow4*(19620*M_pow4 - 52878*M_pow3*r - 106564*M_pow2*r_pow2 + 19760*M*r_pow3 + 17749*r_pow4)) - a_pow12*twoM_plus_r*(L_pow2*(3456*M_pow4 - 10416*M_pow3*r - 16400*M_pow2*r_pow2 - 7436*M*r_pow3 - 951*r_pow4) - r*(-16192*M_pow5 - 27616*M_pow4*r + 7824*M_pow3*r_pow2 + 33124*M_pow2*r_pow3 + 18112*M*r_pow4 + 2973*r_pow5)) + a_pow6*r_pow3*(-2*L_pow6*(1728*M_pow4 + 7556*M_pow3*r + 1037*M_pow2*r_pow2 - 3136*M*r_pow3 - 269*r_pow4) - 2*L_pow2*r_pow3*(32436*M_pow5 + 71816*M_pow4*r + 92125*M_pow3*r_pow2 + 20175*M_pow2*r_pow3 - 30441*M*r_pow4 - 8085*r_pow5) + L_pow4*r*(12736*M_pow5 + 116796*M_pow4*r - 9952*M_pow3*r_pow2 + 3039*M_pow2*r_pow3 + 40030*M*r_pow4 + 3777*r_pow5) + r_pow5*(94272*M_pow5 + 26504*M_pow4*r - 140656*M_pow3*r_pow2 - 47838*M_pow2*r_pow3 + 44600*M*r_pow4 + 17559*r_pow5)) + a_pow8*r_pow2*(L_pow6*(-648*M_pow3 + 1988*M_pow2*r + 1748*M*r_pow2 + 201*r_pow3) + L_pow4*(-2304*M_pow5 + 23824*M_pow4*r + 15604*M_pow3*r_pow2 + 40924*M_pow2*r_pow3 + 26352*M*r_pow4 + 2651*r_pow5) + 3*r_pow3*(28496*M_pow6 + 26144*M_pow5*r - 58520*M_pow4*r_pow2 - 58704*M_pow3*r_pow3 + 13397*M_pow2*r_pow4 + 24624*M*r_pow5 + 5632*r_pow6) + L_pow2*r*(24576*M_pow6 - 135096*M_pow5*r - 234372*M_pow4*r_pow2 - 83178*M_pow3*r_pow3 + 90309*M_pow2*r_pow4 + 72550*M*r_pow5 + 11226*r_pow6)) + a_pow10*r*(L_pow4*(6048*M_pow4 + 16120*M_pow3*r + 18266*M_pow2*r_pow2 + 7378*M*r_pow3 + 777*r_pow4) + L_pow2*(-8064*M_pow6 - 101056*M_pow5*r - 69584*M_pow4*r_pow2 + 75656*M_pow3*r_pow3 + 108236*M_pow2*r_pow4 + 43112*M*r_pow5 + 5086*r_pow6) + r*(26880*M_pow7 + 43216*M_pow6*r - 109344*M_pow5*r_pow2 - 195720*M_pow4*r_pow3 - 15952*M_pow3*r_pow4 + 107037*M_pow2*r_pow5 + 60078*M*r_pow6 + 9636*r_pow7))) - (a_pow2 + r*r_minus_twoM)*(9*a_pow16*(4*M - r)*r*twoM_plus_r_pow4 + r_pow11*(M*r_pow8*(-283*M_pow2 + 314*M*r - 96*r_pow2) + L_pow8*(4944*M_pow3 - 8052*M_pow2*r + 4400*M*r_pow2 - 808*r_pow3) + L_pow6*r_pow2*(1081*M_pow3 - 926*M_pow2*r + 173*M*r_pow2 - 4*r_pow3) + L_pow2*r_pow6*(-2113*M_pow3 + 3106*M_pow2*r - 1564*M*r_pow2 + 252*r_pow3) + L_pow4*r_pow4*(-4973*M_pow3 + 8838*M_pow2*r - 5155*M*r_pow2 + 966*r_pow3)) - a_pow14*twoM_plus_r_pow2*(3*L_pow2*(768*M_pow4 + 1360*M_pow3*r + 696*M_pow2*r_pow2 + 14*M*r_pow3 - 3*r_pow4) + r_pow2*(1432*M_pow4 + 1812*M_pow3*r + 558*M_pow2*r_pow2 + 131*M*r_pow3 + 63*r_pow4)) + a_pow2*r_pow8*(4*L_pow8*(1421*M_pow4 + 2089*M_pow3*r - 3515*M_pow2*r_pow2 + 1038*M*r_pow3 + 25*r_pow4) + r_pow8*(-2986*M_pow4 + 1311*M_pow3*r + 1351*M_pow2*r_pow2 - 800*M*r_pow3 + 48*r_pow4) + L_pow6*r_pow2*(-33372*M_pow4 + 54264*M_pow3*r - 24365*M_pow2*r_pow2 + 1742*M*r_pow3 + 671*r_pow4) + L_pow2*r_pow6*(-21584*M_pow4 + 16782*M_pow3*r + 4475*M_pow2*r_pow2 - 5744*M*r_pow3 + 912*r_pow4) + L_pow4*r_pow4*(-51294*M_pow4 + 60439*M_pow3*r - 6291*M_pow2*r_pow2 - 10539*M*r_pow3 + 2525*r_pow4)) + a_pow4*r_pow5*(4*L_pow8*(1264*M_pow5 + 3483*M_pow4*r + 782*M_pow3*r_pow2 - 3676*M_pow2*r_pow3 + 820*M*r_pow4 + 143*r_pow5) + r_pow8*(-12568*M_pow5 - 2696*M_pow4*r + 11134*M_pow3*r_pow2 - 147*M_pow2*r_pow3 - 2193*M*r_pow4 + 222*r_pow5) + 2*L_pow6*r_pow2*(-46308*M_pow5 + 27700*M_pow4*r + 26439*M_pow3*r_pow2 - 24102*M_pow2*r_pow3 + 3677*M*r_pow4 + 542*r_pow5) + L_pow2*r_pow6*(-77832*M_pow5 + 14728*M_pow4*r + 71962*M_pow3*r_pow2 - 16864*M_pow2*r_pow3 - 10651*M*r_pow4 + 1494*r_pow5) + L_pow4*r_pow4*(-105624*M_pow5 + 56220*M_pow4*r + 112986*M_pow3*r_pow2 - 52229*M_pow2*r_pow3 - 7578*M*r_pow4 + 2229*r_pow5)) + a_pow6*r_pow3*(4*L_pow8*(576*M_pow5 + 2572*M_pow4*r + 317*M_pow3*r_pow2 - 1772*M_pow2*r_pow3 - 84*M*r_pow4 - 75*r_pow5) + 2*L_pow6*r*(-4448*M_pow6 - 35532*M_pow5*r + 39562*M_pow4*r_pow2 - 3056*M_pow3*r_pow3 - 18225*M_pow2*r_pow4 + 3328*M*r_pow5 + 119*r_pow6) + r_pow7*(-26384*M_pow6 - 22520*M_pow5*r + 27708*M_pow4*r_pow2 + 17190*M_pow3*r_pow3 - 7160*M_pow2*r_pow4 - 2931*M*r_pow5 + 381*r_pow6) + 2*L_pow4*r_pow3*(568*M_pow6 - 1488*M_pow5*r + 106928*M_pow4*r_pow2 + 10517*M_pow3*r_pow3 - 40175*M_pow2*r_pow4 - 197*M*r_pow5 + 639*r_pow6) + L_pow2*r_pow5*(-126656*M_pow6 - 43312*M_pow5*r + 204080*M_pow4*r_pow2 + 49896*M_pow3*r_pow3 - 65986*M_pow2*r_pow4 - 10810*M*r_pow5 + 1905*r_pow6)) + a_pow12*(-(r_pow3*twoM_plus_r_pow2*(-3888*M_pow5 - 4484*M_pow4*r + 2644*M_pow3*r_pow2 + 3271*M_pow2*r_pow3 + 597*M*r_pow4 + 132*r_pow5)) + L_pow4*(4608*M_pow6 - 21696*M_pow5*r - 46064*M_pow4*r_pow2 - 29208*M_pow3*r_pow3 - 5461*M_pow2*r_pow4 + 408*M*r_pow5 + 81*r_pow6) + L_pow2*r*(32384*M_pow7 + 67136*M_pow6*r - 592*M_pow5*r_pow2 - 85616*M_pow4*r_pow3 - 60968*M_pow3*r_pow4 - 9344*M_pow2*r_pow5 + 2301*M*r_pow6 + 402*r_pow7)) + a_pow8*r_pow2*(4*L_pow8*(108*M_pow4 - 488*M_pow3*r - 340*M_pow2*r_pow2 + 78*M*r_pow3 + 9*r_pow4) + L_pow6*(1536*M_pow6 - 6064*M_pow5*r + 13080*M_pow4*r_pow2 - 38799*M_pow3*r_pow3 - 20422*M_pow2*r_pow4 + 1561*M*r_pow5 - 72*r_pow6) + r_pow5*(-27632*M_pow7 - 40896*M_pow6*r + 32024*M_pow5*r_pow2 + 52672*M_pow4*r_pow3 + 385*M_pow3*r_pow4 - 13348*M_pow2*r_pow5 - 2470*M*r_pow6 + 255*r_pow7) + L_pow4*r*(-22656*M_pow7 + 81200*M_pow6*r + 168920*M_pow5*r_pow2 + 97860*M_pow4*r_pow3 - 104581*M_pow3*r_pow4 - 58332*M_pow2*r_pow5 + 5973*M*r_pow6 + 1220*r_pow7) + L_pow2*r_pow3*(-94288*M_pow7 - 78720*M_pow6*r + 243448*M_pow5*r_pow2 + 200376*M_pow4*r_pow3 - 96729*M_pow3*r_pow4 - 83914*M_pow2*r_pow5 - 2510*M*r_pow6 + 2100*r_pow7)) - a_pow10*r*(L_pow6*(4032*M_pow5 + 14248*M_pow4*r + 17984*M_pow3*r_pow2 + 4529*M_pow2*r_pow3 - 690*M*r_pow4 - 99*r_pow5) - L_pow4*(5376*M_pow7 + 80512*M_pow6*r + 55360*M_pow5*r_pow2 - 68306*M_pow4*r_pow3 - 93585*M_pow3*r_pow4 - 20543*M_pow2*r_pow5 + 4581*M*r_pow6 + 693*r_pow7) + L_pow2*r*(26880*M_pow8 + 35488*M_pow7*r - 132176*M_pow6*r_pow2 - 201760*M_pow5*r_pow3 + 37312*M_pow4*r_pow4 + 141926*M_pow3*r_pow5 + 43285*M_pow2*r_pow6 - 4136*M*r_pow7 - 1422*r_pow8) + r_pow3*(11552*M_pow8 + 24208*M_pow7*r - 25376*M_pow6*r_pow2 - 64952*M_pow5*r_pow3 - 17998*M_pow4*r_pow4 + 20237*M_pow3*r_pow5 + 12153*M_pow2*r_pow6 + 1806*M*r_pow7 + 30*r_pow8))))*ur_pow4 + 2*r_pow6*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(69*a_pow18*M*r*twoM_plus_r_pow5 + r_pow14*(M*r_pow8*(126*M_pow2 - 127*M*r + 32*r_pow2) + L_pow4*r_pow4*(5636*M_pow3 - 8712*M_pow2*r + 4481*M*r_pow2 - 767*r_pow3) + L_pow6*r_pow2*(3526*M_pow3 - 5777*M_pow2*r + 3121*M*r_pow2 - 557*r_pow3) + L_pow2*r_pow6*(1242*M_pow3 - 1313*M_pow2*r + 382*M*r_pow2 - 18*r_pow3) + L_pow8*(-3514*M_pow3 + 5529*M_pow2*r - 2900*M*r_pow2 + 507*r_pow3)) + a_pow16*twoM_plus_r_pow3*(3*L_pow2*M*(280*M_pow3 + 444*M_pow2*r + 454*M*r_pow2 + 121*r_pow3) + r_pow2*(-1192*M_pow4 + 4*M_pow3*r + 1624*M_pow2*r_pow2 + 680*M*r_pow3 + 9*r_pow4)) + a_pow2*r_pow11*(L_pow4*r_pow4*(38164*M_pow4 - 26122*M_pow3*r - 15146*M_pow2*r_pow2 + 14209*M*r_pow3 - 2445*r_pow4) + L_pow6*r_pow2*(43214*M_pow4 - 41587*M_pow3*r + 2427*M_pow2*r_pow2 + 6836*M*r_pow3 - 1526*r_pow4) + L_pow2*r_pow6*(11814*M_pow4 - 2355*M_pow3*r - 8361*M_pow2*r_pow2 + 3316*M*r_pow3 - 12*r_pow4) + r_pow8*(1170*M_pow4 + 85*M_pow3*r - 1062*M_pow2*r_pow2 + 352*M*r_pow3 + 6*r_pow4) + L_pow8*(-1634*M_pow4 - 8057*M_pow3*r + 11830*M_pow2*r_pow2 - 4897*M*r_pow3 + 608*r_pow4)) + a_pow4*r_pow8*(L_pow4*r_pow4*(77196*M_pow5 + 40224*M_pow4*r - 114135*M_pow3*r_pow2 + 561*M_pow2*r_pow3 + 24334*M*r_pow4 - 2290*r_pow5) + L_pow6*r_pow2*(80748*M_pow5 + 9080*M_pow4*r - 87890*M_pow3*r_pow2 + 26190*M_pow2*r_pow3 + 5726*M*r_pow4 - 1209*r_pow5) + 2*L_pow8*(2618*M_pow5 - 8664*M_pow4*r - 1697*M_pow3*r_pow2 + 7729*M_pow2*r_pow3 - 2416*M*r_pow4 - 112*r_pow5) + r_pow8*(4140*M_pow5 + 6760*M_pow4*r - 6020*M_pow3*r_pow2 - 2765*M_pow2*r_pow3 + 1724*M*r_pow4 + 45*r_pow5) + L_pow2*r_pow6*(43152*M_pow5 + 30152*M_pow4*r - 54931*M_pow3*r_pow2 - 11364*M_pow2*r_pow3 + 13392*M*r_pow4 + 93*r_pow5)) + a_pow6*r_pow5*(L_pow4*r_pow4*(124984*M_pow6 + 141204*M_pow5*r - 151314*M_pow4*r_pow2 - 159541*M_pow3*r_pow3 + 51331*M_pow2*r_pow4 + 32810*M*r_pow5 - 50*r_pow6) + L_pow6*r_pow2*(6752*M_pow6 + 91924*M_pow5*r - 84444*M_pow4*r_pow2 - 62847*M_pow3*r_pow3 + 37251*M_pow2*r_pow4 + 3517*M*r_pow5 - 41*r_pow6) + L_pow2*r_pow6*(77424*M_pow6 + 127928*M_pow5*r - 108164*M_pow4*r_pow2 - 131894*M_pow3*r_pow3 + 29222*M_pow2*r_pow4 + 28823*M*r_pow5 + 15*r_pow6) - 2*L_pow8*(800*M_pow6 - 1450*M_pow5*r + 8463*M_pow4*r_pow2 - 1523*M_pow3*r_pow3 - 4956*M_pow2*r_pow4 + 1306*M*r_pow5 + 122*r_pow6) + r_pow8*(6480*M_pow6 + 30360*M_pow5*r - 3250*M_pow4*r_pow2 - 25245*M_pow3*r_pow3 - 158*M_pow2*r_pow4 + 4849*M*r_pow5 + 144*r_pow6)) + a_pow14*r*twoM_plus_r*(L_pow4*M*(384*M_pow4 + 11808*M_pow3*r + 12841*M_pow2*r_pow2 + 4727*M*r_pow3 + 504*r_pow4) + r_pow2*twoM_plus_r_pow2*(1460*M_pow5 - 2380*M_pow4*r - 4919*M_pow3*r_pow2 + 2136*M_pow2*r_pow3 + 2719*M*r_pow4 + 60*r_pow5) + L_pow2*(-12096*M_pow7 - 23232*M_pow6*r - 12976*M_pow5*r_pow2 + 23432*M_pow4*r_pow3 + 38124*M_pow3*r_pow4 + 18046*M_pow2*r_pow5 + 2461*M*r_pow6 - 117*r_pow7)) + a_pow8*r_pow3*(L_pow8*(-1344*M_pow6 - 3536*M_pow5*r - 6984*M_pow4*r_pow2 + 5852*M_pow3*r_pow3 + 5777*M_pow2*r_pow4 + 208*M*r_pow5 + 81*r_pow6) + L_pow2*r_pow5*(75936*M_pow7 + 188784*M_pow6*r - 83640*M_pow5*r_pow2 - 325072*M_pow4*r_pow3 - 58600*M_pow3*r_pow4 + 104283*M_pow2*r_pow5 + 34685*M*r_pow6 - 480*r_pow7) + L_pow6*r*(13504*M_pow7 - 3240*M_pow6*r - 18688*M_pow5*r_pow2 - 84098*M_pow4*r_pow3 + 3881*M_pow3*r_pow4 + 30356*M_pow2*r_pow5 + 1790*M*r_pow6 + 226*r_pow7) + r_pow7*(2880*M_pow7 + 57200*M_pow6*r + 33800*M_pow5*r_pow2 - 60560*M_pow4*r_pow3 - 37030*M_pow3*r_pow4 + 13275*M_pow2*r_pow5 + 8534*M*r_pow6 + 255*r_pow7) + L_pow4*r_pow3*(168992*M_pow7 + 195568*M_pow6*r - 150164*M_pow5*r_pow2 - 297748*M_pow4*r_pow3 - 27926*M_pow3*r_pow4 + 97902*M_pow2*r_pow5 + 27805*M*r_pow6 + 645*r_pow7)) + a_pow10*r_pow3*(L_pow8*M*(1040*M_pow3 + 2563*M_pow2*r + 1046*M*r_pow2 - 15*r_pow3) + L_pow6*(-17968*M_pow6 - 23192*M_pow5*r + 2198*M_pow4*r_pow2 + 32582*M_pow3*r_pow3 + 15022*M_pow2*r_pow4 + 479*M*r_pow5 + 27*r_pow6) + L_pow2*r_pow2*(48864*M_pow8 + 121168*M_pow7*r - 40064*M_pow6*r_pow2 - 353064*M_pow5*r_pow3 - 203554*M_pow4*r_pow4 + 124481*M_pow3*r_pow5 + 125259*M_pow2*r_pow6 + 23682*M*r_pow7 - 798*r_pow8) + L_pow4*(25344*M_pow8 + 109632*M_pow7*r - 107464*M_pow6*r_pow2 - 303444*M_pow5*r_pow3 - 102724*M_pow4*r_pow4 + 102712*M_pow3*r_pow5 + 73248*M_pow2*r_pow6 + 10861*M*r_pow7 - 97*r_pow8) + r_pow4*(-3168*M_pow8 + 49616*M_pow7*r + 75584*M_pow6*r_pow2 - 56320*M_pow5*r_pow3 - 105650*M_pow4*r_pow4 - 8749*M_pow3*r_pow5 + 30128*M_pow2*r_pow6 + 9667*M*r_pow7 + 270*r_pow8)) + a_pow12*r*(L_pow6*M*r*(7672*M_pow4 + 17578*M_pow3*r + 14031*M_pow2*r_pow2 + 3931*M*r_pow3 + 195*r_pow4) + r_pow3*twoM_plus_r_pow2*(-720*M_pow7 + 4720*M_pow6*r + 9484*M_pow5*r_pow2 - 15068*M_pow4*r_pow3 - 17060*M_pow3*r_pow4 + 6657*M_pow2*r_pow5 + 6308*M*r_pow6 + 171*r_pow7) + L_pow4*(-5376*M_pow8 - 23808*M_pow7*r - 120096*M_pow6*r_pow2 - 82072*M_pow5*r_pow3 + 54020*M_pow4*r_pow4 + 75769*M_pow3*r_pow5 + 25417*M_pow2*r_pow6 + 1764*M*r_pow7 - 180*r_pow8) + L_pow2*r*(21504*M_pow9 + 36864*M_pow8*r - 36080*M_pow7*r_pow2 - 195136*M_pow6*r_pow3 - 175864*M_pow5*r_pow4 + 66616*M_pow4*r_pow5 + 162877*M_pow3*r_pow6 + 73942*M_pow2*r_pow7 + 9226*M*r_pow8 - 507*r_pow9)) + 12*a*E_pow3*L*M_pow2*r*pow(r_pow3 + a_pow2*twoM_plus_r,4)*(15*L_pow4*r_pow4 - 20*L_pow2*r_pow6 + 7*r_pow8 + 7*a_pow6*twoM_plus_r_pow2 + 7*a_pow4*r_pow2*(4*M_pow2 + 8*M*r + 3*r_pow2) + a_pow2*r_pow2*(7*L_pow4 - 20*L_pow2*r*twoM_plus_r + 7*r_pow3*(4*M + 3*r))) + E_pow2*M*(r_pow3 + a_pow2*twoM_plus_r)*(105*a_pow16*twoM_plus_r_pow5 + r_pow14*(L_pow4*(92*M - 55*r)*r_pow2 - 18*L_pow2*(8*M - 3*r)*r_pow4 + 21*r_pow6*r_minus_twoM + L_pow6*(-226*M + 122*r)) + 12*a_pow14*r*twoM_plus_r_pow2*(-7*twoM_plus_r_pow2*(9*M_pow2 - M*r - 9*r_pow2) + L_pow2*(8*M_pow2 + 61*M*r + 25*r_pow2)) - 2*a_pow2*r_pow11*(L_pow6*(5646*M_pow2 - 2261*M*r - 225*r_pow2) + 6*L_pow2*r_pow4*(76*M_pow2 + 128*M*r - 65*r_pow2) + 42*r_pow6*(M_pow2 + 5*M*r - 3*r_pow2) - 2*L_pow4*r_pow2*(5917*M_pow2 - 2957*M*r + 62*r_pow2)) + a_pow4*r_pow8*(84*r_pow6*(20*M_pow3 - 40*M_pow2*r - 7*M*r_pow2 + 14*r_pow3) + 6*L_pow2*r_pow4*(1328*M_pow3 - 2104*M_pow2*r - 674*M*r_pow2 + 565*r_pow3) + L_pow6*(-408*M_pow3 - 15092*M_pow2*r + 9672*M*r_pow2 + 708*r_pow3) + L_pow4*r_pow2*(36372*M_pow3 + 24186*M_pow2*r - 31280*M*r_pow2 + 1827*r_pow3)) - 4*a_pow6*r_pow5*(2*L_pow4*r_pow2*(1747*M_pow4 - 3758*M_pow3*r + 167*M_pow2*r_pow2 + 3115*M*r_pow3 - 466*r_pow4) + L_pow6*(920*M_pow4 + 1564*M_pow3*r + 2327*M_pow2*r_pow2 - 1810*M*r_pow3 - 161*r_pow4) - 105*r_pow6*(24*M_pow4 - 16*M_pow3*r - 27*M_pow2*r_pow2 + 7*M*r_pow3 + 7*r_pow4) - 3*L_pow2*r_pow4*(3336*M_pow4 - 588*M_pow3*r - 3640*M_pow2*r_pow2 - 91*M*r_pow3 + 595*r_pow4)) + a_pow12*r*twoM_plus_r*(L_pow4*r*(1918*M_pow2 + 966*M*r + 285*r_pow2) + 84*r*twoM_plus_r_pow2*(16*M_pow4 - 4*M_pow3*r - 54*M_pow2*r_pow2 + 7*M*r_pow3 + 28*r_pow4) - 6*L_pow2*(672*M_pow5 + 1664*M_pow4*r + 2784*M_pow3*r_pow2 + 776*M_pow2*r_pow3 - 840*M*r_pow4 - 335*r_pow5)) + a_pow8*r_pow3*(-2*L_pow6*(1008*M_pow4 + 1724*M_pow3*r + 782*M_pow2*r_pow2 - 1485*M*r_pow3 - 177*r_pow4) + 210*r_pow5*(112*M_pow5 + 8*M_pow4*r - 168*M_pow3*r_pow2 - 44*M_pow2*r_pow3 + 56*M*r_pow4 + 21*r_pow5) + 6*L_pow2*r_pow3*(7808*M_pow5 + 5248*M_pow4*r - 13120*M_pow3*r_pow2 - 9360*M_pow2*r_pow3 + 1620*M*r_pow4 + 1395*r_pow5) + L_pow4*r*(14432*M_pow5 - 8752*M_pow4*r + 16512*M_pow3*r_pow2 + 5276*M_pow2*r_pow3 - 2236*M*r_pow4 + 3527*r_pow5)) + 2*a_pow10*r_pow3*(L_pow6*(260*M_pow2 + 327*M*r + 45*r_pow2) + 42*r_pow2*twoM_plus_r_pow2*(76*M_pow4 - 24*M_pow3*r - 135*M_pow2*r_pow2 + 21*M*r_pow3 + 49*r_pow4) + L_pow4*(-4492*M_pow4 + 4320*M_pow3*r + 5490*M_pow2*r_pow2 + 2430*M*r_pow3 + 804*r_pow4) + 6*L_pow2*(608*M_pow6 + 1040*M_pow5*r - 4808*M_pow4*r_pow2 - 7752*M_pow3*r_pow3 - 1916*M_pow2*r_pow4 + 1274*M*r_pow5 + 467*r_pow6))) - a*E*L*M*(6*a_pow16*twoM_plus_r_pow4*(140*M_pow2 + 146*M*r + 73*r_pow2) + r_pow14*(L_pow6*(-12664*M_pow2 + 12770*M*r - 3201*r_pow2) + 18*r_pow6*(104*M_pow2 - 114*M*r + 31*r_pow2) + 6*L_pow2*r_pow4*(1940*M_pow2 - 2376*M*r + 697*r_pow2) + L_pow4*r_pow2*(17432*M_pow2 - 18922*M*r + 5085*r_pow2)) + a_pow4*r_pow8*(L_pow6*(6588*M_pow4 - 45696*M_pow3*r - 8301*M_pow2*r_pow2 + 27350*M*r_pow3 - 3315*r_pow4) + 24*r_pow6*(2240*M_pow4 + 150*M_pow3*r - 2873*M_pow2*r_pow2 - 134*M*r_pow3 + 726*r_pow4) + 2*L_pow2*r_pow4*(58344*M_pow4 + 13260*M_pow3*r - 72442*M_pow2*r_pow2 - 10628*M*r_pow3 + 21985*r_pow4) + L_pow4*r_pow2*(139548*M_pow4 + 113976*M_pow3*r - 158845*M_pow2*r_pow2 - 23796*M*r_pow3 + 26750*r_pow4)) + 2*a_pow14*r*twoM_plus_r_pow2*(L_pow2*(192*M_pow3 + 3684*M_pow2*r + 2746*M*r_pow2 + 591*r_pow3) - 12*(504*M_pow5 + 708*M_pow4*r - 122*M_pow3*r_pow2 - 905*M_pow2*r_pow3 - 687*M*r_pow4 - 161*r_pow5)) + a_pow6*r_pow5*(L_pow6*(-6080*M_pow5 - 6860*M_pow4*r - 35204*M_pow3*r_pow2 + 9803*M_pow2*r_pow3 + 22790*M*r_pow4 + 1101*r_pow5) + 24*r_pow6*(4160*M_pow5 + 2680*M_pow4*r - 7310*M_pow3*r_pow2 - 4865*M_pow2*r_pow3 + 2225*M*r_pow4 + 1447*r_pow5) + 2*L_pow4*r_pow2*(-7756*M_pow5 + 61352*M_pow4*r - 27393*M_pow3*r_pow2 - 75725*M_pow2*r_pow3 + 8973*M*r_pow4 + 11331*r_pow5) + 2*L_pow2*r_pow4*(134256*M_pow5 + 94464*M_pow4*r - 123840*M_pow3*r_pow2 - 105164*M_pow2*r_pow3 + 27690*M*r_pow4 + 27641*r_pow5)) + a_pow8*r_pow3*(L_pow6*(-4032*M_pow5 - 9760*M_pow4*r - 11544*M_pow3*r_pow2 + 9545*M_pow2*r_pow3 + 9960*M*r_pow4 + 1180*r_pow5) + 60*r_pow5*(1984*M_pow6 + 2224*M_pow5*r - 3816*M_pow4*r_pow2 - 5680*M_pow3*r_pow3 + 18*M_pow2*r_pow4 + 2270*M*r_pow5 + 701*r_pow6) + L_pow4*r*(34688*M_pow6 - 25512*M_pow5*r - 24780*M_pow4*r_pow2 - 82218*M_pow3*r_pow3 - 18224*M_pow2*r_pow4 + 44016*M*r_pow5 + 13691*r_pow6) + 2*L_pow2*r_pow3*(147360*M_pow6 + 195216*M_pow5*r - 138464*M_pow4*r_pow2 - 255064*M_pow3*r_pow3 - 40232*M_pow2*r_pow4 + 62448*M*r_pow5 + 22949*r_pow6)) - a_pow2*r_pow11*(-24*r_pow6*(656*M_pow3 - 343*M_pow2*r - 387*M*r_pow2 + 201*r_pow3) + L_pow6*(17220*M_pow3 + 15222*M_pow2*r - 24972*M*r_pow2 + 6743*r_pow3) - 2*L_pow4*r_pow2*(56426*M_pow3 - 21279*M_pow2*r - 20754*M*r_pow2 + 9124*r_pow3) + L_pow2*(-48504*M_pow3*r_pow4 + 24564*M_pow2*r_pow5 + 39284*M*r_pow6 - 20542*r_pow7)) + a_pow12*r*twoM_plus_r*(L_pow4*r*(7672*M_pow3 + 10721*M_pow2*r + 6058*M*r_pow2 + 1050*r_pow3) + L_pow2*(-8064*M_pow6 - 27840*M_pow5*r - 91440*M_pow4*r_pow2 - 36112*M_pow3*r_pow3 + 50196*M_pow2*r_pow4 + 39964*M*r_pow5 + 8350*r_pow6) + 24*r*(896*M_pow7 + 1104*M_pow6*r - 2624*M_pow5*r_pow2 - 5232*M_pow4*r_pow3 - 1124*M_pow3*r_pow4 + 3565*M_pow2*r_pow5 + 2826*M*r_pow6 + 616*r_pow7)) + a_pow10*r_pow3*(L_pow6*(2080*M_pow3 + 4391*M_pow2*r + 2318*M*r_pow2 + 306*r_pow3) + L_pow4*(-35936*M_pow5 - 14896*M_pow4*r + 31270*M_pow3*r_pow2 + 57208*M_pow2*r_pow3 + 33018*M*r_pow4 + 5666*r_pow5) + 24*r_pow2*(4096*M_pow7 + 5904*M_pow6*r - 7456*M_pow5*r_pow2 - 18560*M_pow4*r_pow3 - 6140*M_pow3*r_pow4 + 8143*M_pow2*r_pow5 + 6527*M*r_pow6 + 1327*r_pow7) + 2*L_pow2*(22656*M_pow7 + 83040*M_pow6*r - 95216*M_pow5*r_pow2 - 294384*M_pow4*r_pow3 - 135988*M_pow3*r_pow4 + 58622*M_pow2*r_pow5 + 59866*M*r_pow6 + 12697*r_pow7))))*ur_pow6 + r_pow9*(210*a_pow20*M*twoM_plus_r_pow7 + r_pow16*(L_pow2 + r_pow2)*(42*M*r_pow8*r_minus_twoM + L_pow6*r_pow2*(-4994*M_pow2 + 5021*M*r - 1262*r_pow2) + L_pow4*r_pow4*(-3358*M_pow2 + 2857*M*r - 562*r_pow2) + 6*L_pow2*r_pow6*(-102*M_pow2 + 13*M*r + 22*r_pow2) + 4*L_pow8*(539*M_pow2 - 530*M*r + 128*r_pow2)) + 12*a_pow18*M*twoM_plus_r_pow5*(2*L_pow2*(70*M_pow2 + 113*M*r + 51*r_pow2) + 7*r*(-28*M_pow3 - 6*M_pow2*r + 50*M*r_pow2 + 23*r_pow3)) - a_pow2*r_pow13*(84*M*r_pow10*(10*M_pow2 + 8*M*r - 7*r_pow2) + L_pow10*(744*M_pow3 - 6228*M_pow2*r + 4448*M*r_pow2 - 808*r_pow3) + 12*L_pow2*r_pow8*(512*M_pow3 + 626*M_pow2*r - 423*M*r_pow2 - 57*r_pow3) + 3*L_pow8*r_pow2*(7412*M_pow3 - 1710*M_pow2*r - 2283*M*r_pow2 + 687*r_pow3) + 6*L_pow6*r_pow4*(8252*M_pow3 + 768*M_pow2*r - 4654*M*r_pow2 + 1063*r_pow3) + L_pow4*r_pow6*(24684*M_pow3 + 14670*M_pow2*r - 18955*M*r_pow2 + 1745*r_pow3)) + a_pow4*r_pow10*(-42*M*r_pow10*(56*M_pow3 + 252*M_pow2*r - 14*M*r_pow2 - 81*r_pow3) + L_pow4*r_pow6*(-73566*M_pow4 - 184349*M_pow3*r + 24940*M_pow2*r_pow2 + 67230*M*r_pow3 - 2275*r_pow4) + L_pow8*r_pow2*(-32838*M_pow4 - 41761*M_pow3*r + 26342*M_pow2*r_pow2 + 9819*M*r_pow3 - 1683*r_pow4) + L_pow10*(-9864*M_pow4 + 7844*M_pow3*r + 8252*M_pow2*r_pow2 - 5832*M*r_pow3 + 80*r_pow4) + 12*L_pow2*r_pow8*(-1728*M_pow4 - 6548*M_pow3*r + 402*M_pow2*r_pow2 + 2409*M*r_pow3 + 111*r_pow4) - 2*L_pow6*r_pow4*(53994*M_pow4 + 90751*M_pow3*r - 26690*M_pow2*r_pow2 - 30510*M*r_pow3 + 3636*r_pow4)) - a_pow6*r_pow7*(-336*M*r_pow10*(14*M_pow4 - 154*M_pow3*r - 98*M_pow2*r_pow2 + 56*M*r_pow3 + 33*r_pow4) + 12*L_pow2*r_pow8*(2848*M_pow5 + 27656*M_pow4*r + 14004*M_pow3*r_pow2 - 11752*M_pow2*r_pow3 - 6473*M*r_pow4 - 85*r_pow5) + 5*L_pow4*r_pow6*(34472*M_pow5 + 137120*M_pow4*r + 61709*M_pow3*r_pow2 - 55315*M_pow2*r_pow3 - 29732*M*r_pow4 + 50*r_pow5) + 4*L_pow10*(482*M_pow5 + 2435*M_pow4*r - 2547*M_pow3*r_pow2 - 1136*M_pow2*r_pow3 + 960*M*r_pow4 + 54*r_pow5) + L_pow8*r_pow2*(22704*M_pow5 + 80880*M_pow4*r + 11351*M_pow3*r_pow2 - 49389*M_pow2*r_pow3 - 12477*M*r_pow4 + 183*r_pow5) + 2*L_pow6*r_pow4*(64080*M_pow5 + 249014*M_pow4*r + 97946*M_pow3*r_pow2 - 108995*M_pow2*r_pow3 - 51300*M*r_pow4 + 894*r_pow5)) + a_pow16*M*twoM_plus_r_pow3*(5*L_pow4*r*(1232*M_pow3 + 3184*M_pow2*r + 2205*M*r_pow2 + 492*r_pow3) + 42*r_pow2*twoM_plus_r_pow2*(32*M_pow4 - 32*M_pow3*r - 224*M_pow2*r_pow2 + 68*M*r_pow3 + 189*r_pow4) - 12*L_pow2*(192*M_pow6 + 1216*M_pow5*r + 2048*M_pow4*r_pow2 - 1656*M_pow3*r_pow3 - 5896*M_pow2*r_pow4 - 4214*M*r_pow5 - 933*r_pow6)) + a_pow8*r_pow4*(588*M*r_pow10*(80*M_pow5 - 200*M_pow4*r - 344*M_pow3*r_pow2 - 8*M_pow2*r_pow3 + 130*M*r_pow4 + 39*r_pow5) - 4*L_pow10*M*(240*M_pow5 + 1390*M_pow4*r + 242*M_pow3*r_pow2 - 2545*M_pow2*r_pow3 - 1134*M*r_pow4 + 72*r_pow5) - 12*L_pow2*r_pow8*(3200*M_pow6 + 65840*M_pow5*r + 72920*M_pow4*r_pow2 - 12480*M_pow3*r_pow3 - 37326*M_pow2*r_pow4 - 10437*M*r_pow5 + 15*r_pow6) + L_pow8*r_pow2*(-50376*M_pow6 - 89460*M_pow5*r - 44570*M_pow4*r_pow2 + 52947*M_pow3*r_pow3 + 50415*M_pow2*r_pow4 + 9126*M*r_pow5 + 189*r_pow6) + 5*L_pow4*r_pow6*(-59712*M_pow6 - 278848*M_pow5*r - 254352*M_pow4*r_pow2 + 56508*M_pow3*r_pow3 + 138967*M_pow2*r_pow4 + 40235*M*r_pow5 + 380*r_pow6) + 2*L_pow6*r_pow4*(-71400*M_pow6 - 310632*M_pow5*r - 287028*M_pow4*r_pow2 + 89662*M_pow3*r_pow3 + 183408*M_pow2*r_pow4 + 52443*M*r_pow5 + 924*r_pow6)) + a_pow14*r*twoM_plus_r_pow2*(2*L_pow6*M*r*(4886*M_pow3 + 9382*M_pow2*r + 5595*M*r_pow2 + 1068*r_pow3) + 336*M*r_pow4*twoM_plus_r_pow2*(26*M_pow4 - 30*M_pow3*r - 98*M_pow2*r_pow2 + 32*M*r_pow3 + 57*r_pow4) + L_pow4*M*(-16128*M_pow6 - 46144*M_pow5*r - 77964*M_pow4*r_pow2 + 30120*M_pow3*r_pow3 + 145031*M_pow2*r_pow4 + 97535*M*r_pow5 + 20430*r_pow6) - 12*L_pow2*r_pow2*(1664*M_pow7 + 12000*M_pow6*r + 20528*M_pow5*r_pow2 - 920*M_pow4*r_pow3 - 24480*M_pow3*r_pow4 - 17408*M_pow2*r_pow5 - 3615*M*r_pow6 + 9*r_pow7)) + a_pow12*r_pow2*twoM_plus_r*(L_pow8*M*r*(9944*M_pow3 + 12904*M_pow2*r + 5745*M*r_pow2 + 738*r_pow3) + 588*M*r_pow6*twoM_plus_r_pow2*(40*M_pow4 - 56*M_pow3*r - 112*M_pow2*r_pow2 + 40*M*r_pow3 + 51*r_pow4) - 2*L_pow6*M*(9792*M_pow6 + 33656*M_pow5*r + 42016*M_pow4*r_pow2 - 15220*M_pow3*r_pow3 - 62829*M_pow2*r_pow4 - 38846*M*r_pow5 - 7356*r_pow6) - 12*L_pow2*r_pow4*(4352*M_pow7 + 46560*M_pow6*r + 80032*M_pow5*r_pow2 + 11912*M_pow4*r_pow3 - 57636*M_pow3*r_pow4 - 40596*M_pow2*r_pow5 - 7929*M*r_pow6 + 43*r_pow7) + L_pow4*r_pow2*(-71504*M_pow7 - 408368*M_pow6*r - 606496*M_pow5*r_pow2 + 26068*M_pow4*r_pow3 + 579631*M_pow3*r_pow4 + 382350*M_pow2*r_pow5 + 77070*M*r_pow6 + 405*r_pow7)) + a_pow10*r_pow3*(4*L_pow10*M*r*(743*M_pow3 + 949*M_pow2*r + 315*M*r_pow2 + 12*r_pow3) + 1176*M*r_pow8*twoM_plus_r_pow2*(28*M_pow4 - 52*M_pow3*r - 70*M_pow2*r_pow2 + 28*M*r_pow3 + 27*r_pow4) + L_pow8*M*(-7680*M_pow6 - 47840*M_pow5*r - 33436*M_pow4*r_pow2 + 38384*M_pow3*r_pow3 + 61655*M_pow2*r_pow4 + 26621*M*r_pow5 + 3258*r_pow6) - 12*L_pow2*r_pow6*(5376*M_pow7 + 99680*M_pow6*r + 167408*M_pow5*r_pow2 + 35640*M_pow4*r_pow3 - 86600*M_pow3*r_pow4 - 59732*M_pow2*r_pow5 - 11055*M*r_pow6 + 69*r_pow7) + 5*L_pow4*r_pow4*(-56736*M_pow7 - 314816*M_pow6*r - 421880*M_pow5*r_pow2 - 44224*M_pow4*r_pow3 + 254090*M_pow3*r_pow4 + 167384*M_pow2*r_pow5 + 32727*M*r_pow6 + 319*r_pow7) + 2*L_pow6*r_pow2*(-65760*M_pow7 - 226856*M_pow6*r - 277904*M_pow5*r_pow2 + 6012*M_pow4*r_pow3 + 226100*M_pow3*r_pow4 + 142922*M_pow2*r_pow5 + 27918*M*r_pow6 + 459*r_pow7)) - 12*E_pow2*M*pow(r_pow3 + a_pow2*twoM_plus_r,4)*(a_pow10*twoM_plus_r_pow4*(6*M + r) + r_pow7*(-5*L_pow8 + 15*L_pow6*r_pow2 + 26*L_pow4*r_pow4 + 7*L_pow2*r_pow6 + r_pow8) + a_pow8*r*twoM_plus_r_pow3*(7*L_pow2*(6*M + r) + r_pow2*(26*M + 5*r)) + a_pow6*r_pow2*twoM_plus_r_pow2*(28*L_pow2*r_pow2*(5*M + r) + 2*r_pow4*(22*M + 5*r) + L_pow4*(51*M + 11*r)) + a_pow2*r_pow4*(5*L_pow8*M + 28*L_pow2*r_pow6*(3*M + r) + 10*L_pow6*r_pow2*(5*M + 2*r) + r_pow8*(14*M + 5*r) + L_pow4*r_pow4*(155*M + 63*r)) + a_pow4*r_pow3*(5*L_pow6*(8*M_pow2 + 6*M*r + r_pow2) + 42*L_pow2*r_pow4*(8*M_pow2 + 6*M*r + r_pow2) + 2*r_pow6*(36*M_pow2 + 28*M*r + 5*r_pow2) + 2*L_pow4*r_pow2*(154*M_pow2 + 125*M*r + 24*r_pow2))) - 2*a*E*L*M*(r_pow3 + a_pow2*twoM_plus_r)*(210*a_pow16*twoM_plus_r_pow6 + 3*r_pow13*(L_pow2 + r_pow2)*(L_pow6*(638*M - 269*r) - 20*L_pow2*(17*M - 6*r)*r_pow4 + 20*r_pow6*(-5*M + 3*r) + L_pow4*r_pow2*(-2042*M + 931*r)) - 2*a_pow2*r_pow10*(L_pow4*r_pow4*(15390*M_pow2 + 6436*M*r - 6785*r_pow2) + L_pow6*r_pow2*(3624*M_pow2 + 2852*M*r - 2917*r_pow2) + 2*L_pow2*r_pow6*(3912*M_pow2 + 830*M*r - 1165*r_pow2) + 3*r_pow8*(624*M_pow2 - 245*r_pow2) + L_pow8*(1506*M_pow2 - 1684*M*r + 563*r_pow2)) - a_pow4*r_pow7*(L_pow4*r_pow4*(49050*M_pow3 + 77599*M_pow2*r - 7714*M*r_pow2 - 24888*r_pow3) + 2*L_pow6*r_pow2*(3690*M_pow3 + 6735*M_pow2*r - 352*M*r_pow2 - 3551*r_pow3) + 6*r_pow8*(3288*M_pow3 + 2064*M_pow2*r - 1470*M*r_pow2 - 875*r_pow3) + 20*L_pow2*r_pow6*(3342*M_pow3 + 3025*M_pow2*r - 770*M*r_pow2 - 782*r_pow3) + L_pow8*(906*M_pow3 + 1399*M_pow2*r - 4076*M*r_pow2 + 223*r_pow3)) - 2*a_pow14*twoM_plus_r_pow3*(576*M_pow5 + 2304*M_pow4*r + 1032*M_pow3*r_pow2 - 15*r_pow3*(24*L_pow2 + 55*r_pow2) - 2*M_pow2*(385*L_pow2*r + 1854*r_pow3) - 30*M*(38*L_pow2*r_pow2 + 117*r_pow4)) - 2*a_pow6*r_pow4*(3*L_pow4*r_pow4*(10068*M_pow4 + 22825*M_pow3*r + 10569*M_pow2*r_pow2 - 7109*M*r_pow3 - 4279*r_pow4) + L_pow6*r_pow2*(10692*M_pow4 + 11934*M_pow3*r + 2519*M_pow2*r_pow2 - 4360*M*r_pow3 - 2563*r_pow4) + 10*L_pow2*r_pow6*(6756*M_pow4 + 11530*M_pow3*r + 2299*M_pow2*r_pow2 - 3638*M*r_pow3 - 1374*r_pow4) + L_pow8*(240*M_pow4 + 815*M_pow3*r - 214*M_pow2*r_pow2 - 1165*M*r_pow3 - 93*r_pow4) - 15*r_pow8*(-1888*M_pow4 - 2448*M_pow3*r + 228*M_pow2*r_pow2 + 1204*M*r_pow3 + 357*r_pow4)) + a_pow12*r*twoM_plus_r_pow2*(L_pow4*r*(2443*M_pow2 + 2712*M*r + 900*r_pow2) + 6*r_pow2*twoM_plus_r_pow2*(-488*M_pow3 - 944*M_pow2*r + 490*M*r_pow2 + 945*r_pow3) - 4*L_pow2*(2016*M_pow5 + 4564*M_pow4*r + 3882*M_pow3*r_pow2 - 2823*M_pow2*r_pow3 - 4630*M*r_pow4 - 1320*r_pow5)) + 2*a_pow10*r_pow2*twoM_plus_r*(L_pow6*r*(1243*M_pow2 + 972*M*r + 240*r_pow2) + 15*r_pow4*twoM_plus_r_pow2*(-384*M_pow3 - 528*M_pow2*r + 294*M*r_pow2 + 371*r_pow3) + 10*L_pow2*r_pow2*(-2136*M_pow5 - 6136*M_pow4*r - 4544*M_pow3*r_pow2 + 2082*M_pow2*r_pow3 + 3196*M*r_pow4 + 821*r_pow5) + L_pow4*(-4896*M_pow5 - 12614*M_pow4*r - 7959*M_pow3*r_pow2 + 5815*M_pow2*r_pow3 + 9113*M*r_pow4 + 2898*r_pow5)) + a_pow8*r_pow3*(L_pow8*r*(743*M_pow2 + 672*M*r + 90*r_pow2) + 30*r_pow6*twoM_plus_r_pow2*(-792*M_pow3 - 816*M_pow2*r + 490*M*r_pow2 + 455*r_pow3) - 2*L_pow6*(1920*M_pow5 + 7660*M_pow4*r + 1614*M_pow3*r_pow2 - 5851*M_pow2*r_pow3 - 4714*M*r_pow4 - 1176*r_pow5) + 20*L_pow2*r_pow4*(-7080*M_pow5 - 18608*M_pow4*r - 11636*M_pow3*r_pow2 + 4286*M_pow2*r_pow3 + 5954*M*r_pow4 + 1391*r_pow5) + L_pow4*r_pow2*(-66312*M_pow5 - 147052*M_pow4*r - 111082*M_pow3*r_pow2 + 14596*M_pow2*r_pow3 + 52720*M*r_pow4 + 16099*r_pow5))))*ur_pow8 + 6*r_pow11*(r_pow3 + a_pow2*twoM_plus_r)*(10*a_pow16*M*twoM_plus_r_pow6 + 2*a_pow14*M*r*twoM_plus_r_pow5*(35*L_pow2 - 8*M_pow2 + 8*M*r + 36*r_pow2) + r_pow14*(-5*L_pow8*(8*M - 3*r) + 30*L_pow6*(5*M - 2*r)*r_pow2 + 14*L_pow2*M*r_pow6 + 2*M*r_pow8 + L_pow4*r_pow4*(22*M + 15*r)) + a_pow12*M*r_pow2*twoM_plus_r_pow2*(-14*L_pow2*twoM_plus_r_pow2*(8*M_pow2 - 8*M*r - 31*r_pow2) + 5*L_pow4*(49*M_pow2 + 70*M*r + 22*r_pow2) + 8*r_pow2*twoM_plus_r_pow2*(-11*M_pow2 + 13*M*r + 28*r_pow2)) + a_pow2*r_pow11*(8*M*r_pow8*(2*M + 3*r) + 14*L_pow2*M*r_pow6*(6*M + 11*r) + 5*L_pow8*(24*M_pow2 - 19*M*r + 3*r_pow2) - 30*L_pow6*r_pow2*(4*M_pow2 - 13*M*r + 4*r_pow2) + L_pow4*r_pow4*(88*M_pow2 + 385*M*r + 45*r_pow2)) + a_pow4*r_pow8*(70*L_pow2*M*r_pow7*(16*M + 9*r) + 8*M*r_pow8*(3*M_pow2 + 27*M*r + 14*r_pow2) - 5*L_pow8*M*(6*M_pow2 - 11*M*r + 23*r_pow2) - 20*L_pow6*r_pow2*(36*M_pow3 - 15*M_pow2*r - 37*M*r_pow2 + 3*r_pow3) + L_pow4*r_pow4*(-446*M_pow3 + 1727*M_pow2*r + 1265*M*r_pow2 + 45*r_pow3)) + a_pow6*r_pow5*(-70*L_pow2*M*r_pow6*(16*M_pow3 - 40*M_pow2*r - 62*M*r_pow2 - 19*r_pow3) - 5*L_pow8*M*(10*M_pow3 - 5*M_pow2*r - 11*M*r_pow2 + 6*r_pow3) + 40*M*r_pow8*(-4*M_pow3 + 18*M_pow2*r + 24*M*r_pow2 + 7*r_pow3) + 60*L_pow6*M*r_pow2*(2*M_pow3 + 3*M_pow2*r + 20*M*r_pow2 + 12*r_pow3) + L_pow4*r_pow4*(-2218*M_pow4 + 1917*M_pow3*r + 5233*M_pow2*r_pow2 + 1905*M*r_pow3 + 15*r_pow4)) + a_pow10*M*r_pow3*twoM_plus_r*(10*L_pow6*(14*M_pow2 + 14*M*r + 5*r_pow2) + 8*r_pow4*twoM_plus_r_pow2*(-24*M_pow2 + 36*M*r + 49*r_pow2) + 14*L_pow2*r_pow2*twoM_plus_r_pow2*(-36*M_pow2 + 44*M*r + 81*r_pow2) + L_pow4*(-164*M_pow4 + 2321*M_pow2*r_pow2 + 2479*M*r_pow3 + 662*r_pow4)) + a_pow8*M*r_pow4*(15*L_pow8*M*(3*M + 2*r) + 20*r_pow6*twoM_plus_r_pow2*(-10*M_pow2 + 22*M*r + 21*r_pow2) + 70*L_pow2*r_pow4*twoM_plus_r_pow2*(-12*M_pow2 + 20*M*r + 23*r_pow2) - 30*L_pow6*(8*M_pow4 - 20*M_pow2*r_pow2 - 26*M*r_pow3 - 9*r_pow4) + L_pow4*r_pow2*(-2464*M_pow4 - 316*M_pow3*r + 7437*M_pow2*r_pow2 + 6607*M*r_pow3 + 1555*r_pow4)))*ur_pow10)/(12.*r*pow(a_pow2 + r*r_minus_twoM,8)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),7));
A7200 = (r_pow2*(-2*E_pow2*M*pow(a_pow2 + r*r_minus_twoM,3)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),7)*(12*a_pow6 + r_pow5*(-40*M + 29*r) + a_pow4*r*(-68*M + 65*r) + 2*a_pow2*r_pow2*(26*M_pow2 - 66*M*r + 41*r_pow2)) + 4*a*E*L*M*pow(a_pow2 + r*r_minus_twoM,3)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),7)*(12*a_pow4 + a_pow2*r*(-68*M + 57*r) + r_pow2*(52*M_pow2 - 98*M*r + 45*r_pow2)) - pow(a_pow2 + r*r_minus_twoM,3)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),7)*(9*a_pow6*r + a_pow4*(24*L_pow2*M + r_pow2*(-79*M + 42*r)) + M*r_pow2*(r_pow2*(-91*M_pow2 + 118*M*r - 46*r_pow2) + 2*L_pow2*(52*M_pow2 - 64*M*r + 19*r_pow2)) + a_pow2*r*(2*L_pow2*M*(-68*M + 49*r) + r_pow2*(187*M_pow2 - 212*M*r + 72*r_pow2))) + r_pow2*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5)*(6*a_pow9*E*L*M*(4*(-34 + 3*E_pow2)*M - 25*r)*twoM_plus_r + 204*a_pow10*E_pow2*M*twoM_plus_r_pow2 + 2*a*E*L*M*r_pow6*(r_pow2*(857*M_pow2 + 8*(-49 + 27*E_pow2)*M*r - 18*r_pow2) + 6*L_pow2*(253*M_pow2 - 166*M*r + 27*r_pow2)) + 24*a_pow7*E*L*M*(L_pow2*(18*M_pow2 - 35*M*r - 10*r_pow2) + r*(12*(8 + 3*E_pow2)*M_pow3 + 3*(-31 + 22*E_pow2)*M_pow2*r + (-112 + 27*E_pow2)*M*r_pow2 - 10*r_pow3)) + 4*a_pow3*E*L*M*r_pow3*(3*L_pow2*(216*M_pow3 + 433*M_pow2*r - 240*M*r_pow2 - 3*r_pow3) + r_pow2*(1033*M_pow3 + 2*(263 + 162*E_pow2)*M_pow2*r + (-731 + 342*E_pow2)*M*r_pow2 + 18*r_pow3)) + r_pow6*(2*M*r_pow4*(121*M_pow2 - (149 + 62*E_pow2)*M*r + (54 + 23*E_pow2)*r_pow2) + L_pow2*r_pow2*(33*M_pow3 - 2*(85 + 144*E_pow2)*M_pow2*r + 2*(86 + 57*E_pow2)*M*r_pow2 - 36*r_pow3) + L_pow4*(-527*M_pow3 + 695*M_pow2*r - 284*M*r_pow2 + 36*r_pow3)) + 2*a_pow5*E*L*M*r*(12*L_pow2*(108*M_pow3 + 133*M_pow2*r - 94*M*r_pow2 - 20*r_pow3) + r*(704*M_pow4 + 6*(385 + 72*E_pow2)*M_pow3*r + 171*(-3 + 8*E_pow2)*M_pow2*r_pow2 + 4*(-443 + 189*E_pow2)*M*r_pow3 + 9*r_pow4)) - 2*a_pow2*r_pow3*(L_pow4*(432*M_pow4 + 642*M_pow3*r - 661*M_pow2*r_pow2 + 110*M*r_pow3 + 24*r_pow4) + 2*r_pow4*(-242*M_pow4 + 3*(59 + 56*E_pow2)*M_pow3*r + (134 + 105*E_pow2)*M_pow2*r_pow2 - 2*(77 + 45*E_pow2)*M*r_pow3 + 33*r_pow4) + L_pow2*r_pow2*(770*M_pow4 + 6*(4 + 303*E_pow2)*M_pow3*r + 2*(-86 + 75*E_pow2)*M_pow2*r_pow2 - (191 + 246*E_pow2)*M*r_pow3 + 96*r_pow4)) - a_pow4*r*(L_pow4*(864*M_pow4 + 804*M_pow3*r - 1092*M_pow2*r_pow2 + 47*M*r_pow3 + 21*r_pow4) + 2*r_pow3*(-484*M_pow5 + 8*(14 + 75*E_pow2)*M_pow4*r + (1003 + 1044*E_pow2)*M_pow3*r_pow2 - 33*(15 + 2*E_pow2)*M_pow2*r_pow3 - 9*(27 + 56*E_pow2)*M*r_pow4 + 159*r_pow5) + L_pow2*r*(704*M_pow5 + 4*(623 + 648*E_pow2)*M_pow4*r + (-1403 + 6648*E_pow2)*M_pow3*r_pow2 - 4*(197 + 36*E_pow2)*M_pow2*r_pow3 - (23 + 816*E_pow2)*M*r_pow4 + 186*r_pow5)) + a_pow8*(3*L_pow2*M*(-16*(-17 + 9*E_pow2)*M_pow2 + 4*(25 + 26*E_pow2)*M*r + (7 + 58*E_pow2)*r_pow2) - 2*r*twoM_plus_r*(3*E_pow2*M*(96*M_pow2 - 94*M*r - 139*r_pow2) + r*(-106*M_pow2 + M*r + 27*r_pow2))) - 2*a_pow6*(3*L_pow4*M*(24*M_pow2 - 76*M*r - 11*r_pow2) + L_pow2*r*(144*(4 + 9*E_pow2)*M_pow4 + 6*(-140 + 331*E_pow2)*M_pow3*r - (287 + 258*E_pow2)*M_pow2*r_pow2 - (7 + 306*E_pow2)*M*r_pow3 + 15*r_pow4) + 2*r_pow2*(E_pow2*M*(176*M_pow4 + 532*M_pow3*r + 420*M_pow2*r_pow2 - 461*M*r_pow3 - 331*r_pow4) + r*(372*M_pow4 - 28*M_pow3*r - 281*M_pow2*r_pow2 + 33*M*r_pow3 + 60*r_pow4))))*ur_pow2 + r_pow4*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(24*a*E_pow3*L*M_pow2*r*(r_pow4*r_minus_twoM + a_pow4*twoM_plus_r + a_pow2*(-4*M_pow2*r + 2*r_pow3))*(r_pow9*(18*L_pow2 + 19*r_pow2) + a_pow8*(-3*L_pow2*M + 17*twoM_plus_r_pow3) + a_pow2*r_pow6*(-9*L_pow2*(M - 6*r) + 2*r_pow2*(57*M + 37*r)) + a_pow6*r*(2*r*twoM_plus_r_pow2*(19*M + 35*r) + 9*L_pow2*(8*M_pow2 + 5*M*r + 2*r_pow2)) + 3*a_pow4*r_pow3*(3*L_pow2*(8*M_pow2 + 7*M*r + 6*r_pow2) + 2*r_pow2*(38*M_pow2 + 55*M*r + 18*r_pow2))) + 2*E_pow2*M*(a_pow2 + r*r_minus_twoM)*(144*a_pow14*twoM_plus_r_pow4 + a_pow12*r*twoM_plus_r_pow2*(-776*M_pow3 + 684*M_pow2*r + 2418*M*r_pow2 + 941*r_pow3 + L_pow2*(480*M + 333*r)) - a_pow2*r_pow10*(L_pow2*r_pow2*(1174*M_pow2 + 2804*M*r - 1345*r_pow2) + 2*r_pow4*(720*M_pow2 + 169*M*r - 308*r_pow2) + 3*L_pow4*(10*M_pow2 + 664*M*r - 223*r_pow2)) + r_pow13*(-3*L_pow4*(88*M - 39*r) + r_pow4*(-156*M + 79*r) + L_pow2*(-434*M*r_pow2 + 206*r_pow3)) + a_pow4*r_pow7*(6*L_pow4*(88*M_pow3 - 814*M_pow2*r - 394*M*r_pow2 + 249*r_pow3) + r_pow4*(-5280*M_pow3 - 5384*M_pow2*r + 1782*M*r_pow2 + 2039*r_pow3) + L_pow2*r_pow2*(-1776*M_pow3 - 13332*M_pow2*r - 4128*M*r_pow2 + 3653*r_pow3)) - 2*a_pow6*r_pow4*(L_pow2*r_pow2*(3452*M_pow4 + 12916*M_pow3*r + 12486*M_pow2*r_pow2 - 824*M*r_pow3 - 2641*r_pow4) + 2*r_pow4*(2400*M_pow4 + 4468*M_pow3*r + 940*M_pow2*r_pow2 - 2135*M*r_pow3 - 930*r_pow4) + L_pow4*(1872*M_pow4 + 2988*M_pow3*r + 2996*M_pow2*r_pow2 - 214*M*r_pow3 - 819*r_pow4)) - a_pow8*r_pow2*(L_pow4*(5184*M_pow4 + 5168*M_pow3*r + 1340*M_pow2*r_pow2 - 1748*M*r_pow3 - 885*r_pow4) + r_pow3*(8640*M_pow5 + 24016*M_pow4*r + 17488*M_pow3*r_pow2 - 10080*M_pow2*r_pow3 - 15040*M*r_pow4 - 4045*r_pow5) + 2*L_pow2*r*(4576*M_pow5 + 14480*M_pow4*r + 18656*M_pow3*r_pow2 + 6224*M_pow2*r_pow3 - 4223*M*r_pow4 - 2144*r_pow5)) + a_pow10*r*(L_pow4*(216*M_pow3 + 694*M_pow2*r + 684*M*r_pow2 + 189*r_pow3) + 2*r*twoM_plus_r_pow2*(-384*M_pow4 - 1076*M_pow3*r - 964*M_pow2*r_pow2 + 1499*M*r_pow3 + 1312*r_pow4) + L_pow2*(-9792*M_pow5 - 18984*M_pow4*r - 12392*M_pow3*r_pow2 + 3618*M_pow2*r_pow3 + 6852*M*r_pow4 + 1853*r_pow5))) - 2*a*E*L*M*(a_pow2 + r*r_minus_twoM)*(9*a_pow12*twoM_plus_r_pow3*(64*M + 59*r) + r_pow10*(3*L_pow4*(107*M_pow2 - 578*M*r + 250*r_pow2) + 4*L_pow2*r_pow2*(175*M_pow2 - 772*M*r + 339*r_pow2) + r_pow4*(-273*M_pow2 - 584*M*r + 378*r_pow2)) + 2*a_pow10*r*twoM_plus_r*(-1552*M_pow4 - 1908*M_pow3*r + 3714*M_pow2*r_pow2 + 5098*M*r_pow3 + 1479*r_pow4 + L_pow2*(960*M_pow2 + 1607*M*r + 501*r_pow2)) + 2*a_pow2*r_pow7*(L_pow4*(1689*M_pow3 - 3094*M_pow2*r - 928*M*r_pow2 + 1089*r_pow3) + r_pow4*(-1203*M_pow3 - 2267*M_pow2*r - 357*M*r_pow2 + 1152*r_pow3) + L_pow2*r_pow2*(3666*M_pow3 - 7651*M_pow2*r - 2287*M*r_pow2 + 2820*r_pow3)) + a_pow4*r_pow4*(L_pow4*(-2304*M_pow4 - 1786*M_pow3*r - 8737*M_pow2*r_pow2 + 1686*M*r_pow3 + 2807*r_pow4) + 2*L_pow2*r_pow2*(4092*M_pow4 - 7438*M_pow3*r - 17657*M_pow2*r_pow2 + 3044*M*r_pow3 + 5023*r_pow4) + r_pow4*(-7884*M_pow4 - 13854*M_pow3*r - 12080*M_pow2*r_pow2 + 5936*M*r_pow3 + 6009*r_pow4)) - 2*a_pow6*r_pow2*(L_pow4*(2592*M_pow4 + 2252*M_pow3*r + 1046*M_pow2*r_pow2 - 1973*M*r_pow3 - 925*r_pow4) + L_pow2*r*(3680*M_pow5 + 5444*M_pow4*r + 21042*M_pow3*r_pow2 + 9999*M_pow2*r_pow3 - 9902*M*r_pow4 - 4799*r_pow5) + r_pow3*(5700*M_pow5 + 9848*M_pow4*r + 14937*M_pow3*r_pow2 + 1995*M_pow2*r_pow3 - 10133*M*r_pow4 - 4257*r_pow5)) + a_pow8*r*(L_pow4*(216*M_pow3 + 1280*M_pow2*r + 1678*M*r_pow2 + 471*r_pow3) - 2*L_pow2*(4896*M_pow5 + 9192*M_pow4*r + 9714*M_pow3*r_pow2 - 4351*M_pow2*r_pow3 - 8724*M*r_pow4 - 2419*r_pow5) + r*(-6144*M_pow6 - 10904*M_pow5*r - 26292*M_pow4*r_pow2 - 18882*M_pow3*r_pow3 + 21821*M_pow2*r_pow4 + 26550*M*r_pow5 + 6858*r_pow6))) + (a_pow2 + r*r_minus_twoM)*(27*a_pow14*r*twoM_plus_r_pow4 + r_pow10*(M*r_pow6*(283*M_pow2 - 314*M*r + 96*r_pow2) + L_pow4*r_pow2*(1439*M_pow3 - 2331*M_pow2*r + 1283*M*r_pow2 - 230*r_pow3) + L_pow2*r_pow4*(1089*M_pow3 - 1514*M_pow2*r + 724*M*r_pow2 - 108*r_pow3) + L_pow6*(357*M_pow3 - 671*M_pow2*r + 402*M*r_pow2 - 76*r_pow3)) + a_pow12*twoM_plus_r_pow2*(3*L_pow2*(384*M_pow3 + 708*M_pow2*r + 176*M*r_pow2 + 9*r_pow3) + r_pow2*(-28*M_pow3 + 44*M_pow2*r + 281*M*r_pow2 + 126*r_pow3)) - a_pow2*r_pow7*(r_pow6*(-2264*M_pow4 + 1380*M_pow3*r + 743*M_pow2*r_pow2 - 584*M*r_pow3 + 48*r_pow4) + L_pow6*(-3996*M_pow4 + 4818*M_pow3*r + 502*M_pow2*r_pow2 - 1034*M*r_pow3 + 62*r_pow4) + L_pow2*r_pow4*(-6078*M_pow4 + 4091*M_pow3*r + 3393*M_pow2*r_pow2 - 2852*M*r_pow3 + 408*r_pow4) + L_pow4*r_pow2*(-10222*M_pow4 + 10049*M_pow3*r + 3063*M_pow2*r_pow2 - 3766*M*r_pow3 + 509*r_pow4)) + a_pow4*r_pow4*(L_pow2*r_pow4*(9708*M_pow5 + 2816*M_pow4*r - 22581*M_pow3*r_pow2 + 1277*M_pow2*r_pow3 + 5683*M*r_pow4 - 486*r_pow5) + L_pow4*r_pow2*(17188*M_pow5 - 3424*M_pow4*r - 32242*M_pow3*r_pow2 + 4213*M_pow2*r_pow3 + 6980*M*r_pow4 - 265*r_pow5) + r_pow6*(6792*M_pow5 - 744*M_pow4*r - 5574*M_pow3*r_pow2 + 1000*M_pow2*r_pow3 + 985*M*r_pow4 - 174*r_pow5) + L_pow6*(-576*M_pow5 + 1900*M_pow4*r - 9363*M_pow3*r_pow2 + 1625*M_pow2*r_pow3 + 1985*M*r_pow4 + 5*r_pow5)) + a_pow6*r_pow2*(-4*L_pow6*(864*M_pow5 + 640*M_pow4*r + 844*M_pow3*r_pow2 - 1045*M_pow2*r_pow3 - 408*M*r_pow4 + 9*r_pow5) + r_pow5*(9056*M_pow6 + 3536*M_pow5*r - 11328*M_pow4*r_pow2 - 3116*M_pow3*r_pow3 + 3110*M_pow2*r_pow4 + 548*M*r_pow5 - 189*r_pow6) + L_pow2*r_pow3*(744*M_pow6 + 10660*M_pow5*r - 38038*M_pow4*r_pow2 - 25605*M_pow3*r_pow3 + 16099*M_pow2*r_pow4 + 8047*M*r_pow5 - 63*r_pow6) + L_pow4*r*(-3712*M_pow6 + 8496*M_pow5*r - 40610*M_pow4*r_pow2 - 24361*M_pow3*r_pow3 + 18990*M_pow2*r_pow4 + 8273*M*r_pow5 + 50*r_pow6)) + a_pow10*r*(L_pow4*(3840*M_pow4 + 10192*M_pow3*r + 5867*M_pow2*r_pow2 + 843*M*r_pow3 - 27*r_pow4) + r_pow2*twoM_plus_r_pow2*(-1020*M_pow4 - 220*M_pow3*r + 297*M_pow2*r_pow2 + 124*M*r_pow3 + 186*r_pow4) + L_pow2*(-6208*M_pow6 - 20736*M_pow5*r + 3832*M_pow4*r_pow2 + 30396*M_pow3*r_pow3 + 18578*M_pow2*r_pow4 + 3613*M*r_pow5 + 171*r_pow6)) + a_pow8*r*(L_pow6*(144*M_pow4 + 1244*M_pow3*r + 1988*M_pow2*r_pow2 + 423*M*r_pow3 - 27*r_pow4) + L_pow4*(-6528*M_pow6 - 11856*M_pow5*r - 23864*M_pow4*r_pow2 + 9605*M_pow3*r_pow3 + 19548*M_pow2*r_pow4 + 4619*M*r_pow5 + 9*r_pow6) + r_pow3*(4528*M_pow7 + 4032*M_pow6*r - 9880*M_pow5*r_pow2 - 8040*M_pow4*r_pow3 + 1851*M_pow3*r_pow4 + 2194*M_pow2*r_pow5 + 350*M*r_pow6 + 24*r_pow7) + L_pow2*r*(-6144*M_pow7 + 1552*M_pow6*r - 28208*M_pow5*r_pow2 - 45848*M_pow4*r_pow3 + 10120*M_pow3*r_pow4 + 27177*M_pow2*r_pow5 + 7469*M*r_pow6 + 267*r_pow7))))*ur_pow4 + r_pow7*(18*a_pow20*twoM_plus_r_pow7 + r_pow14*(L_pow2 + r_pow2)*(12*L_pow2*(40*M - 3*r)*r_pow6*r_minus_twoM_pow2 + 2*M*r_pow8*(126*M_pow2 - 127*M*r + 32*r_pow2) + L_pow6*r_pow2*(6620*M_pow3 - 8964*M_pow2*r + 3955*M*r_pow2 - 564*r_pow3) + L_pow8*(2560*M_pow3 - 3618*M_pow2*r + 1675*M*r_pow2 - 253*r_pow3) + 2*L_pow4*r_pow4*(2828*M_pow3 - 3524*M_pow2*r + 1393*M*r_pow2 - 169*r_pow3)) + a_pow18*twoM_plus_r_pow5*(3*L_pow2*(776*M_pow2 + 407*M*r + 15*r_pow2) + 4*r*(-4*M_pow3 + 26*M_pow2*r + 92*M*r_pow2 + 39*r_pow3)) + a_pow2*r_pow11*(L_pow6*r_pow4*(94036*M_pow4 - 38970*M_pow3*r - 58382*M_pow2*r_pow2 + 33997*M*r_pow3 - 3398*r_pow4) + L_pow8*r_pow2*(55928*M_pow4 - 21880*M_pow3*r - 37742*M_pow2*r_pow2 + 21959*M*r_pow3 - 2295*r_pow4) + L_pow10*(11862*M_pow4 - 3421*M_pow3*r - 9277*M_pow2*r_pow2 + 4920*M*r_pow3 - 452*r_pow4) + L_pow2*r_pow8*(25038*M_pow4 - 9029*M_pow3*r - 13055*M_pow2*r_pow2 + 5920*M*r_pow3 - 132*r_pow4) + 4*r_pow10*(882*M_pow4 - 448*M_pow3*r - 268*M_pow2*r_pow2 + 130*M*r_pow3 + 3*r_pow4) - 2*L_pow4*r_pow6*(-35668*M_pow4 + 13802*M_pow3*r + 20950*M_pow2*r_pow2 - 11161*M*r_pow3 + 845*r_pow4)) + a_pow4*r_pow8*(L_pow6*r_pow4*(241964*M_pow5 + 194316*M_pow4*r - 365987*M_pow3*r_pow2 - 58992*M_pow2*r_pow3 + 94894*M*r_pow4 - 4272*r_pow5) + L_pow8*r_pow2*(96120*M_pow5 + 107484*M_pow4*r - 175494*M_pow3*r_pow2 - 36911*M_pow2*r_pow3 + 49539*M*r_pow4 - 1761*r_pow5) + 2*L_pow4*r_pow6*(126364*M_pow5 + 79412*M_pow4*r - 161273*M_pow3*r_pow2 - 24065*M_pow2*r_pow3 + 38768*M*r_pow4 - 1306*r_pow5) + L_pow10*(10776*M_pow5 + 20884*M_pow4*r - 27635*M_pow3*r_pow2 - 8731*M_pow2*r_pow3 + 8921*M*r_pow4 - 79*r_pow5) + 2*L_pow2*r_pow8*(59022*M_pow5 + 25430*M_pow4*r - 59125*M_pow3*r_pow2 - 8761*M_pow2*r_pow3 + 12675*M*r_pow4 + 39*r_pow5) + 2*r_pow10*(10584*M_pow5 - 84*M_pow4*r - 6664*M_pow3*r_pow2 - 140*M_pow2*r_pow3 + 1006*M*r_pow4 + 57*r_pow5)) + 2*a_pow16*twoM_plus_r_pow3*(6*L_pow4*M*(68*M_pow3 + 1480*M_pow2*r + 1478*M*r_pow2 + 367*r_pow3) + r_pow2*twoM_plus_r_pow2*(-380*M_pow4 - 236*M_pow3*r + 45*M_pow2*r_pow2 + 256*M*r_pow3 + 300*r_pow4) + L_pow2*(2016*M_pow6 - 13488*M_pow5*r - 12208*M_pow4*r_pow2 + 18950*M_pow3*r_pow3 + 21335*M_pow2*r_pow4 + 5694*M*r_pow5 + 192*r_pow6)) + a_pow6*r_pow5*(L_pow6*r_pow4*(233016*M_pow6 + 735052*M_pow5*r - 474750*M_pow4*r_pow2 - 782475*M_pow3*r_pow3 + 152310*M_pow2*r_pow4 + 174356*M*r_pow5 - 1238*r_pow6) + 2*L_pow4*r_pow6*(201576*M_pow6 + 441412*M_pow5*r - 301810*M_pow4*r_pow2 - 415389*M_pow3*r_pow3 + 82043*M_pow2*r_pow4 + 86672*M*r_pow5 - 400*r_pow6) + 8*r_pow10*(8820*M_pow6 + 4340*M_pow5*r - 6475*M_pow4*r_pow2 - 3444*M_pow3*r_pow3 + 945*M_pow2*r_pow4 + 644*M*r_pow5 + 60*r_pow6) + L_pow10*(4736*M_pow6 + 13632*M_pow5*r - 9114*M_pow4*r_pow2 - 34287*M_pow3*r_pow3 + 5269*M_pow2*r_pow4 + 9829*M*r_pow5 + 159*r_pow6) + L_pow8*r_pow2*(50664*M_pow6 + 227100*M_pow5*r - 135998*M_pow4*r_pow2 - 298535*M_pow3*r_pow3 + 52437*M_pow2*r_pow4 + 72821*M*r_pow5 + 227*r_pow6) + L_pow2*r_pow8*(286320*M_pow6 + 401480*M_pow5*r - 302522*M_pow4*r_pow2 - 342567*M_pow3*r_pow3 + 64061*M_pow2*r_pow4 + 67367*M*r_pow5 + 1269*r_pow6)) + a_pow8*r_pow3*(L_pow10*(-3456*M_pow6 - 3312*M_pow5*r - 15832*M_pow4*r_pow2 - 6409*M_pow3*r_pow3 + 11409*M_pow2*r_pow4 + 5056*M*r_pow5 + 12*r_pow6) + 28*r_pow9*(5040*M_pow7 + 5000*M_pow6*r - 3220*M_pow5*r_pow2 - 4670*M_pow4*r_pow3 - 542*M_pow3*r_pow4 + 883*M_pow2*r_pow5 + 356*M*r_pow6 + 42*r_pow7) + L_pow8*r*(18688*M_pow7 + 84112*M_pow6*r - 17124*M_pow5*r_pow2 - 339960*M_pow4*r_pow3 - 113011*M_pow3*r_pow4 + 143485*M_pow2*r_pow5 + 60335*M*r_pow6 + 552*r_pow7) + 4*L_pow2*r_pow7*(89640*M_pow7 + 257720*M_pow6*r - 40470*M_pow5*r_pow2 - 305750*M_pow4*r_pow3 - 76360*M_pow3*r_pow4 + 75437*M_pow2*r_pow5 + 29324*M*r_pow6 + 780*r_pow7) + 2*L_pow4*r_pow5*(121040*M_pow7 + 764432*M_pow6*r - 58560*M_pow5*r_pow2 - 1134288*M_pow4*r_pow3 - 306910*M_pow3*r_pow4 + 324842*M_pow2*r_pow5 + 124755*M*r_pow6 + 1105*r_pow7) + L_pow6*r_pow3*(56864*M_pow7 + 745152*M_pow6*r - 37796*M_pow5*r_pow2 - 1495092*M_pow4*r_pow3 - 440950*M_pow3*r_pow4 + 499192*M_pow2*r_pow5 + 198265*M*r_pow6 + 1378*r_pow7)) + a_pow14*twoM_plus_r*(L_pow6*(1152*M_pow6 + 4592*M_pow5*r + 52852*M_pow4*r_pow2 + 76173*M_pow3*r_pow3 + 37506*M_pow2*r_pow4 + 5886*M*r_pow5 - 90*r_pow6) + 8*r_pow3*twoM_plus_r_pow3*(252*M_pow6 + 124*M_pow5*r - 793*M_pow4*r_pow2 - 476*M_pow3*r_pow3 + 123*M_pow2*r_pow4 + 260*M*r_pow5 + 168*r_pow6) + L_pow2*r*twoM_plus_r_pow2*(-8064*M_pow7 + 20736*M_pow6*r + 5764*M_pow5*r_pow2 - 124768*M_pow4*r_pow3 - 40043*M_pow3*r_pow4 + 86845*M_pow2*r_pow5 + 40807*M*r_pow6 + 1443*r_pow7) - 2*L_pow4*(5376*M_pow8 + 6400*M_pow7*r + 113104*M_pow6*r_pow2 + 149852*M_pow5*r_pow3 - 79748*M_pow4*r_pow4 - 206269*M_pow3*r_pow5 - 106343*M_pow2*r_pow6 - 17690*M*r_pow7 - 114*r_pow8)) + a_pow10*r_pow2*(L_pow10*(576*M_pow5 + 328*M_pow4*r + 3864*M_pow3*r_pow2 + 3924*M_pow2*r_pow3 + 903*M*r_pow4 - 27*r_pow5) + 56*r_pow7*twoM_plus_r_pow2*(756*M_pow6 + 372*M_pow5*r - 859*M_pow4*r_pow2 - 484*M_pow3*r_pow3 + 135*M_pow2*r_pow4 + 134*M*r_pow5 + 33*r_pow6) - L_pow8*(19968*M_pow7 + 33088*M_pow6*r + 126048*M_pow5*r_pow2 + 103666*M_pow4*r_pow3 - 84507*M_pow3*r_pow4 - 103165*M_pow2*r_pow5 - 24348*M*r_pow6 + 48*r_pow7) + L_pow6*r*(5632*M_pow8 + 198624*M_pow7*r + 61384*M_pow6*r_pow2 - 1138212*M_pow5*r_pow3 - 944004*M_pow4*r_pow4 + 398164*M_pow3*r_pow5 + 550602*M_pow2*r_pow6 + 129205*M*r_pow7 + 870*r_pow8) + 2*L_pow4*r_pow3*(-17248*M_pow8 + 528688*M_pow7*r + 259472*M_pow6*r_pow2 - 1334208*M_pow5*r_pow3 - 1073952*M_pow4*r_pow4 + 320924*M_pow3*r_pow5 + 482272*M_pow2*r_pow6 + 112505*M*r_pow7 + 1403*r_pow8) + L_pow2*r_pow5*(173664*M_pow8 + 1227824*M_pow7*r + 428816*M_pow6*r_pow2 - 1983712*M_pow5*r_pow3 - 1485670*M_pow4*r_pow4 + 344117*M_pow3*r_pow5 + 559397*M_pow2*r_pow6 + 135513*M*r_pow7 + 3999*r_pow8)) + a_pow12*r*(L_pow8*(2304*M_pow6 + 4192*M_pow5*r + 33884*M_pow4*r_pow2 + 48705*M_pow3*r_pow3 + 23868*M_pow2*r_pow4 + 3624*M*r_pow5 - 90*r_pow6) + 28*r_pow5*twoM_plus_r_pow3*(504*M_pow6 + 248*M_pow5*r - 826*M_pow4*r_pow2 - 480*M_pow3*r_pow3 + 132*M_pow2*r_pow4 + 176*M*r_pow5 + 69*r_pow6) + 2*L_pow2*r_pow3*twoM_plus_r_pow2*(-6888*M_pow7 + 84912*M_pow6*r - 4390*M_pow5*r_pow2 - 230378*M_pow4*r_pow3 - 69065*M_pow3*r_pow4 + 101763*M_pow2*r_pow5 + 45299*M*r_pow6 + 1539*r_pow7) + L_pow6*(-36864*M_pow8 - 79936*M_pow7*r - 381440*M_pow6*r_pow2 - 464968*M_pow5*r_pow3 + 169704*M_pow4*r_pow4 + 522565*M_pow3*r_pow5 + 269620*M_pow2*r_pow6 + 43364*M*r_pow7 - 60*r_pow8) + 2*L_pow4*r*(-28928*M_pow9 + 104896*M_pow8*r + 130464*M_pow7*r_pow2 - 805216*M_pow6*r_pow3 - 1125692*M_pow5*r_pow4 + 29348*M_pow4*r_pow5 + 686571*M_pow3*r_pow6 + 366787*M_pow2*r_pow7 + 60826*M*r_pow8 + 660*r_pow9)) + 24*a*E_pow3*L*M_pow2*pow(r_pow3 + a_pow2*twoM_plus_r,3)*(r_pow10*(10*L_pow4 + 17*L_pow2*r_pow2 + 7*r_pow4) + a_pow10*twoM_plus_r_pow2*(-3*L_pow2 + 7*twoM_plus_r_pow2) + a_pow2*r_pow5*(3*L_pow6*(6*M - r) + 7*r_pow6*(8*M + 5*r) + 2*L_pow4*r_pow2*(38*M + 11*r) + 3*L_pow2*r_pow4*(40*M + 21*r)) + a_pow8*r*twoM_plus_r*(-6*L_pow4 + 7*r*twoM_plus_r_pow2*(2*M + 5*r) + 3*L_pow2*(32*M_pow2 + 22*M*r + r_pow2)) + 2*a_pow4*r_pow3*(L_pow6*(9*M - 3*r) + 2*L_pow4*r*(28*M_pow2 + 33*M*r + 2*r_pow2) + 7*r_pow5*(12*M_pow2 + 16*M*r + 5*r_pow2) + 6*L_pow2*r_pow3*(23*M_pow2 + 28*M*r + 7*r_pow2)) + a_pow6*r_pow2*(-3*L_pow6 + 14*r_pow3*twoM_plus_r_pow2*(4*M + 5*r) + 2*L_pow4*(52*M_pow2 + 22*M*r - 5*r_pow2) + 4*L_pow2*r*(52*M_pow3 + 129*M_pow2*r + 75*M*r_pow2 + 11*r_pow3))) + 2*E_pow2*M*(r_pow3 + a_pow2*twoM_plus_r)*(3*a_pow16*twoM_plus_r_pow4*(7*twoM_plus_r_pow2*(6*M + r) + L_pow2*(34*M + 15*r)) + a_pow2*r_pow11*(L_pow8*(2436*M_pow2 - 1230*M*r - 59*r_pow2) + 84*r_pow8*(-9*M_pow2 + M*r + 2*r_pow2) + L_pow6*r_pow2*(4016*M_pow2 - 2770*M*r + 37*r_pow2) + L_pow4*r_pow4*(-292*M_pow2 - 1640*M*r + 481*r_pow2) + L_pow2*r_pow6*(-2604*M_pow2 - 16*M*r + 547*r_pow2)) + r_pow14*(L_pow2 + r_pow2)*(L_pow6*(40*M - 29*r) + 21*r_pow6*r_minus_twoM + L_pow2*r_pow4*(-118*M + 53*r) + L_pow4*(-48*M*r_pow2 + 9*r_pow3)) + a_pow4*r_pow8*(-2*L_pow4*r_pow4*(1610*M_pow3 + 4659*M_pow2*r + 2085*M*r_pow2 - 805*r_pow3) + 6*L_pow8*(326*M_pow3 + 291*M_pow2*r - 505*M*r_pow2 + 7*r_pow3) + 84*r_pow8*(-66*M_pow3 - 21*M_pow2*r + 21*M*r_pow2 + 7*r_pow3) + L_pow6*r_pow2*(9024*M_pow3 - 516*M_pow2*r - 8770*M*r_pow2 + 483*r_pow3) + L_pow2*r_pow6*(-16008*M_pow3 - 8668*M_pow2*r + 3486*M*r_pow2 + 1773*r_pow3)) - a_pow6*r_pow5*(L_pow2*r_pow6*(49504*M_pow4 + 56144*M_pow3*r + 3824*M_pow2*r_pow2 - 12532*M*r_pow3 - 3295*r_pow4) + L_pow4*r_pow4*(19328*M_pow4 + 37616*M_pow3*r + 27182*M_pow2*r_pow2 + 2800*M*r_pow3 - 3005*r_pow4) + 2*L_pow6*r_pow2*(560*M_pow4 + 1868*M_pow3*r + 8416*M_pow2*r_pow2 + 4754*M*r_pow3 - 581*r_pow4) + 2*L_pow8*(272*M_pow4 + 212*M_pow3*r + 707*M_pow2*r_pow2 + 1143*M*r_pow3 - 95*r_pow4) - 84*r_pow8*(-260*M_pow4 - 200*M_pow3*r + 63*M_pow2*r_pow2 + 77*M*r_pow3 + 14*r_pow4)) - a_pow8*r_pow3*(210*r_pow7*twoM_plus_r_pow2*(60*M_pow3 + 14*M_pow2*r - 28*M*r_pow2 - 7*r_pow3) + L_pow8*(2592*M_pow4 + 1548*M_pow3*r + 794*M_pow2*r_pow2 + 418*M*r_pow3 - 163*r_pow4) + L_pow2*r_pow5*(82752*M_pow5 + 149888*M_pow4*r + 65088*M_pow3*r_pow2 - 21200*M_pow2*r_pow3 - 21010*M*r_pow4 - 3845*r_pow5) + 2*L_pow4*r_pow3*(17368*M_pow5 + 45236*M_pow4*r + 39896*M_pow3*r_pow2 + 13362*M_pow2*r_pow3 - 1871*M*r_pow4 - 1685*r_pow5) + 2*L_pow6*r*(3040*M_pow5 + 11752*M_pow4*r + 11772*M_pow3*r_pow2 + 8044*M_pow2*r_pow3 + 1534*M*r_pow4 - 629*r_pow5)) + a_pow14*twoM_plus_r_pow2*(84*r*twoM_plus_r_pow3*(-6*M_pow3 - M_pow2*r + 11*M*r_pow2 + 2*r_pow3) + L_pow4*(432*M_pow3 + 718*M_pow2*r + 492*M*r_pow2 + 135*r_pow3) + L_pow2*(-4032*M_pow5 - 5632*M_pow4*r - 832*M_pow3*r_pow2 + 2964*M_pow2*r_pow3 + 1984*M*r_pow4 + 373*r_pow5)) + a_pow12*r*twoM_plus_r*(84*r_pow3*twoM_plus_r_pow3*(-38*M_pow3 - 7*M_pow2*r + 35*M*r_pow2 + 7*r_pow3) + L_pow6*(864*M_pow3 + 812*M_pow2*r + 408*M*r_pow2 + 135*r_pow3) - 2*L_pow4*(6912*M_pow5 + 10468*M_pow4*r + 4668*M_pow3*r_pow2 - 719*M_pow2*r_pow3 - 1467*M*r_pow4 - 423*r_pow5) + L_pow2*r*(-12608*M_pow6 - 47552*M_pow5*r - 46480*M_pow4*r_pow2 - 5280*M_pow3*r_pow3 + 15356*M_pow2*r_pow4 + 8500*M*r_pow5 + 1367*r_pow6)) + a_pow10*r_pow2*(84*r_pow5*twoM_plus_r_pow3*(-102*M_pow3 - 21*M_pow2*r + 63*M*r_pow2 + 14*r_pow3) + L_pow8*(432*M_pow3 + 298*M_pow2*r + 108*M*r_pow2 + 45*r_pow3) - L_pow6*(14976*M_pow5 + 19984*M_pow4*r + 9960*M_pow3*r_pow2 + 2160*M_pow2*r_pow3 - 1110*M*r_pow4 - 657*r_pow5) - L_pow4*r*(18560*M_pow6 + 90624*M_pow5*r + 113496*M_pow4*r_pow2 + 57128*M_pow3*r_pow3 + 4488*M_pow2*r_pow4 - 7440*M*r_pow5 - 2267*r_pow6) + L_pow2*r_pow3*(-71616*M_pow6 - 191744*M_pow5*r - 156336*M_pow4*r_pow2 - 14592*M_pow3*r_pow3 + 40820*M_pow2*r_pow4 + 20040*M*r_pow5 + 2889*r_pow6))) - 2*a*E*L*M*(582*a_pow18*twoM_plus_r_pow6 + 6*a_pow16*twoM_plus_r_pow4*(336*M_pow4 - 928*M_pow3*r - 120*M_pow2*r_pow2 + 1908*M*r_pow3 + 847*r_pow4 + L_pow2*(68*M_pow2 + 755*M*r + 383*r_pow2)) + r_pow14*(L_pow2 + r_pow2)*(18*r_pow6*(44*M_pow2 - 64*M*r + 21*r_pow2) + 2*L_pow6*(1988*M_pow2 - 2254*M*r + 621*r_pow2) + 3*L_pow4*r_pow2*(2596*M_pow2 - 3152*M*r + 917*r_pow2) + 2*L_pow2*r_pow4*(2236*M_pow2 - 2972*M*r + 921*r_pow2)) + a_pow2*r_pow11*(6*r_pow8*(1416*M_pow3 - 1184*M_pow2*r - 920*M*r_pow2 + 609*r_pow3) + 2*L_pow8*(7410*M_pow3 - 2197*M_pow2*r - 5252*M*r_pow2 + 2328*r_pow3) + 2*L_pow2*r_pow6*(21882*M_pow3 - 16175*M_pow2*r - 14165*M*r_pow2 + 8714*r_pow3) + 2*L_pow6*r_pow2*(30478*M_pow3 - 14221*M_pow2*r - 19867*M*r_pow2 + 9947*r_pow3) + L_pow4*r_pow4*(81668*M_pow3 - 49474*M_pow2*r - 52106*M*r_pow2 + 29057*r_pow3)) + a_pow4*r_pow8*(24*r_pow8*(1476*M_pow4 - 168*M_pow3*r - 2499*M_pow2*r_pow2 + 53*M*r_pow3 + 649*r_pow4) + 4*L_pow8*(3216*M_pow4 + 3439*M_pow3*r - 5964*M_pow2*r_pow2 - 1677*M*r_pow3 + 1833*r_pow4) + 2*L_pow2*r_pow6*(67632*M_pow4 - 1322*M_pow3*r - 114212*M_pow2*r_pow2 - 1311*M*r_pow3 + 30181*r_pow4) + L_pow6*r_pow2*(98916*M_pow4 + 47352*M_pow3*r - 153579*M_pow2*r_pow2 - 22504*M*r_pow3 + 42558*r_pow4) + L_pow4*r_pow4*(190628*M_pow4 + 35624*M_pow3*r - 300795*M_pow2*r_pow2 - 19958*M*r_pow3 + 80318*r_pow4)) + a_pow6*r_pow5*(4*L_pow8*(752*M_pow5 + 1932*M_pow4*r - 2615*M_pow3*r_pow2 - 5679*M_pow2*r_pow3 + 817*M*r_pow4 + 1554*r_pow5) + 24*r_pow8*(2760*M_pow5 + 2640*M_pow4*r - 8358*M_pow3*r_pow2 - 5307*M_pow2*r_pow3 + 2751*M*r_pow4 + 1603*r_pow5) + 2*L_pow6*r_pow2*(26044*M_pow5 + 53704*M_pow4*r - 74579*M_pow3*r_pow2 - 93319*M_pow2*r_pow3 + 24269*M*r_pow4 + 25239*r_pow5) + 2*L_pow2*r_pow6*(86896*M_pow5 + 94664*M_pow4*r - 282580*M_pow3*r_pow2 - 200743*M_pow2*r_pow3 + 93777*M*r_pow4 + 60194*r_pow5) + L_pow4*r_pow4*(171232*M_pow5 + 245260*M_pow4*r - 500204*M_pow3*r_pow2 - 443411*M_pow2*r_pow3 + 164460*M*r_pow4 + 125964*r_pow5)) + a_pow14*twoM_plus_r_pow2*(L_pow4*(864*M_pow4 + 2440*M_pow3*r + 14197*M_pow2*r_pow2 + 13416*M*r_pow3 + 3402*r_pow4) + 24*r*twoM_plus_r_pow2*(-168*M_pow5 + 160*M_pow4*r + 14*M_pow3*r_pow2 - 1033*M_pow2*r_pow3 + 421*M*r_pow4 + 819*r_pow5) - 2*L_pow2*(4032*M_pow6 + 5216*M_pow5*r + 28100*M_pow4*r_pow2 + 15600*M_pow3*r_pow3 - 39071*M_pow2*r_pow4 - 38135*M*r_pow5 - 9006*r_pow6)) + a_pow8*r_pow3*(-2*L_pow8*(2592*M_pow5 + 2664*M_pow4*r + 5310*M_pow3*r_pow2 + 1972*M_pow2*r_pow3 - 3064*M*r_pow4 - 1425*r_pow5) + 12*r_pow7*(2400*M_pow6 + 14720*M_pow5*r - 24880*M_pow4*r_pow2 - 44880*M_pow3*r_pow3 - 530*M_pow2*r_pow4 + 17122*M*r_pow5 + 5061*r_pow6) + L_pow6*r*(7936*M_pow6 + 17768*M_pow5*r - 76388*M_pow4*r_pow2 - 216126*M_pow3*r_pow3 - 50220*M_pow2*r_pow4 + 88714*M*r_pow5 + 35131*r_pow6) + 2*L_pow2*r_pow5*(17088*M_pow6 + 155216*M_pow5*r - 318224*M_pow4*r_pow2 - 610684*M_pow3*r_pow3 - 28252*M_pow2*r_pow4 + 240555*M*r_pow5 + 75545*r_pow6) + L_pow4*r_pow3*(29968*M_pow6 + 201952*M_pow5*r - 375424*M_pow4*r_pow2 - 888016*M_pow3*r_pow3 - 110010*M_pow2*r_pow4 + 350092*M*r_pow5 + 121061*r_pow6)) + a_pow12*r*twoM_plus_r*(L_pow6*(1728*M_pow4 + 2384*M_pow3*r + 9287*M_pow2*r_pow2 + 8766*M*r_pow3 + 2238*r_pow4) + 24*r_pow3*twoM_plus_r_pow2*(-744*M_pow5 + 972*M_pow4*r - 1050*M_pow3*r_pow2 - 3387*M_pow2*r_pow3 + 1449*M*r_pow4 + 1841*r_pow5) + L_pow4*(-27648*M_pow6 - 50912*M_pow5*r - 110576*M_pow4*r_pow2 - 59858*M_pow3*r_pow3 + 97533*M_pow2*r_pow4 + 99514*M*r_pow5 + 23628*r_pow6) - 2*L_pow2*r*(17152*M_pow7 + 10576*M_pow6*r + 45944*M_pow5*r_pow2 + 223332*M_pow4*r_pow3 + 120838*M_pow3*r_pow4 - 145994*M_pow2*r_pow5 - 140017*M*r_pow6 - 30959*r_pow7)) + a_pow10*r_pow2*(L_pow8*(864*M_pow4 + 760*M_pow3*r + 2230*M_pow2*r_pow2 + 2148*M*r_pow3 + 552*r_pow4) + 12*r_pow5*twoM_plus_r_pow2*(-1872*M_pow5 + 4944*M_pow4*r - 8484*M_pow3*r_pow2 - 12602*M_pow2*r_pow3 + 5698*M*r_pow4 + 5299*r_pow5) - 2*L_pow6*(14976*M_pow6 + 26144*M_pow5*r + 45032*M_pow4*r_pow2 + 27111*M_pow3*r_pow3 - 24932*M_pow2*r_pow4 - 28342*M*r_pow5 - 6774*r_pow6) + 2*L_pow2*r_pow3*(-55392*M_pow7 + 51344*M_pow6*r - 199648*M_pow5*r_pow2 - 780288*M_pow4*r_pow3 - 380622*M_pow3*r_pow4 + 321379*M_pow2*r_pow5 + 295317*M*r_pow6 + 61030*r_pow7) + L_pow4*r*(-14336*M_pow7 - 21008*M_pow6*r - 233760*M_pow5*r_pow2 - 736176*M_pow4*r_pow3 - 411540*M_pow3*r_pow4 + 309432*M_pow2*r_pow5 + 322126*M*r_pow6 + 71177*r_pow7))))*ur_pow6 + r_pow8*(r_pow16*(42*M*r_pow8*r_minus_twoM + L_pow8*(-1274*M_pow2 + 1009*M*r - 177*r_pow2) + L_pow4*r_pow4*(-1930*M_pow2 + 1043*M*r - 18*r_pow2) + 4*L_pow2*r_pow6*(-160*M_pow2 + 65*M*r + 9*r_pow2) - 2*L_pow6*r_pow2*(1342*M_pow2 - 935*M*r + 120*r_pow2)) + 6*a_pow16*M*twoM_plus_r_pow5*(7*r_pow2*twoM_plus_r_pow2 + L_pow2*(-40*M_pow2 + 100*M*r + 152*r_pow2)) - a_pow2*r_pow13*(168*M*r_pow8*(7*M_pow2 - 2*r_pow2) + 4*L_pow2*r_pow6*(1548*M_pow3 + 742*M_pow2*r - 817*M*r_pow2 - 45*r_pow3) + L_pow4*r_pow4*(12700*M_pow3 + 8600*M_pow2*r - 9080*M*r_pow2 + 89*r_pow3) + 4*L_pow6*r_pow2*(3190*M_pow3 + 2134*M_pow2*r - 2535*M*r_pow2 + 193*r_pow3) + L_pow8*(4272*M_pow3 + 3252*M_pow2*r - 3725*M*r_pow2 + 389*r_pow3)) - a_pow4*r_pow10*(1176*M*r_pow8*(6*M_pow3 + 3*M_pow2*r - 2*M*r_pow2 - r_pow3) - 4*L_pow2*r_pow6*(-5784*M_pow4 - 9748*M_pow3*r + 2118*M_pow2*r_pow2 + 3549*M*r_pow3 + 81*r_pow4) + L_pow8*(3534*M_pow4 + 18759*M_pow3*r - 821*M_pow2*r_pow2 - 7701*M*r_pow3 + 193*r_pow4) + L_pow4*r_pow4*(28978*M_pow4 + 86207*M_pow3*r - 12196*M_pow2*r_pow2 - 32642*M*r_pow3 + 194*r_pow4) + 2*L_pow6*r_pow2*(9498*M_pow4 + 35575*M_pow3*r - 3874*M_pow2*r_pow2 - 13854*M*r_pow3 + 402*r_pow4)) - a_pow6*r_pow7*(1176*M*r_pow8*twoM_plus_r_pow2*(5*M_pow2 - 2*r_pow2) + L_pow8*(2776*M_pow5 + 22312*M_pow4*r + 16739*M_pow3*r_pow2 - 13121*M_pow2*r_pow3 - 8841*M*r_pow4 - 73*r_pow5) + 4*L_pow2*r_pow6*(9760*M_pow5 + 38000*M_pow4*r + 12680*M_pow3*r_pow2 - 17470*M_pow2*r_pow3 - 7993*M*r_pow4 - 45*r_pow5) + 4*L_pow6*r_pow2*(2968*M_pow5 + 36685*M_pow4*r + 21813*M_pow3*r_pow2 - 18490*M_pow2*r_pow3 - 10765*M*r_pow4 + 45*r_pow5) + L_pow4*r_pow4*(22796*M_pow5 + 249552*M_pow4*r + 124426*M_pow3*r_pow2 - 120341*M_pow2*r_pow3 - 63230*M*r_pow4 + 246*r_pow5)) - a_pow14*r*twoM_plus_r_pow3*(168*M*r_pow2*twoM_plus_r_pow3*(M_pow2 - 2*r_pow2) + L_pow4*M*(1680*M_pow3 - 3368*M_pow2*r - 7405*M*r_pow2 - 2754*r_pow3) - 4*L_pow2*(384*M_pow6 - 768*M_pow5*r - 2864*M_pow4*r_pow2 + 1820*M_pow3*r_pow3 + 4808*M_pow2*r_pow4 + 1633*M*r_pow5 - 9*r_pow6)) + a_pow8*r_pow4*(-2940*M*r_pow8*twoM_plus_r_pow3*(2*M_pow2 - r_pow2) + L_pow4*r_pow4*(5896*M_pow6 - 337180*M_pow5*r - 415880*M_pow4*r_pow2 + 97506*M_pow3*r_pow3 + 254270*M_pow2*r_pow4 + 71747*M*r_pow5 - 194*r_pow6) - 20*L_pow2*r_pow6*(960*M_pow6 + 13840*M_pow5*r + 13416*M_pow4*r_pow2 - 4696*M_pow3*r_pow3 - 8378*M_pow2*r_pow4 - 2155*M*r_pow5 + 9*r_pow6) + L_pow8*(-3264*M_pow6 - 9912*M_pow5*r - 14654*M_pow4*r_pow2 + 4647*M_pow3*r_pow3 + 14333*M_pow2*r_pow4 + 4786*M*r_pow5 + 54*r_pow6) + 2*L_pow6*r_pow2*(-5272*M_pow6 - 66724*M_pow5*r - 87822*M_pow4*r_pow2 + 20116*M_pow3*r_pow3 + 60566*M_pow2*r_pow4 + 18489*M*r_pow5 + 82*r_pow6)) + a_pow10*r_pow3*(-1176*M*r_pow6*twoM_plus_r_pow4*(3*M_pow2 - 2*r_pow2) + L_pow8*M*(-1152*M_pow4 + 1500*M_pow3*r + 6035*M_pow2*r_pow2 + 4363*M*r_pow3 + 930*r_pow4) + 4*L_pow2*r_pow4*twoM_plus_r_pow2*(1680*M_pow5 - 17000*M_pow4*r - 13168*M_pow3*r_pow2 + 14478*M_pow2*r_pow3 + 9519*M*r_pow4 - 81*r_pow5) + L_pow4*r_pow2*(15280*M_pow7 - 224464*M_pow6*r - 483868*M_pow5*r_pow2 - 70812*M_pow4*r_pow3 + 367200*M_pow3*r_pow4 + 251650*M_pow2*r_pow5 + 47984*M*r_pow6 - 89*r_pow7) - 4*L_pow6*(1824*M_pow7 + 12532*M_pow6*r + 25472*M_pow5*r_pow2 + 883*M_pow4*r_pow3 - 28159*M_pow3*r_pow4 - 19836*M_pow2*r_pow5 - 4032*M*r_pow6 - 18*r_pow7)) - a_pow12*r_pow2*twoM_plus_r*(1176*M*r_pow4*twoM_plus_r_pow4*(M_pow2 - r_pow2) + 2*L_pow6*M*(1776*M_pow4 - 2570*M_pow3*r - 9207*M_pow2*r_pow2 - 6514*M*r_pow3 - 1386*r_pow4) + 4*L_pow2*r_pow2*twoM_plus_r_pow2*(-1168*M_pow5 + 4560*M_pow4*r + 5768*M_pow3*r_pow2 - 6296*M_pow2*r_pow3 - 5237*M*r_pow4 + 45*r_pow5) - L_pow4*(2688*M_pow7 - 30976*M_pow6*r - 89396*M_pow5*r_pow2 + 4288*M_pow4*r_pow3 + 124661*M_pow3*r_pow4 + 87480*M_pow2*r_pow5 + 17652*M*r_pow6 - 18*r_pow7)) + 2*a*E*L*M*(r_pow3 + a_pow2*twoM_plus_r)*(30*a_pow14*(4*M - 5*r)*twoM_plus_r_pow5 + 3*r_pow13*(L_pow6*(378*M - 149*r) + L_pow4*(558*M - 239*r)*r_pow2 + 12*L_pow2*(19*M - 10*r)*r_pow4 + 4*(13*M - 9*r)*r_pow6) + a_pow2*r_pow10*(L_pow4*r_pow2*(8052*M_pow2 + 3302*M*r - 3289*r_pow2) + 2*L_pow2*r_pow4*(2724*M_pow2 + 634*M*r - 1187*r_pow2) + 6*L_pow6*(428*M_pow2 + 327*M*r - 228*r_pow2) + 6*r_pow6*(228*M_pow2 + 10*M*r - 133*r_pow2)) + a_pow4*r_pow7*(L_pow4*r_pow2*(14598*M_pow3 + 21453*M_pow2*r - 2328*M*r_pow2 - 6241*r_pow3) + 2*L_pow2*r_pow4*(7968*M_pow3 + 9392*M_pow2*r - 2962*M*r_pow2 - 3215*r_pow3) + L_pow6*(2658*M_pow3 + 5259*M_pow2*r + 494*M*r_pow2 - 1675*r_pow3) + 60*r_pow6*(72*M_pow3 + 76*M_pow2*r - 57*M*r_pow2 - 42*r_pow3)) - 2*a_pow12*r*twoM_plus_r_pow3*(L_pow2*(-420*M_pow2 + 316*M*r + 267*r_pow2) + 6*(64*M_pow4 - 56*M_pow3*r - 118*M_pow2*r_pow2 + 131*M*r_pow3 + 84*r_pow4)) + a_pow6*r_pow4*(L_pow4*r_pow2*(12204*M_pow4 + 34602*M_pow3*r + 15669*M_pow2*r_pow2 - 11180*M*r_pow3 - 6101*r_pow4) + 4*L_pow2*r_pow4*(4896*M_pow4 + 13152*M_pow3*r + 3336*M_pow2*r_pow2 - 5594*M*r_pow3 - 2295*r_pow4) + 2*L_pow6*(816*M_pow4 + 1923*M_pow3*r + 1412*M_pow2*r_pow2 - 526*M*r_pow3 - 494*r_pow4) - 30*r_pow6*(-160*M_pow4 - 560*M_pow3*r + 8*M_pow2*r_pow2 + 418*M*r_pow3 + 147*r_pow4)) - a_pow10*r_pow2*twoM_plus_r*(6*r_pow2*twoM_plus_r_pow2*(216*M_pow3 - 472*M_pow2*r - 24*M*r_pow2 + 483*r_pow3) + L_pow4*(-1776*M_pow3 + 361*M_pow2*r + 1846*M*r_pow2 + 618*r_pow3) + 2*L_pow2*(672*M_pow5 - 4544*M_pow4*r - 7528*M_pow3*r_pow2 + 2308*M_pow2*r_pow3 + 5496*M*r_pow4 + 1535*r_pow5)) - a_pow8*r_pow3*(60*r_pow4*twoM_plus_r_pow2*(12*M_pow3 - 104*M_pow2*r + 29*M*r_pow2 + 77*r_pow3) + L_pow6*(-576*M_pow3 + 51*M_pow2*r + 626*M*r_pow2 + 234*r_pow3) + 4*L_pow2*r_pow2*(-1680*M_pow5 - 13600*M_pow4*r - 12328*M_pow3*r_pow2 + 4308*M_pow2*r_pow3 + 7291*M*r_pow4 + 1825*r_pow5) + L_pow4*(-3648*M_pow5 - 18148*M_pow4*r - 21010*M_pow3*r_pow2 + 2017*M_pow2*r_pow3 + 10306*M*r_pow4 + 3050*r_pow5))) - 6*E_pow2*M*pow(r_pow3 + a_pow2*twoM_plus_r,3)*(10*a_pow12*twoM_plus_r_pow4 + a_pow10*r*twoM_plus_r_pow3*(35*L_pow2 - 32*M_pow2 + 8*M*r + 52*r_pow2) + 2*r_pow10*(10*L_pow6 + 15*L_pow4*r_pow2 + 7*L_pow2*r_pow4 + r_pow6) + a_pow2*r_pow7*(20*r_pow7 + 7*L_pow2*r_pow4*(10*M + 13*r) + 4*L_pow4*r_pow2*(35*M + 33*r) + L_pow6*(56*M + 55*r)) + 2*a_pow4*r_pow4*(5*r_pow6*(-8*M_pow2 + 8*M*r + 7*r_pow2) + 14*L_pow2*r_pow4*(3*M_pow2 + 15*M*r + 8*r_pow2) + L_pow6*(34*M_pow2 + 40*M*r + 25*r_pow2) + L_pow4*r_pow2*(118*M_pow2 + 221*M*r + 107*r_pow2)) + 2*a_pow8*r_pow2*twoM_plus_r*(L_pow4*(37*M + 20*r) + 5*r_pow2*(-24*M_pow3 - 4*M_pow2*r + 26*M*r_pow2 + 11*r_pow3) + L_pow2*(-28*M_pow3 + 70*M_pow2*r + 196*M*r_pow2 + 77*r_pow3)) + a_pow6*r_pow3*(3*L_pow6*(8*M + 5*r) + 8*L_pow4*(19*M_pow3 + 49*M_pow2*r + 57*M*r_pow2 + 19*r_pow3) + 14*L_pow2*r_pow2*(-4*M_pow3 + 42*M_pow2*r + 60*M*r_pow2 + 19*r_pow3) - 40*(8*M_pow3*r_pow4 - 8*M*r_pow6 - 3*r_pow7))))*ur_pow8 + 3*r_pow12*(r_pow3 + a_pow2*twoM_plus_r)*(2*a_pow12*M*twoM_plus_r_pow4*(35*L_pow2 + 2*twoM_plus_r_pow2) + 2*r_pow12*(L_pow6*(32*M - 6*r) + 14*L_pow2*M*r_pow4 + 2*M*r_pow6 + 3*L_pow4*r_pow2*(8*M + r)) + a_pow2*r_pow9*(24*M*r_pow6*twoM_plus_r + 14*L_pow2*M*r_pow4*(14*M + 15*r) + 3*L_pow6*(2*M_pow2 + 87*M*r - 7*r_pow2) + 2*L_pow4*r_pow2*(96*M_pow2 + 202*M*r + 9*r_pow2)) + 2*a_pow10*M*r*twoM_plus_r_pow2*(12*r_pow2*twoM_plus_r_pow3 + L_pow4*(169*M + 86*r) - 7*L_pow2*(8*M_pow3 - 20*M_pow2*r - 66*M*r_pow2 - 27*r_pow3)) + a_pow4*r_pow6*(60*M*r_pow6*twoM_plus_r_pow2 + 14*L_pow2*M*r_pow4*(32*M_pow2 + 96*M*r + 45*r_pow2) + L_pow6*(-276*M_pow3 + 462*M_pow2*r + 477*M*r_pow2 - 9*r_pow3) + 2*L_pow4*r_pow2*(-18*M_pow3 + 837*M_pow2*r + 530*M*r_pow2 + 9*r_pow3)) + a_pow6*r_pow3*(80*M*r_pow6*twoM_plus_r_pow3 + 28*L_pow2*M*r_pow4*(8*M_pow3 + 108*M_pow2*r + 122*M*r_pow2 + 35*r_pow3) + L_pow6*M*(-226*M_pow3 + 171*M_pow2*r + 849*M*r_pow2 + 376*r_pow3) + 6*L_pow4*r_pow2*(-152*M_pow4 + 328*M_pow3*r + 621*M_pow2*r_pow2 + 212*M*r_pow3 + r_pow4)) + a_pow8*M*r_pow2*(60*r_pow4*twoM_plus_r_pow4 + 56*L_pow2*r_pow2*twoM_plus_r_pow2*(-2*M_pow2 + 14*M*r + 15*r_pow2) + 3*L_pow6*(115*M_pow2 + 125*M*r + 34*r_pow2) + L_pow4*(-912*M_pow4 + 376*M_pow3*r + 3996*M_pow2*r_pow2 + 3270*M*r_pow3 + 740*r_pow4)))*ur_pow10))/(48.*pow(a_pow2 + r*r_minus_twoM,8)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),7));
A8000 = (r_pow3*(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2)))*(4*M*r_pow2*pow(a_pow2 + r*r_minus_twoM,2)*pow(r_pow3 + a_pow2*twoM_plus_r,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(-3*a_pow4*E_pow2 + 6*a_pow3*E*L + 2*a*E*L*r*(-2*M + 3*r) + a_pow2*(-3*L_pow2 + E_pow2*(2*M - 5*r)*r) - r*(2*E_pow2*r_pow3 + L_pow2*r_minus_twoM))*ur_pow2*(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2))) - 8*L*M*r_pow4*(a_pow2 + r*r_minus_twoM)*(-3*a_pow3*E + 3*a_pow2*L + a*E*(2*M - 3*r)*r + L*r*r_minus_twoM)*pow(r_pow3 + a_pow2*twoM_plus_r,3)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2))*ur_pow4*(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2))) - 16*a*L*M_pow2*r_pow4*(a_pow2 + r*r_minus_twoM)*pow(r_pow3 + a_pow2*twoM_plus_r,2)*(3*a_pow4*E - 3*a_pow3*L + a*L*(2*M - 3*r)*r + 2*E*r_pow4 + a_pow2*E*r*(-2*M + 5*r))*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2))*ur_pow4*(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2))) - 16*a*L_pow2*M_pow2*r_pow6*pow(r_pow3 + a_pow2*twoM_plus_r,3)*ur_pow4*(a_pow2*E*L + E*L*r*r_minus_twoM - 3*a_pow3*ur_pow2 + a*(2*M - 3*r)*r*ur_pow2)*(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2))) + 4*L_pow2*M*r_pow6*pow(r_pow3 + a_pow2*twoM_plus_r,4)*ur_pow4*(a_pow2*(E_pow2 - 3*ur_pow2) - twoM_minus_r*r*(E_pow2 - ur_pow2))*(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2))) + 16*a_pow2*L_pow2*M_pow3*r_pow6*pow(r_pow3 + a_pow2*twoM_plus_r,2)*ur_pow4*(-3*a_pow4*ur_pow2 + a_pow2*(L_pow2 + (2*M - 5*r)*r*ur_pow2) + r*(L_pow2*r_minus_twoM - 2*r_pow3*ur_pow2))*(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2))) - 4*M*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(-3*a_pow4*E_pow2 + 6*a_pow3*E*L + 2*a*E*L*r*(-2*M + 3*r) + a_pow2*(-3*L_pow2 + E_pow2*(2*M - 5*r)*r) - r*(2*E_pow2*r_pow3 + L_pow2*r_minus_twoM))*pow(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2)),2) + 8*L*M*r_pow2*(a_pow2 + r*r_minus_twoM)*(-3*a_pow3*E + 3*a_pow2*L + a*E*(2*M - 3*r)*r + L*r*r_minus_twoM)*(r_pow3 + a_pow2*twoM_plus_r)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*ur_pow2*pow(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2)),2) + 16*a*L*M_pow2*r_pow2*(a_pow2 + r*r_minus_twoM)*(3*a_pow4*E - 3*a_pow3*L + a*L*(2*M - 3*r)*r + 2*E*r_pow4 + a_pow2*E*r*(-2*M + 5*r))*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*ur_pow2*pow(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2)),2) + 16*a*L_pow2*M_pow2*r_pow4*(r_pow3 + a_pow2*twoM_plus_r)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2))*ur_pow2*(a_pow2*E*L + E*L*r*r_minus_twoM - 3*a_pow3*ur_pow2 + a*(2*M - 3*r)*r*ur_pow2)*pow(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2)),2) + 4*L_pow2*M*r_pow4*pow(r_pow3 + a_pow2*twoM_plus_r,2)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2))*ur_pow2*(-(a_pow2*(E_pow2 - 3*ur_pow2)) + twoM_minus_r*r*(E_pow2 - ur_pow2))*pow(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2)),2) - 16*a_pow2*L_pow2*M_pow3*r_pow4*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2))*ur_pow2*(-3*a_pow4*ur_pow2 + a_pow2*(L_pow2 + (2*M - 5*r)*r*ur_pow2) + r*(L_pow2*r_minus_twoM - 2*r_pow3*ur_pow2))*pow(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2)),2) + 9*r*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5)*pow((a_pow2 + r*r_minus_twoM)*(-(M*r) + (L_pow2*r_pow6*ur_pow2)/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2) + a_pow2*(1 - (L_pow2*M*r_pow3*ur_pow2)/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2))) + (r_pow2*(r_pow3 + a_pow2*twoM_plus_r)*ur_pow2*(-2*a_pow5*E*L*M*twoM_plus_r + a_pow6*twoM_plus_r_pow2 - 6*a*E*L*M*r_pow3*(L_pow2 + r_pow2) - 2*a_pow3*E*L*M*r*(L_pow2 + 6*M*r + 4*r_pow2) + a_pow4*twoM_plus_r*(2*L_pow2*(M + r) + r*(-2*M_pow2 - M*r + 2*r_pow2)) + a_pow2*r*(L_pow4*twoM_plus_r + r_pow3*(-4*M_pow2 - 2*M*r + r_pow2) + L_pow2*M*r*(4*M + r*ur_pow2)) - r_pow3*(M*r_pow4 + L_pow4*(-3*M + 2*r) + L_pow2*r_pow2*(-2*M + r*(2 + ur_pow2)))))/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3),2) - r*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),4)*(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2)))*((a_pow2 + r*r_minus_twoM)*(3*a_pow4 + 2*a_pow2*(M - 6*r)*r - M*(M - 8*r)*r_pow2 + (6*a_pow4*L_pow2*M*r_pow3*ur_pow2)/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2) - (10*a_pow2*L_pow2*M_pow2*r_pow4*ur_pow2)/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2) + (16*a_pow2*L_pow2*M*r_pow5*ur_pow2)/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2) + (6*a_pow2*L_pow2*r_pow6*ur_pow2)/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2) - (2*L_pow2*M*r_pow7*ur_pow2)/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2) - (L_pow4*r_pow6*pow(-(a_pow2*M) + r_pow3,2)*ur_pow4)/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),4)) + (r*ur_pow2*(3*r*pow(-2*a_pow5*E*L*M*twoM_plus_r + a_pow6*twoM_plus_r_pow2 - 6*a*E*L*M*r_pow3*(L_pow2 + r_pow2) - 2*a_pow3*E*L*M*r*(L_pow2 + 6*M*r + 4*r_pow2) + a_pow4*twoM_plus_r*(2*L_pow2*(M + r) + r*(-2*M_pow2 - M*r + 2*r_pow2)) + a_pow2*r*(L_pow4*twoM_plus_r + r_pow3*(-4*M_pow2 - 2*M*r + r_pow2) + L_pow2*M*r*(4*M + r*ur_pow2)) - r_pow3*(M*r_pow4 + L_pow4*(-3*M + 2*r) + L_pow2*r_pow2*(-2*M + r*(2 + ur_pow2))),2) - 4*(r_pow3 + a_pow2*twoM_plus_r)*(a*L*M*(-2*a*L*M + E*r_pow3 + a_pow2*E*twoM_plus_r)*(-((3*a_pow2 + r*(-5*M + 6*r))*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)) - L_pow2*r_pow3*(-(a_pow2*M) + r_pow3)*ur_pow2) + L*(2*a*E*M + L*r_minus_twoM)*(-((-3*a_pow4*M + M*r_pow4 + a_pow2*r*(5*M_pow2 - 8*M*r - 3*r_pow2))*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)) - L_pow2*r_pow3*pow(-(a_pow2*M) + r_pow3,2)*ur_pow2) + r_pow2*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2))*(-(a_pow6*(2*M - 3*r)*twoM_plus_r_pow2) + a_pow4*r*(4*M_pow4 - 4*M_pow3*r - 15*M_pow2*r_pow2 + 6*M*r_pow3 + 6*r_pow4 + L_pow2*(-8*M_pow2 + 6*r_pow2 + M*r*(8 + 3*ur_pow2))) + r_pow3*(L_pow4*M*(M - 2*r) + M*(M - 2*r)*r_pow4 + L_pow2*r_pow2*(2*M_pow2 + 3*r_pow2*ur_pow2 - M*r*(4 + 5*ur_pow2))) - a_pow2*r_pow2*(L_pow4*(2*M - 3*r) + r_pow2*(-4*M_pow3 + 6*M_pow2*r + 6*M*r_pow2 - 3*r_pow3) + L_pow2*(-4*M_pow3 - 6*r_pow3 + 2*M*r_pow2*(4 + ur_pow2) + M_pow2*r*(6 + 7*ur_pow2)))))))/pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),4))))/(24.*pow(a_pow2 + r*r_minus_twoM,10)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),6));
A8001 = -(r*ur*(24*a*E_pow3*M_pow2*pow(a_pow2 + r*r_minus_twoM,3)*(-(L_pow2*r) + r_pow3 + a_pow2*twoM_plus_r)*(3*a_pow6 + 23*a_pow2*r_pow4 + 9*r_pow6 + a_pow4*r*(4*M + 17*r))*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),7) + 4*a*E*M*pow(a_pow2 + r*r_minus_twoM,3)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),7)*(33*a_pow8*r*twoM_plus_r + 6*a_pow6*(-42*M_pow2*r_pow2 + 8*M*r_pow3 + 20*r_pow4 + L_pow2*(18*M_pow2 + 16*M*r + 7*r_pow2)) + r_pow4*(3*r_pow4*(29*M_pow2 - 24*M*r + 4*r_pow2) + 3*L_pow4*(24*M_pow2 - 62*M*r + 27*r_pow2) + L_pow2*r_pow2*(225*M_pow2 - 214*M*r + 57*r_pow2)) + a_pow4*r*(27*L_pow4*r_minus_twoM + 4*L_pow2*(36*M_pow3 + 41*M_pow2*r - 28*M*r_pow2 + 30*r_pow3) + 3*r_pow2*(78*M_pow3 - 101*M_pow2*r - 64*M*r_pow2 + 53*r_pow3)) + a_pow2*r_pow2*(-12*L_pow4*(6*M_pow2 + 19*M*r - 9*r_pow2) + 6*r_pow3*(29*M_pow3 + 10*M_pow2*r - 43*M*r_pow2 + 14*r_pow3) + L_pow2*r*(96*M_pow3 + 491*M_pow2*r - 362*M*r_pow2 + 153*r_pow3))) - 2*E_pow2*L*M*pow(a_pow2 + r*r_minus_twoM,3)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),7)*(3*a_pow8*(72*M_pow2 + 50*M*r + 23*r_pow2) + a_pow6*r*(288*M_pow3 - 27*L_pow2*(4*M - r) + 848*M_pow2*r + 138*M*r_pow2 + 199*r_pow3) + 2*r_pow7*(-6*L_pow2*(9*M - 5*r) + r_pow2*(-6*M + 5*r)) + 3*a_pow2*r_pow4*(r_pow2*(212*M_pow2 - 22*M*r + 27*r_pow2) + L_pow2*(24*M_pow2 - 190*M*r + 55*r_pow2)) + a_pow4*r_pow2*(-6*L_pow2*(24*M_pow2 + 89*M*r - 22*r_pow2) + r*(96*M_pow3 + 1292*M_pow2*r - 114*M*r_pow2 + 201*r_pow3))) - 2*L*pow(a_pow2 + r*r_minus_twoM,3)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),7)*(-6*a_pow8*r*(-22*M_pow2 + 5*M*r + 3*r_pow2) + M*r_pow4*(r_pow4*(-15*M_pow2 + 14*M*r - 4*r_pow2) + 3*L_pow4*(24*M_pow2 - 26*M*r + 7*r_pow2) + L_pow2*r_pow2*(69*M_pow2 - 70*M*r + 17*r_pow2)) + a_pow6*(r_pow2*(-504*M_pow3 + 452*M_pow2*r + 32*M*r_pow2 - 39*r_pow3) + 3*L_pow2*(24*M_pow3 + 26*M_pow2*r + 5*M*r_pow2 - 6*r_pow3)) + a_pow4*r*(-9*L_pow4*M*(4*M - 3*r) + r_pow2*(468*M_pow4 - 910*M_pow3*r + 231*M_pow2*r_pow2 + 93*M*r_pow3 - 21*r_pow4) + L_pow2*(96*M_pow4 - 64*M_pow3*r - 122*M_pow2*r_pow2 + 155*M*r_pow3 - 3*r_pow4)) + a_pow2*r_pow2*(-6*L_pow4*M*(8*M_pow2 + 21*M*r - 14*r_pow2) + M*r_pow3*(318*M_pow3 - 187*M_pow2*r - 33*M*r_pow2 + 21*r_pow3) + L_pow2*r*(96*M_pow4 + 290*M_pow3*r - 381*M_pow2*r_pow2 + 94*M*r_pow3 + 12*r_pow4))) + r_pow2*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5)*(12*a_pow13*E*M*twoM_plus_r_pow3*(6*E_pow2*M + 7*r) - 24*a_pow12*L*twoM_plus_r_pow2*(r*(7*M_pow2 - 4*M*r - 3*r_pow2) + E_pow2*M*(18*M_pow2 + 52*M*r + 13*r_pow2)) + 2*a*E*M*r_pow8*(L_pow2*r_pow4*(207*M_pow2 + 16*(8 + 9*E_pow2)*M*r - 132*r_pow2) + 12*r_pow6*(11*M_pow2 + (-3 + 14*E_pow2)*M*r - 2*r_pow2) + 4*L_pow4*r_pow2*(131*M_pow2 - 2*(52 + 27*E_pow2)*M*r + 33*r_pow2) + 3*L_pow6*(619*M_pow2 - 908*M*r + 312*r_pow2)) + L*r_pow8*(4*M*r_pow6*(81*M_pow2 - 81*M*r - (-21 + E_pow2)*r_pow2) + L_pow2*r_pow4*(457*M_pow3 + 8*(-100 + 61*E_pow2)*M_pow2*r + 10*(47 - 29*E_pow2)*M*r_pow2 - 88*r_pow3) - 2*L_pow4*r_pow2*(211*M_pow3 - 3*(3 + 92*E_pow2)*M_pow2*r + 3*(-52 + 49*E_pow2)*M*r_pow2 + 52*r_pow3) + L_pow6*(-939*M_pow3 + 1230*M_pow2*r - 522*M*r_pow2 + 72*r_pow3)) + 2*a_pow3*E*M*r_pow5*(6*r_pow6*(132*M_pow3 + 4*(15 + 47*E_pow2)*M_pow2*r + 2*(-43 + 75*E_pow2)*M*r_pow2 - 3*r_pow3) + L_pow2*r_pow4*(-5676*M_pow3 - 5*(-731 + 540*E_pow2)*M_pow2*r + 46*(-19 + 18*E_pow2)*M*r_pow2 + 240*r_pow3) + 3*L_pow6*(416*M_pow3 + 85*M_pow2*r - 1074*M*r_pow2 + 420*r_pow3) + 2*L_pow4*r_pow2*(-2360*M_pow3 + 6*(364 + 45*E_pow2)*M_pow2*r - 12*(142 + 33*E_pow2)*M*r_pow2 + 1113*r_pow3)) - 2*a_pow5*E*M*r_pow3*(3*L_pow6*(288*M_pow3 + 592*M_pow2*r + 238*M*r_pow2 - 363*r_pow3) + 2*L_pow4*r*(800*M_pow4 + 2372*M_pow3*r + 6*(350 + 27*E_pow2)*M_pow2*r_pow2 + 18*(31 + 28*E_pow2)*M*r_pow3 - 1899*r_pow4) + L_pow2*r_pow3*(11796*M_pow4 + 8*(463 + 837*E_pow2)*M_pow3*r + 27*(-343 + 144*E_pow2)*M_pow2*r_pow2 - 18*(1 + 96*E_pow2)*M*r_pow3 - 1371*r_pow4) - 6*r_pow5*(264*M_pow4 + 12*(31 + 38*E_pow2)*M_pow3*r + 4*(-57 + 205*E_pow2)*M_pow2*r_pow2 + 2*(-87 + 163*E_pow2)*M*r_pow3 + 31*r_pow4)) - a_pow2*L*r_pow5*(-4*r_pow6*(372*M_pow4 + 6*(-17 + 86*E_pow2)*M_pow3*r - 5*(48 + 77*E_pow2)*M_pow2*r_pow2 + (93 - 56*E_pow2)*M*r_pow3 + 6*r_pow4) + 4*L_pow4*r_pow2*(-448*M_pow4 + (1687 + 879*E_pow2)*M_pow3*r - 3*(467 + 440*E_pow2)*M_pow2*r_pow2 + 2*(149 + 150*E_pow2)*M*r_pow3 + 29*r_pow4) + 3*L_pow6*(416*M_pow4 + 146*M_pow3*r - 879*M_pow2*r_pow2 + 302*M*r_pow3 + 36*r_pow4) + L_pow2*r_pow4*(-4552*M_pow4 - 6*(-965 + 926*E_pow2)*M_pow3*r + (-1585 + 2992*E_pow2)*M_pow2*r_pow2 + 22*(-17 + 67*E_pow2)*M*r_pow3 + 128*r_pow4)) + a_pow4*L*r_pow3*(3*L_pow6*(192*M_pow4 + 364*M_pow3*r + 228*M_pow2*r_pow2 - 329*M*r_pow3 + 18*r_pow4) + 2*L_pow4*r*(80*M_pow5 - 8*(107 + 78*E_pow2)*M_pow4*r + (1535 + 288*E_pow2)*M_pow3*r_pow2 + 3*(661 + 846*E_pow2)*M_pow2*r_pow3 - 3*(567 + 286*E_pow2)*M*r_pow4 - 27*r_pow5) + 8*r_pow5*(258*M_pow5 + 6*(13 + 153*E_pow2)*M_pow4*r - 24*(11 + 5*E_pow2)*M_pow3*r_pow2 - (147 + 998*E_pow2)*M_pow2*r_pow3 + 2*(42 - 73*E_pow2)*M*r_pow4 + 24*r_pow5) + L_pow2*r_pow3*(15436*M_pow5 + 4*(-2003 + 5406*E_pow2)*M_pow4*r + (-5435 + 3116*E_pow2)*M_pow3*r_pow2 + 2*(2557 - 2220*E_pow2)*M_pow2*r_pow3 - (1129 + 3192*E_pow2)*M*r_pow4 + 32*r_pow5)) + 2*a_pow9*E*M*r*(2*L_pow4*(324*M_pow3 + (682 - 54*E_pow2)*M_pow2*r + 18*(41 - 2*E_pow2)*M*r_pow2 + 255*r_pow3) + 12*r_pow2*twoM_plus_r*(20*(3 + 2*E_pow2)*M_pow4 + 4*(-7 + 64*E_pow2)*M_pow3*r + (-145 + 316*E_pow2)*M_pow2*r_pow2 + (-1 + 108*E_pow2)*M*r_pow3 + 39*r_pow4) + L_pow2*(4032*M_pow5 - 32*(17 + 9*E_pow2)*M_pow4*r + 8*(1124 - 27*E_pow2)*M_pow3*r_pow2 + 8*(1223 + 162*E_pow2)*M_pow2*r_pow3 + 2*(1927 + 360*E_pow2)*M*r_pow4 + 1041*r_pow5)) + 2*a_pow7*E*M*r_pow2*(-9*L_pow6*(36*M_pow2 - 12*M*r - 31*r_pow2) - 2*L_pow4*(432*M_pow4 + 16*(131 + 9*E_pow2)*M_pow3*r + 2*(1046 + 171*E_pow2)*M_pow2*r_pow2 + 4*(-227 + 63*E_pow2)*M*r_pow3 - 1107*r_pow4) + 12*r_pow3*(88*M_pow5 + 8*(36 + 29*E_pow2)*M_pow4*r + 2*(-35 + 384*E_pow2)*M_pow3*r_pow2 + 2*(-143 + 342*E_pow2)*M_pow2*r_pow3 + 2*(-12 + 91*E_pow2)*M*r_pow4 + 39*r_pow5) + L_pow2*r*(768*M_pow5 - 4*(1399 + 360*E_pow2)*M_pow4*r + 4*(2453 - 1350*E_pow2)*M_pow3*r_pow2 - 3*(-4163 + 72*E_pow2)*M_pow2*r_pow3 + 2*(1597 + 828*E_pow2)*M*r_pow4 + 1767*r_pow5)) - a_pow8*L*r*(2*L_pow4*(216*M_pow4 + 4*(130 - 81*E_pow2)*M_pow3*r + 6*(116 - 9*E_pow2)*M_pow2*r_pow2 + 33*(7 + 3*E_pow2)*M*r_pow3 - 27*r_pow4) + L_pow2*(2688*M_pow6 - 64*(73 + 27*E_pow2)*M_pow5*r - 8*(-618 + 605*E_pow2)*M_pow4*r_pow2 + 12*(191 - 27*E_pow2)*M_pow3*r_pow3 + 4*(829 + 908*E_pow2)*M_pow2*r_pow4 + 11*(81 + 194*E_pow2)*M*r_pow5 - 294*r_pow6) + 4*r_pow2*(48*(15 + 19*E_pow2)*M_pow6 + 28*(3 + 68*E_pow2)*M_pow5*r + 4*(-117 + 1303*E_pow2)*M_pow4*r_pow2 + 3*(219 + 2932*E_pow2)*M_pow3*r_pow3 + (159 + 4732*E_pow2)*M_pow2*r_pow4 + (-435 + 677*E_pow2)*M*r_pow5 - 150*r_pow6)) + a_pow6*L*r_pow2*(9*L_pow6*(24*M_pow3 - 20*M_pow2*r - 40*M*r_pow2 - r_pow3) + 4*L_pow4*(144*M_pow5 + 2*(497 + 216*E_pow2)*M_pow4*r + 29*(47 + 33*E_pow2)*M_pow3*r_pow2 + (-431 + 438*E_pow2)*M_pow2*r_pow3 - 36*(19 + 7*E_pow2)*M*r_pow4 + 3*r_pow5) + 8*r_pow3*(96*M_pow6 + 144*(-1 + 4*E_pow2)*M_pow5*r + 2*(-21 + 151*E_pow2)*M_pow4*r_pow2 - 9*(33 + 278*E_pow2)*M_pow3*r_pow3 - 3*(57 + 713*E_pow2)*M_pow2*r_pow4 + 2*(72 - 157*E_pow2)*M*r_pow5 + 63*r_pow6) + L_pow2*r*(192*M_pow6 + 40*(139 + 148*E_pow2)*M_pow5*r + 16*(-919 + 1375*E_pow2)*M_pow4*r_pow2 + 12*(255 + 533*E_pow2)*M_pow3*r_pow3 + 11*(103 - 256*E_pow2)*M_pow2*r_pow4 - 2*(1103 + 1816*E_pow2)*M*r_pow5 + 231*r_pow6)) + 6*a_pow11*E*M*twoM_plus_r*(L_pow2*(144*M_pow3 + 4*(208 + 9*E_pow2)*M_pow2*r + 18*(21 + 2*E_pow2)*M*r_pow2 + 91*r_pow3) + 2*r*twoM_plus_r*(2*E_pow2*M*(28*M_pow2 + 58*M*r + 31*r_pow2) + r*(-60*M_pow2 + 2*M*r + 37*r_pow2))) - a_pow10*L*(L_pow2*(576*M_pow5 + 48*(104 + 27*E_pow2)*M_pow4*r + 8*(411 + 292*E_pow2)*M_pow3*r_pow2 + 12*(61 + 148*E_pow2)*M_pow2*r_pow3 + 6*(-47 + 85*E_pow2)*M*r_pow4 - 135*r_pow5) + 4*r*twoM_plus_r*(-3*r*(120*M_pow4 - 32*M_pow3*r - 56*M_pow2*r_pow2 + 57*M*r_pow3 + 28*r_pow4) + E_pow2*M*(1008*M_pow4 + 976*M_pow3*r + 2294*M_pow2*r_pow2 + 1961*M*r_pow3 + 364*r_pow4))))*ur_pow2 + r_pow5*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(24*a*E_pow3*M_pow2*(r_pow4*r_minus_twoM + a_pow4*twoM_plus_r + a_pow2*(-4*M_pow2*r + 2*r_pow3))*(r_pow11*(-9*L_pow6 - 12*L_pow4*r_pow2 + 22*L_pow2*r_pow4 + 7*r_pow6) + a_pow12*twoM_plus_r_pow2*(7*twoM_plus_r_pow3 + 3*L_pow2*(8*M + 3*r)) + a_pow2*r_pow8*(9*L_pow6*(7*M - 4*r) + 14*r_pow6*(5*M + 3*r) - 3*L_pow4*r_pow2*(225*M + 8*r) + L_pow2*r_pow4*(284*M + 131*r)) + a_pow4*r_pow6*(3*L_pow6*(5*M - 16*r) + 6*L_pow4*r*(-237*M_pow2 - 221*M*r + r_pow2) + 35*r_pow5*(8*M_pow2 + 10*M*r + 3*r_pow2) + L_pow2*r_pow3*(852*M_pow2 + 1124*M*r + 313*r_pow2)) + a_pow10*r*twoM_plus_r*(14*r*twoM_plus_r_pow3*(M + 3*r) + L_pow4*(-9*M + 6*r) + L_pow2*(56*M_pow3 + 372*M_pow2*r + 342*M*r_pow2 + 79*r_pow3)) + a_pow6*r_pow3*(140*r_pow5*(M + r)*twoM_plus_r_pow2 - 3*L_pow6*(8*M_pow2 + 9*M*r + 8*r_pow2) - 6*L_pow4*r*(40*M_pow3 + 245*M_pow2*r + 132*M*r_pow2 - 7*r_pow3) + 2*L_pow2*r_pow3*(352*M_pow3 + 1152*M_pow2*r + 888*M*r_pow2 + 191*r_pow3)) + a_pow8*r_pow2*(-3*L_pow6*(M + r) + 35*r_pow3*twoM_plus_r_pow3*(2*M + 3*r) - 6*L_pow4*(16*M_pow3 + 67*M_pow2*r + 23*M*r_pow2 - 5*r_pow3) + 8*L_pow2*r*(-10*M_pow4 + 152*M_pow3*r + 297*M_pow2*r_pow2 + 172*M*r_pow3 + 31*r_pow4))) - 2*E_pow2*L*M*(a_pow2 + r*r_minus_twoM)*(3*a_pow16*twoM_plus_r_pow4*(158*M + 29*r) + r_pow14*(-99*L_pow6*twoM_minus_r + 2*r_pow6*(-12*M + 5*r) + 2*L_pow2*r_pow4*(-109*M + 66*r) + L_pow4*r_pow2*(-464*M + 257*r)) + a_pow2*r_pow11*(9*L_pow6*(358*M_pow2 - 350*M*r + 65*r_pow2) + r_pow6*(-2196*M_pow2 + 980*M*r + 121*r_pow2) + 2*L_pow4*r_pow2*(-6563*M_pow2 + 2424*M*r + 720*r_pow2) + L_pow2*r_pow4*(-8408*M_pow2 + 4856*M*r + 845*r_pow2)) + a_pow14*twoM_plus_r_pow2*(4032*M_pow5 + 4736*M_pow4*r + 9488*M_pow3*r_pow2 + 12684*M_pow2*r_pow3 + 5476*M*r_pow4 + 583*r_pow5 + L_pow2*(1728*M_pow3 + 2480*M_pow2*r + 1650*M*r_pow2 + 291*r_pow3)) + a_pow4*r_pow8*(18*L_pow6*(296*M_pow3 - 22*M_pow2*r - 290*M*r_pow2 + 71*r_pow3) + r_pow6*(-16776*M_pow3 - 1972*M_pow2*r + 7314*M*r_pow2 + 603*r_pow3) + 4*L_pow2*r_pow4*(-4700*M_pow3 - 191*M_pow2*r + 5676*M*r_pow2 + 634*r_pow3) + L_pow4*r_pow2*(-57756*M_pow3 - 18798*M_pow2*r + 15870*M*r_pow2 + 3511*r_pow3)) + a_pow6*r_pow5*(18*L_pow6*(112*M_pow4 + 100*M_pow3*r - 248*M_pow2*r_pow2 - 134*M*r_pow3 + 73*r_pow4) + 4*L_pow4*r_pow2*(-18148*M_pow4 - 26786*M_pow3*r - 3683*M_pow2*r_pow2 + 4724*M*r_pow3 + 1196*r_pow4) + r_pow6*(-50208*M_pow4 - 37392*M_pow3*r + 28240*M_pow2*r_pow2 + 22104*M*r_pow3 + 1637*r_pow4) + L_pow2*r_pow4*(15392*M_pow4 + 9672*M_pow3*r + 49668*M_pow2*r_pow2 + 42742*M*r_pow3 + 4625*r_pow4)) + a_pow8*r_pow3*(-9*L_pow6*(192*M_pow4 + 352*M_pow3*r + 292*M_pow2*r_pow2 - 10*M*r_pow3 - 71*r_pow4) + r_pow5*(-68544*M_pow5 - 99008*M_pow4*r + 30432*M_pow3*r_pow2 + 93872*M_pow2*r_pow3 + 36886*M*r_pow4 + 2675*r_pow5) + 2*L_pow2*r_pow3*(17776*M_pow5 + 41192*M_pow4*r + 41792*M_pow3*r_pow2 + 45972*M_pow2*r_pow3 + 23323*M*r_pow4 + 2710*r_pow5) + L_pow4*r*(-11744*M_pow5 - 92112*M_pow4*r - 89120*M_pow3*r_pow2 - 9548*M_pow2*r_pow3 + 13772*M*r_pow4 + 3831*r_pow5)) - a_pow12*r*twoM_plus_r*(L_pow4*(648*M_pow3 - 1010*M_pow2*r - 1236*M*r_pow2 - 321*r_pow3) - 4*L_pow2*(1008*M_pow5 + 5040*M_pow4*r + 6070*M_pow3*r_pow2 + 5555*M_pow2*r_pow3 + 2777*M*r_pow4 + 410*r_pow5) - r*(-1344*M_pow6 + 1408*M_pow5*r + 19568*M_pow4*r_pow2 + 61040*M_pow3*r_pow3 + 57812*M_pow2*r_pow4 + 19324*M*r_pow5 + 1681*r_pow6)) + a_pow10*r_pow2*(-9*L_pow6*(24*M_pow3 + 6*M_pow2*r - 26*M*r_pow2 - 13*r_pow3) + L_pow4*(-6912*M_pow5 - 35120*M_pow4*r - 25816*M_pow3*r_pow2 + 2994*M_pow2*r_pow3 + 7312*M*r_pow4 + 1696*r_pow5) + r_pow3*(-37440*M_pow6 - 82880*M_pow5*r + 15984*M_pow4*r_pow2 + 159744*M_pow3*r_pow3 + 131276*M_pow2*r_pow4 + 37140*M*r_pow5 + 2715*r_pow6) + L_pow2*r*(-13312*M_pow6 + 50528*M_pow5*r + 102624*M_pow4*r_pow2 + 105584*M_pow3*r_pow3 + 84112*M_pow2*r_pow4 + 33108*M*r_pow5 + 3967*r_pow6))) - 2*a*E*M*(a_pow2 + r*r_minus_twoM)*(174*a_pow16*twoM_plus_r_pow5 + r_pow11*(6*r_pow8*(67*M_pow2 - 88*M*r + 28*r_pow2) - 9*L_pow8*(461*M_pow2 - 562*M*r + 168*r_pow2) + L_pow6*r_pow2*(2333*M_pow2 - 2324*M*r + 504*r_pow2) + L_pow2*r_pow6*(2259*M_pow2 - 2548*M*r + 738*r_pow2) + L_pow4*r_pow4*(5891*M_pow2 - 7098*M*r + 2046*r_pow2)) - 3*a_pow14*twoM_plus_r_pow3*(L_pow2*(632*M_pow2 + 186*M*r - 43*r_pow2) + 8*r*(102*M_pow3 + 19*M_pow2*r - 130*M*r_pow2 - 57*r_pow3)) - a_pow2*r_pow8*(3*L_pow2*r_pow6*(-7264*M_pow3 + 3181*M_pow2*r + 3034*M*r_pow2 - 1512*r_pow3) + 12*r_pow8*(-335*M_pow3 + 228*M_pow2*r + 173*M*r_pow2 - 110*r_pow3) + 18*L_pow8*(363*M_pow3 + M_pow2*r - 463*M*r_pow2 + 189*r_pow3) - 2*L_pow4*r_pow4*(15863*M_pow3 - 7098*M_pow2*r - 6649*M*r_pow2 + 2611*r_pow3) + L_pow6*r_pow2*(-26796*M_pow3 + 8511*M_pow2*r - 1142*M*r_pow2 + 2722*r_pow3)) + a_pow4*r_pow5*(L_pow6*r_pow2*(42396*M_pow4 + 39624*M_pow3*r + 5353*M_pow2*r_pow2 - 4230*M*r_pow3 - 10613*r_pow4) - 9*L_pow8*(448*M_pow4 + 370*M_pow3*r - 893*M_pow2*r_pow2 - 492*M*r_pow3 + 393*r_pow4) + 6*r_pow8*(2680*M_pow4 + 50*M_pow3*r - 3145*M_pow2*r_pow2 + 8*M*r_pow3 + 763*r_pow4) + L_pow4*r_pow4*(21468*M_pow4 + 26574*M_pow3*r - 41258*M_pow2*r_pow2 - 15274*M*r_pow3 + 1995*r_pow4) + L_pow2*r_pow6*(79224*M_pow4 + 21736*M_pow3*r - 62646*M_pow2*r_pow2 - 6870*M*r_pow3 + 11877*r_pow4)) + a_pow6*r_pow3*(18*L_pow8*(96*M_pow4 + 196*M_pow3*r + 217*M_pow2*r_pow2 - 82*M*r_pow3 - 117*r_pow4) + L_pow6*r*(6208*M_pow5 + 61364*M_pow4*r + 61172*M_pow3*r_pow2 + 13165*M_pow2*r_pow3 - 19462*M*r_pow4 - 12181*r_pow5) + 24*r_pow7*(1340*M_pow5 + 1140*M_pow4*r - 2045*M_pow3*r_pow2 - 1405*M_pow2*r_pow3 + 615*M*r_pow4 + 381*r_pow5) - 2*L_pow4*r_pow3*(13204*M_pow5 + 3756*M_pow4*r + 4537*M_pow3*r_pow2 + 27281*M_pow2*r_pow3 + 14463*M*r_pow4 + 2805*r_pow5) + L_pow2*r_pow5*(133056*M_pow5 + 139336*M_pow4*r - 104816*M_pow3*r_pow2 - 110526*M_pow2*r_pow3 + 13900*M*r_pow4 + 17037*r_pow5)) - a_pow12*twoM_plus_r*(L_pow4*(3456*M_pow4 + 8624*M_pow3*r + 9338*M_pow2*r_pow2 + 4206*M*r_pow3 + 723*r_pow4) - 6*r_pow2*twoM_plus_r_pow2*(356*M_pow4 - 388*M_pow3*r - 1355*M_pow2*r_pow2 + 454*M*r_pow3 + 785*r_pow4) + L_pow2*(8064*M_pow6 + 6848*M_pow5*r + 26720*M_pow4*r_pow2 + 42192*M_pow3*r_pow3 + 15748*M_pow2*r_pow4 - 2768*M*r_pow5 - 1629*r_pow6)) + a_pow8*r_pow2*(9*L_pow8*(24*M_pow3 - 24*M_pow2*r - 112*M*r_pow2 - 51*r_pow3) + L_pow6*(6912*M_pow5 + 37840*M_pow4*r + 32768*M_pow3*r_pow2 - 3858*M_pow2*r_pow3 - 16902*M*r_pow4 - 5931*r_pow5) + 30*r_pow5*(1072*M_pow6 + 2160*M_pow5*r - 1600*M_pow4*r_pow2 - 3612*M_pow3*r_pow3 - 251*M_pow2*r_pow4 + 1242*M*r_pow5 + 383*r_pow6) + 3*L_pow2*r_pow3*(32720*M_pow6 + 63648*M_pow5*r - 12504*M_pow4*r_pow2 - 77232*M_pow3*r_pow3 - 28467*M_pow2*r_pow4 + 10112*M*r_pow5 + 4756*r_pow6) - L_pow4*r*(-20864*M_pow6 + 45432*M_pow5*r + 33276*M_pow4*r_pow2 + 34962*M_pow3*r_pow3 + 61859*M_pow2*r_pow4 + 35384*M*r_pow5 + 7270*r_pow6)) + a_pow10*r*(L_pow6*(1296*M_pow4 - 3176*M_pow3*r - 7682*M_pow2*r_pow2 - 5136*M*r_pow3 - 1137*r_pow4) + 12*r_pow3*twoM_plus_r_pow2*(268*M_pow5 + 940*M_pow4*r - 1185*M_pow3*r_pow2 - 1920*M_pow2*r_pow3 + 695*M*r_pow4 + 774*r_pow5) - 2*L_pow4*(4032*M_pow6 + 13536*M_pow5*r + 10308*M_pow4*r_pow2 + 20010*M_pow3*r_pow3 + 23109*M_pow2*r_pow4 + 10592*M*r_pow5 + 1782*r_pow6) + L_pow2*r*(21504*M_pow7 + 61520*M_pow6*r + 1440*M_pow5*r_pow2 - 183720*M_pow4*r_pow3 - 183584*M_pow3*r_pow4 - 32235*M_pow2*r_pow5 + 21930*M*r_pow6 + 6810*r_pow7))) + L*(a_pow2 + r*r_minus_twoM)*(12*a_pow16*twoM_plus_r_pow4*(58*M_pow2 + 26*M*r + 3*r_pow2) + r_pow11*(6*M*r_pow8*(133*M_pow2 - 134*M*r + 34*r_pow2) + L_pow4*r_pow4*(3987*M_pow3 - 6799*M_pow2*r + 3826*M*r_pow2 - 706*r_pow3) + L_pow2*r_pow6*(2799*M_pow3 - 3442*M_pow2*r + 1348*M*r_pow2 - 160*r_pow3) + 3*L_pow6*r_pow2*(67*M_pow3 - 600*M_pow2*r + 554*M*r_pow2 - 134*r_pow3) - 3*L_pow8*(691*M_pow3 - 931*M_pow2*r + 412*M*r_pow2 - 60*r_pow3)) - a_pow2*r_pow8*(6*L_pow8*(616*M_pow4 + 452*M_pow3*r - 1279*M_pow2*r_pow2 + 445*M*r_pow3 + 6*r_pow4) - 6*r_pow8*(1382*M_pow4 - 359*M_pow3*r - 801*M_pow2*r_pow2 + 305*M*r_pow3 + 8*r_pow4) + L_pow2*r_pow6*(-27072*M_pow4 + 13310*M_pow3*r + 11153*M_pow2*r_pow2 - 6378*M*r_pow3 + 388*r_pow4) + L_pow6*r_pow2*(-13024*M_pow4 + 23530*M_pow3*r - 13077*M_pow2*r_pow2 + 1092*M*r_pow3 + 648*r_pow4) + 2*L_pow4*r_pow4*(-16718*M_pow4 + 16151*M_pow3*r + 594*M_pow2*r_pow2 - 3788*M*r_pow3 + 771*r_pow4)) - 3*a_pow14*twoM_plus_r_pow2*(L_pow2*(1264*M_pow4 + 512*M_pow3*r - 444*M_pow2*r_pow2 - 202*M*r_pow3 - 33*r_pow4) - 2*r*(-1632*M_pow5 - 1072*M_pow4*r + 1992*M_pow3*r_pow2 + 2032*M_pow2*r_pow3 + 584*M*r_pow4 + 49*r_pow5)) + a_pow4*r_pow5*(L_pow4*r_pow4*(59892*M_pow5 - 7980*M_pow4*r - 63050*M_pow3*r_pow2 + 19108*M_pow2*r_pow3 + 5025*M*r_pow4 - 723*r_pow5) + L_pow2*r_pow6*(95736*M_pow5 + 20104*M_pow4*r - 90294*M_pow3*r_pow2 - 3068*M_pow2*r_pow3 + 16855*M*r_pow4 + 12*r_pow5) - 3*L_pow8*(1344*M_pow5 + 1068*M_pow4*r - 2111*M_pow3*r_pow2 - 1937*M_pow2*r_pow3 + 1399*M*r_pow4 + 45*r_pow5) + 6*r_pow8*(5736*M_pow5 + 3052*M_pow4*r - 5768*M_pow3*r_pow2 - 1205*M_pow2*r_pow3 + 1245*M*r_pow4 + 59*r_pow5) - L_pow6*r_pow2*(-20932*M_pow5 + 13860*M_pow4*r + 301*M_pow3*r_pow2 - 19358*M_pow2*r_pow3 + 9975*M*r_pow4 + 192*r_pow5)) + a_pow6*r_pow3*(6*L_pow8*(192*M_pow5 + 432*M_pow4*r + 738*M_pow3*r_pow2 - 145*M_pow2*r_pow3 - 429*M*r_pow4 + 12*r_pow5) + L_pow6*r*(448*M_pow6 + 17128*M_pow5*r + 18144*M_pow4*r_pow2 + 28620*M_pow3*r_pow3 - 5077*M_pow2*r_pow4 - 14466*M*r_pow5 - 39*r_pow6) + 4*L_pow4*r_pow3*(1020*M_pow6 + 4162*M_pow5*r - 15650*M_pow4*r_pow2 - 4388*M_pow3*r_pow3 + 5491*M_pow2*r_pow4 - 719*M*r_pow5 + 26*r_pow6) + 6*r_pow7*(11888*M_pow6 + 16920*M_pow5*r - 12116*M_pow4*r_pow2 - 14950*M_pow3*r_pow3 + 2170*M_pow2*r_pow4 + 2990*M*r_pow5 + 181*r_pow6) + L_pow2*r_pow5*(154368*M_pow6 + 142288*M_pow5*r - 182000*M_pow4*r_pow2 - 133840*M_pow3*r_pow3 + 45674*M_pow2*r_pow4 + 27226*M*r_pow5 + 827*r_pow6)) + a_pow8*r_pow2*(9*L_pow8*(16*M_pow4 - 36*M_pow3*r - 164*M_pow2*r_pow2 - 87*M*r_pow3 - r_pow4) + L_pow6*(4608*M_pow6 + 27040*M_pow5*r + 30608*M_pow4*r_pow2 + 3170*M_pow3*r_pow3 - 19236*M_pow2*r_pow4 - 9009*M*r_pow5 - 84*r_pow6) - L_pow4*r*(-18944*M_pow7 + 48944*M_pow6*r + 18204*M_pow5*r_pow2 - 4124*M_pow4*r_pow3 - 10591*M_pow3*r_pow4 + 9935*M_pow2*r_pow5 + 10232*M*r_pow6 + 180*r_pow7) + 6*r_pow5*(12304*M_pow7 + 31712*M_pow6*r - 7128*M_pow5*r_pow2 - 41304*M_pow4*r_pow3 - 10875*M_pow3*r_pow4 + 10276*M_pow2*r_pow5 + 4520*M*r_pow6 + 300*r_pow7) + L_pow2*r_pow3*(111024*M_pow7 + 186176*M_pow6*r - 126120*M_pow5*r_pow2 - 293896*M_pow4*r_pow3 - 24553*M_pow3*r_pow4 + 86554*M_pow2*r_pow5 + 25110*M*r_pow6 + 1028*r_pow7)) + a_pow12*(-(L_pow4*(4608*M_pow6 + 16384*M_pow5*r + 24152*M_pow4*r_pow2 + 16344*M_pow3*r_pow3 + 5430*M_pow2*r_pow4 + 579*M*r_pow5 - 81*r_pow6)) + 6*r_pow2*twoM_plus_r_pow2*(1424*M_pow6 - 952*M_pow5*r - 6968*M_pow4*r_pow2 - 1586*M_pow3*r_pow3 + 3971*M_pow2*r_pow4 + 1833*M*r_pow5 + 163*r_pow6) + L_pow2*(-10752*M_pow8 - 5632*M_pow7*r - 39040*M_pow6*r_pow2 - 76752*M_pow5*r_pow3 - 16784*M_pow4*r_pow4 + 34408*M_pow3*r_pow5 + 21708*M_pow2*r_pow6 + 4455*M*r_pow7 + 360*r_pow8)) + a_pow10*r*(L_pow6*(864*M_pow5 - 3320*M_pow4*r - 8760*M_pow3*r_pow2 - 7002*M_pow2*r_pow3 - 1764*M*r_pow4 + 9*r_pow5) - 2*L_pow4*(2688*M_pow7 + 3264*M_pow6*r - 12008*M_pow5*r_pow2 + 270*M_pow4*r_pow3 + 14265*M_pow3*r_pow4 + 11916*M_pow2*r_pow5 + 3330*M*r_pow6 + 45*r_pow7) + 6*r_pow3*(5088*M_pow8 + 24464*M_pow7*r + 2912*M_pow6*r_pow2 - 50824*M_pow5*r_pow3 - 35426*M_pow4*r_pow4 + 10341*M_pow3*r_pow5 + 15635*M_pow2*r_pow6 + 4309*M*r_pow7 + 290*r_pow8) + L_pow2*r*(26880*M_pow8 + 61472*M_pow7*r - 22064*M_pow6*r_pow2 - 206976*M_pow5*r_pow3 - 122288*M_pow4*r_pow4 + 63294*M_pow3*r_pow5 + 63079*M_pow2*r_pow6 + 13162*M*r_pow7 + 702*r_pow8))))*ur_pow4 + r_pow7*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(24*a*E_pow3*M_pow2*pow(r_pow3 + a_pow2*twoM_plus_r,4)*(-15*L_pow4*r_pow7 + 5*L_pow2*r_pow9 + 2*r_pow11 + 2*a_pow8*twoM_plus_r_pow3 + a_pow6*r*twoM_plus_r_pow2*(5*L_pow2 + 4*r*(M + 2*r)) + a_pow4*r_pow2*twoM_plus_r*(-5*L_pow4 + 12*r_pow3*(M + r) + 5*L_pow2*r*(2*M + 3*r)) + a_pow2*r_pow3*(-2*L_pow6 - 10*L_pow4*r*(3*M + 2*r) + 4*r_pow5*(3*M + 2*r) + 5*L_pow2*r_pow3*(4*M + 3*r))) - 2*E_pow2*L*M*(r_pow3 + a_pow2*twoM_plus_r)*(r_pow15*(-3*L_pow6 + 30*r_pow5*r_minus_twoM + 2*L_pow4*r*(-131*M + 70*r) + L_pow2*r_pow3*(-166*M + 95*r)) + a_pow2*r_pow11*(3*L_pow6*(624*M_pow2 - 368*M*r + 23*r_pow2) + 6*r_pow6*(-168*M_pow2 + 36*M*r + 35*r_pow2) + 2*L_pow4*r_pow2*(-5422*M_pow2 + 1991*M*r + 322*r_pow2) + L_pow2*r_pow4*(-1696*M_pow2 + 388*M*r + 511*r_pow2)) + a_pow4*r_pow8*(18*r_pow6*(-360*M_pow3 - 52*M_pow2*r + 142*M*r_pow2 + 35*r_pow3) + 6*L_pow6*(258*M_pow3 + 179*M_pow2*r - 393*M*r_pow2 + 45*r_pow3) + 2*L_pow4*r_pow2*(-10416*M_pow3 - 8040*M_pow2*r + 6719*M*r_pow2 + 633*r_pow3) + L_pow2*r_pow4*(-13264*M_pow3 - 624*M_pow2*r + 5406*M*r_pow2 + 1175*r_pow3)) + a_pow14*twoM_plus_r_pow2*(1152*M_pow5 + 3936*M_pow4*r + 4416*M_pow3*r_pow2 + 45*L_pow2*r_pow3 + 30*r_pow5 + 4*M_pow2*(229*L_pow2*r + 540*r_pow3) + 12*M*(41*L_pow2*r_pow2 + 38*r_pow4)) + a_pow6*r_pow5*(30*r_pow6*(-704*M_pow4 - 368*M_pow3*r + 348*M_pow2*r_pow2 + 248*M*r_pow3 + 35*r_pow4) + 6*L_pow6*(240*M_pow4 + 52*M_pow3*r - 245*M_pow2*r_pow2 - 255*M*r_pow3 + 61*r_pow4) + 4*L_pow4*r_pow2*(-980*M_pow4 - 8114*M_pow3*r - 1372*M_pow2*r_pow2 + 4033*M*r_pow3 + 356*r_pow4) + L_pow2*r_pow4*(-40064*M_pow4 - 23744*M_pow3*r + 21880*M_pow2*r_pow2 + 14648*M*r_pow3 + 1535*r_pow4)) + a_pow12*r*twoM_plus_r*(2*L_pow4*r*(206*M_pow2 + 291*M*r + 45*r_pow2) + 6*r*twoM_plus_r_pow3*(-136*M_pow3 + 124*M_pow2*r + 286*M*r_pow2 + 35*r_pow3) + L_pow2*(2880*M_pow5 + 3952*M_pow4*r + 11760*M_pow3*r_pow2 + 12256*M_pow2*r_pow3 + 3912*M*r_pow4 + 261*r_pow5)) + a_pow8*r_pow3*(30*r_pow5*twoM_plus_r_pow2*(-312*M_pow3 + 36*M_pow2*r + 214*M*r_pow2 + 35*r_pow3) - 3*L_pow6*(192*M_pow4 + 460*M_pow3*r + 350*M_pow2*r_pow2 + 62*M*r_pow3 - 71*r_pow4) + 2*L_pow4*r*(-3536*M_pow5 - 7376*M_pow4*r - 12540*M_pow3*r_pow2 + 868*M_pow2*r_pow3 + 4975*M*r_pow4 + 508*r_pow5) + L_pow2*r_pow3*(-42080*M_pow5 - 57040*M_pow4*r + 22688*M_pow3*r_pow2 + 52800*M_pow2*r_pow3 + 18550*M*r_pow4 + 1285*r_pow5)) + a_pow10*r_pow2*(9*L_pow6*r*(6*M_pow2 + 10*M*r + 5*r_pow2) + 90*r_pow3*twoM_plus_r_pow3*(-48*M_pow3 + 16*M_pow2*r + 50*M*r_pow2 + 7*r_pow3) + L_pow4*(-2880*M_pow5 - 6896*M_pow4*r - 6360*M_pow3*r_pow2 + 3564*M_pow2*r_pow3 + 3774*M*r_pow4 + 444*r_pow5) + L_pow2*r*(-8192*M_pow6 - 24384*M_pow5*r + 10416*M_pow4*r_pow2 + 63808*M_pow3*r_pow3 + 49008*M_pow2*r_pow4 + 12516*M*r_pow5 + 725*r_pow6))) - 2*a*E*M*(210*a_pow18*twoM_plus_r_pow6 + r_pow14*(L_pow8*(-3384*M_pow2 + 3594*M*r - 945*r_pow2) + 84*r_pow8*(6*M_pow2 - 7*M*r + 2*r_pow2) + 12*L_pow2*r_pow6*(208*M_pow2 - 206*M*r + 51*r_pow2) + 2*L_pow4*r_pow4*(3182*M_pow2 - 3367*M*r + 876*r_pow2) + L_pow6*r_pow2*(7588*M_pow2 - 7544*M*r + 1857*r_pow2)) + 6*a_pow16*r*twoM_plus_r_pow4*(L_pow2*(76*M + 73*r) - 14*(36*M_pow3 + 8*M_pow2*r - 49*M*r_pow2 - 22*r_pow3)) + a_pow2*r_pow11*(L_pow8*(-8388*M_pow3 + 162*M_pow2*r + 8412*M*r_pow2 - 3267*r_pow3) + 42*r_pow8*(144*M_pow3 - 80*M_pow2*r - 68*M*r_pow2 + 37*r_pow3) + 6*L_pow2*r_pow6*(3760*M_pow3 - 1416*M_pow2*r - 1982*M*r_pow2 + 867*r_pow3) + 4*L_pow6*r_pow2*(8990*M_pow3 - 917*M_pow2*r - 3929*M*r_pow2 + 1096*r_pow3) + 2*L_pow4*r_pow4*(13754*M_pow3 - 2593*M_pow2*r - 10583*M*r_pow2 + 4148*r_pow3)) + a_pow4*r_pow8*(168*r_pow8*(180*M_pow4 + 18*M_pow3*r - 177*M_pow2*r_pow2 - 6*M*r_pow3 + 38*r_pow4) + L_pow6*r_pow2*(35556*M_pow4 + 65244*M_pow3*r - 16947*M_pow2*r_pow2 - 20086*M*r_pow3 + 246*r_pow4) - 9*L_pow8*(1004*M_pow4 + 992*M_pow3*r - 1405*M_pow2*r_pow2 - 706*M*r_pow3 + 537*r_pow4) + 6*L_pow2*r_pow6*(14080*M_pow4 + 3752*M_pow3*r - 13884*M_pow2*r_pow2 - 1740*M*r_pow3 + 3093*r_pow4) + 2*L_pow4*r_pow4*(33764*M_pow4 + 22130*M_pow3*r - 28965*M_pow2*r_pow2 - 12311*M*r_pow3 + 8087*r_pow4)) + a_pow6*r_pow5*(168*r_pow8*(480*M_pow5 + 400*M_pow4*r - 560*M_pow3*r_pow2 - 399*M_pow2*r_pow3 + 140*M*r_pow4 + 91*r_pow5) - 3*L_pow8*(1920*M_pow5 + 1756*M_pow4*r - 2700*M_pow3*r_pow2 - 4599*M_pow2*r_pow3 + 290*M*r_pow4 + 1323*r_pow5) - 2*L_pow6*r_pow2*(3260*M_pow5 - 34420*M_pow4*r - 36739*M_pow3*r_pow2 + 12631*M_pow2*r_pow3 + 17083*M*r_pow4 + 3813*r_pow5) + 6*L_pow2*r_pow6*(28800*M_pow5 + 26400*M_pow4*r - 30800*M_pow3*r_pow2 - 27820*M_pow2*r_pow3 + 6870*M*r_pow4 + 6103*r_pow5) + 2*L_pow4*r_pow4*(77368*M_pow5 + 77968*M_pow4*r - 21056*M_pow3*r_pow2 - 56966*M_pow2*r_pow3 - 7335*M*r_pow4 + 8349*r_pow5)) - 2*a_pow14*twoM_plus_r_pow2*(L_pow4*r*(1832*M_pow3 + 1796*M_pow2*r + 633*M*r_pow2 + 39*r_pow3) - 84*r_pow2*twoM_plus_r_pow2*(16*M_pow4 - 16*M_pow3*r - 69*M_pow2*r_pow2 + 20*M*r_pow3 + 43*r_pow4) + 3*L_pow2*(384*M_pow6 + 2048*M_pow5*r + 3696*M_pow4*r_pow2 + 2568*M_pow3*r_pow3 - 1352*M_pow2*r_pow4 - 2278*M*r_pow5 - 653*r_pow6)) + a_pow8*r_pow3*(3*L_pow8*(384*M_pow5 + 1456*M_pow4*r + 2376*M_pow3*r_pow2 + 645*M_pow2*r_pow3 - 1204*M*r_pow4 - 594*r_pow5) + L_pow6*r*(11008*M_pow6 + 10904*M_pow5*r + 70684*M_pow4*r_pow2 + 41310*M_pow3*r_pow3 - 39720*M_pow2*r_pow4 - 37442*M*r_pow5 - 8369*r_pow6) + 840*r_pow7*(144*M_pow6 + 248*M_pow5*r - 136*M_pow4*r_pow2 - 322*M_pow3*r_pow3 - 35*M_pow2*r_pow4 + 91*M*r_pow5 + 28*r_pow6) + 30*L_pow2*r_pow5*(7168*M_pow6 + 10752*M_pow5*r - 5440*M_pow4*r_pow2 - 14928*M_pow3*r_pow3 - 2912*M_pow2*r_pow4 + 4064*M*r_pow5 + 1465*r_pow6) + 2*L_pow4*r_pow3*(89872*M_pow6 + 131896*M_pow5*r + 5144*M_pow4*r_pow2 - 93940*M_pow3*r_pow3 - 62628*M_pow2*r_pow4 - 4253*M*r_pow5 + 4826*r_pow6)) - a_pow12*r*twoM_plus_r*(L_pow6*r*(1648*M_pow3 + 4417*M_pow2*r + 2964*M*r_pow2 + 630*r_pow3) - 168*r_pow3*twoM_plus_r_pow2*(24*M_pow5 + 104*M_pow4*r - 112*M_pow3*r_pow2 - 231*M_pow2*r_pow3 + 70*M*r_pow4 + 98*r_pow5) + 2*L_pow4*(2880*M_pow6 + 3584*M_pow5*r + 15116*M_pow4*r_pow2 + 21344*M_pow3*r_pow3 + 12687*M_pow2*r_pow4 + 2795*M*r_pow5 - 99*r_pow6) - 6*L_pow2*r*(5120*M_pow7 + 7744*M_pow6*r - 6784*M_pow5*r_pow2 - 26496*M_pow4*r_pow3 - 17992*M_pow3*r_pow4 + 6296*M_pow2*r_pow5 + 9974*M*r_pow6 + 2527*r_pow7)) + a_pow10*r_pow2*(-9*L_pow8*r*(24*M_pow3 + 139*M_pow2*r + 134*M*r_pow2 + 36*r_pow3) + 84*r_pow5*twoM_plus_r_pow2*(288*M_pow5 + 576*M_pow4*r - 672*M_pow3*r_pow2 - 882*M_pow2*r_pow3 + 280*M*r_pow4 + 287*r_pow5) + 2*L_pow6*(2880*M_pow6 + 9472*M_pow5*r + 18124*M_pow4*r_pow2 + 957*M_pow3*r_pow3 - 15247*M_pow2*r_pow4 - 9707*M*r_pow5 - 1827*r_pow6) + 2*L_pow4*r*(22144*M_pow7 + 59824*M_pow6*r + 5448*M_pow5*r_pow2 - 90768*M_pow4*r_pow3 - 99678*M_pow3*r_pow4 - 42645*M_pow2*r_pow5 - 3821*M*r_pow6 + 1430*r_pow7) + 6*L_pow2*r_pow3*(27392*M_pow7 + 52096*M_pow6*r - 7776*M_pow5*r_pow2 - 89840*M_pow4*r_pow3 - 57040*M_pow3*r_pow4 + 16736*M_pow2*r_pow5 + 24078*M*r_pow6 + 5497*r_pow7))) + L*(24*a_pow18*M*twoM_plus_r_pow5*(35*M + 29*r) + 4*a_pow16*r*twoM_plus_r_pow3*(-3024*M_pow5 - 3880*M_pow4*r + 3028*M_pow3*r_pow2 + 5152*M_pow2*r_pow3 + 1541*M*r_pow4 + 9*r_pow5 + 12*L_pow2*M*(38*M_pow2 + 86*M*r + 31*r_pow2)) + r_pow14*(4*M*r_pow8*(210*M_pow2 - 211*M*r + 53*r_pow2) + L_pow6*r_pow2*(3660*M_pow3 - 6640*M_pow2*r + 3893*M*r_pow2 - 744*r_pow3) + L_pow4*r_pow4*(6378*M_pow3 - 9221*M_pow2*r + 4400*M*r_pow2 - 692*r_pow3) - 3*L_pow8*(702*M_pow3 - 925*M_pow2*r + 395*M*r_pow2 - 54*r_pow3) + 2*L_pow2*r_pow6*(1518*M_pow3 - 1513*M_pow2*r + 361*M*r_pow2 + 8*r_pow3)) + a_pow2*r_pow11*(L_pow4*r_pow4*(37010*M_pow4 - 15547*M_pow3*r - 24352*M_pow2*r_pow2 + 15714*M*r_pow3 - 2132*r_pow4) + L_pow6*r_pow2*(26240*M_pow4 - 26244*M_pow3*r + 804*M_pow2*r_pow2 + 6445*M*r_pow3 - 1791*r_pow4) - 3*L_pow8*(1194*M_pow4 + 1657*M_pow3*r - 3276*M_pow2*r_pow2 + 1202*M*r_pow3 - 63*r_pow4) + 4*r_pow8*(2178*M_pow4 - 83*M_pow3*r - 1776*M_pow2*r_pow2 + 625*M*r_pow3 + 6*r_pow4) + 2*L_pow2*r_pow6*(13218*M_pow4 + 7*M_pow3*r - 11737*M_pow2*r_pow2 + 4064*M*r_pow3 + 82*r_pow4)) + a_pow4*r_pow8*(L_pow4*r_pow4*(69244*M_pow5 + 72948*M_pow4*r - 112640*M_pow3*r_pow2 - 23028*M_pow2*r_pow3 + 31286*M*r_pow4 - 1869*r_pow5) + L_pow6*r_pow2*(36540*M_pow5 + 4540*M_pow4*r - 33785*M_pow3*r_pow2 + 16070*M_pow2*r_pow3 - 481*M*r_pow4 - 1017*r_pow5) - 9*L_pow8*(600*M_pow5 + 1452*M_pow4*r - 1071*M_pow3*r_pow2 - 1371*M_pow2*r_pow3 + 769*M*r_pow4 + 9*r_pow5) + 4*r_pow8*(9180*M_pow5 + 10792*M_pow4*r - 12068*M_pow3*r_pow2 - 4151*M_pow2*r_pow3 + 3152*M*r_pow4 + 45*r_pow5) + 2*L_pow2*r_pow6*(45024*M_pow5 + 52680*M_pow4*r - 64149*M_pow3*r_pow2 - 21934*M_pow2*r_pow3 + 17780*M*r_pow4 + 245*r_pow5)) + a_pow6*r_pow5*(L_pow4*r_pow4*(118968*M_pow6 + 161396*M_pow5*r - 86464*M_pow4*r_pow2 - 194102*M_pow3*r_pow3 + 25882*M_pow2*r_pow4 + 43397*M*r_pow5 + 4*r_pow6) - 3*L_pow8*(1920*M_pow6 + 2008*M_pow5*r - 1022*M_pow4*r_pow2 - 6255*M_pow3*r_pow3 - 403*M_pow2*r_pow4 + 2417*M*r_pow5 + 27*r_pow6) + 4*r_pow8*(19920*M_pow6 + 57240*M_pow5*r - 17530*M_pow4*r_pow2 - 47001*M_pow3*r_pow3 + 3076*M_pow2*r_pow4 + 8965*M*r_pow5 + 144*r_pow6) + L_pow6*r_pow2*(1320*M_pow6 + 24164*M_pow5*r + 1158*M_pow4*r_pow2 + 9429*M_pow3*r_pow3 + 3577*M_pow2*r_pow4 - 10411*M*r_pow5 + 255*r_pow6) + 2*L_pow2*r_pow6*(78384*M_pow6 + 197560*M_pow5*r - 85324*M_pow4*r_pow2 - 191546*M_pow3*r_pow3 + 19868*M_pow2*r_pow4 + 40529*M*r_pow5 + 275*r_pow6)) + a_pow8*r_pow3*(3*L_pow8*(256*M_pow6 + 1200*M_pow5*r + 2816*M_pow4*r_pow2 + 1697*M_pow3*r_pow3 - 1758*M_pow2*r_pow4 - 1178*M*r_pow5 + 9*r_pow6) + 2*L_pow2*r_pow5*(82848*M_pow7 + 296432*M_pow6*r + 31528*M_pow5*r_pow2 - 423200*M_pow4*r_pow3 - 161340*M_pow3*r_pow4 + 120395*M_pow2*r_pow5 + 53705*M*r_pow6 + 10*r_pow7) + L_pow6*r*(5248*M_pow7 - 18704*M_pow6*r + 24112*M_pow5*r_pow2 + 52224*M_pow4*r_pow3 + 11543*M_pow3*r_pow4 - 28151*M_pow2*r_pow5 - 14534*M*r_pow6 + 117*r_pow7) + 4*r_pow7*(23040*M_pow7 + 131120*M_pow6*r + 35480*M_pow5*r_pow2 - 140360*M_pow4*r_pow3 - 60550*M_pow3*r_pow4 + 32385*M_pow2*r_pow5 + 15884*M*r_pow6 + 255*r_pow7) + L_pow4*r_pow3*(179056*M_pow7 + 171472*M_pow6*r - 45660*M_pow5*r_pow2 - 229508*M_pow4*r_pow3 - 93782*M_pow3*r_pow4 + 72227*M_pow2*r_pow5 + 33720*M*r_pow6 + 286*r_pow7)) - a_pow14*twoM_plus_r*(L_pow4*M*r*(7328*M_pow4 + 10432*M_pow3*r + 5040*M_pow2*r_pow2 + 456*M*r_pow3 - 105*r_pow4) - 4*r_pow2*twoM_plus_r_pow2*(2688*M_pow6 + 1796*M_pow5*r - 13804*M_pow4*r_pow2 - 9119*M_pow3*r_pow3 + 8982*M_pow2*r_pow4 + 5827*M*r_pow5 + 60*r_pow6) + 6*L_pow2*(512*M_pow8 + 3712*M_pow7*r + 9280*M_pow6*r_pow2 + 14192*M_pow5*r_pow3 - 640*M_pow4*r_pow4 - 16048*M_pow3*r_pow5 - 10552*M_pow2*r_pow6 - 1965*M*r_pow7 + 15*r_pow8)) + a_pow10*r_pow2*(-9*L_pow8*M*r*(24*M_pow3 + 226*M_pow2*r + 277*M*r_pow2 + 87*r_pow3) + L_pow6*(3840*M_pow7 + 14144*M_pow6*r + 42864*M_pow5*r_pow2 + 21066*M_pow4*r_pow3 - 27909*M_pow3*r_pow4 - 31097*M_pow2*r_pow5 - 8626*M*r_pow6 - 108*r_pow7) + L_pow4*r*(48128*M_pow8 + 90816*M_pow7*r - 38936*M_pow6*r_pow2 - 135716*M_pow5*r_pow3 - 110018*M_pow4*r_pow4 + 3385*M_pow3*r_pow5 + 40884*M_pow2*r_pow6 + 10328*M*r_pow7 - 408*r_pow8) + 2*L_pow2*r_pow3*(65568*M_pow8 + 208944*M_pow7*r + 111648*M_pow6*r_pow2 - 411800*M_pow5*r_pow3 - 413654*M_pow4*r_pow4 + 71443*M_pow3*r_pow5 + 173447*M_pow2*r_pow6 + 43106*M*r_pow7 - 232*r_pow8) + 4*r_pow5*(12960*M_pow8 + 154448*M_pow7*r + 130016*M_pow6*r_pow2 - 192400*M_pow5*r_pow3 - 219890*M_pow4*r_pow4 + 10655*M_pow3*r_pow5 + 68054*M_pow2*r_pow6 + 18193*M*r_pow7 + 270*r_pow8)) - a_pow12*r*(L_pow6*M*r*(3296*M_pow4 + 13012*M_pow3*r + 15798*M_pow2*r_pow2 + 7995*M*r_pow3 + 1470*r_pow4) - 4*r_pow3*twoM_plus_r_pow2*(624*M_pow7 + 22192*M_pow6*r + 11164*M_pow5*r_pow2 - 52532*M_pow4*r_pow3 - 29996*M_pow3*r_pow4 + 21651*M_pow2*r_pow5 + 12776*M*r_pow6 + 171*r_pow7) + L_pow4*(7680*M_pow8 + 8576*M_pow7*r + 32608*M_pow6*r_pow2 + 58464*M_pow5*r_pow3 + 48848*M_pow4*r_pow4 + 12172*M_pow3*r_pow5 - 2190*M_pow2*r_pow6 - 138*M*r_pow7 + 261*r_pow8) - 2*L_pow2*r*(32256*M_pow9 + 65280*M_pow8*r + 30384*M_pow7*r_pow2 - 212064*M_pow6*r_pow3 - 354456*M_pow5*r_pow4 - 53224*M_pow4*r_pow5 + 193107*M_pow3*r_pow6 + 121548*M_pow2*r_pow7 + 20914*M*r_pow8 - 183*r_pow9))))*ur_pow6 + r_pow9*(-6*E_pow2*L*M*r*pow(r_pow3 + a_pow2*twoM_plus_r,4)*(4*a_pow10*twoM_plus_r_pow4*(6*M + r) + r_pow7*(-5*L_pow8 + 10*L_pow6*r_pow2 + 25*L_pow4*r_pow4 + 14*L_pow2*r_pow6 + 4*r_pow8) + 2*a_pow8*r*twoM_plus_r_pow3*(7*L_pow2*(6*M + r) + 2*r_pow2*(26*M + 5*r)) + a_pow6*r_pow2*twoM_plus_r_pow2*(56*L_pow2*r_pow2*(5*M + r) + 8*r_pow4*(22*M + 5*r) + L_pow4*(66*M + 13*r)) + a_pow2*r_pow4*(10*L_pow6*r_pow2*(M + r) + 56*L_pow2*r_pow6*(3*M + r) - L_pow8*(16*M + 3*r) + 4*r_pow8*(14*M + 5*r) + L_pow4*r_pow4*(166*M + 63*r)) + a_pow4*r_pow3*(-10*L_pow6*M*twoM_plus_r + 84*L_pow2*r_pow4*(8*M_pow2 + 6*M*r + r_pow2) + 8*r_pow6*(36*M_pow2 + 28*M*r + 5*r_pow2) + L_pow4*r_pow2*(364*M_pow2 + 284*M*r + 51*r_pow2))) - 2*a*E*M*(r_pow3 + a_pow2*twoM_plus_r)*(60*a_pow18*twoM_plus_r_pow7 + 6*a_pow16*r*twoM_plus_r_pow6*(45*L_pow2 - 32*M_pow2 + 20*M*r + 88*r_pow2) + 3*r_pow14*(L_pow2 + r_pow2)*(L_pow8*(158*M - 69*r) - 40*L_pow4*(4*M - r)*r_pow4 + 8*r_pow8*(-3*M + 2*r) + 4*L_pow2*r_pow6*(-29*M + 16*r) + L_pow6*r_pow2*(-602*M + 241*r)) + 2*a_pow2*r_pow11*(6*L_pow10*(57*M_pow2 + 62*M*r - 48*r_pow2) + 6*r_pow10*(-84*M_pow2 + 6*M*r + 37*r_pow2) + 3*L_pow2*r_pow8*(-888*M_pow2 - 20*M*r + 325*r_pow2) + L_pow8*r_pow2*(24*M_pow2 - 1334*M*r + 457*r_pow2) + 2*L_pow6*r_pow4*(-2619*M_pow2 - 1388*M*r + 880*r_pow2) + L_pow4*r_pow6*(-5004*M_pow2 - 1082*M*r + 1291*r_pow2)) + 2*a_pow14*r*twoM_plus_r_pow3*(5*L_pow4*r*(77*M_pow2 + 114*M*r + 36*r_pow2) - 3*L_pow2*twoM_plus_r_pow2*(96*M_pow3 + 208*M_pow2*r - 90*M*r_pow2 - 355*r_pow3) + 24*r_pow2*twoM_plus_r_pow2*(-6*M_pow3 - 30*M_pow2*r + 20*M*r_pow2 + 43*r_pow3)) + a_pow4*r_pow8*(3*L_pow10*(438*M_pow3 + 521*M_pow2*r + 16*M*r_pow2 - 225*r_pow3) + 96*r_pow10*(-63*M_pow3 - 35*M_pow2*r + 35*M*r_pow2 + 19*r_pow3) - 2*L_pow8*r_pow2*(-2970*M_pow3 + 21*M_pow2*r + 2564*M*r_pow2 + 73*r_pow3) + 18*L_pow2*r_pow8*(-1592*M_pow3 - 1016*M_pow2*r + 630*M*r_pow2 + 385*r_pow3) + 10*L_pow4*r_pow6*(-4518*M_pow3 - 3865*M_pow2*r + 770*M*r_pow2 + 845*r_pow3) + L_pow6*r_pow4*(-17730*M_pow3 - 30715*M_pow2*r - 3926*M*r_pow2 + 6012*r_pow3)) + 2*a_pow6*r_pow5*(L_pow8*r_pow2*(756*M_pow4 + 3102*M_pow3*r - 2573*M_pow2*r_pow2 - 3632*M*r_pow3 - 575*r_pow4) + 3*L_pow10*(128*M_pow4 + 217*M_pow3*r + 70*M_pow2*r_pow2 - 103*M*r_pow3 - 66*r_pow4) + 168*r_pow10*(-60*M_pow4 - 74*M_pow3*r + 18*M_pow2*r_pow2 + 46*M*r_pow3 + 13*r_pow4) + 15*L_pow2*r_pow8*(-2816*M_pow4 - 3616*M_pow3*r + 156*M_pow2*r_pow2 + 1568*M*r_pow3 + 469*r_pow4) + 3*L_pow6*r_pow4*(-3588*M_pow4 - 8589*M_pow3*r - 6453*M_pow2*r_pow2 + 73*M*r_pow3 + 901*r_pow4) + 5*L_pow4*r_pow6*(-10116*M_pow4 - 15562*M_pow3*r - 3475*M_pow2*r_pow2 + 3806*M*r_pow3 + 1458*r_pow4)) - a_pow12*r_pow2*twoM_plus_r_pow2*(L_pow6*r*(665*M_pow2 + 288*M*r - 60*r_pow2) + 6*L_pow2*r_pow2*twoM_plus_r_pow2*(856*M_pow3 + 1368*M_pow2*r - 630*M*r_pow2 - 1225*r_pow3) + 672*r_pow4*twoM_plus_r_pow2*(3*M_pow3 + 7*M_pow2*r - 5*M*r_pow2 - 7*r_pow3) + 2*L_pow4*(4032*M_pow5 + 7924*M_pow4*r + 5730*M_pow3*r_pow2 - 2571*M_pow2*r_pow3 - 4714*M*r_pow4 - 1341*r_pow5)) - 2*a_pow10*r_pow3*twoM_plus_r*(L_pow8*r*(419*M_pow2 + 438*M*r + 90*r_pow2) + 45*L_pow2*r_pow4*twoM_plus_r_pow2*(208*M_pow3 + 256*M_pow2*r - 126*M*r_pow2 - 161*r_pow3) + 84*r_pow6*twoM_plus_r_pow2*(36*M_pow3 + 52*M_pow2*r - 40*M*r_pow2 - 41*r_pow3) + L_pow4*r_pow2*(22104*M_pow5 + 49832*M_pow4*r + 33304*M_pow3*r_pow2 - 8982*M_pow2*r_pow3 - 16484*M*r_pow4 - 4231*r_pow5) + L_pow6*(3168*M_pow5 + 4382*M_pow4*r + 4395*M_pow3*r_pow2 + 3425*M_pow2*r_pow3 + 349*M*r_pow4 - 345*r_pow5)) - a_pow8*r_pow4*(9*L_pow10*r*(27*M_pow2 + 32*M*r + 10*r_pow2) + 30*L_pow2*r_pow6*twoM_plus_r_pow2*(1224*M_pow3 + 1192*M_pow2*r - 630*M*r_pow2 - 595*r_pow3) + 1680*r_pow8*twoM_plus_r_pow2*(6*M_pow3 + 6*M_pow2*r - 5*M*r_pow2 - 4*r_pow3) + L_pow6*r_pow2*(25704*M_pow5 + 50044*M_pow4*r + 54898*M_pow3*r_pow2 + 25148*M_pow2*r_pow3 - 1828*M*r_pow4 - 2701*r_pow5) + 20*L_pow4*r_pow4*(6228*M_pow5 + 13840*M_pow4*r + 8338*M_pow3*r_pow2 - 1807*M_pow2*r_pow3 - 3103*M*r_pow4 - 727*r_pow5) + L_pow8*(-960*M_pow5 - 3928*M_pow4*r - 1692*M_pow3*r_pow2 + 6094*M_pow2*r_pow3 + 4708*M*r_pow4 + 786*r_pow5))) + L*(60*a_pow20*M*twoM_plus_r_pow7*(4*M + 9*r) + 6*a_pow18*M*r*twoM_plus_r_pow5*(-256*M_pow4 - 976*M_pow3*r + 568*M_pow2*r_pow2 + 2152*M*r_pow3 + 828*r_pow4 + L_pow2*(360*M_pow2 + 778*M*r + 331*r_pow2)) + a_pow2*r_pow14*(-24*M*r_pow10*(102*M_pow2 + 64*M*r - 63*r_pow2) + L_pow8*r_pow2*(-5116*M_pow3 + 1640*M_pow2*r + 2157*M*r_pow2 - 1041*r_pow3) - 6*L_pow4*r_pow6*(2440*M_pow3 + 2174*M_pow2*r - 2036*M*r_pow2 + 33*r_pow3) + 3*L_pow10*(196*M_pow3 + 726*M_pow2*r - 521*M*r_pow2 + 33*r_pow3) + 2*L_pow2*r_pow8*(-4328*M_pow3 - 4136*M_pow2*r + 3213*M*r_pow2 + 228*r_pow3) - 3*L_pow6*r_pow4*(5504*M_pow3 + 1886*M_pow2*r - 3872*M*r_pow2 + 697*r_pow3)) - a_pow4*r_pow11*(12*M*r_pow10*(840*M_pow3 + 2244*M_pow2*r - 274*M*r_pow2 - 729*r_pow3) + 9*L_pow10*(10*M_pow4 - 751*M_pow3*r - 131*M_pow2*r_pow2 + 381*M*r_pow3 - r_pow4) + 2*L_pow4*r_pow6*(20010*M_pow4 + 68015*M_pow3*r - 5008*M_pow2*r_pow2 - 24894*M*r_pow3 + 90*r_pow4) - 8*L_pow2*r_pow8*(-3702*M_pow4 - 12519*M_pow3*r + 1004*M_pow2*r_pow2 + 4398*M*r_pow3 + 111*r_pow4) + L_pow8*r_pow2*(2076*M_pow4 + 2680*M_pow3*r - 2817*M_pow2*r_pow2 + 465*M*r_pow3 + 717*r_pow4) + L_pow6*r_pow4*(30870*M_pow4 + 76613*M_pow3*r - 10882*M_pow2*r_pow2 - 27324*M*r_pow3 + 2304*r_pow4)) + a_pow6*r_pow8*(-96*M*r_pow10*(126*M_pow4 + 1526*M_pow3*r + 742*M_pow2*r_pow2 - 580*M*r_pow3 - 297*r_pow4) + 3*L_pow10*(448*M_pow5 + 2232*M_pow4*r + 2199*M_pow3*r_pow2 - 1441*M_pow2*r_pow3 - 1257*M*r_pow4 - 9*r_pow5) + L_pow8*r_pow2*(2804*M_pow5 + 16000*M_pow4*r + 4001*M_pow3*r_pow2 - 8611*M_pow2*r_pow3 - 4351*M*r_pow4 + 85*r_pow5) + 8*L_pow2*r_pow8*(-4864*M_pow5 - 55208*M_pow4*r - 28305*M_pow3*r_pow2 + 22476*M_pow2*r_pow3 + 12206*M*r_pow4 + 85*r_pow5) + 2*L_pow4*r_pow6*(-38088*M_pow5 - 241508*M_pow4*r - 129457*M_pow3*r_pow2 + 97343*M_pow2*r_pow3 + 56367*M*r_pow4 + 90*r_pow5) - L_pow6*r_pow4*(39732*M_pow5 + 183628*M_pow4*r + 106984*M_pow3*r_pow2 - 71137*M_pow2*r_pow3 - 44400*M*r_pow4 + 426*r_pow5)) + a_pow8*r_pow5*(3*L_pow10*M*(512*M_pow5 + 1128*M_pow4*r + 1562*M_pow3*r_pow2 - 473*M_pow2*r_pow3 - 1767*M*r_pow4 - 644*r_pow5) + 168*M*r_pow10*(240*M_pow5 - 2392*M_pow4*r - 2952*M_pow3*r_pow2 + 296*M_pow2*r_pow3 + 1274*M*r_pow4 + 351*r_pow5) + 4*L_pow2*r_pow8*(2000*M_pow6 - 260200*M_pow5*r - 307540*M_pow4*r_pow2 + 40290*M_pow3*r_pow3 + 147102*M_pow2*r_pow4 + 41349*M*r_pow5 - 30*r_pow6) + L_pow8*r_pow2*(-6344*M_pow6 + 28132*M_pow5*r + 31518*M_pow4*r_pow2 - 16727*M_pow3*r_pow3 - 25781*M_pow2*r_pow4 - 6675*M*r_pow5 + 162*r_pow6) + 2*L_pow4*r_pow6*(-64320*M_pow6 - 468464*M_pow5*r - 513096*M_pow4*r_pow2 + 64482*M_pow3*r_pow3 + 257851*M_pow2*r_pow4 + 76845*M*r_pow5 + 225*r_pow6) + L_pow6*r_pow4*(-58728*M_pow6 - 205980*M_pow5*r - 238752*M_pow4*r_pow2 + 6230*M_pow3*r_pow3 + 120858*M_pow2*r_pow4 + 42027*M*r_pow5 + 726*r_pow6)) + 2*a_pow16*M*r*twoM_plus_r_pow3*(L_pow4*r*(1540*M_pow3 + 5702*M_pow2*r + 4707*M*r_pow2 + 1152*r_pow3) + 6*r_pow2*twoM_plus_r_pow2*(192*M_pow4 - 768*M_pow3*r - 1696*M_pow2*r_pow2 + 1300*M*r_pow3 + 1701*r_pow4) + L_pow2*(-2304*M_pow6 - 10752*M_pow5*r - 23824*M_pow4*r_pow2 + 6624*M_pow3*r_pow3 + 52032*M_pow2*r_pow4 + 39040*M*r_pow5 + 8529*r_pow6)) + a_pow14*r_pow2*twoM_plus_r_pow2*(L_pow6*M*r*(-2660*M_pow3 - 1396*M_pow2*r + 681*M*r_pow2 + 396*r_pow3) + 96*M*r_pow4*twoM_plus_r_pow2*(150*M_pow4 - 466*M_pow3*r - 742*M_pow2*r_pow2 + 484*M*r_pow3 + 513*r_pow4) - 2*L_pow4*M*(8064*M_pow6 + 18256*M_pow5*r + 31868*M_pow4*r_pow2 - 1428*M_pow3*r_pow3 - 52907*M_pow2*r_pow4 - 41491*M*r_pow5 - 9339*r_pow6) - 8*L_pow2*r_pow2*(1856*M_pow7 + 23136*M_pow6*r + 50588*M_pow5*r_pow2 + 6724*M_pow4*r_pow3 - 51189*M_pow3*r_pow4 - 38264*M_pow2*r_pow5 - 7944*M*r_pow6 + 9*r_pow7)) - a_pow12*r_pow3*twoM_plus_r*(L_pow8*M*r*(3352*M_pow3 + 6917*M_pow2*r + 4320*M*r_pow2 + 876*r_pow3) - 168*M*r_pow6*twoM_plus_r_pow2*(216*M_pow4 - 712*M_pow3*r - 848*M_pow2*r_pow2 + 524*M*r_pow3 + 459*r_pow4) + L_pow6*M*(12672*M_pow6 + 13552*M_pow5*r + 17492*M_pow4*r_pow2 + 19168*M_pow3*r_pow3 - 4947*M_pow2*r_pow4 - 13618*M*r_pow5 - 4122*r_pow6) + 2*L_pow4*r_pow2*(34224*M_pow7 + 150224*M_pow6*r + 253920*M_pow5*r_pow2 + 43660*M_pow4*r_pow3 - 206137*M_pow3*r_pow4 - 155822*M_pow2*r_pow5 - 32796*M*r_pow6 - 36*r_pow7) + 8*L_pow2*r_pow4*(-688*M_pow7 + 86208*M_pow6*r + 180664*M_pow5*r_pow2 + 43216*M_pow4*r_pow3 - 116443*M_pow3*r_pow4 - 85900*M_pow2*r_pow5 - 16938*M*r_pow6 + 43*r_pow7)) - a_pow10*r_pow4*(9*L_pow10*M*r*(108*M_pow3 + 277*M_pow2*r + 203*M*r_pow2 + 46*r_pow3) - 336*M*r_pow8*twoM_plus_r_pow2*(132*M_pow4 - 588*M_pow3*r - 530*M_pow2*r_pow2 + 332*M*r_pow3 + 243*r_pow4) + L_pow8*M*(-1920*M_pow6 - 12832*M_pow5*r - 24600*M_pow4*r_pow2 + 9160*M_pow3*r_pow3 + 38353*M_pow2*r_pow4 + 23297*M*r_pow5 + 4398*r_pow6) + L_pow6*r_pow2*(59760*M_pow7 + 126304*M_pow6*r + 175180*M_pow5*r_pow2 + 74724*M_pow4*r_pow3 - 82384*M_pow3*r_pow4 - 82552*M_pow2*r_pow5 - 19980*M*r_pow6 - 333*r_pow7) + 2*L_pow4*r_pow4*(81888*M_pow7 + 530656*M_pow6*r + 843784*M_pow5*r_pow2 + 200552*M_pow4*r_pow3 - 442566*M_pow3*r_pow4 - 325084*M_pow2*r_pow5 - 64602*M*r_pow6 - 153*r_pow7) + 12*L_pow2*r_pow6*(-4928*M_pow7 + 124096*M_pow6*r + 239192*M_pow5*r_pow2 + 63800*M_pow4*r_pow3 - 113570*M_pow3*r_pow4 - 81504*M_pow2*r_pow5 - 15287*M*r_pow6 + 46*r_pow7)) + r_pow17*(L_pow2 + r_pow2)*(108*M*r_pow8*r_minus_twoM + L_pow6*r_pow2*(-1742*M_pow2 + 1811*M*r - 464*r_pow2) + L_pow8*(510*M_pow2 - 387*M*r + 63*r_pow2) - 2*L_pow4*r_pow4*(782*M_pow2 - 554*M*r + 71*r_pow2) + L_pow2*(-716*M_pow2*r_pow6 + 206*M*r_pow7 + 88*r_pow8))))*ur_pow8 + 3*L*r_pow12*(r_pow3 + a_pow2*twoM_plus_r)*(40*a_pow16*M*twoM_plus_r_pow6 + r_pow14*(10*L_pow6*(8*M - 3*r)*r_pow2 + 28*L_pow2*M*r_pow6 + 8*M*r_pow8 + L_pow8*(-16*M + 3*r) + 2*L_pow4*r_pow4*(13*M + 6*r)) + 4*a_pow14*M*r*twoM_plus_r_pow5*(35*L_pow2 + 8*(-2*M_pow2 + 2*M*r + 9*r_pow2)) + a_pow2*r_pow11*(32*M*r_pow8*(2*M + 3*r) + 28*L_pow2*M*r_pow6*(6*M + 11*r) + L_pow8*(30*M_pow2 - 77*M*r + 3*r_pow2) - 10*L_pow6*r_pow2*(8*M_pow2 - 21*M*r + 6*r_pow2) + 4*L_pow4*r_pow4*(26*M_pow2 + 98*M*r + 9*r_pow2)) + 2*a_pow12*M*r_pow2*twoM_plus_r_pow2*(-14*L_pow2*twoM_plus_r_pow2*(8*M_pow2 - 8*M*r - 31*r_pow2) + 16*r_pow2*twoM_plus_r_pow2*(-11*M_pow2 + 13*M*r + 28*r_pow2) + L_pow4*(182*M_pow2 + 224*M*r + 65*r_pow2)) + a_pow4*r_pow8*(140*L_pow2*M*r_pow7*(16*M + 9*r) + L_pow8*M*(78*M_pow2 - 107*M*r - 145*r_pow2) + 32*M*r_pow8*(3*M_pow2 + 27*M*r + 14*r_pow2) - 30*L_pow6*r_pow2*(14*M_pow3 - M_pow2*r - 12*M*r_pow2 + r_pow3) + 2*L_pow4*r_pow4*(-212*M_pow3 + 926*M_pow2*r + 653*M*r_pow2 + 18*r_pow3)) - 2*a_pow10*M*r_pow3*twoM_plus_r*(15*L_pow6*M*(3*M + 2*r) - 16*r_pow4*twoM_plus_r_pow2*(-24*M_pow2 + 36*M*r + 49*r_pow2) - 14*L_pow2*r_pow2*twoM_plus_r_pow2*(-36*M_pow2 + 44*M*r + 81*r_pow2) + 2*L_pow4*(100*M_pow4 - 733*M_pow2*r_pow2 - 731*M*r_pow3 - 187*r_pow4)) + a_pow6*r_pow5*(L_pow8*M*(70*M_pow3 - 35*M_pow2*r - 227*M*r_pow2 - 108*r_pow3) - 140*L_pow2*M*r_pow6*(16*M_pow3 - 40*M_pow2*r - 62*M*r_pow2 - 19*r_pow3) - 160*M*r_pow8*(4*M_pow3 - 18*M_pow2*r - 24*M*r_pow2 - 7*r_pow3) + 10*L_pow6*M*r_pow2*(22*M_pow3 - 21*M_pow2*r + 24*M*r_pow2 + 29*r_pow3) + 4*L_pow4*r_pow4*(-578*M_pow4 + 585*M_pow3*r + 1433*M_pow2*r_pow2 + 507*M*r_pow3 + 3*r_pow4)) + a_pow8*M*r_pow4*(-3*L_pow8*(33*M_pow2 + 36*M*r + 10*r_pow2) + 80*r_pow6*twoM_plus_r_pow2*(-10*M_pow2 + 22*M*r + 21*r_pow2) + 140*L_pow2*r_pow4*twoM_plus_r_pow2*(-12*M_pow2 + 20*M*r + 23*r_pow2) + 10*L_pow6*(20*M_pow4 - 36*M_pow2*r_pow2 - 5*M*r_pow3 + 6*r_pow4) + 2*L_pow4*r_pow2*(-1456*M_pow4 + 8*M_pow3*r + 4386*M_pow2*r_pow2 + 3718*M*r_pow3 + 853*r_pow4)))*ur_pow10))/(48.*pow(a_pow2 + r*r_minus_twoM,9)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),8));
A9000 = (r_pow2*(4*a*E*L*M*pow(a_pow2 + r*r_minus_twoM,4)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),9)*(9*a_pow4 + a_pow2*r*(-26*M + 21*r) + 4*r_pow2*(2*M_pow2 - 6*M*r + 3*r_pow2)) - 2*E_pow2*M*pow(a_pow2 + r*r_minus_twoM,4)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),9)*(9*a_pow6 - 26*a_pow4*(M - r)*r - 8*M*r_pow5 + 6*r_pow6 + a_pow2*r_pow2*(8*M_pow2 - 38*M*r + 23*r_pow2)) - 2*pow(a_pow2 + r*r_minus_twoM,4)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),9)*(3*a_pow6*r + a_pow4*(9*L_pow2*M + r_pow2*(-17*M + 9*r)) + M*r_pow2*(L_pow2*(8*M_pow2 - 10*M*r + 3*r_pow2) - 2*r_pow2*(5*M_pow2 - 7*M*r + 3*r_pow2)) + a_pow2*r*(2*L_pow2*M*(-13*M + 8*r) + r_pow2*(30*M_pow2 - 35*M*r + 12*r_pow2))) + r_pow2*pow(a_pow2 + r*r_minus_twoM,3)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),7)*(18*a_pow10*(3*E_pow2*M - r)*twoM_plus_r_pow2 + 24*a_pow9*E*L*M*twoM_plus_r*(3*(-3 + E_pow2)*M + r) + 4*a*E*L*M*r_pow6*(M*r_pow2*(67*M + 6*(-5 + 9*E_pow2)*r) + 2*L_pow2*(50*M_pow2 - 4*M*r - 9*r_pow2)) + M*r_pow6*(L_pow4*(27*M_pow2 - 20*M*r + 4*r_pow2) + 4*r_pow4*(15*M_pow2 - (21 + 10*E_pow2)*M*r + 3*(3 + E_pow2)*r_pow2) + L_pow2*r_pow2*(99*M_pow2 - 2*(55 + 68*E_pow2)*M*r + 2*(20 + 31*E_pow2)*r_pow2)) + 4*a_pow7*E*L*M*(3*L_pow2*(36*M_pow2 - 2*M*r - r_pow2) + r*(16*(14 + 3*E_pow2)*M_pow3 + 4*(-46 + 57*E_pow2)*M_pow2*r + 40*(-4 + 3*E_pow2)*M*r_pow2 + 27*r_pow3)) + 4*a_pow3*E*L*M*r_pow3*(r_pow2*(94*M_pow3 + 4*(47 + 27*E_pow2)*M_pow2*r + 2*(-83 + 96*E_pow2)*M*r_pow2 + 21*r_pow3) - L_pow2*(64*M_pow3 - 554*M_pow2*r + 86*M*r_pow2 + 33*r_pow3)) + 4*a_pow5*E*L*M*r*(2*L_pow2*(72*M_pow3 + 229*M_pow2*r - 54*M*r_pow2 - 15*r_pow3) + r*(-80*M_pow4 + 322*M_pow3*r + 3*(7 + 100*E_pow2)*M_pow2*r_pow2 + 2*(-121 + 120*E_pow2)*M*r_pow3 + 42*r_pow4)) - a_pow2*r_pow3*(L_pow4*(-128*M_pow4 + 680*M_pow3*r - 291*M_pow2*r_pow2 - 20*M*r_pow3 + 12*r_pow4) + 2*r_pow4*(-120*M_pow4 + 12*(9 + 5*E_pow2)*M_pow3*r + 6*(17 + 14*E_pow2)*M_pow2*r_pow2 - 47*(3 + E_pow2)*M*r_pow3 + 36*r_pow4) + L_pow2*r_pow2*(70*M_pow4 + (179 + 820*E_pow2)*M_pow3*r + (99 + 644*E_pow2)*M_pow2*r_pow2 - 2*(117 + 113*E_pow2)*M*r_pow3 + 72*r_pow4)) - a_pow4*r*(L_pow4*(192*M_pow4 + 460*M_pow3*r - 356*M_pow2*r_pow2 + 35*M*r_pow3 + 12*r_pow4) + 6*r_pow3*(-40*M_pow5 + 16*M_pow4*r + 2*(71 + 48*E_pow2)*M_pow3*r_pow2 + 2*(-45 + 8*E_pow2)*M_pow2*r_pow3 - (45 + 44*E_pow2)*M*r_pow4 + 33*r_pow5) + L_pow2*r*(-160*M_pow5 + 8*(113 - 16*E_pow2)*M_pow4*r + 4*(-53 + 684*E_pow2)*M_pow3*r_pow2 + 3*(-109 + 256*E_pow2)*M_pow2*r_pow3 - (93 + 278*E_pow2)*M*r_pow4 + 120*r_pow5)) - a_pow8*(3*L_pow2*(72*(-1 + 2*E_pow2)*M_pow3 - 4*(-3 + E_pow2)*M*r_pow2 + 3*r_pow3 + 16*M_pow2*(r + 2*E_pow2*r)) + 2*r*twoM_plus_r*(2*E_pow2*M*(56*M_pow2 - 28*M*r - 55*r_pow2) + 3*r*(-34*M_pow2 + M*r + 15*r_pow2))) - a_pow6*(3*L_pow4*(48*M_pow3 - 16*M_pow2*r - 3*r_pow3) + L_pow2*r*(64*(7 + 9*E_pow2)*M_pow4 + 4*(-184 + 571*E_pow2)*M_pow3*r + 2*(-53 + 202*E_pow2)*M_pow2*r_pow2 + (71 - 126*E_pow2)*M*r_pow3 + 57*r_pow4) + 2*r_pow2*(3*r*(120*M_pow4 - 20*M_pow3*r - 130*M_pow2*r_pow2 + 15*M*r_pow3 + 33*r_pow4) - 2*E_pow2*M*(40*M_pow4 - 96*M_pow3*r - 168*M_pow2*r_pow2 + 92*M*r_pow3 + 87*r_pow4))))*ur_pow2 + r_pow4*pow(a_pow2 + r*r_minus_twoM,2)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),5)*(24*a_pow13*E*L*M*((-37 + 3*E_pow2)*M - 15*r)*twoM_plus_r_pow3 + 6*a_pow14*(37*E_pow2*M - 3*r)*twoM_plus_r_pow4 + 2*a*E*L*M*r_pow10*(L_pow2*r_pow2*(-463*M_pow2 + 4*(367 + 54*E_pow2)*M*r - 630*r_pow2) + 4*r_pow4*(-11*M_pow2 + 3*(33 + 14*E_pow2)*M*r - 48*r_pow2) - 3*L_pow4*(257*M_pow2 - 536*M*r + 204*r_pow2)) + 2*a_pow11*E*L*M*twoM_plus_r*(L_pow2*(432*M_pow3 + 36*(-20 + 3*E_pow2)*M_pow2*r + 2*(-707 + 36*E_pow2)*M*r_pow2 - 381*r_pow3) + 4*r*twoM_plus_r*((524 + 84*E_pow2)*M_pow3 + 2*(22 + 87*E_pow2)*M_pow2*r + (-700 + 93*E_pow2)*M*r_pow2 - 264*r_pow3)) + r_pow10*(4*M*r_pow6*(15*M_pow2 - (21 + 44*E_pow2)*M*r + 3*(3 + 7*E_pow2)*r_pow2) + 2*L_pow2*M*r_pow4*(249*M_pow2 - (267 + 290*E_pow2)*M*r + (81 + 143*E_pow2)*r_pow2) + L_pow6*(628*M_pow3 - 835*M_pow2*r + 366*M*r_pow2 - 52*r_pow3) + L_pow4*r_pow2*(970*M_pow3 - 3*(367 + 140*E_pow2)*M_pow2*r + 4*(95 + 51*E_pow2)*M*r_pow2 - 30*r_pow3)) + 2*a_pow3*E*L*M*r_pow7*(L_pow2*r_pow2*(-4836*M_pow3 + 3*(2615 - 36*E_pow2)*M_pow2*r + 2*(1033 + 504*E_pow2)*M*r_pow2 - 2680*r_pow3) + 4*r_pow4*(-154*M_pow3 + 2*(389 + 141*E_pow2)*M_pow2*r + (98 + 225*E_pow2)*M*r_pow2 - 270*r_pow3) - 2*L_pow4*(2151*M_pow3 - 2472*M_pow2*r - 877*M*r_pow2 + 716*r_pow3)) - a_pow2*r_pow7*(L_pow6*(-3458*M_pow4 + 3503*M_pow3*r + 685*M_pow2*r_pow2 - 830*M*r_pow3 + 20*r_pow4) + 4*L_pow2*r_pow4*(-778*M_pow4 + (444 + 551*E_pow2)*M_pow3*r + 9*(51 + 86*E_pow2)*M_pow2*r_pow2 - 3*(109 + 157*E_pow2)*M*r_pow3 + 33*r_pow4) + 2*r_pow6*(-240*M_pow4 + 8*(27 + 77*E_pow2)*M_pow3*r + 2*(57 + 181*E_pow2)*M_pow2*r_pow2 - (177 + 361*E_pow2)*M*r_pow3 + 36*r_pow4) + L_pow4*r_pow2*(-6030*M_pow4 + (4527 - 960*E_pow2)*M_pow3*r + 2*(1211 + 2028*E_pow2)*M_pow2*r_pow2 - 2*(917 + 552*E_pow2)*M*r_pow3 + 106*r_pow4)) - 2*a_pow5*E*L*M*r_pow4*(4*r_pow4*(660*M_pow4 - 6*(349 + 114*E_pow2)*M_pow3*r - 2*(1013 + 615*E_pow2)*M_pow2*r_pow2 + (877 - 489*E_pow2)*M*r_pow3 + 651*r_pow4) + L_pow4*(1920*M_pow4 - 798*M_pow3*r - 7459*M_pow2*r_pow2 + 604*M*r_pow3 + 1575*r_pow4) + L_pow2*r_pow2*(9324*M_pow4 + 24*(-389 + 45*E_pow2)*M_pow3*r - (20207 + 1368*E_pow2)*M_pow2*r_pow2 + 2*(1961 - 900*E_pow2)*M*r_pow3 + 4795*r_pow4)) + 2*a_pow7*E*L*M*r_pow2*(4*L_pow4*(432*M_pow4 + 1088*M_pow3*r + 580*M_pow2*r_pow2 - 528*M*r_pow3 - 239*r_pow4) + L_pow2*r*(-3008*M_pow5 + 5516*M_pow4*r + 4*(7703 + 234*E_pow2)*M_pow3*r_pow2 + 21*(559 + 144*E_pow2)*M_pow2*r_pow3 + 378*(-29 + 4*E_pow2)*M*r_pow4 - 4451*r_pow5) + 8*r_pow3*(-572*M_pow5 + 12*(92 + 29*E_pow2)*M_pow4*r + 3*(953 + 384*E_pow2)*M_pow3*r_pow2 + (173 + 1026*E_pow2)*M_pow2*r_pow3 + 21*(-63 + 13*E_pow2)*M*r_pow4 - 429*r_pow5)) - a_pow4*r_pow4*(L_pow6*(-1920*M_pow5 + 108*M_pow4*r + 6069*M_pow3*r_pow2 - 1128*M_pow2*r_pow3 - 1130*M*r_pow4 + 19*r_pow5) + 2*r_pow6*(-720*M_pow5 + 32*(9 + 44*E_pow2)*M_pow4*r + 4*(279 + 880*E_pow2)*M_pow3*r_pow2 - 6*(110 + 63*E_pow2)*M_pow2*r_pow3 - (291 + 1286*E_pow2)*M*r_pow4 + 171*r_pow5) + L_pow4*r_pow2*(-12180*M_pow5 - 8*(-460 + 867*E_pow2)*M_pow4*r + 4*(4132 + 2193*E_pow2)*M_pow3*r_pow2 + (-2653 + 5748*E_pow2)*M_pow2*r_pow3 - 2*(1781 + 1128*E_pow2)*M*r_pow4 + 197*r_pow5) + 2*L_pow2*r_pow4*(-3588*M_pow5 + 48*(12 + 19*E_pow2)*M_pow4*r + 2*(2731 + 4410*E_pow2)*M_pow3*r_pow2 + 6*(-133 + 354*E_pow2)*M_pow2*r_pow3 - (1410 + 2533*E_pow2)*M*r_pow4 + 237*r_pow5)) + 2*a_pow9*E*L*M*r*(L_pow4*(648*M_pow3 - 88*M_pow2*r - 670*M*r_pow2 - 201*r_pow3) + L_pow2*(4032*M_pow5 + 48*(295 + 12*E_pow2)*M_pow4*r + 8*(1808 + 207*E_pow2)*M_pow3*r_pow2 + 4*(-1081 + 450*E_pow2)*M_pow2*r_pow3 + 2*(-4309 + 288*E_pow2)*M*r_pow4 - 2087*r_pow5) - 4*r*twoM_plus_r*(352*M_pow5 - 12*(43 + 10*E_pow2)*M_pow4*r - 4*(677 + 192*E_pow2)*M_pow3*r_pow2 - 3*(67 + 316*E_pow2)*M_pow2*r_pow3 + (1849 - 324*E_pow2)*M*r_pow4 + 648*r_pow5)) + a_pow6*r_pow2*(-(L_pow6*(1152*M_pow5 + 2696*M_pow4*r + 1476*M_pow3*r_pow2 - 2100*M_pow2*r_pow3 - 609*M*r_pow4 + 33*r_pow5)) + 2*r_pow5*(960*M_pow6 + 32*(3 - 22*E_pow2)*M_pow5*r - 144*(20 + 63*E_pow2)*M_pow4*r_pow2 - 8*(-42 + 667*E_pow2)*M_pow3*r_pow3 + 12*(149 + 355*E_pow2)*M_pow2*r_pow4 + (-174 + 2485*E_pow2)*M*r_pow5 - 333*r_pow6) + L_pow4*r*(3968*M_pow6 + 40*(29 + 48*E_pow2)*M_pow5*r - 2*(12833 + 1680*E_pow2)*M_pow4*r_pow2 - (8431 + 13684*E_pow2)*M_pow3*r_pow3 + 2*(4957 - 866*E_pow2)*M_pow2*r_pow4 + (3275 + 2184*E_pow2)*M*r_pow5 - 178*r_pow6) + 8*L_pow2*r_pow3*(912*M_pow6 + 2*(33 + 37*E_pow2)*M_pow5*r - (2823 + 3914*E_pow2)*M_pow4*r_pow2 - 9*(100 + 499*E_pow2)*M_pow3*r_pow3 + 10*(117 + 25*E_pow2)*M_pow2*r_pow4 + (339 + 893*E_pow2)*M*r_pow5 - 81*r_pow6)) + a_pow8*r*(L_pow6*(-432*M_pow4 + 340*M_pow3*r + 848*M_pow2*r_pow2 + 249*M*r_pow3 + 18*r_pow4) + 4*r_pow3*twoM_plus_r*(120*M_pow6 + 4*(3 + 88*E_pow2)*M_pow5*r - 6*(135 + 404*E_pow2)*M_pow4*r_pow2 + (117 - 2632*E_pow2)*M_pow3*r_pow3 + (711 + 1720*E_pow2)*M_pow2*r_pow4 + (-78 + 1415*E_pow2)*M*r_pow5 - 171*r_pow6) - L_pow4*(2688*M_pow6 + 48*(209 + 72*E_pow2)*M_pow5*r + 8*(1494 + 1165*E_pow2)*M_pow4*r_pow2 + 76*(-77 + 89*E_pow2)*M_pow3*r_pow3 - 2*(3993 + 364*E_pow2)*M_pow2*r_pow4 - 12*(134 + 83*E_pow2)*M*r_pow5 + 39*r_pow6) + 2*L_pow2*r*(1408*M_pow7 + 64*E_pow2*M_pow6*r - 12*(937 + 1060*E_pow2)*M_pow5*r_pow2 - 8*(1049 + 3474*E_pow2)*M_pow4*r_pow3 + (5265 - 12496*E_pow2)*M_pow3*r_pow4 + 45*(125 + 102*E_pow2)*M_pow2*r_pow5 + 3*(239 + 931*E_pow2)*M*r_pow6 - 210*r_pow7)) - 2*a_pow12*twoM_plus_r_pow2*(3*L_pow2*(4*(-37 + 18*E_pow2)*M_pow3 - 60*(2 + E_pow2)*M_pow2*r - 5*(4 + 13*E_pow2)*M*r_pow2 + 3*r_pow3) + r*twoM_plus_r*(2*E_pow2*M*(262*M_pow2 - 131*M*r - 353*r_pow2) + 3*r*(-34*M_pow2 + M*r + 21*r_pow2))) + a_pow10*(L_pow4*(-576*M_pow5 - 144*(-10 + 9*E_pow2)*M_pow4*r + 4*(1024 - 167*E_pow2)*M_pow3*r_pow2 + 2*(1177 + 174*E_pow2)*M_pow2*r_pow3 + 21*(21 + 8*E_pow2)*M*r_pow4 + 18*r_pow5) - 4*L_pow2*r*twoM_plus_r*(8*(131 + 126*E_pow2)*M_pow5 + 14*(50 + 201*E_pow2)*M_pow4*r + (-1226 + 1867*E_pow2)*M_pow3*r_pow2 - (1125 + 692*E_pow2)*M_pow2*r_pow3 - (177 + 575*E_pow2)*M*r_pow4 + 33*r_pow5) + 2*r_pow2*twoM_plus_r_pow2*(-3*r*(120*M_pow4 - 20*M_pow3*r - 198*M_pow2*r_pow2 + 17*M*r_pow3 + 66*r_pow4) + E_pow2*M*(352*M_pow4 - 1032*M_pow3*r - 2620*M_pow2*r_pow2 + 1474*M*r_pow3 + 1907*r_pow4))))*ur_pow4 + r_pow6*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),3)*(24*a*E_pow3*L*M_pow2*r*(a_pow2 + r*r_minus_twoM)*pow(r_pow3 + a_pow2*twoM_plus_r,2)*(r_pow10*(9*L_pow4 + 19*L_pow2*r_pow2 + 7*r_pow4) + a_pow10*twoM_plus_r*(7*twoM_plus_r_pow3 + L_pow2*(8*M + 3*r)) + a_pow2*r_pow7*(-9*L_pow4*(7*M - 4*r) + 7*r_pow4*(8*M + 5*r) + L_pow2*r_pow2*(150*M + 83*r)) + a_pow4*r_pow5*(L_pow4*(-15*M + 48*r) + 14*r_pow3*(12*M_pow2 + 16*M*r + 5*r_pow2) + 6*L_pow2*r*(44*M_pow2 + 72*M*r + 23*r_pow2)) + a_pow8*r*(3*L_pow4*(M + r) + 7*r*twoM_plus_r_pow3*(2*M + 5*r) + L_pow2*(112*M_pow3 + 264*M_pow2*r + 176*M*r_pow2 + 35*r_pow3)) + a_pow6*r_pow2*(14*r_pow3*twoM_plus_r_pow2*(4*M + 5*r) + 3*L_pow4*(8*M_pow2 + 9*M*r + 8*r_pow2) + 2*L_pow2*r*(40*M_pow3 + 240*M_pow2*r + 222*M*r_pow2 + 53*r_pow3))) + 2*E_pow2*M*(r_pow4*r_minus_twoM + a_pow4*twoM_plus_r + a_pow2*(-4*M_pow2*r + 2*r_pow3))*(105*a_pow16*twoM_plus_r_pow5 + r_pow14*(42*r_pow6*r_minus_twoM + L_pow6*(-154*M + 72*r) + L_pow2*r_pow4*(-324*M + 163*r) + L_pow4*r_pow2*(-406*M + 199*r)) + a_pow2*r_pow11*(21*r_pow6*(-36*M_pow2 - 16*M*r + 19*r_pow2) + 24*L_pow2*r_pow4*(-62*M_pow2 - 73*M*r + 55*r_pow2) + L_pow6*(2586*M_pow2 - 2658*M*r + 478*r_pow2) + 2*L_pow4*r_pow2*(89*M_pow2 - 1695*M*r + 708*r_pow2)) + 3*a_pow14*r*twoM_plus_r_pow3*(2*L_pow2*(83*M + 54*r) + 7*(-48*M_pow3 + 86*M*r_pow2 + 37*r_pow3)) + a_pow4*r_pow8*(21*r_pow6*(-120*M_pow3 - 220*M_pow2*r + 38*M*r_pow2 + 77*r_pow3) + 6*L_pow6*(862*M_pow3 - 169*M_pow2*r - 725*M*r_pow2 + 186*r_pow3) + L_pow4*r_pow2*(-780*M_pow3 - 12522*M_pow2*r - 6192*M*r_pow2 + 4007*r_pow3) + L_pow2*r_pow4*(-816*M_pow3 - 12964*M_pow2*r - 1374*M*r_pow2 + 4479*r_pow3)) + a_pow6*r_pow5*(-4*L_pow4*r_pow2*(1052*M_pow4 + 7060*M_pow3*r + 7537*M_pow2*r_pow2 + 245*M*r_pow3 - 1462*r_pow4) + 105*r_pow6*(-32*M_pow4 - 160*M_pow3*r - 72*M_pow2*r_pow2 + 68*M*r_pow3 + 35*r_pow4) + 2*L_pow6*(896*M_pow4 + 648*M_pow3*r - 2273*M_pow2*r_pow2 - 889*M*r_pow3 + 600*r_pow4) + 2*L_pow2*r_pow4*(2448*M_pow4 - 14660*M_pow3*r - 14954*M_pow2*r_pow2 + 4017*M*r_pow3 + 4150*r_pow4)) + a_pow12*r*twoM_plus_r*(L_pow4*(-576*M_pow3 + 514*M_pow2*r + 1002*M*r_pow2 + 333*r_pow3) + 21*r*twoM_plus_r_pow2*(16*M_pow4 - 48*M_pow3*r - 144*M_pow2*r_pow2 + 80*M*r_pow3 + 119*r_pow4) + L_pow2*(-4032*M_pow5 - 12784*M_pow4*r - 10120*M_pow3*r_pow2 + 5052*M_pow2*r_pow3 + 7960*M*r_pow4 + 2125*r_pow5)) + a_pow8*r_pow3*(-2*L_pow6*(864*M_pow4 + 1590*M_pow3*r + 1177*M_pow2*r_pow2 - 172*M*r_pow3 - 302*r_pow4) + 105*r_pow6*(-256*M_pow4 - 320*M_pow3*r + 48*M_pow2*r_pow2 + 170*M*r_pow3 + 49*r_pow4) + 3*L_pow2*r_pow3*(2560*M_pow5 - 10944*M_pow4*r - 24640*M_pow3*r_pow2 - 6552*M_pow2*r_pow3 + 7376*M*r_pow4 + 3035*r_pow5) + L_pow4*r*(2624*M_pow5 - 26688*M_pow4*r - 48760*M_pow3*r_pow2 - 20908*M_pow2*r_pow3 + 6754*M*r_pow4 + 4677*r_pow5)) + a_pow10*r_pow2*(L_pow6*(-216*M_pow3 + 16*M_pow2*r + 276*M*r_pow2 + 114*r_pow3) + 21*r_pow3*twoM_plus_r_pow2*(48*M_pow4 - 272*M_pow3*r - 360*M_pow2*r_pow2 + 228*M*r_pow3 + 217*r_pow4) - 2*L_pow4*(4032*M_pow5 + 12968*M_pow4*r + 11128*M_pow3*r_pow2 + 471*M_pow2*r_pow3 - 3097*M*r_pow4 - 976*r_pow5) + 4*L_pow2*r*(672*M_pow6 - 5720*M_pow5*r - 18780*M_pow4*r_pow2 - 13500*M_pow3*r_pow3 + 3218*M_pow2*r_pow4 + 5979*M*r_pow5 + 1482*r_pow6))) - 2*a*E*L*M*(a_pow2 + r*r_minus_twoM)*(12*a_pow16*twoM_plus_r_pow5*(35*M + 32*r) + r_pow14*(6*r_pow6*(95*M_pow2 - 158*M*r + 56*r_pow2) + 2*L_pow4*r_pow2*(2278*M_pow2 - 3211*M*r + 1041*r_pow2) + L_pow6*(2951*M_pow2 - 3858*M*r + 1188*r_pow2) + L_pow2*r_pow4*(2583*M_pow2 - 3896*M*r + 1320*r_pow2)) + a_pow2*r_pow11*(6*r_pow6*(1006*M_pow3 - 1128*M_pow2*r - 514*M*r_pow2 + 451*r_pow3) + L_pow6*(13704*M_pow3 - 7763*M_pow2*r - 7336*M*r_pow2 + 3954*r_pow3) + 2*L_pow4*r_pow2*(13766*M_pow3 - 11051*M_pow2*r - 7966*M*r_pow2 + 5260*r_pow3) + L_pow2*r_pow4*(23136*M_pow3 - 21203*M_pow2*r - 11838*M*r_pow2 + 9032*r_pow3)) + a_pow14*r*twoM_plus_r_pow3*(L_pow2*(1992*M_pow2 + 3362*M*r + 1161*r_pow2) + 6*(-672*M_pow4 - 912*M_pow3*r + 1016*M_pow2*r_pow2 + 1654*M*r_pow3 + 501*r_pow4)) + a_pow4*r_pow8*(6*r_pow6*(4360*M_pow4 - 2470*M_pow3*r - 6253*M_pow2*r_pow2 + 890*M*r_pow3 + 1596*r_pow4) + L_pow6*(17028*M_pow4 + 5332*M_pow3*r - 24017*M_pow2*r_pow2 - 2362*M*r_pow3 + 5725*r_pow4) + 2*L_pow4*r_pow2*(26484*M_pow4 - 6102*M_pow3*r - 45643*M_pow2*r_pow2 + 829*M*r_pow3 + 11503*r_pow4) + L_pow2*r_pow4*(80184*M_pow4 - 25448*M_pow3*r - 106382*M_pow2*r_pow2 + 9238*M*r_pow3 + 26571*r_pow4)) + a_pow6*r_pow5*(6*r_pow6*(9840*M_pow5 + 80*M_pow4*r - 22180*M_pow3*r_pow2 - 8000*M_pow2*r_pow3 + 7360*M*r_pow4 + 3239*r_pow5) + L_pow6*(7168*M_pow5 + 6748*M_pow4*r - 18288*M_pow3*r_pow2 - 16969*M_pow2*r_pow3 + 6094*M*r_pow4 + 4733*r_pow5) + 4*L_pow4*r_pow2*(10816*M_pow5 + 278*M_pow4*r - 39774*M_pow3*r_pow2 - 22513*M_pow2*r_pow3 + 11930*M*r_pow4 + 6972*r_pow5) + L_pow2*r_pow4*(132480*M_pow5 + 37736*M_pow4*r - 275152*M_pow3*r_pow2 - 126278*M_pow2*r_pow3 + 88140*M*r_pow4 + 43525*r_pow5)) + a_pow12*r*twoM_plus_r*(L_pow4*(-1152*M_pow4 + 2488*M_pow3*r + 7934*M_pow2*r_pow2 + 5578*M*r_pow3 + 1170*r_pow4) + 6*r*twoM_plus_r_pow2*(224*M_pow5 + 132*M_pow4*r - 2852*M_pow3*r_pow2 - 1915*M_pow2*r_pow3 + 2610*M*r_pow4 + 1716*r_pow5) + L_pow2*(-8064*M_pow6 - 39040*M_pow5*r - 63360*M_pow4*r_pow2 - 160*M_pow3*r_pow3 + 63772*M_pow2*r_pow4 + 42768*M*r_pow5 + 8287*r_pow6)) + a_pow8*r_pow3*(L_pow6*(-3456*M_pow5 - 8832*M_pow4*r - 10524*M_pow3*r_pow2 + 1190*M_pow2*r_pow3 + 6828*M*r_pow4 + 2167*r_pow5) + 30*r_pow5*(2416*M_pow6 + 1488*M_pow5*r - 7648*M_pow4*r_pow2 - 7308*M_pow3*r_pow3 + 1597*M_pow2*r_pow4 + 3300*M*r_pow5 + 824*r_pow6) + 2*L_pow4*r*(11008*M_pow6 - 7552*M_pow5*r - 74780*M_pow4*r_pow2 - 79908*M_pow3*r_pow3 + 4284*M_pow2*r_pow4 + 33383*M*r_pow5 + 9799*r_pow6) + L_pow2*r_pow3*(101424*M_pow6 + 85472*M_pow5*r - 334728*M_pow4*r_pow2 - 378800*M_pow3*r_pow3 + 45979*M_pow2*r_pow4 + 159380*M*r_pow5 + 42830*r_pow6)) + a_pow10*r_pow2*(L_pow6*(-432*M_pow4 + 496*M_pow3*r + 2464*M_pow2*r_pow2 + 1850*M*r_pow3 + 393*r_pow4) + 6*r_pow3*twoM_plus_r_pow2*(1880*M_pow5 + 536*M_pow4*r - 10098*M_pow3*r_pow2 - 5436*M_pow2*r_pow3 + 5898*M*r_pow4 + 3361*r_pow5) - 2*L_pow4*(8064*M_pow6 + 32864*M_pow5*r + 45276*M_pow4*r_pow2 + 8746*M_pow3*r_pow3 - 26541*M_pow2*r_pow4 - 19066*M*r_pow5 - 3724*r_pow6) + L_pow2*r*(26880*M_pow7 + 22928*M_pow6*r - 231328*M_pow5*r_pow2 - 407560*M_pow4*r_pow3 - 86432*M_pow3*r_pow4 + 202873*M_pow2*r_pow5 + 137434*M*r_pow6 + 25290*r_pow7))) - (a_pow2 + r*r_minus_twoM)*(6*a_pow18*r*twoM_plus_r_pow6 - r_pow14*(4*M*r_pow8*(5*M_pow2 - 7*M*r + 3*r_pow2) + L_pow2*M*r_pow6*(803*M_pow2 - 826*M*r + 222*r_pow2) + L_pow6*r_pow2*(3581*M_pow3 - 4338*M_pow2*r + 1639*M*r_pow2 - 180*r_pow3) + L_pow8*(1715*M_pow3 - 2322*M_pow2*r + 1029*M*r_pow2 - 148*r_pow3) + L_pow4*r_pow4*(2697*M_pow3 - 2886*M_pow2*r + 856*M*r_pow2 - 38*r_pow3)) - a_pow16*twoM_plus_r_pow4*(2*r_pow2*(68*M_pow3 + 32*M_pow2*r - 55*M*r_pow2 - 27*r_pow3) + 3*L_pow2*(280*M_pow3 + 512*M_pow2*r + 162*M*r_pow2 - 3*r_pow3)) + a_pow2*r_pow11*(2*r_pow8*(-120*M_pow4 + 108*M_pow3*r + 42*M_pow2*r_pow2 - 71*M*r_pow3 + 12*r_pow4) + L_pow2*r_pow6*(-8522*M_pow4 + 2931*M_pow3*r + 4943*M_pow2*r_pow2 - 2314*M*r_pow3 + 48*r_pow4) + L_pow4*r_pow4*(-24696*M_pow4 + 9010*M_pow3*r + 14491*M_pow2*r_pow2 - 6768*M*r_pow3 + 130*r_pow4) + L_pow8*(-9756*M_pow4 + 5332*M_pow3*r + 4935*M_pow2*r_pow2 - 2930*M*r_pow3 + 169*r_pow4) + L_pow6*r_pow2*(-25906*M_pow4 + 11799*M_pow3*r + 14589*M_pow2*r_pow2 - 7797*M*r_pow3 + 367*r_pow4)) - a_pow4*r_pow8*(L_pow2*r_pow6*(36728*M_pow5 + 13696*M_pow4*r - 40802*M_pow3*r_pow2 - 3777*M_pow2*r_pow3 + 9213*M*r_pow4 - 252*r_pow5) + L_pow4*r_pow4*(86760*M_pow5 + 30648*M_pow4*r - 101742*M_pow3*r_pow2 - 10136*M_pow2*r_pow3 + 23423*M*r_pow4 - 176*r_pow5) + L_pow6*r_pow2*(59808*M_pow5 + 23608*M_pow4*r - 84068*M_pow3*r_pow2 - 7343*M_pow2*r_pow3 + 20158*M*r_pow4 - 129*r_pow5) + 2*r_pow8*(600*M_pow5 - 240*M_pow4*r - 690*M_pow3*r_pow2 + 390*M_pow2*r_pow3 + 173*M*r_pow4 - 81*r_pow5) + 4*L_pow8*(3384*M_pow5 + 1768*M_pow4*r - 5417*M_pow3*r_pow2 - 532*M_pow2*r_pow3 + 1336*M*r_pow4 + 10*r_pow5)) - a_pow14*r*twoM_plus_r_pow2*(L_pow4*(3984*M_pow4 + 10856*M_pow3*r + 7684*M_pow2*r_pow2 + 1602*M*r_pow3 + 9*r_pow4) - 2*r_pow2*twoM_plus_r_pow2*(120*M_pow4 - 20*M_pow3*r - 266*M_pow2*r_pow2 + 19*M*r_pow3 + 111*r_pow4) + L_pow2*(-8064*M_pow6 - 21888*M_pow5*r - 184*M_pow4*r_pow2 + 28860*M_pow3*r_pow3 + 19914*M_pow2*r_pow4 + 3721*M*r_pow5 - 57*r_pow6)) - a_pow6*r_pow5*(L_pow2*r_pow6*(81424*M_pow6 + 93400*M_pow5*r - 110268*M_pow4*r_pow2 - 92190*M_pow3*r_pow3 + 29740*M_pow2*r_pow4 + 19989*M*r_pow5 - 549*r_pow6) + 2*r_pow8*(1600*M_pow6 + 160*M_pow5*r - 3000*M_pow4*r_pow2 + 260*M_pow3*r_pow3 + 1574*M_pow2*r_pow4 - 81*M*r_pow5 - 237*r_pow6) + L_pow4*r_pow4*(145056*M_pow6 + 160512*M_pow5*r - 222736*M_pow4*r_pow2 - 185496*M_pow3*r_pow3 + 62662*M_pow2*r_pow4 + 43930*M*r_pow5 - 155*r_pow6) + 4*L_pow8*(1792*M_pow6 + 1830*M_pow5*r - 4123*M_pow4*r_pow2 - 4530*M_pow3*r_pow3 + 1733*M_pow2*r_pow4 + 1302*M*r_pow5 + r_pow6) + 4*L_pow6*r_pow2*(13420*M_pow6 + 17122*M_pow5*r - 31386*M_pow4*r_pow2 - 27679*M_pow3*r_pow3 + 10278*M_pow2*r_pow4 + 7234*M*r_pow5 + 9*r_pow6)) + a_pow12*r*(L_pow6*(1536*M_pow6 - 5264*M_pow5*r - 23720*M_pow4*r_pow2 - 26016*M_pow3*r_pow3 - 11231*M_pow2*r_pow4 - 1746*M*r_pow5 - 21*r_pow6) + 2*r_pow3*twoM_plus_r_pow3*(-80*M_pow6 - 8*M_pow5*r + 780*M_pow4*r_pow2 - 118*M_pow3*r_pow3 - 904*M_pow2*r_pow4 + 87*M*r_pow5 + 267*r_pow6) + L_pow4*M*(10752*M_pow7 + 70016*M_pow6*r + 180544*M_pow5*r_pow2 + 103936*M_pow4*r_pow3 - 128576*M_pow3*r_pow4 - 178948*M_pow2*r_pow5 - 74848*M*r_pow6 - 10623*r_pow7) + L_pow2*r*twoM_plus_r_pow2*(-2688*M_pow7 - 11232*M_pow6*r + 29568*M_pow5*r_pow2 + 63820*M_pow4*r_pow3 - 6080*M_pow3*r_pow4 - 41723*M_pow2*r_pow5 - 12801*M*r_pow6 + 198*r_pow7)) + a_pow8*r_pow3*(L_pow8*(2304*M_pow6 + 6384*M_pow5*r + 10600*M_pow4*r_pow2 - 709*M_pow3*r_pow3 - 7718*M_pow2*r_pow4 - 2359*M*r_pow5 + 48*r_pow6) + L_pow6*r*(-25856*M_pow7 - 22912*M_pow6*r + 97288*M_pow5*r_pow2 + 168208*M_pow4*r_pow3 + 4273*M_pow3*r_pow4 - 73034*M_pow2*r_pow5 - 22137*M*r_pow6 + 88*r_pow7) + L_pow4*r_pow3*(-113616*M_pow7 - 217024*M_pow6*r + 225736*M_pow5*r_pow2 + 458440*M_pow4*r_pow3 + 28983*M_pow3*r_pow4 - 158790*M_pow2*r_pow5 - 47730*M*r_pow6 + 130*r_pow7) + 2*r_pow7*(-2400*M_pow7 - 1440*M_pow6*r + 6480*M_pow5*r_pow2 + 2560*M_pow4*r_pow3 - 4530*M_pow3*r_pow4 - 1710*M_pow2*r_pow5 + 971*M*r_pow6 + 393*r_pow7) + L_pow2*r_pow5*(-96112*M_pow7 - 195456*M_pow6*r + 136984*M_pow5*r_pow2 + 309392*M_pow4*r_pow3 + 26825*M_pow3*r_pow4 - 93788*M_pow2*r_pow5 - 26750*M*r_pow6 + 645*r_pow7)) + a_pow10*r_pow2*(L_pow8*(288*M_pow5 - 784*M_pow4*r - 3432*M_pow3*r_pow2 - 2671*M_pow2*r_pow3 - 594*M*r_pow4 - 9*r_pow5) + 2*r_pow5*twoM_plus_r_pow2*(-480*M_pow6 - 48*M_pow5*r + 2160*M_pow4*r_pow2 - 288*M_pow3*r_pow3 - 1742*M_pow2*r_pow4 + 179*M*r_pow5 + 405*r_pow6) + L_pow6*(10752*M_pow7 + 47680*M_pow6*r + 84368*M_pow5*r_pow2 + 23466*M_pow4*r_pow3 - 59915*M_pow3*r_pow4 - 46061*M_pow2*r_pow5 - 8947*M*r_pow6 + 45*r_pow7) + L_pow4*r*(-32256*M_pow8 - 83616*M_pow7*r + 148784*M_pow6*r_pow2 + 457296*M_pow5*r_pow3 + 177640*M_pow4*r_pow4 - 197426*M_pow3*r_pow5 - 158317*M_pow2*r_pow6 - 30296*M*r_pow7 + 68*r_pow8) + L_pow2*r_pow3*(-55072*M_pow8 - 175184*M_pow7*r + 100384*M_pow6*r_pow2 + 468472*M_pow5*r_pow3 + 202478*M_pow4*r_pow4 - 153577*M_pow3*r_pow5 - 127161*M_pow2*r_pow6 - 22812*M*r_pow7 + 450*r_pow8))))*ur_pow6 + r_pow8*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),2)*(24*a*E_pow3*L*M_pow2*r*pow(r_pow3 + a_pow2*twoM_plus_r,5)*(5*L_pow2*r_pow6 + 2*r_pow8 + 2*a_pow6*twoM_plus_r_pow2 + a_pow4*r*twoM_plus_r*(5*L_pow2 + 4*M*r + 6*r_pow2) + 2*a_pow2*r_pow2*(L_pow4 + 5*L_pow2*r*(M + r) + r_pow3*(4*M + 3*r))) + 2*E_pow2*M*pow(r_pow3 + a_pow2*twoM_plus_r,2)*(30*a_pow16*twoM_plus_r_pow5 + 3*a_pow14*r*twoM_plus_r_pow4*(35*L_pow2 - 48*M_pow2 + 24*M*r + 74*r_pow2) + r_pow14*(2*L_pow6*(5*M - 4*r) + 33*L_pow2*r_pow4*r_minus_twoM + 12*r_pow6*r_minus_twoM + L_pow4*r_pow2*(-56*M + 25*r)) + a_pow2*r_pow11*(6*r_pow6*(-36*M_pow2 - 16*M*r + 19*r_pow2) + L_pow6*(1752*M_pow2 - 1018*M*r + 51*r_pow2) + 3*L_pow2*r_pow4*(-96*M_pow2 - 156*M*r + 101*r_pow2) + L_pow4*r_pow2*(-4*M_pow2 - 706*M*r + 271*r_pow2)) + a_pow4*r_pow8*(6*r_pow6*(-120*M_pow3 - 220*M_pow2*r + 38*M*r_pow2 + 77*r_pow3) + 2*L_pow6*(726*M_pow3 + 469*M_pow2*r - 1092*M*r_pow2 + 123*r_pow3) + 3*L_pow2*r_pow4*(112*M_pow3 - 1240*M_pow2*r - 170*M*r_pow2 + 375*r_pow3) + 2*L_pow4*r_pow2*(1452*M_pow3 - 1914*M_pow2*r - 875*M*r_pow2 + 477*r_pow3)) + a_pow12*r*twoM_plus_r*(2*L_pow4*r*(148*M_pow2 + 201*M*r + 60*r_pow2) - 3*L_pow2*twoM_plus_r_pow2*(96*M_pow3 + 316*M_pow2*r - 28*M*r_pow2 - 221*r_pow3) + 6*r*twoM_plus_r_pow2*(16*M_pow4 - 48*M_pow3*r - 144*M_pow2*r_pow2 + 80*M*r_pow3 + 119*r_pow4)) + a_pow6*r_pow5*(30*r_pow6*(-32*M_pow4 - 160*M_pow3*r - 72*M_pow2*r_pow2 + 68*M*r_pow3 + 35*r_pow4) + 2*L_pow6*(688*M_pow4 + 80*M_pow3*r - 725*M_pow2*r_pow2 - 686*M*r_pow3 + 176*r_pow4) + 3*L_pow2*r_pow4*(1216*M_pow4 - 2912*M_pow3*r - 3160*M_pow2*r_pow2 + 720*M*r_pow3 + 745*r_pow4) + 2*L_pow4*r_pow2*(3424*M_pow4 - 1796*M_pow3*r - 5596*M_pow2*r_pow2 - 410*M*r_pow3 + 803*r_pow4)) + a_pow10*r_pow2*(L_pow6*r*(74*M_pow2 + 102*M*r + 45*r_pow2) + 6*r_pow3*twoM_plus_r_pow2*(48*M_pow4 - 272*M_pow3*r - 360*M_pow2*r_pow2 + 228*M*r_pow3 + 217*r_pow4) + 3*L_pow2*r*twoM_plus_r_pow2*(320*M_pow4 - 688*M_pow3*r - 1580*M_pow2*r_pow2 + 184*M*r_pow3 + 591*r_pow4) - L_pow4*(2880*M_pow5 + 8368*M_pow4*r + 8280*M_pow3*r_pow2 + 900*M_pow2*r_pow3 - 2070*M*r_pow4 - 651*r_pow5)) - a_pow8*r_pow3*(2*L_pow6*(288*M_pow4 + 694*M_pow3*r + 481*M_pow2*r_pow2 + 57*M*r_pow3 - 105*r_pow4) - 30*r_pow6*(-256*M_pow4 - 320*M_pow3*r + 48*M_pow2*r_pow2 + 170*M*r_pow3 + 49*r_pow4) + L_pow4*r*(-2944*M_pow5 + 2384*M_pow4*r + 15816*M_pow3*r_pow2 + 9368*M_pow2*r_pow3 - 1708*M*r_pow4 - 1429*r_pow5) - 3*L_pow2*r_pow3*(2208*M_pow5 - 2832*M_pow4*r - 8288*M_pow3*r_pow2 - 2160*M_pow2*r_pow3 + 2230*M*r_pow4 + 865*r_pow5))) - 2*a*E*L*M*(r_pow3 + a_pow2*twoM_plus_r)*(30*a_pow16*twoM_plus_r_pow5*(4*M + 9*r) + r_pow14*(12*r_pow6*(46*M_pow2 - 59*M*r + 18*r_pow2) + 6*L_pow2*r_pow4*(376*M_pow2 - 450*M*r + 131*r_pow2) + 2*L_pow4*r_pow2*(1838*M_pow2 - 2119*M*r + 597*r_pow2) + L_pow6*(2896*M_pow2 - 3122*M*r + 831*r_pow2)) + a_pow2*r_pow11*(6*r_pow6*(936*M_pow3 - 640*M_pow2*r - 482*M*r_pow2 + 297*r_pow3) + 2*L_pow2*r_pow4*(8928*M_pow3 - 5336*M_pow2*r - 5100*M*r_pow2 + 2861*r_pow3) + L_pow6*(8748*M_pow3 - 1406*M_pow2*r - 7144*M*r_pow2 + 2907*r_pow3) + 2*L_pow4*r_pow2*(8974*M_pow3 - 4257*M_pow2*r - 6606*M*r_pow2 + 3317*r_pow3)) + 2*a_pow14*r*twoM_plus_r_pow3*(L_pow2*(420*M_pow2 + 986*M*r + 423*r_pow2) + 3*(-192*M_pow4 - 648*M_pow3*r + 200*M_pow2*r_pow2 + 940*M*r_pow3 + 351*r_pow4)) + a_pow4*r_pow8*(6*r_pow6*(3840*M_pow4 - 160*M_pow3*r - 4528*M_pow2*r_pow2 + 56*M*r_pow3 + 1071*r_pow4) + L_pow6*(9204*M_pow4 + 7888*M_pow3*r - 13435*M_pow2*r_pow2 - 4838*M*r_pow3 + 4367*r_pow4) + 2*L_pow4*r_pow2*(21000*M_pow4 + 3582*M_pow3*r - 27472*M_pow2*r_pow2 - 3219*M*r_pow3 + 7793*r_pow4) + 2*L_pow2*r_pow4*(27744*M_pow4 + 1160*M_pow3*r - 35108*M_pow2*r_pow2 - 1046*M*r_pow3 + 8793*r_pow4)) + a_pow6*r_pow5*(30*r_pow6*(1600*M_pow5 + 1088*M_pow4*r - 2592*M_pow3*r_pow2 - 1564*M_pow2*r_pow3 + 770*M*r_pow4 + 441*r_pow5) + L_pow6*(5504*M_pow5 + 4812*M_pow4*r - 8972*M_pow3*r_pow2 - 13115*M_pow2*r_pow3 + 1794*M*r_pow4 + 3643*r_pow5) + 4*L_pow4*r_pow2*(12596*M_pow5 + 9710*M_pow4*r - 20499*M_pow3*r_pow2 - 16802*M_pow2*r_pow3 + 5919*M*r_pow4 + 4944*r_pow5) + 2*L_pow2*r_pow4*(42432*M_pow5 + 31056*M_pow4*r - 74904*M_pow3*r_pow2 - 51020*M_pow2*r_pow3 + 23020*M*r_pow4 + 14845*r_pow5)) + 2*a_pow12*r*twoM_plus_r*(L_pow4*r*(592*M_pow3 + 2264*M_pow2*r + 1843*M*r_pow2 + 441*r_pow3) + 3*r*twoM_plus_r_pow2*(64*M_pow5 + 384*M_pow4*r - 1152*M_pow3*r_pow2 - 1840*M_pow2*r_pow3 + 1106*M*r_pow4 + 1197*r_pow5) + L_pow2*(-1152*M_pow6 - 8160*M_pow5*r - 17744*M_pow4*r_pow2 - 4144*M_pow3*r_pow3 + 16908*M_pow2*r_pow4 + 13688*M*r_pow5 + 2971*r_pow6)) + a_pow8*r_pow3*(-(L_pow6*(1152*M_pow5 + 4400*M_pow4*r + 7000*M_pow3*r_pow2 + 1305*M_pow2*r_pow3 - 3832*M*r_pow4 - 1658*r_pow5)) + 30*r_pow5*(1728*M_pow6 + 2720*M_pow5*r - 3296*M_pow4*r_pow2 - 5424*M_pow3*r_pow3 - 4*M_pow2*r_pow4 + 1960*M*r_pow5 + 567*r_pow6) + 2*L_pow4*r*(8768*M_pow6 + 12984*M_pow5*r - 29448*M_pow4*r_pow2 - 50934*M_pow3*r_pow3 - 4412*M_pow2*r_pow4 + 20229*M*r_pow5 + 7121*r_pow6) + 2*L_pow2*r_pow3*(32256*M_pow6 + 46976*M_pow5*r - 73008*M_pow4*r_pow2 - 122096*M_pow3*r_pow3 - 2240*M_pow2*r_pow4 + 48110*M*r_pow5 + 14915*r_pow6)) + a_pow10*r_pow2*(L_pow6*r*(296*M_pow3 + 1373*M_pow2*r + 1222*M*r_pow2 + 306*r_pow3) + 6*r_pow3*twoM_plus_r_pow2*(1056*M_pow5 + 2080*M_pow4*r - 4896*M_pow3*r_pow2 - 5244*M_pow2*r_pow3 + 2758*M*r_pow4 + 2331*r_pow5) - 2*L_pow4*(2880*M_pow6 + 12416*M_pow5*r + 24796*M_pow4*r_pow2 + 9776*M_pow3*r_pow3 - 13765*M_pow2*r_pow4 - 12384*M*r_pow5 - 2747*r_pow6) + 2*L_pow2*r*(9984*M_pow7 + 20032*M_pow6*r - 41824*M_pow5*r_pow2 - 114640*M_pow4*r_pow3 - 43024*M_pow3*r_pow4 + 53008*M_pow2*r_pow5 + 43900*M*r_pow6 + 8943*r_pow7))) + L_pow2*(6*a_pow18*M*twoM_plus_r_pow5*(40*M_pow2 + 180*M*r + 103*r_pow2) + twoM_minus_r*r_pow17*(2*M*(159*M - 80*r)*r_pow6 + L_pow2*r_pow4*(1119*M_pow2 - 546*M*r - 14*r_pow2) + 2*L_pow4*r_pow2*(828*M_pow2 - 535*M*r + 54*r_pow2) + L_pow6*(963*M_pow2 - 792*M*r + 149*r_pow2)) + a_pow2*r_pow14*(L_pow6*(10010*M_pow4 - 2049*M_pow3*r - 8259*M_pow2*r_pow2 + 4071*M*r_pow3 - 337*r_pow4) + 2*r_pow6*(3522*M_pow4 - 419*M_pow3*r - 2646*M_pow2*r_pow2 + 976*M*r_pow3 + 6*r_pow4) - 4*L_pow4*r_pow2*(-5552*M_pow4 + 388*M_pow3*r + 5094*M_pow2*r_pow2 - 2109*M*r_pow3 + 77*r_pow4) + L_pow2*r_pow4*(20610*M_pow4 - 945*M_pow3*r - 17563*M_pow2*r_pow2 + 6264*M*r_pow3 + 96*r_pow4)) + a_pow4*r_pow11*(L_pow6*(18384*M_pow5 + 21256*M_pow4*r - 28781*M_pow3*r_pow2 - 9682*M_pow2*r_pow3 + 9019*M*r_pow4 - 144*r_pow5) + 2*L_pow4*r_pow2*(29564*M_pow5 + 35044*M_pow4*r - 46819*M_pow3*r_pow2 - 15331*M_pow2*r_pow3 + 13977*M*r_pow4 - 94*r_pow5) + 2*r_pow6*(16236*M_pow5 + 14824*M_pow4*r - 20132*M_pow3*r_pow2 - 5537*M_pow2*r_pow3 + 4988*M*r_pow4 + 45*r_pow5) + L_pow2*r_pow4*(77040*M_pow5 + 79640*M_pow4*r - 106377*M_pow3*r_pow2 - 32400*M_pow2*r_pow3 + 28572*M*r_pow4 + 279*r_pow5)) + a_pow16*r*twoM_plus_r_pow3*(L_pow2*M*(1680*M_pow3 + 7048*M_pow2*r + 6950*M*r_pow2 + 1893*r_pow3) + 2*(-1152*M_pow6 - 7776*M_pow5*r - 5464*M_pow4*r_pow2 + 8860*M_pow3*r_pow3 + 10156*M_pow2*r_pow4 + 2648*M*r_pow5 + 9*r_pow6)) + a_pow6*r_pow8*(4*L_pow6*(4896*M_pow6 + 9166*M_pow5*r - 5163*M_pow4*r_pow2 - 12381*M_pow3*r_pow3 + 1377*M_pow2*r_pow4 + 3118*M*r_pow5 + 25*r_pow6) + 2*L_pow4*r_pow2*(48696*M_pow6 + 99788*M_pow5*r - 57094*M_pow4*r_pow2 - 114043*M_pow3*r_pow3 + 14777*M_pow2*r_pow4 + 26482*M*r_pow5 + 84*r_pow6) + 2*r_pow6*(40080*M_pow6 + 87480*M_pow5*r - 41218*M_pow4*r_pow2 - 73461*M_pow3*r_pow3 + 8662*M_pow2*r_pow4 + 14257*M*r_pow5 + 144*r_pow6) + L_pow2*r_pow4*(152016*M_pow6 + 343144*M_pow5*r - 178436*M_pow4*r_pow2 - 327158*M_pow3*r_pow3 + 41934*M_pow2*r_pow4 + 68893*M*r_pow5 + 445*r_pow6)) + a_pow8*r_pow5*(L_pow6*(11008*M_pow7 + 16432*M_pow6*r - 9640*M_pow5*r_pow2 - 51052*M_pow4*r_pow3 - 19126*M_pow3*r_pow4 + 20003*M_pow2*r_pow5 + 9378*M*r_pow6 + 29*r_pow7) + 2*L_pow4*r_pow2*(51200*M_pow7 + 115328*M_pow6*r - 24940*M_pow5*r_pow2 - 206916*M_pow4*r_pow3 - 67626*M_pow3*r_pow4 + 67052*M_pow2*r_pow5 + 29085*M*r_pow6 + 86*r_pow7) + 2*r_pow6*(56640*M_pow7 + 218480*M_pow6*r + 13640*M_pow5*r_pow2 - 247040*M_pow4*r_pow3 - 82390*M_pow3*r_pow4 + 59895*M_pow2*r_pow5 + 25334*M*r_pow6 + 255*r_pow7) + L_pow2*r_pow4*(174816*M_pow7 + 607824*M_pow6*r - 19112*M_pow5*r_pow2 - 848656*M_pow4*r_pow3 - 273340*M_pow3*r_pow4 + 236049*M_pow2*r_pow5 + 98895*M*r_pow6 + 420*r_pow7)) + a_pow14*r*twoM_plus_r*(2*L_pow4*M*r*(1184*M_pow4 + 7448*M_pow3*r + 10395*M_pow2*r_pow2 + 5429*M*r_pow3 + 966*r_pow4) + 2*r*twoM_plus_r_pow2*(384*M_pow7 + 5760*M_pow6*r - 1996*M_pow5*r_pow2 - 29452*M_pow4*r_pow3 - 10823*M_pow3*r_pow4 + 19380*M_pow2*r_pow5 + 9823*M*r_pow6 + 60*r_pow7) + L_pow2*(-3072*M_pow8 - 30336*M_pow7*r - 114304*M_pow6*r_pow2 - 116144*M_pow5*r_pow3 + 61496*M_pow4*r_pow4 + 158328*M_pow3*r_pow5 + 84358*M_pow2*r_pow6 + 14439*M*r_pow7 + 9*r_pow8)) + a_pow10*r_pow3*(-(L_pow6*(1536*M_pow7 + 8032*M_pow6*r + 20688*M_pow5*r_pow2 + 15358*M_pow4*r_pow3 - 10205*M_pow3*r_pow4 - 14199*M_pow2*r_pow5 - 3601*M*r_pow6 + 27*r_pow7)) + 4*L_pow4*r*(9728*M_pow8 + 24976*M_pow7*r - 9060*M_pow6*r_pow2 - 87846*M_pow5*r_pow3 - 65620*M_pow4*r_pow4 + 25191*M_pow3*r_pow5 + 37681*M_pow2*r_pow6 + 9183*M*r_pow7 - 5*r_pow8) + L_pow2*r_pow3*(121248*M_pow8 + 511600*M_pow7*r + 155328*M_pow6*r_pow2 - 1043352*M_pow5*r_pow3 - 853126*M_pow4*r_pow4 + 211555*M_pow3*r_pow5 + 367865*M_pow2*r_pow6 + 87858*M*r_pow7 + 234*r_pow8) + 2*r_pow5*(45216*M_pow8 + 283472*M_pow7*r + 148160*M_pow6*r_pow2 - 399040*M_pow5*r_pow3 - 350930*M_pow4*r_pow4 + 53243*M_pow3*r_pow5 + 120596*M_pow2*r_pow6 + 29155*M*r_pow7 + 270*r_pow8)) + a_pow12*r_pow2*(L_pow6*M*r*(592*M_pow4 + 4676*M_pow3*r + 6901*M_pow2*r_pow2 + 3674*M*r_pow3 + 657*r_pow4) + 2*r_pow3*twoM_plus_r_pow2*(4656*M_pow7 + 42352*M_pow6*r + 76*M_pow5*r_pow2 - 103436*M_pow4*r_pow3 - 38900*M_pow3*r_pow4 + 44037*M_pow2*r_pow5 + 21092*M*r_pow6 + 171*r_pow7) - 2*L_pow4*(3840*M_pow8 + 21952*M_pow7*r + 68944*M_pow6*r_pow2 + 68416*M_pow5*r_pow3 - 20736*M_pow4*r_pow4 - 69605*M_pow3*r_pow5 - 37489*M_pow2*r_pow6 - 6327*M*r_pow7 + 18*r_pow8) + L_pow2*r*(43008*M_pow9 + 171008*M_pow8*r + 34608*M_pow7*r_pow2 - 718848*M_pow6*r_pow3 - 901448*M_pow5*r_pow4 - 6296*M_pow4*r_pow5 + 516511*M_pow3*r_pow6 + 285726*M_pow2*r_pow7 + 47594*M*r_pow8 + 71*r_pow9))))*ur_pow8 + L*r_pow11*pow(r_pow3 + a_pow2*twoM_plus_r,2)*(-6*E_pow2*L*M*r*pow(r_pow3 + a_pow2*twoM_plus_r,3)*(2*a_pow8*twoM_plus_r_pow3*(6*M + r) + r_pow6*(5*L_pow6 + 10*L_pow4*r_pow2 + 7*L_pow2*r_pow4 + 2*r_pow6) + a_pow6*r*twoM_plus_r_pow2*(8*r_pow2*(5*M + r) + 7*L_pow2*(6*M + r)) + a_pow2*r_pow3*(8*r_pow6*(3*M + r) + 7*L_pow2*r_pow4*(10*M + 3*r) + 6*L_pow4*r_pow2*(11*M + 3*r) + L_pow6*(16*M + 3*r)) + a_pow4*r_pow2*twoM_plus_r*(12*r_pow4*(4*M + r) + 7*L_pow2*r_pow2*(14*M + 3*r) + L_pow4*(46*M + 8*r))) + L*(30*a_pow16*M*twoM_plus_r_pow5*(8*M + 11*r) - r_pow13*(L_pow2 + r_pow2)*(66*M*twoM_minus_r*r_pow6 + L_pow4*r_pow2*(670*M_pow2 - 355*M*r + 4*r_pow2) - 2*L_pow2*r_pow4*(-226*M_pow2 + 94*M*r + 11*r_pow2) + L_pow6*(494*M_pow2 - 377*M*r + 62*r_pow2)) - a_pow2*r_pow10*(72*M*r_pow8*(15*M_pow2 + 12*M*r - 11*r_pow2) + 2*L_pow2*r_pow6*(1840*M_pow3 + 2026*M_pow2*r - 1646*M*r_pow2 - 35*r_pow3) + 3*L_pow4*r_pow4*(1508*M_pow3 + 2382*M_pow2*r - 1813*M*r_pow2 - 15*r_pow3) + 12*L_pow6*r_pow2*(186*M_pow3 + 495*M_pow2*r - 355*M*r_pow2 + 8*r_pow3) + L_pow8*(20*M_pow3 + 2126*M_pow2*r - 1249*M*r_pow2 + 35*r_pow3)) + a_pow4*r_pow7*(-24*M*r_pow8*(120*M_pow3 + 436*M_pow2*r - 47*M*r_pow2 - 154*r_pow3) + 2*L_pow6*r_pow2*(-1434*M_pow4 - 10739*M_pow3*r - 746*M_pow2*r_pow2 + 5286*M*r_pow3 + 3*r_pow4) + 4*L_pow2*r_pow6*(-1808*M_pow4 - 8868*M_pow3*r + 660*M_pow2*r_pow2 + 3381*M*r_pow3 + 15*r_pow4) + L_pow8*(-554*M_pow4 - 2615*M_pow3*r - 884*M_pow2*r_pow2 + 2088*M*r_pow3 + 27*r_pow4) + L_pow4*r_pow4*(-6786*M_pow4 - 43331*M_pow3*r + 1006*M_pow2*r_pow2 + 18189*M*r_pow3 + 27*r_pow4)) + 6*a_pow14*M*r*twoM_plus_r_pow3*(L_pow2*(360*M_pow2 + 622*M*r + 229*r_pow2) + 4*(-64*M_pow4 - 146*M_pow3*r + 123*M_pow2*r_pow2 + 288*M*r_pow3 + 99*r_pow4)) - a_pow6*r_pow4*(L_pow8*M*(768*M_pow4 + 1396*M_pow3*r + 1479*M_pow2*r_pow2 - 1449*M*r_pow3 - 1422*r_pow4) + 120*M*r_pow8*(8*M_pow4 + 328*M_pow3*r + 171*M_pow2*r_pow2 - 146*M*r_pow3 - 77*r_pow4) + 2*L_pow6*r_pow2*(1896*M_pow5 + 13118*M_pow4*r + 9760*M_pow3*r_pow2 - 8633*M_pow2*r_pow3 - 6183*M*r_pow4 - 18*r_pow5) + L_pow4*r_pow4*(6240*M_pow5 + 90000*M_pow4*r + 56425*M_pow3*r_pow2 - 48339*M_pow2*r_pow3 - 29667*M*r_pow4 + 9*r_pow5) + 2*L_pow2*r_pow6*(1184*M_pow5 + 51280*M_pow4*r + 29088*M_pow3*r_pow2 - 25008*M_pow2*r_pow3 - 13975*M*r_pow4 + 10*r_pow5)) + a_pow12*M*r*twoM_plus_r*(L_pow4*r*(6664*M_pow3 + 14876*M_pow2*r + 10035*M*r_pow2 + 2142*r_pow3) + 24*r_pow2*twoM_plus_r_pow2*(40*M_pow4 - 264*M_pow3*r - 342*M_pow2*r_pow2 + 341*M*r_pow3 + 308*r_pow4) - 8*L_pow2*(288*M_pow6 + 2208*M_pow5*r + 4552*M_pow4*r_pow2 - 1224*M_pow3*r_pow3 - 7908*M_pow2*r_pow4 - 5386*M*r_pow5 - 1089*r_pow6)) + a_pow8*r_pow3*(L_pow8*M*r*(530*M_pow2 + 987*M*r + 384*r_pow2) - 2*L_pow6*M*(2208*M_pow5 + 6092*M_pow4*r + 8154*M_pow3*r_pow2 - 4365*M_pow2*r_pow3 - 10222*M*r_pow4 - 3402*r_pow5) + 60*M*r_pow6*(144*M_pow5 - 1192*M_pow4*r - 1544*M_pow3*r_pow2 + 276*M_pow2*r_pow3 + 828*M*r_pow4 + 231*r_pow5) + 2*L_pow2*r_pow4*(2560*M_pow6 - 71984*M_pow5*r - 93008*M_pow4*r_pow2 + 20712*M_pow3*r_pow3 + 57692*M_pow2*r_pow4 + 16595*M*r_pow5 - 25*r_pow6) + L_pow4*r_pow2*(-7608*M_pow6 - 85356*M_pow5*r - 109414*M_pow4*r_pow2 + 33285*M_pow3*r_pow3 + 85329*M_pow2*r_pow4 + 25950*M*r_pow5 - 9*r_pow6)) + a_pow10*r_pow2*(2*L_pow6*M*r*(2182*M_pow3 + 5018*M_pow2*r + 3435*M*r_pow2 + 741*r_pow3) + 24*M*r_pow4*twoM_plus_r_pow2*(156*M_pow4 - 884*M_pow3*r - 855*M_pow2*r_pow2 + 716*M*r_pow3 + 539*r_pow4) + L_pow4*M*(-8064*M_pow6 - 34720*M_pow5*r - 60404*M_pow4*r_pow2 + 9904*M_pow3*r_pow3 + 86065*M_pow2*r_pow4 + 58339*M*r_pow5 + 11718*r_pow6) - 2*L_pow2*r_pow2*(128*M_pow7 + 53664*M_pow6*r + 107712*M_pow5*r_pow2 + 11872*M_pow4*r_pow3 - 88104*M_pow3*r_pow4 - 60006*M_pow2*r_pow5 - 11532*M*r_pow6 + 9*r_pow7))) - 2*a*E*M*(60*a_pow16*twoM_plus_r_pow6 + 6*a_pow14*r*twoM_plus_r_pow5*(45*L_pow2 - 32*M_pow2 + 20*M*r + 78*r_pow2) + 3*r_pow13*(L_pow2 + r_pow2)*(-70*L_pow4*twoM_minus_r*r_pow2 - 20*L_pow2*(5*M - 3*r)*r_pow4 + 8*r_pow6*(-3*M + 2*r) + L_pow6*(-150*M + 65*r)) - a_pow2*r_pow10*(L_pow6*r_pow2*(4656*M_pow2 + 1276*M*r - 1895*r_pow2) + 2*L_pow4*r_pow4*(3204*M_pow2 + 322*M*r - 1235*r_pow2) + L_pow8*(732*M_pow2 + 692*M*r - 550*r_pow2) + 6*L_pow2*r_pow6*(644*M_pow2 + 6*M*r - 273*r_pow2) - 12*r_pow8*(-72*M_pow2 + 4*M*r + 33*r_pow2)) + 2*a_pow12*r*twoM_plus_r_pow2*(L_pow4*r*(833*M_pow2 + 870*M*r + 225*r_pow2) - 6*L_pow2*twoM_plus_r_pow2*(24*M_pow3 + 88*M_pow2*r - 45*M*r_pow2 - 154*r_pow3) + 6*r_pow2*twoM_plus_r_pow2*(-24*M_pow3 - 104*M_pow2*r + 70*M*r_pow2 + 133*r_pow3)) + a_pow4*r_pow7*(60*L_pow2*r_pow6*(-272*M_pow3 - 184*M_pow2*r + 135*M*r_pow2 + 84*r_pow3) + 12*r_pow8*(-360*M_pow3 - 216*M_pow2*r + 210*M*r_pow2 + 119*r_pow3) + L_pow8*(-1398*M_pow3 - 1577*M_pow2*r + 16*M*r_pow2 + 655*r_pow3) + 2*L_pow4*r_pow4*(-10710*M_pow3 - 8585*M_pow2*r + 4292*M*r_pow2 + 3201*r_pow3) + L_pow6*r_pow2*(-9882*M_pow3 - 10455*M_pow2*r + 3032*M*r_pow2 + 3607*r_pow3)) + a_pow6*r_pow4*(-2*L_pow8*(384*M_pow4 + 673*M_pow3*r + 190*M_pow2*r_pow2 - 329*M*r_pow3 - 195*r_pow4) + 60*r_pow8*(-192*M_pow4 - 256*M_pow3*r + 60*M_pow2*r_pow2 + 168*M*r_pow3 + 49*r_pow4) + 30*L_pow2*r_pow6*(-1184*M_pow4 - 1680*M_pow3*r + 176*M_pow2*r_pow2 + 934*M*r_pow3 + 287*r_pow4) + 12*L_pow4*r_pow4*(-2820*M_pow4 - 4499*M_pow3*r - 159*M_pow2*r_pow2 + 2149*M*r_pow3 + 728*r_pow4) + L_pow6*r_pow2*(-10308*M_pow4 - 18606*M_pow3*r - 3583*M_pow2*r_pow2 + 8360*M*r_pow3 + 3479*r_pow4)) + a_pow10*r_pow2*twoM_plus_r*(L_pow6*r*(1091*M_pow2 + 1200*M*r + 330*r_pow2) + 12*r_pow4*twoM_plus_r_pow2*(-144*M_pow3 - 288*M_pow2*r + 210*M*r_pow2 + 259*r_pow3) + 6*L_pow2*r_pow2*twoM_plus_r_pow2*(-488*M_pow3 - 976*M_pow2*r + 540*M*r_pow2 + 903*r_pow3) - 2*L_pow4*(2016*M_pow5 + 6020*M_pow4*r + 3162*M_pow3*r_pow2 - 5578*M_pow2*r_pow3 - 5642*M*r_pow4 - 1341*r_pow5)) + a_pow8*r_pow3*(5*L_pow8*r*(53*M_pow2 + 60*M*r + 18*r_pow2) + 60*r_pow6*twoM_plus_r_pow2*(-72*M_pow3 - 88*M_pow2*r + 70*M*r_pow2 + 63*r_pow3) + 60*L_pow2*r_pow4*twoM_plus_r_pow2*(-172*M_pow3 - 224*M_pow2*r + 135*M*r_pow2 + 147*r_pow3) + L_pow6*(-4416*M_pow5 - 10892*M_pow4*r - 6366*M_pow3*r_pow2 + 5795*M_pow2*r_pow3 + 6782*M*r_pow4 + 1692*r_pow5) + L_pow4*(-25776*M_pow5*r_pow2 - 64744*M_pow4*r_pow3 - 29980*M_pow3*r_pow4 + 32152*M_pow2*r_pow5 + 30388*M*r_pow6 + 6646*r_pow7))))*ur_pow10 + 3*L_pow2*r_pow14*pow(r_pow3 + a_pow2*twoM_plus_r,2)*(20*a_pow14*M*twoM_plus_r_pow5 + 2*a_pow12*M*r*twoM_plus_r_pow4*(35*L_pow2 - 16*M_pow2 + 16*M*r + 62*r_pow2) + r_pow13*(L_pow6*(16*M - 3*r) + 14*L_pow2*M*r_pow4 + 4*M*r_pow6 + 2*L_pow4*r_pow2*(8*M + r)) + a_pow2*r_pow10*(28*L_pow2*M*r_pow4*(2*M + 5*r) + 4*M*r_pow6*(6*M + 11*r) + L_pow6*(-30*M_pow2 + 77*M*r - 3*r_pow2) + 2*L_pow4*r_pow2*(16*M_pow2 + 81*M*r + 2*r_pow2)) + 2*a_pow10*M*r_pow2*twoM_plus_r*(-14*L_pow2*twoM_plus_r_pow2*(4*M_pow2 - 4*M*r - 13*r_pow2) + L_pow4*(147*M_pow2 + 154*M*r + 40*r_pow2) + 2*r_pow2*twoM_plus_r_pow2*(-36*M_pow2 + 44*M*r + 81*r_pow2)) + a_pow4*r_pow7*(20*M*r_pow7*(16*M + 9*r) - 14*L_pow2*M*r_pow4*(8*M_pow2 - 56*M*r - 35*r_pow2) + L_pow6*M*(-78*M_pow2 + 107*M*r + 145*r_pow2) + 2*L_pow4*r_pow2*(-114*M_pow3 + 303*M_pow2*r + 228*M*r_pow2 + r_pow3)) + a_pow6*M*r_pow4*(56*L_pow2*r_pow4*(-16*M_pow3 + 24*M_pow2*r + 46*M*r_pow2 + 15*r_pow3) + 20*r_pow6*(-16*M_pow3 + 40*M_pow2*r + 62*M*r_pow2 + 19*r_pow3) + L_pow6*(-70*M_pow3 + 35*M_pow2*r + 227*M*r_pow2 + 108*r_pow3) + 2*L_pow4*r_pow2*(-338*M_pow3 + 263*M_pow2*r + 792*M*r_pow2 + 289*r_pow3)) + a_pow8*M*r_pow3*(3*L_pow6*(33*M_pow2 + 36*M*r + 10*r_pow2) + 20*r_pow4*twoM_plus_r_pow2*(-12*M_pow2 + 20*M*r + 23*r_pow2) + 14*L_pow2*r_pow2*twoM_plus_r_pow2*(-28*M_pow2 + 36*M*r + 55*r_pow2) + L_pow4*(-440*M_pow4 + 1688*M_pow2*r_pow2 + 1486*M*r_pow3 + 348*r_pow4)))*ur_pow12))/(48.*pow(a_pow2 + r*r_minus_twoM,10)*pow(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2),9));
}
/* Compute alpha, beta coefficients */
alpha20 = (r_pow2*(a_pow4*twoM_plus_r + a_pow2*r*(L_pow2 - 4*M_pow2 + 2*M*r*ur_pow2 + r_pow2*(2 + ur_pow2)) + r_pow2*(L_pow2*r_minus_twoM + r_pow2*(-2*M + r + r*ur_pow2))))/(pow(a_pow2 + r*r_minus_twoM,2)*(a_pow2*twoM_plus_r + r*(L_pow2 + r_pow2)));
alpha02 = r*r;
beta = 4.0*(L*L + r*r + a*a*(r+2*M)/r);
/* Coefficient in front of dr in twisted coordinate */
c = -((L*r*r*r*ur)/((a*a+r*(r-2.0*M))*(a*a*(2.0*M+r)+r*(L*L+r*r))));
effsource_set_particle_dt(x_p, E, L,ur);
effsource_set_particle_dtt(x_p, E, L,ur);
}