Hyperiso 1.0.3
Modular flavour-physics calculations, Wilson coefficients and statistical inference
Loading...
Searching...
No Matches
ObsMath.cpp
Go to the documentation of this file.
1#include "special_SM.h"
2
3// B > V
4
5double f_17_re(double sh, double L_mu, double z, size_t maxpow) {
6
7 double lz = log(z);
8 double Lsh = log(sh);
9 double Lshb = log(1.-sh);
10 double Li2sh = real(CLi2(sh));
11 double Li3sh = real(CLi3(sh));
12 double Li3shb = real(CLi3(1.-sh));
13 double Li4sh = real(CLi4(sh));
14 double sqrtsh = sqrt(sh);
15 double sqrt4sh = sqrt(4.-sh);
16 double ash = asin(sqrtsh/2.);
17 double cl2 = Cl2(2.*ash);
18 double cl3 = Cl3(2.*ash);
19
20 double res=0;
21
22 if(sh<0.4) {
23 res = -1.14266 - 0.8559670781893005*L_mu - 2.07503*sh -
24 0.0164609*Lsh*sh - 0.222222*lz*sh - 2.20356*z -
25 2.608715*lz*z - 25.9259*sh*z + 1.03704*Lsh*sh*z -
26 1.700505*lz*sh*z + 0.2962965*Lsh*lz*sh*z +
27 0.14814825*z*pow(lz,2) - 1.122925*sh*z*pow(lz,2) +
28 0.04938275*z*pow(lz,3) + 0.04938275*sh*z*pow(lz,3) -
29 0.024691375*sh*z*pow(lz,4) - 19.4691*pow(sh,2) -
30 0.0164609*Lsh*pow(sh,2) - 5.83895*lz*pow(sh,2) -
31 90.4953*z*pow(sh,2) + 2.37037*Lsh*z*pow(sh,2) +
32 7.46645*lz*z*pow(sh,2) + 0.592595*Lsh*lz*z*pow(sh,2) -
33 0.74074*pow(lz,2)*pow(sh,2) -
34 6.1095*z*pow(lz,2)*pow(sh,2) -
35 0.04938275*pow(lz,3)*pow(sh,2) +
36 0.14814875*z*pow(lz,3)*pow(sh,2) -
37 0.074074375*z*pow(lz,4)*pow(sh,2) - 41.9952*pow(sh,3) -
38 0.0164609*Lsh*pow(sh,3) - 15.10455*lz*pow(sh,3) -
39 189.354*z*pow(sh,3) + 3.85185*Lsh*z*pow(sh,3) +
40 21.3283*lz*z*pow(sh,3) + 0.88889*Lsh*lz*z*pow(sh,3) -
41 1.555555*pow(lz,2)*pow(sh,3) -
42 14.44125*z*pow(lz,2)*pow(sh,3) -
43 0.14814875*pow(lz,3)*pow(sh,3) +
44 0.34567875*z*pow(lz,3)*pow(sh,3) -
45 0.148148125*z*pow(lz,4)*pow(sh,3) -
46 0.00010778*pow(sh,3)*pow(z,-2) +
47 0.00555556*pow(sh,2)*pow(z,-1) +
48 0.946811*pow(sh,3)*pow(z,-1) +
49 0.2444445*lz*pow(sh,3)*pow(z,-1) +
50 0.02469135*pow(lz,2)*pow(sh,3)*pow(z,-1) +
51 11.6973*sh*pow(z,0.5) + 70.1839*pow(sh,2)*pow(z,0.5) +
52 pow(sh,3)*(-3.8991*pow(z,-0.5) + 159.863*pow(z,0.5)) +
53 1.94955*pow(z,1.5) + 1.86366*pow(z,2) -
54 2.331735*lz*pow(z,2) + 11.4229*sh*pow(z,2) -
55 4.66347*Lsh*sh*pow(z,2) - 17.0403*lz*sh*pow(z,2) +
56 2.5926*sh*pow(lz,2)*pow(z,2) +
57 0.5925925*Lsh*sh*pow(lz,2)*pow(z,2) +
58 0.04938275*pow(lz,3)*pow(z,2) +
59 0.29629625*sh*pow(lz,3)*pow(z,2) +
60 23.8816*pow(sh,2)*pow(z,2) -
61 13.9904*Lsh*pow(sh,2)*pow(z,2) -
62 41.39575*lz*pow(sh,2)*pow(z,2) +
63 1.185185*Lsh*lz*pow(sh,2)*pow(z,2) +
64 8.074075*pow(lz,2)*pow(sh,2)*pow(z,2) +
65 1.7777775*Lsh*pow(lz,2)*pow(sh,2)*pow(z,2) +
66 0.74074125*pow(lz,3)*pow(sh,2)*pow(z,2) +
67 45.1784*pow(sh,3)*pow(z,2) -
68 27.3882*Lsh*pow(sh,3)*pow(z,2) -
69 72.5905*lz*pow(sh,3)*pow(z,2) +
70 4.14815*Lsh*lz*pow(sh,3)*pow(z,2) +
71 17.7284*pow(lz,2)*pow(sh,3)*pow(z,2) +
72 3.55555*Lsh*pow(lz,2)*pow(sh,3)*pow(z,2) +
73 1.3827125*pow(lz,3)*pow(sh,3)*pow(z,2) -
74 1.21131*pow(z,3) + 1.49794*lz*pow(z,3) +
75 11.7509*sh*pow(z,3) + 6.73754*Lsh*sh*pow(z,3) +
76 9.4782*lz*sh*pow(z,3) + 0.592595*Lsh*lz*sh*pow(z,3) -
77 1.0370375*pow(lz,2)*pow(z,3) -
78 3.654325*sh*pow(lz,2)*pow(z,3) -
79 0.5925925*Lsh*sh*pow(lz,2)*pow(z,3) +
80 38.1415*pow(sh,2)*pow(z,3) +
81 27.5428*Lsh*pow(sh,2)*pow(z,3) +
82 19.3218*lz*pow(sh,2)*pow(z,3) +
83 1.185185*Lsh*lz*pow(sh,2)*pow(z,3) -
84 10.39505*pow(lz,2)*pow(sh,2)*pow(z,3) -
85 2.37037*Lsh*pow(lz,2)*pow(sh,2)*pow(z,3) +
86 77.3602*pow(sh,3)*pow(z,3) +
87 69.4495*Lsh*pow(sh,3)*pow(z,3) +
88 29.22455*lz*pow(sh,3)*pow(z,3) +
89 0.592595*Lsh*lz*pow(sh,3)*pow(z,3) -
90 24.0247*pow(lz,2)*pow(sh,3)*pow(z,3) -
91 5.925925*Lsh*pow(lz,2)*pow(sh,3)*pow(z,3);
92 } else {
93 if(sh<.900001) {
94 res += (-0.8559670781893004*L_mu -
95 0.2962962962962963*sh*pow(ash,2)*pow(-1. + sh,-4) -
96 0.00823045267489712*Lsh*
97 (29. - 18.*Lshb*(-1. + sh) - 47.*sh)*sh*
98 pow(-1. + sh,-2) + 0.14814814814814814*Li2sh*sh*
99 pow(-1. + sh,-1) - 0.07407407407407407*pow(Lsh,2)*
100 pow(-1. + sh,-3)*pow(sh,3) -
101 0.01646090534979424*ash*sqrt4sh*sqrtsh*pow(-1. + sh,-3)*
102 pow(sh,-1)*(-4. + 9.*sh - 15.*pow(sh,2) +
103 4.*pow(sh,3)) - 0.0013717421124828531*
104 pow(-1. + sh,-4)*(785. -
105 2.*sh*(1585. + 12.*PI2) +
106 6.*(803. + 9.*PI2)*pow(sh,2) -
107 2.*(1633. + 27.*PI2)*
108 pow(sh,3) + (833. + 18.*PI2)*
109 pow(sh,4)))*1.;
110 }
111 else {
112 res += (-0.7509911973035993 - 0.21726138504882622*(1. - 1.*sh) -
113 0.8559670781893004*L_mu -
114 0.0659657518981201*pow(1. - 1.*sh,2) -
115 0.03129640614981805*pow(1. - 1.*sh,3) -
116 0.017719628843137502*pow(1. - 1.*sh,4))*1.;
117 }
118
119 if(1<=maxpow) {
120 if(sh<.900001)
121 res += 0.;
122 else
123 res += 0.;
124 }
125
126 if(2<=maxpow) {
127 if(sh<.900001) {
128 res += (0.04938271604938271*sh*pow(Lsh,4)*pow(-1. + sh,-3) -
129 0.2962962962962963*Li2sh*(-1. + 4.*sh)*
130 pow(-1. + sh,-2) + 0.09876543209876543*(-3. + sh)*
131 pow(Lsh,3)*pow(-1. + sh,-2) -
132 1.*lz*(-0.2962962962962963*Lsh*
133 (2. + 2.*Lshb*(-1. + sh) + sh)*pow(-1. + sh,-2) -
134 0.5925925925925926*Li2sh*pow(-1. + sh,-1) +
135 0.09876543209876543*(9. + PI2)*
136 pow(-1. + sh,-1) +
137 0.2962962962962963*pow(Lsh,2)*pow(-1. + sh,-1)) -
138 0.35616500834358344*pow(-1. + sh,-3)*
139 (-5. + 5.*sh + 2.*pow(sh,2)) -
140 0.2962962962962963*Li3sh*pow(-1. + sh,-3)*
141 (-1. - 5.*sh + 4.*pow(sh,2)) -
142 1.*pow(Lsh,2)*(-0.5925925925925926*Li2sh*sh*
143 pow(-1. + sh,-3) -
144 0.04938271604938271*pow(-1. + sh,-3)*
145 (12. + 3.*Lshb*(-5. + 3.*sh) +
146 sh*(-15. + 2.*PI2) +
147 6.*pow(sh,2))) -
148 1.*Lsh*(-2.8493200667486676*sh*pow(-1. + sh,-3) +
149 2.3703703703703702*Li3sh*sh*pow(-1. + sh,-3) +
150 0.2962962962962963*Li2sh*pow(-1. + sh,-3)*
151 (3. + sh - 2.*pow(sh,2)) +
152 0.04938271604938271*pow(-1. + sh,-3)*
153 (12. + 21.*sh +
154 (-5. + 3.*sh)*PI2 -
155 33.*pow(sh,2) +
156 6.*Lshb*(1. - 5.*sh + 4.*pow(sh,2)))) -
157 1.7777777777777777*pow(ash,2)*pow(-1. + sh,-4)*
158 (-1. - 3.*pow(sh,2) + pow(sh,3)) +
159 0.009876543209876543*pow(-1. + sh,-4)*
160 (-4.*(-1. + sh)*sh*pow(3.141592653589793,4) -
161 15.*(-1. + sh)*(10. - 1.*(17. + 24.*Li4sh)*sh +
162 7.*pow(sh,2)) +
163 5.*PI2*
164 (-6. + 16.*sh - 20.*pow(sh,2) + 7.*pow(sh,3))) -
165 0.8888888888888888*ash*(1. + sh)*pow(-1. + sh,-3)*
166 pow(-((-4 + sh)*sh),0.5))*pow(z,1);
167 }
168 else {
169 res += (-1.5156467116109078 - 0.06864318910496076*(1. - 1.*sh) +
170 0.19606872711735043*pow(1. - 1.*sh,2) +
171 0.3270513130738385*pow(1. - 1.*sh,3) +
172 log(z)*(0.4444444444444444 +
173 0.2962962962962963*(1. - 1.*sh) +
174 0.23868312757201646*pow(1. - 1.*sh,2) +
175 0.20493827160493827*pow(1. - 1.*sh,3) +
176 0.1817283950617284*pow(1. - 1.*sh,4)) +
177 0.38673058027546225*pow(1. - 1.*sh,4))*pow(z,1);
178 }
179 }
180 if(3<=maxpow) {
181 if(sh<.900001) {
182 res += 0.19753086419753085*(2. + sh)*PI2*
183 pow(sh,-1)*pow(z,1.5);
184 }
185 else {
186 res += (5.848654459904805 + 3.8991029732698697*(1. - 1.*sh) +
187 3.8991029732698697*pow(1. - 1.*sh,2) +
188 3.8991029732698697*pow(1. - 1.*sh,3) +
189 3.8991029732698697*pow(1. - 1.*sh,4))*pow(z,1.5);
190 }
191 }
192
193 if(4<=maxpow) {
194 if(sh<.900001) {
195 res += (-0.2962962962962963*Li3sh*(5. + 3.*sh)*pow(-1. + sh,-3) +
196 0.2962962962962963*Li3shb*(1. + 6.*sh)*
197 pow(-1. + sh,-3) + 0.14814814814814814*pow(Lsh,3)*
198 pow(-1. + sh,-3) - 0.8888888888888888*ash*(-3. + sh)*
199 sqrt4sh*sqrtsh*pow(-1. + sh,-3)*pow(sh,2) +
200 0.35616500834358344*pow(-1. + sh,-4)*
201 (-5. + 8.*sh + 3.*pow(sh,2)) +
202 0.2962962962962963*Li2sh*pow(-1. + sh,-3)*pow(sh,-1)*
203 (3. - 10.*sh + 8.*pow(sh,2)) -
204 0.8888888888888888*pow(ash,2)*pow(-1. + sh,-4)*
205 pow(sh,2)*(2. + 9.*sh - 6.*pow(sh,2) + pow(sh,3)) -
206 0.07407407407407407*pow(Lsh,2)*pow(-1. + sh,-4)*
207 pow(sh,-2)*(-4. + 7.*sh + (5. + 6.*Lshb)*pow(sh,2) -
208 1.*(25. + 8.*Lshb)*pow(sh,3) +
209 (11. + 2.*Lshb)*pow(sh,4)) -
210 1.*pow(lz,2)*(0.14814814814814814*Lsh*(1. + 6.*sh)*
211 pow(-1. + sh,-3) -
212 0.07407407407407407*pow(-1. + sh,-2)*pow(sh,-2)*
213 (1. - 2.*sh + 8.*pow(sh,2) + 10.*pow(sh,3) -
214 4.*pow(sh,4) + pow(sh,5))) -
215 1.*lz*(-10.666666666666666*sh*pow(ash,2)*
216 pow(-1. + sh,-4) -
217 0.2962962962962963*Li2sh*(1. + 6.*sh)*
218 pow(-1. + sh,-3) -
219 0.14814814814814814*pow(Lsh,2)*pow(-1. + sh,-2) -
220 0.14814814814814814*Lsh*pow(-1. + sh,-3)*pow(sh,-2)*
221 (2. - 3.*sh + 2.*(1. + Lshb)*pow(sh,2) +
222 3.*(-1. + 4.*Lshb)*pow(sh,3)) +
223 0.024691358024691357*pow(-1. + sh,-4)*pow(sh,-2)*
224 (9. - 42.*sh + (81. - 2.*PI2)*
225 pow(sh,2) + 2.*(-6. + PI2)*
226 pow(sh,3) + 6.*
227 (-23. + 2.*PI2)*pow(sh,4)\
228 + 153.*pow(sh,5) - 60.*pow(sh,6) + 9.*pow(sh,7))
229 - 0.5925925925925926*ash*pow(-1. + sh,-3)*
230 (-4. - 3.*pow(sh,2) + pow(sh,3))*
231 pow(-((-4 + sh)*sh),0.5)) -
232 1.*Lsh*(-5.333333333333333*sh*pow(ash,2)*
233 pow(-1. + sh,-4) -
234 0.2962962962962963*Li2sh*(4. + sh)*
235 pow(-1. + sh,-3) -
236 0.024691358024691357*pow(-1. + sh,-3)*pow(sh,-2)*
237 (-18. + (57. + 36.*Lshb)*sh -
238 6.*(5. + 20.*Lshb + PI2)*
239 pow(sh,2) + (-93. + 96.*Lshb +
240 50.*PI2)*pow(sh,3)) -
241 0.2962962962962963*ash*pow(-1. + sh,-3)*
242 (-4. - 3.*pow(sh,2) + pow(sh,3))*
243 pow(-((-4 + sh)*sh),0.5)) +
244 0.012345679012345678*pow(-1. + sh,-4)*pow(sh,-2)*
245 (2.*PI2*
246 (-6. + 45.*sh - 133.*pow(sh,2) + 157.*pow(sh,3) -
247 59.*pow(sh,4) + 12.*pow(sh,5) - 12.*pow(sh,6) +
248 2.*pow(sh,7)) +
249 3.*(7. - 78.*sh + 7.*pow(sh,7) +
250 pow(sh,5)*(155. -
251 32.*cl2*pow(-((-4 + sh)*sh),0.5)) +
252 8.*pow(sh,6)*
253 (-7. + cl2*pow(-((-4 + sh)*sh),0.5)) -
254 8.*pow(sh,3)*(27. + 18.*cl3 +
255 4.*cl2*pow(-((-4 + sh)*sh),0.5)) +
256 pow(sh,4)*(-62. +
257 24.*cl2*pow(-((-4 + sh)*sh),0.5)) +
258 pow(sh,2)*(243. +
259 32.*cl2*pow(-((-4 + sh)*sh),0.5)))))*pow(z,2);
260 }
261 else {
262 res += pow(z,2)*(-0.647637155328409 -
263 0.9413088193612421*(1. - 1.*sh) -
264 0.8385255835044603*pow(1. - 1.*sh,2) -
265 1.1019705279460212*pow(1. - 1.*sh,3) -
266 1.6181578946132955*pow(1. - 1.*sh,4) +
267 log(z)*(1.7526351083839322 +
268 0.5609956120680696*(1. - 1.*sh) +
269 1.1754785561935277*pow(1. - 1.*sh,2) +
270 1.6549606263554564*pow(1. - 1.*sh,3) +
271 2.1141011282028064*pow(1. - 1.*sh,4)) +
272 (0.09876543209876543 +
273 0.1111111111111111*(1. - 1.*sh) +
274 0.23703703703703705*pow(1. - 1.*sh,2) +
275 0.3012345679012346*pow(1. - 1.*sh,3) +
276 0.37037037037037035*pow(1. - 1.*sh,4))*pow(log(z),2)
277 );
278 }
279 }
280 if(5<=maxpow) {
281 if(sh<.900001) {
282 res += 0.02633744855967078*PI2*pow(sh,-3)*
283 (3. + 14.*sh + 3.*pow(sh,2))*pow(z,2.5);
284 }
285 else {
286 res += (5.1988039643598265 + 10.397607928719653*(1. - 1.*sh) +
287 16.376232487733454*pow(1. - 1.*sh,2) +
288 23.13467764140123*pow(1. - 1.*sh,3) +
289 30.672943389722974*pow(1. - 1.*sh,4))*pow(z,2.5);
290 }
291 }
292
293 if(6<=maxpow) {
294 if(sh<.900001) {
295 res += (1.1851851851851851*Li3shb*sh*pow(-1. + sh,-4) -
296 0.5925925925925926*Li3sh*pow(-1. + sh,-3)*pow(sh,-1) +
297 0.19753086419753085*pow(Lsh,3)*pow(-1. + sh,-3)*
298 pow(sh,-1) - 0.7123300166871669*pow(-1. + sh,-4)*
299 pow(sh,-1)*(1. - 1.*sh + 2.*pow(sh,2)) -
300 0.2962962962962963*Li2sh*pow(-1. + sh,-4)*pow(sh,-2)*
301 (4. - 14.*sh + 18.*pow(sh,2) - 11.*pow(sh,3) +
302 pow(sh,4)) - 0.19753086419753085*cl2*sh*sqrt4sh*
303 sqrtsh*pow(-1. + sh,-3)*
304 (-9. - 1.*sh + 9.*pow(sh,2) - 6.*pow(sh,3) +
305 pow(sh,4)) - 0.06584362139917696*ash*sh*sqrt4sh*
306 sqrtsh*pow(-1. + sh,-3)*
307 (27. - 1.*sh + 9.*pow(sh,2) - 6.*pow(sh,3) +
308 pow(sh,4)) + 0.5925925925925926*sh*pow(ash,2)*
309 pow(-1. + sh,-4)*(-6. + 27.*sh - 30.*pow(sh,3) +
310 27.*pow(sh,4) - 9.*pow(sh,5) + pow(sh,6)) -
311 1.*Lsh*(3.5555555555555554*sh*pow(ash,2)*
312 pow(-1. + sh,-4) -
313 0.5925925925925926*Li2sh*pow(-1. + sh,-3)*
314 pow(sh,-1) + 0.19753086419753085*ash*sh*sqrt4sh*
315 sqrtsh*pow(-1. + sh,-3)*
316 (-9. - 1.*sh + 9.*pow(sh,2) - 6.*pow(sh,3) +
317 pow(sh,4)) + 0.00823045267489712*pow(-1. + sh,-4)*
318 pow(sh,-4)*(-10. + 10.*sh +
319 6.*(23. + 24.*Lshb)*pow(sh,2) -
320 2.*(67. + 252.*Lshb +
321 30.*PI2)*pow(sh,3) +
322 (-163. + 648.*Lshb +
323 60.*PI2)*pow(sh,4) -
324 12.*(-5. + 33.*Lshb +
325 6.*PI2)*pow(sh,5) +
326 9.*(-5. + 4.*Lshb)*pow(sh,6))) -
327 0.012345679012345678*pow(Lsh,2)*pow(-1. + sh,-5)*
328 pow(sh,-4)*(8. + 8.*sh - 94.*pow(sh,2) +
329 (94. - 24.*Lshb)*pow(sh,3) +
330 (52. + 48.*Lshb)*pow(sh,4) -
331 8.*(19. + 3.*Lshb)*pow(sh,5) + 72.*pow(sh,6) -
332 12.*pow(sh,7)) -
333 1.*pow(lz,2)*(0.5925925925925926*Lsh*sh*
334 pow(-1. + sh,-4) +
335 0.024691358024691357*pow(-1. + sh,-3)*pow(sh,-4)*
336 (1. + 3.*sh - 18.*pow(sh,2) + 25.*pow(sh,3) -
337 36.*pow(sh,4) + 26.*pow(sh,5) - 27.*pow(sh,6) -
338 22.*pow(sh,7) + 38.*pow(sh,8) - 16.*pow(sh,9) +
339 2.*pow(sh,10))) -
340 1.*lz*(-1.1851851851851851*Li2sh*sh*pow(-1. + sh,-4) +
341 7.111111111111111*sh*pow(ash,2)*pow(-1. + sh,-4) +
342 0.2962962962962963*pow(Lsh,2)*pow(-1. + sh,-3)*
343 pow(sh,-1) + 0.3950617283950617*ash*sh*sqrt4sh*
344 sqrtsh*pow(-1. + sh,-3)*
345 (-9. - 1.*sh + 9.*pow(sh,2) - 6.*pow(sh,3) +
346 pow(sh,4)) + 0.04938271604938271*Lsh*
347 pow(-1. + sh,-4)*pow(sh,-4)*
348 (2. + 4.*sh - 27.*pow(sh,2) + 22.*pow(sh,3) +
349 14.*pow(sh,4) - 12.*(1. + 2.*Lshb)*pow(sh,5) +
350 9.*pow(sh,6)) +
351 0.00823045267489712*pow(-1. + sh,-3)*pow(sh,-4)*
352 (-5. + 57.*pow(sh,2) - 46.*pow(sh,3) -
353 85.*pow(sh,4) + 164.*pow(sh,5) - 73.*pow(sh,6) +
354 102.*pow(sh,7) - 40.*pow(sh,8) - 4.*pow(sh,9) +
355 2.*pow(sh,10))) -
356 0.0013717421124828531*pow(-1. + sh,-4)*pow(sh,-4)*
357 (-19. + 46.*sh + 1365.*pow(sh,2) - 4435.*pow(sh,3) +
358 3757.*pow(sh,4) + (610. - 2592.*cl3)*pow(sh,5) -
359 3103.*pow(sh,6) + 2113.*pow(sh,7) +
360 594.*pow(sh,8) - 1548.*pow(sh,9) +
361 714.*pow(sh,10) - 94.*pow(sh,11) +
362 6.*PI2*
363 (6. + 12.*sh - 195.*pow(sh,2) + 442.*pow(sh,3) -
364 434.*pow(sh,4) + 124.*pow(sh,5) +
365 137.*pow(sh,6) - 16.*pow(sh,7) -
366 120.*pow(sh,8) + 108.*pow(sh,9) -
367 36.*pow(sh,10) + 4.*pow(sh,11))))*pow(z,3);
368 }
369 else {
370 res += pow(z,3)*(2.0558846293203854 -
371 5.023381570340977*(1. - 1.*sh) -
372 7.761640024983791*pow(1. - 1.*sh,2) -
373 13.35266138630302*pow(1. - 1.*sh,3) -
374 24.65891981493292*pow(1. - 1.*sh,4) +
375 log(z)*(2.772759928702021 -
376 0.24604278849693273*(1. - 1.*sh) +
377 3.842007139630303*pow(1. - 1.*sh,2) +
378 8.253815580345757*pow(1. - 1.*sh,3) +
379 13.162562518769866*pow(1. - 1.*sh,4)) +
380 (-0.2222222222222222 +
381 0.044444444444444446*(1. - 1.*sh) +
382 0.9679012345679012*pow(1. - 1.*sh,2) +
383 1.689594356261023*pow(1. - 1.*sh,3) +
384 2.6807760141093473*pow(1. - 1.*sh,4))*pow(log(z),2));
385 }
386 }
387
388 if(7<=maxpow) {
389 if(sh<.900001) {
390 res += 0.002257495590828924*PI2*pow(sh,-5)*
391 (15. + 108.*sh + 314.*pow(sh,2) + 108.*pow(sh,3) +
392 15.*pow(sh,4))*pow(z,3.5);
393 }
394 else {
395 res += (12.477129514463583 + 37.43138854339075*(1. - 1.*sh) +
396 78.60591594112057*pow(1. - 1.*sh,2) +
397 139.74385056199213*pow(1. - 1.*sh,3) +
398 224.92254008662476*pow(1. - 1.*sh,4))*pow(z,3.5);
399 }
400 }
401
402 if(8<=maxpow) {
403 if(sh<.900001) {
404 res += (1.1872166944786116*pow(-1. + sh,-3)*pow(sh,-2) -
405 0.9876543209876543*Li3sh*pow(-1. + sh,-3)*pow(sh,-2) +
406 0.3292181069958848*pow(Lsh,3)*pow(-1. + sh,-3)*
407 pow(sh,-2) + 0.2962962962962963*cl2*sh*sqrt4sh*sqrtsh*
408 (8. + 6.*sh - 6.*pow(sh,2) + pow(sh,3)) -
409 0.04938271604938271*Li2sh*pow(-1. + sh,-5)*pow(sh,-3)*
410 (-50. + 230.*sh - 420.*pow(sh,2) + 380.*pow(sh,3) -
411 146.*pow(sh,4) + 15.*pow(sh,5)) +
412 0.04938271604938271*ash*sh*sqrt4sh*sqrtsh*
413 pow(-1. + sh,-3)*(16. + 72.*sh + 18.*pow(sh,2) -
414 203.*pow(sh,3) + 189.*pow(sh,4) - 63.*pow(sh,5) +
415 7.*pow(sh,6)) - 0.8888888888888888*pow(ash,2)*
416 pow(-1. + sh,-4)*pow(sh,2)*
417 (36. - 60.*sh + 99.*pow(sh,3) - 112.*pow(sh,4) +
418 54.*pow(sh,5) - 12.*pow(sh,6) + pow(sh,7)) -
419 1.*Lsh*(-0.9876543209876543*Li2sh*pow(-1. + sh,-3)*
420 pow(sh,-2) - 0.2962962962962963*ash*sh*sqrt4sh*
421 sqrtsh*(8. + 6.*sh - 6.*pow(sh,2) + pow(sh,3)) +
422 0.0013717421124828531*pow(-1. + sh,-5)*pow(sh,-6)*
423 (21. - 10.*sh - 307.*pow(sh,2) -
424 1.*(283. + 1800.*Lshb)*pow(sh,3) +
425 5.*(437. + 1656.*Lshb +
426 120.*PI2)*pow(sh,4) -
427 2.*(1081. + 7560.*Lshb +
428 600.*PI2)*pow(sh,5) +
429 (253. + 13680.*Lshb +
430 600.*PI2)*pow(sh,6) +
431 (861. - 5256.*Lshb)*pow(sh,7) +
432 6.*(49. + 90.*Lshb)*pow(sh,8) - 78.*pow(sh,9)))\
433 + 0.00823045267489712*pow(Lsh,2)*pow(-1. + sh,-6)*
434 pow(sh,-6)*(6. + 14.*sh - 30.*pow(sh,2) -
435 255.*pow(sh,3) + (729. - 60.*Lshb)*pow(sh,4) +
436 45.*(-13. + 4.*Lshb)*pow(sh,5) -
437 15.*(11. + 12.*Lshb)*pow(sh,6) +
438 (541. + 60.*Lshb)*pow(sh,7) - 270.*pow(sh,8) +
439 45.*pow(sh,9)) +
440 0.00411522633744856*pow(lz,2)*pow(sh,-6)*
441 (3. + 25.*sh + 90.*pow(sh,2) - 60.*pow(sh,3) +
442 5.*pow(sh,4) - 3.*pow(sh,5) - 144.*pow(sh,6) -
443 252.*pow(sh,7) + 72.*pow(sh,8) + 288.*pow(sh,9) -
444 144.*pow(sh,10) + 18.*pow(sh,11)) -
445 1.*lz*(0.49382716049382713*pow(Lsh,2)*pow(-1. + sh,-3)*
446 pow(sh,-2) - 0.5925925925925926*ash*sh*sqrt4sh*
447 sqrtsh*(8. + 6.*sh - 6.*pow(sh,2) + pow(sh,3)) +
448 0.01646090534979424*Lsh*pow(-1. + sh,-5)*pow(sh,-6)*
449 (-3. - 10.*sh + 5.*pow(sh,2) + 185.*pow(sh,3) -
450 425.*pow(sh,4) + 343.*pow(sh,5) -
451 125.*pow(sh,6) + 3.*pow(sh,7) - 15.*pow(sh,8) +
452 15.*pow(sh,9)) +
453 0.00013717421124828533*pow(-1. + sh,-4)*pow(sh,-6)*
454 (105. + 55.*sh - 1480.*pow(sh,2) + 90.*pow(sh,3) +
455 10470.*pow(sh,4) - 25782.*pow(sh,5) +
456 43242.*pow(sh,6) - 52678.*pow(sh,7) +
457 52987.*pow(sh,8) - 14283.*pow(sh,9) -
458 23976.*pow(sh,10) + 3240.*pow(sh,11) +
459 28080.*pow(sh,12) - 22680.*pow(sh,13) +
460 6480.*pow(sh,14) - 630.*pow(sh,15))) +
461 2.2862368541380887e-6*pow(-1. + sh,-5)*pow(sh,-6)*
462 (-2775. + 5550.*sh + 34425.*pow(sh,2) +
463 1.48905e6*pow(sh,3) - 7.4002e6*pow(sh,4) +
464 1.4083748e7*pow(sh,5) - 1.4200216e7*pow(sh,6) +
465 9.34426e6*pow(sh,7) - 5.568515e6*pow(sh,8) +
466 141850.*pow(sh,9) + 4.948647e6*pow(sh,10) -
467 27324.*pow(sh,11) - 8.9613e6*pow(sh,12) +
468 9.8388e6*pow(sh,13) - 4.6764e6*pow(sh,14) +
469 1.03725e6*pow(sh,15) - 86850.*pow(sh,16) +
470 1200.*PI2*
471 (9. + 30.*sh - 15.*pow(sh,2) - 1245.*pow(sh,3) +
472 4325.*pow(sh,4) - 6463.*pow(sh,5) +
473 5357.*pow(sh,6) - 2657.*pow(sh,7) +
474 295.*pow(sh,8) + 1405.*pow(sh,9) -
475 1014.*pow(sh,10) - 1782.*pow(sh,11) +
476 3798.*pow(sh,12) - 2988.*pow(sh,13) +
477 1188.*pow(sh,14) - 234.*pow(sh,15) +
478 18.*pow(sh,16))))*pow(z,4);
479 }
480 else {
481 res += pow(z,4)*(4.166076007573638 -
482 29.482916540765096*(1. - 1.*sh) -
483 51.76439651455935*pow(1. - 1.*sh,2) -
484 100.58418925538838*pow(1. - 1.*sh,3) -
485 217.9981110758939*pow(1. - 1.*sh,4) +
486 log(z)*(6.036523956202085 -
487 6.188787330687681*(1. - 1.*sh) +
488 14.248013358351397*pow(1. - 1.*sh,2) +
489 42.62670356928015*pow(1. - 1.*sh,3) +
490 77.13858012891833*pow(1. - 1.*sh,4)) +
491 (-0.41975308641975306 +
492 0.24691358024691357*(1. - 1.*sh) +
493 5.111111111111111*pow(1. - 1.*sh,2) +
494 9.74485596707819*pow(1. - 1.*sh,3) +
495 17.88477366255144*pow(1. - 1.*sh,4))*pow(log(z),2));
496 }
497 }
498
499 if(9<=maxpow) {
500 if(sh<.900001) {
501 res += 0.0005374989501973629*PI2*pow(sh,-7)*
502 (35. + 330.*sh + 1389.*pow(sh,2) + 3212.*pow(sh,3) +
503 1389.*pow(sh,4) + 330.*pow(sh,5) + 35.*pow(sh,6))*
504 pow(z,4.5);
505 }
506 else {
507 res += (35.64894146989595 + 142.5957658795838*(1. - 1.*sh) +
508 372.5314383604127*pow(1. - 1.*sh,2) +
509 793.1889477051849*pow(1. - 1.*sh,3) +
510 1491.2079534505585*pow(1. - 1.*sh,4))*pow(z,4.5);
511 }
512 }
513
514 if(10<=maxpow) {
515 if(sh<.900001) {
516 res += (2.493155058405084*pow(-1. + sh,-3)*pow(sh,-3) -
517 2.074074074074074*Li3sh*pow(-1. + sh,-3)*pow(sh,-3) +
518 0.691358024691358*pow(Lsh,3)*pow(-1. + sh,-3)*
519 pow(sh,-3) - 0.5925925925925926*cl2*sqrt4sh*sqrtsh*
520 pow(sh,2)*(-20. - 11.*sh + 24.*pow(sh,2) -
521 9.*pow(sh,3) + pow(sh,4)) -
522 0.019753086419753086*ash*sqrt4sh*sqrtsh*
523 pow(-1. + sh,-3)*pow(sh,2)*
524 (630. - 1853.*sh - 99.*pow(sh,2) + 4458.*pow(sh,3) -
525 5217.*pow(sh,4) + 2538.*pow(sh,5) -
526 564.*pow(sh,6) + 47.*pow(sh,7)) +
527 0.09876543209876543*Li2sh*pow(-1. + sh,-6)*pow(sh,-4)*
528 (-63. + 355.*sh - 826.*pow(sh,2) + 1008.*pow(sh,3) -
529 665.*pow(sh,4) + 213.*pow(sh,5) - 7.*pow(sh,7) +
530 pow(sh,8)) + 1.7777777777777777*pow(ash,2)*
531 pow(-1. + sh,-4)*pow(sh,2)*
532 (10. - 90.*sh + 165.*pow(sh,2) - 333.*pow(sh,4) +
533 445.*pow(sh,5) - 275.*pow(sh,6) + 90.*pow(sh,7) -
534 15.*pow(sh,8) + pow(sh,9)) -
535 1.*Lsh*(-2.074074074074074*Li2sh*pow(-1. + sh,-3)*
536 pow(sh,-3) + 0.5925925925925926*ash*sqrt4sh*sqrtsh*
537 pow(sh,2)*(-20. - 11.*sh + 24.*pow(sh,2) -
538 9.*pow(sh,3) + pow(sh,4)) +
539 0.0000823045267489712*pow(-1. + sh,-6)*pow(sh,-8)*
540 (-162. + 36.*sh + 2914.*pow(sh,2) +
541 5862.*pow(sh,3) +
542 30.*(-767. + 2520.*Lshb)*pow(sh,4) -
543 8.*(2131. + 53250.*Lshb +
544 2625.*PI2)*pow(sh,5) +
545 8.*(12113. + 123900.*Lshb +
546 7875.*PI2)*pow(sh,6) -
547 18.*(5693. + 67200.*Lshb +
548 3500.*PI2)*pow(sh,7) +
549 3.*(15101. + 266000.*Lshb +
550 7000.*PI2)*pow(sh,8) -
551 50.*(259. + 5112.*Lshb)*pow(sh,9) +
552 9600.*pow(sh,10) +
553 150.*(11. + 56.*Lshb)*pow(sh,11) -
554 25.*(25. + 48.*Lshb)*pow(sh,12))) -
555 0.0024691358024691358*pow(Lsh,2)*pow(-1. + sh,-7)*
556 pow(sh,-8)*(12. + 42.*sh - 28.*pow(sh,2) -
557 308.*pow(sh,3) - 1533.*pow(sh,4) +
558 (8318. - 420.*Lshb)*pow(sh,5) +
559 6.*(-2237. + 280.*Lshb)*pow(sh,6) -
560 56.*(-143. + 45.*Lshb)*pow(sh,7) +
561 12.*(149. + 140.*Lshb)*pow(sh,8) -
562 1.*(4507. + 420.*Lshb)*pow(sh,9) +
563 1540.*pow(sh,10) + 140.*pow(sh,11) -
564 160.*pow(sh,12) + 20.*pow(sh,13)) -
565 0.0012345679012345679*pow(lz,2)*pow(sh,-8)*
566 (-6. - 63.*sh - 301.*pow(sh,2) - 840.*pow(sh,3) +
567 630.*pow(sh,4) - 99.*pow(sh,5) + 153.*pow(sh,6) +
568 6.*pow(sh,7) + 1200.*pow(sh,8) + 1440.*pow(sh,9) +
569 3360.*pow(sh,10) - 2400.*pow(sh,11) -
570 5400.*pow(sh,12) + 4800.*pow(sh,13) -
571 1320.*pow(sh,14) + 120.*pow(sh,15)) -
572 1.*lz*(1.037037037037037*pow(Lsh,2)*pow(-1. + sh,-3)*
573 pow(sh,-3) + 1.1851851851851851*ash*sqrt4sh*sqrtsh*
574 pow(sh,2)*(-20. - 11.*sh + 24.*pow(sh,2) -
575 9.*pow(sh,3) + pow(sh,4)) +
576 0.0049382716049382715*Lsh*pow(-1. + sh,-6)*
577 pow(sh,-8)*(6. + 27.*sh + 13.*pow(sh,2) -
578 141.*pow(sh,3) - 1380.*pow(sh,4) +
579 5549.*pow(sh,5) - 8207.*pow(sh,6) +
580 6207.*pow(sh,7) - 2809.*pow(sh,8) +
581 1080.*pow(sh,9) - 30.*pow(sh,10) -
582 30.*pow(sh,11) + 35.*pow(sh,12)) +
583 0.000011757789535567314*pow(-1. + sh,-5)*pow(sh,-8)*
584 (-567. - 441.*sh + 9758.*pow(sh,2) +
585 30275.*pow(sh,3) - 166495.*pow(sh,4) +
586 20923.*pow(sh,5) + 866054.*pow(sh,6) -
587 1.788427e6*pow(sh,7) + 1.255755e6*pow(sh,8) +
588 458890.*pow(sh,9) - 1.258076e6*pow(sh,10) +
589 55832.*pow(sh,11) - 524481.*pow(sh,12) +
590 2.826e6*pow(sh,13) - 901320.*pow(sh,14) -
591 5.25168e6*pow(sh,15) + 7.8771e6*pow(sh,16) -
592 5.0799e6*pow(sh,17) + 1.7073e6*pow(sh,18) -
593 290640.*pow(sh,19) + 19740.*pow(sh,20))) -
594 1.3997368494722993e-8*pow(-1. + sh,-6)*pow(sh,-8)*
595 (-161406. + 318843.*sh + 1.910657e6*pow(sh,2) -
596 738969.*pow(sh,3) + 6.33135615e8*pow(sh,4) -
597 3.654733992e9*pow(sh,5) + 8.580730746e9*pow(sh,6) -
598 1.0387902666e10*pow(sh,7) +
599 6.272402572e9*pow(sh,8) - 4.35513965e8*pow(sh,9) -
600 2.310469467e9*pow(sh,10) +
601 2.213537811e9*pow(sh,11) -
602 4.191847021e9*pow(sh,12) +
603 8.659496442e9*pow(sh,13) -
604 5.00515056e9*pow(sh,14) -
605 1.057709688e10*pow(sh,15) +
606 2.294859924e10*pow(sh,16) -
607 2.03364504e10*pow(sh,17) +
608 1.00250472e10*pow(sh,18) -
609 2.83732932e9*pow(sh,19) + 4.2896364e8*pow(sh,20) -
610 2.674812e7*pow(sh,21) +
611 58800.*PI2*
612 (18. + 81.*sh + 39.*pow(sh,2) - 423.*pow(sh,3) -
613 9810.*pow(sh,4) + 47729.*pow(sh,5) -
614 95467.*pow(sh,6) + 103887.*pow(sh,7) -
615 63289.*pow(sh,8) + 15730.*pow(sh,9) +
616 8388.*pow(sh,10) - 21404.*pow(sh,11) +
617 46029.*pow(sh,12) - 50988.*pow(sh,13) -
618 20160.*pow(sh,14) + 133320.*pow(sh,15) -
619 179760.*pow(sh,16) + 130200.*pow(sh,17) -
620 56400.*pow(sh,18) + 14520.*pow(sh,19) -
621 2040.*pow(sh,20) + 120.*pow(sh,21))))*pow(z,5);
622 }
623 else {
624 res += pow(z,5)*(9.495992115022151 -
625 144.07780670229167*(1. - 1.*sh) -
626 287.1615196453904*pow(1. - 1.*sh,2) -
627 629.2386817194127*pow(1. - 1.*sh,3) -
628 1577.85840284407*pow(1. - 1.*sh,4) +
629 log(z)*(18.273866188842664 -
630 36.50758667966486*(1. - 1.*sh) +
631 57.239414092843454*pow(1. - 1.*sh,2) +
632 217.34199886507017*pow(1. - 1.*sh,3) +
633 420.0317629604588*pow(1. - 1.*sh,4)) +
634 (-1.5802469135802468 +
635 0.2962962962962963*(1. - 1.*sh) +
636 25.*pow(1. - 1.*sh,2) +
637 51.65432098765432*pow(1. - 1.*sh,3) +
638 108.14814814814815*pow(1. - 1.*sh,4))*pow(log(z),2));
639 }
640 }
641
642 if(11<=maxpow) {
643 if(sh<.900001) {
644 res += 0.000038004976276581215*PI2*pow(sh,-9)*
645 (315. + 3640.*sh + 19380.*pow(sh,2) + 62088.*pow(sh,3) +
646 124834.*pow(sh,4) + 62088.*pow(sh,5) +
647 19380.*pow(sh,6) + 3640.*pow(sh,7) + 315.*pow(sh,8))*
648 pow(z,5.5);
649 }
650 else {
651 res += (110.90781790634296 + 554.5390895317148*(1. - 1.*sh) +
652 1730.1619593389503*pow(1. - 1.*sh,2) +
653 4281.041771184839*pow(1. - 1.*sh,3) +
654 9178.810229798877*pow(1. - 1.*sh,4))*pow(z,5.5);
655 }
656 }
657
658 if(12<=maxpow) {
659 if(sh<.900001) {
660 res += (5.983572140172202*pow(-1. + sh,-3)*pow(sh,-4) -
661 4.977777777777778*Li3sh*pow(-1. + sh,-3)*pow(sh,-4) +
662 1.6592592592592592*pow(Lsh,3)*pow(-1. + sh,-3)*
663 pow(sh,-4) + 0.691358024691358*cl2*sqrt4sh*sqrtsh*
664 pow(sh,2)*(-8. + 102.*sh + 39.*pow(sh,2) -
665 168.*pow(sh,3) + 102.*pow(sh,4) - 24.*pow(sh,5) +
666 2.*pow(sh,6)) + 0.006584362139917695*ash*sqrt4sh*
667 sqrtsh*pow(-1. + sh,-3)*pow(sh,2)*
668 (1236. - 20412.*sh + 48897.*pow(sh,2) -
669 963.*pow(sh,3) - 119097.*pow(sh,4) +
670 165591.*pow(sh,5) - 103846.*pow(sh,6) +
671 34110.*pow(sh,7) - 5685.*pow(sh,8) + 379.*pow(sh,9))
672 - 2.074074074074074*pow(ash,2)*pow(-1. + sh,-4)*
673 pow(sh,3)*(-90. + 560.*sh - 999.*pow(sh,2) +
674 2278.*pow(sh,4) - 3456.*pow(sh,5) +
675 2565.*pow(sh,6) - 1092.*pow(sh,7) +
676 270.*pow(sh,8) - 36.*pow(sh,9) + 2.*pow(sh,10)) +
677 0.0049382716049382715*Li2sh*pow(-1. + sh,-7)*pow(sh,-5)*
678 (3528. - 23478.*sh + 66420.*pow(sh,2) -
679 102960.*pow(sh,3) + 93240.*pow(sh,4) -
680 47628.*pow(sh,5) + 10808.*pow(sh,6) -
681 135.*pow(sh,9) + 30.*pow(sh,10)) -
682 1.*Lsh*(-4.977777777777778*Li2sh*pow(-1. + sh,-3)*
683 pow(sh,-4) - 0.691358024691358*ash*sqrt4sh*sqrtsh*
684 pow(sh,2)*(-8. + 102.*sh + 39.*pow(sh,2) -
685 168.*pow(sh,3) + 102.*pow(sh,4) -
686 24.*pow(sh,5) + 2.*pow(sh,6)) +
687 0.00001646090534979424*pow(-1. + sh,-7)*pow(sh,-10)*
688 (440. - 32.*sh - 10212.*pow(sh,2) -
689 23632.*pow(sh,3) + 7888.*pow(sh,4) -
690 168.*(-2921. + 6300.*Lshb)*pow(sh,5) +
691 18.*(-60791. + 391300.*Lshb +
692 14000.*PI2)*pow(sh,6) -
693 6.*(-91207. + 3.321e6*Lshb +
694 168000.*PI2)*pow(sh,7) +
695 216.*(3607. + 143000.*Lshb +
696 7000.*PI2)*pow(sh,8) -
697 6.*(202093. + 4.662e6*Lshb +
698 168000.*PI2)*pow(sh,9) +
699 6.*(113557. + 2.3814e6*Lshb +
700 42000.*PI2)*pow(sh,10) -
701 15.*(16441. + 216160.*Lshb)*pow(sh,11) +
702 20060.*pow(sh,12) + 42310.*pow(sh,13) +
703 45.*(23. + 900.*Lshb)*pow(sh,14) -
704 45.*(41. + 200.*Lshb)*pow(sh,15))) -
705 0.0004938271604938272*pow(Lsh,2)*pow(-1. + sh,-8)*
706 pow(sh,-10)*(-40. - 184.*sh - 40.*pow(sh,2) +
707 1160.*pow(sh,3) + 2240.*pow(sh,4) +
708 16100.*pow(sh,5) +
709 144.*(-936. + 35.*Lshb)*pow(sh,6) +
710 (321315. - 25200.*Lshb)*pow(sh,7) +
711 15.*(-23729. + 3360.*Lshb)*pow(sh,8) -
712 160.*(-1006. + 315.*Lshb)*pow(sh,9) +
713 40.*(859. + 630.*Lshb)*pow(sh,10) -
714 2.*(31921. + 2520.*Lshb)*pow(sh,11) +
715 18270.*pow(sh,12) + 675.*pow(sh,14) -
716 825.*pow(sh,15) + 150.*pow(sh,16)) -
717 0.0004938271604938272*pow(lz,2)*pow(sh,-10)*
718 (-10. - 126.*sh - 738.*pow(sh,2) - 2646.*pow(sh,3) -
719 6300.*pow(sh,4) + 5040.*pow(sh,5) -
720 1194.*pow(sh,6) + 873.*pow(sh,7) +
721 1791.*pow(sh,8) + 10.*pow(sh,9) +
722 8400.*pow(sh,10) + 9100.*pow(sh,11) +
723 11200.*pow(sh,12) + 46900.*pow(sh,13) -
724 47600.*pow(sh,14) - 86450.*pow(sh,15) +
725 116200.*pow(sh,16) - 51100.*pow(sh,17) +
726 9800.*pow(sh,18) - 700.*pow(sh,19)) -
727 1.*lz*(2.488888888888889*pow(Lsh,2)*pow(-1. + sh,-3)*
728 pow(sh,-4) - 1.382716049382716*ash*sqrt4sh*sqrtsh*
729 pow(sh,2)*(-8. + 102.*sh + 39.*pow(sh,2) -
730 168.*pow(sh,3) + 102.*pow(sh,4) -
731 24.*pow(sh,5) + 2.*pow(sh,6)) +
732 0.0009876543209876543*Lsh*pow(-1. + sh,-7)*
733 pow(sh,-10)*(-20. - 112.*sh - 132.*pow(sh,2) +
734 448.*pow(sh,3) + 1568.*pow(sh,4) +
735 16548.*pow(sh,5) - 99448.*pow(sh,6) +
736 212137.*pow(sh,7) - 240168.*pow(sh,8) +
737 162112.*pow(sh,9) - 68488.*pow(sh,10) +
738 15610.*pow(sh,11) - 980.*pow(sh,12) +
739 20.*pow(sh,13) - 105.*pow(sh,14) +
740 135.*pow(sh,15)) +
741 7.838526357044875e-7*pow(-1. + sh,-6)*pow(sh,-10)*
742 (4620. + 4284.*sh - 102942.*pow(sh,2) -
743 351078.*pow(sh,3) - 268254.*pow(sh,4) +
744 1.062621e7*pow(sh,5) - 2.1816102e7*pow(sh,6) -
745 1.1713284e7*pow(sh,7) + 9.2176614e7*pow(sh,8) -
746 1.30993468e8*pow(sh,9) +
747 9.7705975e7*pow(sh,10) -
748 8.3020137e7*pow(sh,11) +
749 1.22513471e8*pow(sh,12) -
750 1.48849691e8*pow(sh,13) +
751 1.22190192e8*pow(sh,14) +
752 1.1648879e8*pow(sh,15) - 5.630639e8*pow(sh,16) +
753 4.247208e8*pow(sh,17) + 8.672076e8*pow(sh,18) -
754 2.255526e9*pow(sh,19) + 2.3724372e9*pow(sh,20) -
755 1.4385273e9*pow(sh,21) + 5.355966e8*pow(sh,22) -
756 1.205778e8*pow(sh,23) + 1.5036e7*pow(sh,24) -
757 795900.*pow(sh,25))) -
758 6.22105266432133e-10*pow(-1. + sh,-7)*pow(sh,-10)*
759 (1.60524e6 - 3.372768e6*sh - 2.1255318e7*pow(sh,2) +
760 5.1364152e7*pow(sh,3) + 1.37438532e8*pow(sh,4) -
761 4.2259525308e10*pow(sh,5) +
762 2.74794978024e11*pow(sh,6) -
763 7.61157740601e11*pow(sh,7) +
764 1.144773779814e12*pow(sh,8) -
765 9.93234387676e11*pow(sh,9) +
766 5.07224614904e11*pow(sh,10) -
767 2.38950893986e11*pow(sh,11) +
768 2.88773890244e11*pow(sh,12) -
769 3.74015495266e11*pow(sh,13) +
770 2.45587937594e11*pow(sh,14) +
771 5.02610946089e11*pow(sh,15) -
772 1.90653668497e12*pow(sh,16) +
773 2.1081380789e12*pow(sh,17) +
774 1.1357177076e12*pow(sh,18) -
775 6.24126592845e12*pow(sh,19) +
776 8.68889605815e12*pow(sh,20) -
777 6.88407273225e12*pow(sh,21) +
778 3.47059394955e12*pow(sh,22) -
779 1.1307208248e12*pow(sh,23) +
780 2.301705126e11*pow(sh,24) -
781 2.65567113e10*pow(sh,25) + 1.3226913e9*pow(sh,26) -
782 264600.*PI2*
783 (60. + 336.*sh + 396.*pow(sh,2) -
784 1344.*pow(sh,3) - 4704.*pow(sh,4) -
785 127764.*pow(sh,5) + 807808.*pow(sh,6) -
786 2.054287e6*pow(sh,7) + 2.890968e6*pow(sh,8) -
787 2.434312e6*pow(sh,9) + 1.206688e6*pow(sh,10) -
788 345954.*pow(sh,11) + 158816.*pow(sh,12) -
789 132224.*pow(sh,13) - 435459.*pow(sh,14) +
790 2.009791e6*pow(sh,15) - 3.32854e6*pow(sh,16) +
791 895300.*pow(sh,17) + 6.5037e6*pow(sh,18) -
792 1.38369e7*pow(sh,19) + 1.50031e7*pow(sh,20) -
793 1.02879e7*pow(sh,21) + 4.6809e6*pow(sh,22) -
794 1.4084e6*pow(sh,23) + 268800.*pow(sh,24) -
795 29400.*pow(sh,25) + 1400.*pow(sh,26))))*pow(z,6);
796 }
797 else {
798 res += pow(z,6)*(24.733805819607653 -
799 658.4526886654753*(1. - 1.*sh) -
800 1475.1364432727344*pow(1. - 1.*sh,2) -
801 3606.730264376797*pow(1. - 1.*sh,3) -
802 10286.147459271095*pow(1. - 1.*sh,4) +
803 log(z)*(60.344916140667145 -
804 182.02114574142348*(1. - 1.*sh) +
805 236.5865278308859*pow(1. - 1.*sh,2) +
806 1085.4690469343443*pow(1. - 1.*sh,3) +
807 2155.306243897463*pow(1. - 1.*sh,4)) +
808 (-7.148148148148148 + sh +
809 120.49135802469135*pow(1. - 1.*sh,2) +
810 264.53827160493825*pow(1. - 1.*sh,3) +
811 620.7407407407408*pow(1. - 1.*sh,4))*pow(log(z),2));
812 }
813 }
814
815 if(13<=maxpow) {
816 if(sh<.900001) {
817 res += 0.000011959607919203879*PI2*
818 pow(sh,-11)*(693. + 9450.*sh + 60305.*pow(sh,2) +
819 238200.*pow(sh,3) + 642234.*pow(sh,4) +
820 1.173308e6*pow(sh,5) + 642234.*pow(sh,6) +
821 238200.*pow(sh,7) + 60305.*pow(sh,8) +
822 9450.*pow(sh,9) + 693.*pow(sh,10))*pow(z,6.5);
823 }
824 else {
825 res += (362.9710404207588 + 2177.8262425245525*(1. - 1.*sh) +
826 7894.6201291515035*pow(1. - 1.*sh,2) +
827 22231.97622577148*pow(1. - 1.*sh,3) +
828 53453.96732767853*pow(1. - 1.*sh,4))*pow(z,6.5);
829 }
830 }
831
832 if(14<=maxpow) {
833 if(sh<.900001) {
834 res += (15.671260367117672*pow(-1. + sh,-3)*pow(sh,-5) -
835 13.037037037037036*Li3sh*pow(-1. + sh,-3)*pow(sh,-5) +
836 4.345679012345679*pow(Lsh,3)*pow(-1. + sh,-3)*
837 pow(sh,-5) - 0.35555555555555557*cl2*sqrt4sh*sqrtsh*
838 pow(sh,3)*(252. - 1383.*sh - 342.*pow(sh,2) +
839 2808.*pow(sh,3) - 2380.*pow(sh,4) +
840 870.*pow(sh,5) - 150.*pow(sh,6) + 10.*pow(sh,7)) -
841 0.005643738977072311*ash*sqrt4sh*sqrtsh*
842 pow(-1. + sh,-3)*pow(sh,3)*
843 (-28035. + 242727.*sh - 521748.*pow(sh,2) +
844 32319.*pow(sh,3) + 1.309096e6*pow(sh,4) -
845 2.07882e6*pow(sh,5) + 1.572282e6*pow(sh,6) -
846 674165.*pow(sh,7) + 166995.*pow(sh,8) -
847 22266.*pow(sh,9) + 1237.*pow(sh,10)) +
848 0.05925925925925926*Li2sh*pow(-1. + sh,-8)*pow(sh,-6)*
849 (-880. + 6748.*sh - 22484.*pow(sh,2) +
850 42350.*pow(sh,3) - 48950.*pow(sh,4) +
851 34980.*pow(sh,5) - 14476.*pow(sh,6) +
852 2770.*pow(sh,7) - 11.*pow(sh,11) + 3.*pow(sh,12)) +
853 1.0666666666666667*pow(ash,2)*pow(-1. + sh,-4)*
854 pow(sh,3)*(-70. + 1890.*sh - 9345.*pow(sh,2) +
855 15946.*pow(sh,3) - 39510.*pow(sh,5) +
856 66255.*pow(sh,6) - 56700.*pow(sh,7) +
857 29358.*pow(sh,8) - 9520.*pow(sh,9) +
858 1890.*pow(sh,10) - 210.*pow(sh,11) + 10.*pow(sh,12))
859 - 1.*Lsh*(-13.037037037037036*Li2sh*pow(-1. + sh,-3)*
860 pow(sh,-5) + 0.35555555555555557*ash*sqrt4sh*
861 sqrtsh*pow(sh,3)*
862 (252. - 1383.*sh - 342.*pow(sh,2) +
863 2808.*pow(sh,3) - 2380.*pow(sh,4) +
864 870.*pow(sh,5) - 150.*pow(sh,6) + 10.*pow(sh,7))\
865 + 1.1197894795778394e-6*pow(-1. + sh,-8)*
866 pow(sh,-12)*(-3900. - 100.*sh +
867 116036.*pow(sh,2) + 329570.*pow(sh,3) -
868 93490.*pow(sh,4) - 1.36222e6*pow(sh,5) +
869 140.*(-163613. + 332640.*Lshb)*pow(sh,6) -
870 2.*(-5.1887161e7 + 1.7855208e8*Lshb +
871 4.851e6*PI2)*pow(sh,7) +
872 2.*(-9.0883589e7 + 5.9492664e8*Lshb +
873 2.4255e7*PI2)*pow(sh,8)\
874 - 880.*(-178124. + 2.546775e6*Lshb +
875 110250.*PI2)*pow(sh,9) +
876 5.*(-1.1387749e7 + 5.180868e8*Lshb +
877 1.9404e7*PI2)*pow(sh,10)\
878 - 5.*(1.387987e6 + 3.7022832e8*Lshb +
879 9.702e6*PI2)*pow(sh,11)\
880 + (1.1437831e7 + 7.6606992e8*Lshb +
881 9.702e6*PI2)*pow(sh,12)\
882 - 28.*(18397. + 5.2353e6*Lshb)*pow(sh,13) -
883 936145.*pow(sh,14) + 351575.*pow(sh,15) +
884 587265.*pow(sh,16) +
885 1176.*(-38. + 495.*Lshb)*pow(sh,17) -
886 294.*(61. + 540.*Lshb)*pow(sh,18))) -
887 0.00023515579071134627*pow(Lsh,2)*pow(-1. + sh,-9)*
888 pow(sh,-12)*(60. + 340.*sh + 312.*pow(sh,2) -
889 1872.*pow(sh,3) - 4980.*pow(sh,4) -
890 1620.*pow(sh,5) - 92970.*pow(sh,6) +
891 (934391. - 27720.*Lshb)*pow(sh,7) +
892 30.*(-97057. + 5544.*Lshb)*pow(sh,8) +
893 (4.537599e6 - 415800.*Lshb)*pow(sh,9) +
894 5.*(-756467. + 110880.*Lshb)*pow(sh,10) -
895 15.*(-89267. + 27720.*Lshb)*pow(sh,11) +
896 6.*(48563. + 27720.*Lshb)*pow(sh,12) -
897 10.*(40823. + 2772.*Lshb)*pow(sh,13) +
898 99792.*pow(sh,14) + 1386.*pow(sh,17) -
899 1764.*pow(sh,18) + 378.*pow(sh,19)) -
900 0.00023515579071134627*pow(lz,2)*pow(sh,-12)*
901 (-15. - 220.*sh - 1518.*pow(sh,2) - 6534.*pow(sh,3) -
902 19503.*pow(sh,4) - 41580.*pow(sh,5) +
903 34650.*pow(sh,6) - 11094.*pow(sh,7) +
904 2061.*pow(sh,8) + 13740.*pow(sh,9) +
905 12253.*pow(sh,10) + 15.*pow(sh,11) +
906 52920.*pow(sh,12) + 55188.*pow(sh,13) +
907 61992.*pow(sh,14) + 49140.*pow(sh,15) +
908 706860.*pow(sh,16) - 807030.*pow(sh,17) -
909 1.307124e6*pow(sh,18) + 2.391984e6*pow(sh,19) -
910 1.45908e6*pow(sh,20) + 434700.*pow(sh,21) -
911 64260.*pow(sh,22) + 3780.*pow(sh,23)) -
912 1.*lz*(6.518518518518518*pow(Lsh,2)*pow(-1. + sh,-3)*
913 pow(sh,-5) + 0.7111111111111111*ash*sqrt4sh*sqrtsh*
914 pow(sh,3)*(252. - 1383.*sh - 342.*pow(sh,2) +
915 2808.*pow(sh,3) - 2380.*pow(sh,4) +
916 870.*pow(sh,5) - 150.*pow(sh,6) + 10.*pow(sh,7))\
917 + 0.00047031158142269255*Lsh*pow(-1. + sh,-8)*
918 pow(sh,-12)*(30. + 200.*sh + 356.*pow(sh,2) -
919 580.*pow(sh,3) - 3070.*pow(sh,4) -
920 3880.*pow(sh,5) - 95410.*pow(sh,6) +
921 738379.*pow(sh,7) - 2.056331e6*pow(sh,8) +
922 3.10735e6*pow(sh,9) - 2.878135e6*pow(sh,10) +
923 1.70477e6*pow(sh,11) - 636256.*pow(sh,12) +
924 132944.*pow(sh,13) - 2380.*pow(sh,14) -
925 2065.*pow(sh,15) + 315.*pow(sh,16) -
926 168.*pow(sh,17) + 231.*pow(sh,18)) -
927 3.39330145326618e-8*pow(-1. + sh,-7)*pow(sh,-12)*
928 (64350. + 66000.*sh - 1.848594e6*pow(sh,2) -
929 7.286499e6*pow(sh,3) - 5.743914e6*pow(sh,4) +
930 1.6732716e7*pow(sh,5) + 8.36674146e8*pow(sh,6) -
931 3.086059581e9*pow(sh,7) +
932 2.920757103e9*pow(sh,8) +
933 4.213007403e9*pow(sh,9) -
934 1.3030540952e10*pow(sh,10) +
935 1.3445244908e10*pow(sh,11) -
936 5.400217599e9*pow(sh,12) -
937 4.838723267e9*pow(sh,13) +
938 1.4220596345e10*pow(sh,14) -
939 1.7384453508e10*pow(sh,15) +
940 7.769749144e9*pow(sh,16) +
941 1.428417884e9*pow(sh,17) +
942 4.8744289353e10*pow(sh,18) -
943 1.85048020584e11*pow(sh,19) +
944 2.17589171184e11*pow(sh,20) +
945 1.46917624392e11*pow(sh,21) -
946 8.1335313675e11*pow(sh,22) +
947 1.2454621641e12*pow(sh,23) -
948 1.1155514832e12*pow(sh,24) +
949 6.5679027876e11*pow(sh,25) -
950 2.615261418e11*pow(sh,26) +
951 6.977252898e10*pow(sh,27) -
952 1.19369943e10*pow(sh,28) +
953 1.18203624e9*pow(sh,29) - 5.143446e7*pow(sh,30)))
954 - 2.4482694468009954e-12*pow(-1. + sh,-8)*pow(sh,-12)*
955 (-2.074545e8 + 4.76982e8*sh +
956 3.223561968e9*pow(sh,2) -
957 1.2229671465e10*pow(sh,3) -
958 5.5118379195e10*pow(sh,4) +
959 5.758493697e10*pow(sh,5) +
960 3.34335296988e13*pow(sh,6) -
961 2.46183339844728e14*pow(sh,7) +
962 7.88493088730853e14*pow(sh,8) -
963 1.41978242154342e15*pow(sh,9) +
964 1.554606048182275e15*pow(sh,10) -
965 1.04527795567331e15*pow(sh,11) +
966 4.00804930228849e14*pow(sh,12) +
967 4.89753913432e12*pow(sh,13) -
968 2.6147112177326e14*pow(sh,14) +
969 4.2032307297505e14*pow(sh,15) -
970 3.35740716930395e14*pow(sh,16) +
971 2.57962579027846e14*pow(sh,17) -
972 1.575614131965377e15*pow(sh,18) +
973 5.472481687455111e15*pow(sh,19) -
974 8.337459144709044e15*pow(sh,20) +
975 1.620077584398966e15*pow(sh,21) +
976 1.7052028891101666e16*pow(sh,22) -
977 3.5835539060836744e16*pow(sh,23) +
978 4.028199224768888e16*pow(sh,24) -
979 2.974451143108045e16*pow(sh,25) +
980 1.5207708416925024e16*pow(sh,26) -
981 5.427604622626956e15*pow(sh,27) +
982 1.32696547935336e15*pow(sh,28) -
983 2.1153689203878e14*pow(sh,29) +
984 1.97724893751e13*pow(sh,30) -
985 8.2047522942e11*pow(sh,31) +
986 3.20166e7*PI2*
987 (90. + 600.*sh + 1068.*pow(sh,2) -
988 1740.*pow(sh,3) - 9210.*pow(sh,4) -
989 11640.*pow(sh,5) - 771330.*pow(sh,6) +
990 5.877289e6*pow(sh,7) - 1.8209993e7*pow(sh,8) +
991 3.175429e7*pow(sh,9) - 3.4335085e7*pow(sh,10) +
992 2.335241e7*pow(sh,11) - 9.338992e6*pow(sh,12) +
993 1.311716e6*pow(sh,13) + 1.360208e6*pow(sh,14) -
994 2.228227e6*pow(sh,15) + 3.717793e6*pow(sh,16) -
995 1.4308436e7*pow(sh,17) +
996 4.9487425e7*pow(sh,18) -
997 9.6430764e7*pow(sh,19) +
998 7.2149616e7*pow(sh,20) +
999 1.14281496e8*pow(sh,21) -
1000 4.10382504e8*pow(sh,22) +
1001 6.13666368e8*pow(sh,23) -
1002 5.83391592e8*pow(sh,24) +
1003 3.84934788e8*pow(sh,25) -
1004 1.80700632e8*pow(sh,26) +
1005 6.0198768e7*pow(sh,27) - 1.389528e7*pow(sh,28) +
1006 2.10924e6*pow(sh,29) - 189000.*pow(sh,30) +
1007 7560.*pow(sh,31))))*pow(z,7);
1008 }
1009 else {
1010 res += pow(z,7)*(71.68678327155476 -
1011 2907.1819685415394*(1. - 1.*sh) -
1012 7242.316104312352*pow(1. - 1.*sh,2) -
1013 19566.456626720403*pow(1. - 1.*sh,3) -
1014 62593.82522143261*pow(1. - 1.*sh,4) +
1015 log(z)*(209.6252762986713 -
1016 843.5722636566957*(1. - 1.*sh) +
1017 1005.2636076321755*pow(1. - 1.*sh,2) +
1018 5346.8253794058*pow(1. - 1.*sh,3) +
1019 10582.64385187247*pow(1. - 1.*sh,4)) +
1020 (-23.82716049382716 -
1021 10.365432098765432*(1. - 1.*sh) +
1022 574.3111111111111*pow(1. - 1.*sh,2) +
1023 1325.2987654320987*pow(1. - 1.*sh,3) +
1024 3439.3086419753085*pow(1. - 1.*sh,4))*pow(log(z),2));
1025 }
1026 }
1027
1028 if(15<=maxpow) {
1029 if(sh<.900001) {
1030 res += 2.0239336478652717e-6*PI2*pow(sh,-13)*
1031 (3003. + 47124.*sh + 349398.*pow(sh,2) +
1032 1.62554e6*pow(sh,3) + 5.297685e6*pow(sh,4) +
1033 1.265412e7*pow(sh,5) + 2.15477e7*pow(sh,6) +
1034 1.265412e7*pow(sh,7) + 5.297685e6*pow(sh,8) +
1035 1.62554e6*pow(sh,9) + 349398.*pow(sh,10) +
1036 47124.*pow(sh,11) + 3003.*pow(sh,12))*pow(z,7.5);
1037 }
1038 else {
1039 res += (1228.5173675779529 + 8599.62157304567*(1. - 1.*sh) +
1040 35504.151923002835*pow(1. - 1.*sh,2) +
1041 112040.7839231093*pow(1. - 1.*sh,3) +
1042 298286.2106289405*pow(1. - 1.*sh,4))*pow(z,7.5);
1043 }
1044 }
1045
1046 if(16<=maxpow){
1047 if(sh<.900001) {
1048 res += (43.6556538798278*pow(-1. + sh,-3)*pow(sh,-6) -
1049 36.317460317460316*Li3sh*pow(-1. + sh,-3)*pow(sh,-6) +
1050 12.105820105820106*pow(Lsh,3)*pow(-1. + sh,-3)*
1051 pow(sh,-6) + 1.9555555555555555*cl2*sqrt4sh*sqrtsh*
1052 pow(sh,3)*(16. - 564.*sh + 2004.*pow(sh,2) +
1053 294.*pow(sh,3) - 4650.*pow(sh,4) +
1054 5035.*pow(sh,5) - 2500.*pow(sh,6) +
1055 660.*pow(sh,7) - 90.*pow(sh,8) + 5.*pow(sh,9)) +
1056 0.0007054673721340388*ash*sqrt4sh*sqrtsh*
1057 pow(-1. + sh,-3)*pow(sh,3)*
1058 (-85472. + 3.302568e6*sh - 2.0385756e7*pow(sh,2) +
1059 4.0397342e7*pow(sh,3) - 3.614472e6*pow(sh,4) -
1060 1.04197295e8*pow(sh,5) + 1.83802625e8*pow(sh,6) -
1061 1.60798287e8*pow(sh,7) + 8.4097289e7*pow(sh,8) -
1062 2.7378339e7*pow(sh,9) + 5.441121e6*pow(sh,10) -
1063 604569.*pow(sh,11) + 28789.*pow(sh,12)) -
1064 5.866666666666666*pow(ash,2)*pow(-1. + sh,-4)*pow(sh,4)*
1065 (280. - 3850.*sh + 16128.*pow(sh,2) -
1066 26340.*pow(sh,3) + 69345.*pow(sh,5) -
1067 126120.*pow(sh,6) + 121044.*pow(sh,7) -
1068 73080.*pow(sh,8) + 29050.*pow(sh,9) -
1069 7600.*pow(sh,10) + 1260.*pow(sh,11) -
1070 120.*pow(sh,12) + 5.*pow(sh,13)) +
1071 0.0014109347442680777*Li2sh*pow(-1. + sh,-9)*pow(sh,-7)*
1072 (115830. - 1.00518e6*sh + 3.85476e6*pow(sh,2) -
1073 8.55036e6*pow(sh,3) + 1.203202e7*pow(sh,4) -
1074 1.104103e7*pow(sh,5) + 6.48648e6*pow(sh,6) -
1075 2.24796e6*pow(sh,7) + 352374.*pow(sh,8) -
1076 455.*pow(sh,13) + 140.*pow(sh,14)) -
1077 1.*Lsh*(-36.317460317460316*Li2sh*pow(-1. + sh,-3)*
1078 pow(sh,-6) - 1.9555555555555555*ash*sqrt4sh*sqrtsh*
1079 pow(sh,3)*(16. - 564.*sh + 2004.*pow(sh,2) +
1080 294.*pow(sh,3) - 4650.*pow(sh,4) +
1081 5035.*pow(sh,5) - 2500.*pow(sh,6) +
1082 660.*pow(sh,7) - 90.*pow(sh,8) + 5.*pow(sh,9)) +
1083 1.1997744424048278e-7*pow(-1. + sh,-9)*pow(sh,-14)*
1084 (23625. + 2250.*sh - 884825.*pow(sh,2) -
1085 3.042036e6*pow(sh,3) - 226209.*pow(sh,4) +
1086 1.547673e7*pow(sh,5) + 1.7445585e7*pow(sh,6) -
1087 90.*(-7.706801e6 + 1.513512e7*Lshb)*pow(sh,7) +
1088 (-4.511940709e9 + 1.18209168e10*Lshb +
1089 2.52252e8*PI2)*pow(sh,8)\
1090 - 78.*(-1.49774363e8 + 5.811792e8*Lshb +
1091 1.9404e7*PI2)*pow(sh,9)\
1092 + 45.*(-3.71984831e8 + 2.23449408e9*Lshb +
1093 8.4084e7*PI2)*pow(sh,10)\
1094 - 2860.*(-5.103001e6 + 4.947432e7*Lshb +
1095 1.764e6*PI2)*pow(sh,11)\
1096 + 5.*(-1.592356747e9 + 2.596850256e10*Lshb +
1097 7.56756e8*PI2)*pow(sh,12)
1098 - 6.*(-4.63805653e8 + 1.27135008e10*Lshb +
1099 2.52252e8*PI2)*pow(sh,13)
1100 + 3.*(-2.34797011e8 + 8.8120032e9*Lshb +
1101 8.4084e7*PI2)*pow(sh,14)\
1102 - 70.*(-1.717333e6 + 5.9198832e7*Lshb)*
1103 pow(sh,15) - 1.488018e7*pow(sh,16) -
1104 1.051134e7*pow(sh,17) + 4.314492e6*pow(sh,18) +
1105 5.300568e6*pow(sh,19) +
1106 4200.*(-185. + 1274.*Lshb)*pow(sh,20) -
1107 1400.*(85. + 1176.*Lshb)*pow(sh,21))) -
1108 0.00010078105316200554*pow(Lsh,2)*pow(-1. + sh,-10)*
1109 pow(sh,-14)*(-105. - 705.*sh - 1085.*pow(sh,2) +
1110 3227.*pow(sh,3) + 12621.*pow(sh,4) +
1111 7077.*pow(sh,5) - 23415.*pow(sh,6) +
1112 716940.*pow(sh,7) +
1113 (-7.485607e6 + 180180.*Lshb)*pow(sh,8) -
1114 14.*(-2.017121e6 + 90090.*Lshb)*pow(sh,9) +
1115 12012.*(-4661. + 315.*Lshb)*pow(sh,10) -
1116 2100.*(-30895. + 3003.*Lshb)*pow(sh,11) +
1117 35.*(-1.228621e6 + 180180.*Lshb)*pow(sh,12) -
1118 14.*(-875647. + 270270.*Lshb)*pow(sh,13) +
1119 14.*(198131. + 90090.*Lshb)*pow(sh,14) -
1120 2.*(1.519451e6 + 90090.*Lshb)*pow(sh,15) +
1121 645645.*pow(sh,16) + 3185.*pow(sh,20) -
1122 4165.*pow(sh,21) + 980.*pow(sh,22)) +
1123 0.000025195263290501386*pow(lz,2)*pow(sh,-14)*
1124 (105. + 1755.*sh + 13910.*pow(sh,2) +
1125 69498.*pow(sh,3) + 244959.*pow(sh,4) +
1126 642213.*pow(sh,5) + 1.26126e6*pow(sh,6) -
1127 1.08108e6*pow(sh,7) + 433071.*pow(sh,8) +
1128 67773.*pow(sh,9) - 377694.*pow(sh,10) -
1129 501530.*pow(sh,11) - 344895.*pow(sh,12) -
1130 105.*pow(sh,13) - 1.55232e6*pow(sh,14) -
1131 1.591128e6*pow(sh,15) - 1.707552e6*pow(sh,16) -
1132 1.9404e6*pow(sh,17) + 3.10464e6*pow(sh,18) -
1133 5.588352e7*pow(sh,19) + 6.4731744e7*pow(sh,20) +
1134 9.7485696e7*pow(sh,21) - 2.250864e8*pow(sh,22) +
1135 1.751211e8*pow(sh,23) - 7.101864e7*pow(sh,24) +
1136 1.610532e7*pow(sh,25) - 1.9404e6*pow(sh,26) +
1137 97020.*pow(sh,27)) -
1138 1.*lz*(18.158730158730158*pow(Lsh,2)*pow(-1. + sh,-3)*
1139 pow(sh,-6) - 3.911111111111111*ash*sqrt4sh*sqrtsh*
1140 pow(sh,3)*(16. - 564.*sh + 2004.*pow(sh,2) +
1141 294.*pow(sh,3) - 4650.*pow(sh,4) +
1142 5035.*pow(sh,5) - 2500.*pow(sh,6) +
1143 660.*pow(sh,7) - 90.*pow(sh,8) + 5.*pow(sh,9)) +
1144 0.00010078105316200554*Lsh*pow(-1. + sh,-9)*
1145 pow(sh,-14)*(-105. - 810.*sh - 1895.*pow(sh,2) +
1146 1332.*pow(sh,3) + 13953.*pow(sh,4) +
1147 21030.*pow(sh,5) - 2385.*pow(sh,6) +
1148 1.39023e6*pow(sh,7) - 1.2340463e7*pow(sh,8) +
1149 4.2069858e7*pow(sh,9) - 7.9546665e7*pow(sh,10) +
1150 9.44649e7*pow(sh,11) - 7.3941065e7*pow(sh,12) +
1151 3.83046e7*pow(sh,13) - 1.2446415e7*pow(sh,14) +
1152 1.976646e6*pow(sh,15) + 12600.*pow(sh,16) -
1153 15820.*pow(sh,17) - 9744.*pow(sh,18) +
1154 2604.*pow(sh,19) - 630.*pow(sh,20) +
1155 910.*pow(sh,21)) +
1156 1.398338510961338e-10*pow(-1. + sh,-8)*pow(sh,-14)*
1157 (1.0135125e7 + 1.1100375e7*sh -
1158 3.6848955e8*pow(sh,2) -
1159 1.673522994e9*pow(sh,3) -
1160 1.770566655e9*pow(sh,4) +
1161 4.868950515e9*pow(sh,5) +
1162 1.235310648e10*pow(sh,6) +
1163 6.7286773554e11*pow(sh,7) -
1164 3.536335413468e12*pow(sh,8) +
1165 6.50817484746e12*pow(sh,9) -
1166 2.54454845502e12*pow(sh,10) -
1167 9.21737859458e12*pow(sh,11) +
1168 1.734525157846e13*pow(sh,12) -
1169 1.3825678158092e13*pow(sh,13) +
1170 6.1111523809e12*pow(sh,14) -
1171 5.967579184772e12*pow(sh,15) +
1172 1.5549203270443e13*pow(sh,16) -
1173 2.5319186594687e13*pow(sh,17) +
1174 2.6298770135182e13*pow(sh,18) -
1175 2.5191363944162e13*pow(sh,19) +
1176 5.842005220263e12*pow(sh,20) +
1177 1.75096058403693e14*pow(sh,21) -
1178 6.63423072171552e14*pow(sh,22) +
1179 1.020989867585688e15*pow(sh,23) -
1180 8.1473828147712e13*pow(sh,24) -
1181 2.68267039048008e15*pow(sh,25) +
1182 5.80722293943792e15*pow(sh,26) -
1183 7.01674940414448e15*pow(sh,27) +
1184 5.70997655452224e15*pow(sh,28) -
1185 3.30275638300608e15*pow(sh,29) +
1186 1.37813214547008e15*pow(sh,30) -
1187 4.1220913139406e14*pow(sh,31) +
1188 8.614194412824e13*pow(sh,32) -
1189 1.192739023476e13*pow(sh,33) +
1190 9.8172946872e11*pow(sh,34) -
1191 3.631041414e10*pow(sh,35))) -
1192 3.8803932483109607e-16*pow(-1. + sh,-9)*pow(sh,-14)*
1193 (7.34806697625e11 - 1.86465740175e12*sh -
1194 1.3539275231625e13*pow(sh,2) +
1195 6.7027116030732e13*pow(sh,3) +
1196 3.63276406618983e14*pow(sh,4) +
1197 7.707518005473e13*pow(sh,5) -
1198 2.669628886797015e15*pow(sh,6) -
1199 6.770358403959922e17*pow(sh,7) +
1200 5.635158490072595e18*pow(sh,8) -
1201 2.0599256704963682e19*pow(sh,9) +
1202 4.3339042510046585e19*pow(sh,10) -
1203 5.744182115659437e19*pow(sh,11) +
1204 4.931522650068433e19*pow(sh,12) -
1205 2.7187236012238836e19*pow(sh,13) +
1206 9.574972725219654e18*pow(sh,14) -
1207 3.9829978513193257e18*pow(sh,15) +
1208 7.101765583473753e18*pow(sh,16) -
1209 1.3106460108909054e19*pow(sh,17) +
1210 1.6417164883861897e19*pow(sh,18) -
1211 1.614980340692014e19*pow(sh,19) +
1212 1.6686933598961236e18*pow(sh,20) +
1213 1.0406361743628665e20*pow(sh,21) -
1214 4.1780318877359584e20*pow(sh,22) +
1215 7.917494561077571e20*pow(sh,23) -
1216 5.495025478671567e20*pow(sh,24) -
1217 9.680750952822325e20*pow(sh,25) +
1218 3.329447282273382e21*pow(sh,26) -
1219 5.025975451497482e21*pow(sh,27) +
1220 4.956441109581607e21*pow(sh,28) -
1221 3.485807792682049e21*pow(sh,29) +
1222 1.7988128583543858e21*pow(sh,30) -
1223 6.841200805238499e20*pow(sh,31) +
1224 1.8949802366821115e20*pow(sh,32) -
1225 3.71347919316412e19*pow(sh,33) +
1226 4.870681746866896e18*pow(sh,34) -
1227 3.8293915404046304e17*pow(sh,35) +
1228 1.362249094884678e16*pow(sh,36) -
1229 4.32864432e10*PI2*
1230 (315. + 2430.*sh + 5685.*pow(sh,2) -
1231 3996.*pow(sh,3) - 41859.*pow(sh,4) -
1232 63090.*pow(sh,5) + 7155.*pow(sh,6) -
1233 1.119771e7*pow(sh,7) + 9.7239319e7*pow(sh,8) -
1234 3.54595974e8*pow(sh,9) +
1235 7.40399865e8*pow(sh,10) -
1236 9.8372572e8*pow(sh,11) +
1237 8.60053945e8*pow(sh,12) -
1238 4.8766596e8*pow(sh,13) +
1239 1.66863615e8*pow(sh,14) -
1240 3.4122042e7*pow(sh,15) + 2.632797e7*pow(sh,16) -
1241 5.075218e7*pow(sh,17) + 5.5929402e7*pow(sh,18) +
1242 5.4364188e7*pow(sh,19) -
1243 7.17712236e8*pow(sh,20) +
1244 2.87081535e9*pow(sh,21) -
1245 6.45842757e9*pow(sh,22) +
1246 7.27388046e9*pow(sh,23) +
1247 2.42462682e9*pow(sh,24) -
1248 2.5172149464e10*pow(sh,25) +
1249 5.057866044e10*pow(sh,26) -
1250 6.234146226e10*pow(sh,27) +
1251 5.421545514e10*pow(sh,28) -
1252 3.47700276e10*pow(sh,29) +
1253 1.6675099056e10*pow(sh,30) -
1254 5.96740914e9*pow(sh,31) +
1255 1.5692985e9*pow(sh,32) - 2.939706e8*pow(sh,33) +
1256 3.706164e7*pow(sh,34) - 2.81358e6*pow(sh,35) +
1257 97020.*pow(sh,36))))*pow(z,8);
1258 }
1259 else {
1260 res += pow(z,8)*(227.9127121130888 -
1261 12564.351589175983*(1. - 1.*sh) -
1262 34464.767151214546*pow(1. - 1.*sh,2) -
1263 102040.51747314115*pow(1. - 1.*sh,3) -
1264 362196.8892583663*pow(1. - 1.*sh,4) +
1265 log(z)*(751.6870505074294 -
1266 3757.8602857129536*(1. - 1.*sh) +
1267 4373.596775680889*pow(1. - 1.*sh,2) +
1268 26074.528627752614*pow(1. - 1.*sh,3) +
1269 50226.02585572963*pow(1. - 1.*sh,4)) +
1270 (-91.85185185185185 - 59.74814814814815*(1. - 1.*sh) +
1271 2707.866666666667*pow(1. - 1.*sh,2) +
1272 6532.044444444445*pow(1. - 1.*sh,3) +
1273 18560.308994708994*pow(1. - 1.*sh,4))*pow(log(z),2));
1274 }
1275 }
1276
1277 if(17<=maxpow) {
1278 if(sh<.900001) {
1279 res += 7.222665174734891e-7*PI2*pow(sh,-15)*
1280 (6435. + 114114.*sh + 962577.*pow(sh,2) +
1281 5.137524e6*pow(sh,3) + 1.9445755e7*pow(sh,4) +
1282 5.526435e7*pow(sh,5) + 1.20557265e8*pow(sh,6) +
1283 1.9446652e8*pow(sh,7) + 1.20557265e8*pow(sh,8) +
1284 5.526435e7*pow(sh,9) + 1.9445755e7*pow(sh,10) +
1285 5.137524e6*pow(sh,11) + 962577.*pow(sh,12) +
1286 114114.*pow(sh,13) + 6435.*pow(sh,14))*pow(z,8.5);
1287 }
1288 else {
1289 res += (4258.8602076035695 + 34070.881660828556*(1. - 1.*sh) +
1290 157790.77069171227*pow(1. - 1.*sh,2) +
1291 551309.4538742821*pow(1. - 1.*sh,3) +
1292 1.6090506221852237e6*pow(1. - 1.*sh,4))*pow(z,8.5);
1293 }
1294 }
1295
1296 if(18<=maxpow) {
1297 if(sh<.900001) {
1298 res += (127.32899048283109*pow(-1. + sh,-3)*pow(sh,-7) -
1299 105.92592592592592*Li3sh*pow(-1. + sh,-3)*pow(sh,-7) +
1300 35.30864197530864*pow(Lsh,3)*pow(-1. + sh,-3)*
1301 pow(sh,-7) - 4.035273368606702*cl2*sqrt4sh*sqrtsh*
1302 pow(sh,4)*(-216. + 3134.*sh - 8598.*pow(sh,2) -
1303 651.*pow(sh,3) + 21696.*pow(sh,4) -
1304 28281.*pow(sh,5) + 17655.*pow(sh,6) -
1305 6279.*pow(sh,7) + 1302.*pow(sh,8) -
1306 147.*pow(sh,9) + 7.*pow(sh,10)) -
1307 0.0001567705271408975*ash*sqrt4sh*sqrtsh*
1308 pow(-1. + sh,-3)*pow(sh,4)*
1309 (1.1439036e7 - 2.01476662e8*sh +
1310 9.97505748e8*pow(sh,2) - 1.852234251e9*pow(sh,3) +
1311 2.01151369e8*pow(sh,4) + 4.889181924e9*pow(sh,5) -
1312 9.389910087e9*pow(sh,6) + 9.234375093e9*pow(sh,7) -
1313 5.644419255e9*pow(sh,8) + 2.256993135e9*pow(sh,9) -
1314 5.91888983e8*pow(sh,10) + 9.8193564e7*pow(sh,11) -
1315 9.351768e6*pow(sh,12) + 389657.*pow(sh,13)) +
1316 12.105820105820106*pow(ash,2)*pow(-1. + sh,-4)*
1317 pow(sh,4)*(42. - 2268.*sh + 21546.*pow(sh,2) -
1318 79506.*pow(sh,3) + 124821.*pow(sh,4) -
1319 344253.*pow(sh,6) + 669627.*pow(sh,7) -
1320 706482.*pow(sh,8) + 483252.*pow(sh,9) -
1321 225666.*pow(sh,10) + 72738.*pow(sh,11) -
1322 15939.*pow(sh,12) + 2268.*pow(sh,13) -
1323 189.*pow(sh,14) + 7.*pow(sh,15)) +
1324 0.021164021164021163*Li2sh*pow(-1. + sh,-10)*pow(sh,-8)*
1325 (-25025. + 242385.*sh - 1.05138e6*pow(sh,2) +
1326 2.68422e6*pow(sh,3) - 4.45263e6*pow(sh,4) +
1327 4.98771e6*pow(sh,5) - 3.78378e6*pow(sh,6) +
1328 1.88188e6*pow(sh,7) - 559845.*pow(sh,8) +
1329 77077.*pow(sh,9) - 30.*pow(sh,15) + 10.*pow(sh,16))\
1330 - 1.*Lsh*(-105.92592592592592*Li2sh*pow(-1. + sh,-3)*
1331 pow(sh,-7) + 4.035273368606702*ash*sqrt4sh*sqrtsh*
1332 pow(sh,4)*(-216. + 3134.*sh - 8598.*pow(sh,2) -
1333 651.*pow(sh,3) + 21696.*pow(sh,4) -
1334 28281.*pow(sh,5) + 17655.*pow(sh,6) -
1335 6279.*pow(sh,7) + 1302.*pow(sh,8) -
1336 147.*pow(sh,9) + 7.*pow(sh,10)) +
1337 2.3328947491204986e-7*pow(-1. + sh,-10)*pow(sh,-16)*
1338 (-8330. - 1225.*sh + 385185.*pow(sh,2) +
1339 1.565725e6*pow(sh,3) + 766913.*pow(sh,4) -
1340 8.101569e6*pow(sh,5) - 1.6471637e7*pow(sh,6) +
1341 1.4354375e7*pow(sh,7) +
1342 315.*(-3.976811e6 + 7.2072e6*Lshb)*pow(sh,8) -
1343 5.*(-1.972645723e9 + 4.39783344e9*Lshb +
1344 7.56756e7*PI2)*pow(sh,9)\
1345 + (-3.2595109307e10 + 9.53811936e10*Lshb +
1346 2.648646e9*PI2)*
1347 pow(sh,10) -
1348 105.*(-5.86295389e8 + 2.31916608e9*Lshb +
1349 7.56756e7*PI2)*pow(sh,11)
1350 + 35.*(-2.122319939e9 + 1.154121696e10*Lshb +
1351 3.78378e8*PI2)*pow(sh,12)
1352 - 35.*(-1.717789469e9 + 1.292814432e10*Lshb +
1353 3.78378e8*PI2)*pow(sh,13)
1354 + 21.*(-1.591388717e9 + 1.63459296e10*Lshb +
1355 3.78378e8*PI2)*pow(sh,14)
1356 - 77.*(-1.67932339e8 + 2.2171968e9*Lshb +
1357 3.4398e7*PI2)*pow(sh,15)\
1358 + 16.*(-2.15122142e8 + 3.17432115e9*Lshb +
1359 2.3648625e7*PI2)*
1360 pow(sh,16) +
1361 (5.68573578e8 - 6.99242544e9*Lshb)*pow(sh,17) +
1362 1.312353e7*pow(sh,18) - 1.3816026e7*pow(sh,19) -
1363 5.493852e6*pow(sh,20) + 2.810934e6*pow(sh,21) +
1364 2.66553e6*pow(sh,22) +
1365 810.*(-653. + 3360.*Lshb)*pow(sh,23) -
1366 405.*(113. + 2240.*Lshb)*pow(sh,24))) -
1367 0.00014697236919459142*pow(Lsh,2)*pow(-1. + sh,-11)*
1368 pow(sh,-16)*(56. + 434.*sh + 920.*pow(sh,2) -
1369 1480.*pow(sh,3) - 9184.*pow(sh,4) -
1370 8932.*pow(sh,5) + 19712.*pow(sh,6) +
1371 36344.*pow(sh,7) - 1.69477e6*pow(sh,8) +
1372 (1.8252907e7 - 360360.*Lshb)*pow(sh,9) +
1373 20.*(-3.973357e6 + 144144.*Lshb)*pow(sh,10) -
1374 11440.*(-16567. + 882.*Lshb)*pow(sh,11) +
1375 56.*(-4.950037e6 + 360360.*Lshb)*pow(sh,12) -
1376 140.*(-1.822739e6 + 180180.*Lshb)*pow(sh,13) +
1377 224.*(-623131. + 90090.*Lshb)*pow(sh,14) -
1378 56.*(-585251. + 180180.*Lshb)*pow(sh,15) +
1379 8.*(968843. + 360360.*Lshb)*pow(sh,16) -
1380 1.*(6.868451e6 + 360360.*Lshb)*pow(sh,17) +
1381 1.287e6*pow(sh,18) + 2160.*pow(sh,23) -
1382 2880.*pow(sh,24) + 720.*pow(sh,25)) -
1383 0.00007348618459729571*pow(lz,2)*pow(sh,-16)*
1384 (-28. - 525.*sh - 4695.*pow(sh,2) -
1385 26650.*pow(sh,3) - 107718.*pow(sh,4) -
1386 329043.*pow(sh,5) - 782353.*pow(sh,6) -
1387 1.44144e6*pow(sh,7) + 1.26126e6*pow(sh,8) -
1388 599831.*pow(sh,9) - 230937.*pow(sh,10) +
1389 340854.*pow(sh,11) + 604990.*pow(sh,12) +
1390 577095.*pow(sh,13) + 354945.*pow(sh,14) +
1391 28.*pow(sh,15) + 1.729728e6*pow(sh,16) +
1392 1.757184e6*pow(sh,17) + 1.839552e6*pow(sh,18) +
1393 2.004288e6*pow(sh,19) + 2.855424e6*pow(sh,20) -
1394 2.6138112e7*pow(sh,21) + 1.80276096e8*pow(sh,22) -
1395 2.04107904e8*pow(sh,23) - 2.91953376e8*pow(sh,24) +
1396 8.04076416e8*pow(sh,25) - 7.54586976e8*pow(sh,26) +
1397 3.86127456e8*pow(sh,27) - 1.18294176e8*pow(sh,28) +
1398 2.1717696e7*pow(sh,29) - 2.210208e6*pow(sh,30) +
1399 96096.*pow(sh,31)) -
1400 1.*lz*(52.96296296296296*pow(Lsh,2)*pow(-1. + sh,-3)*
1401 pow(sh,-7) + 8.070546737213403*ash*sqrt4sh*sqrtsh*
1402 pow(sh,4)*(-216. + 3134.*sh - 8598.*pow(sh,2) -
1403 651.*pow(sh,3) + 21696.*pow(sh,4) -
1404 28281.*pow(sh,5) + 17655.*pow(sh,6) -
1405 6279.*pow(sh,7) + 1302.*pow(sh,8) -
1406 147.*pow(sh,9) + 7.*pow(sh,10)) +
1407 0.00029394473838918284*Lsh*pow(-1. + sh,-10)*
1408 pow(sh,-16)*(28. + 245.*sh + 705.*pow(sh,2) -
1409 35.*pow(sh,3) - 4627.*pow(sh,4) -
1410 9093.*pow(sh,5) + 763.*pow(sh,6) +
1411 18935.*pow(sh,7) - 1.594215e6*pow(sh,8) +
1412 1.5443423e7*pow(sh,9) - 6.1656473e7*pow(sh,10) +
1413 1.39716843e8*pow(sh,11) -
1414 2.03006125e8*pow(sh,12) +
1415 1.99413865e8*pow(sh,13) -
1416 1.34518335e8*pow(sh,14) +
1417 6.1151573e7*pow(sh,15) -
1418 1.7326475e7*pow(sh,16) + 2.392884e6*pow(sh,17) +
1419 25200.*pow(sh,18) + 3024.*pow(sh,19) -
1420 7560.*pow(sh,20) - 3276.*pow(sh,21) +
1421 1260.*pow(sh,22) - 180.*pow(sh,23) +
1422 270.*pow(sh,24)) +
1423 8.156974647274471e-10*pow(-1. + sh,-9)*pow(sh,-16)*
1424 (-1.19119e6 - 1.366365e6*sh +
1425 5.371509e7*pow(sh,2) + 2.77613765e8*pow(sh,3) +
1426 3.87282324e8*pow(sh,4) -
1427 7.71242043e8*pow(sh,5) -
1428 3.126686134e9*pow(sh,6) -
1429 1.074010509e9*pow(sh,7) -
1430 3.93846095214e11*pow(sh,8) +
1431 2.613136199245e12*pow(sh,9) -
1432 6.74269843533e12*pow(sh,10) +
1433 7.676937500739e12*pow(sh,11) -
1434 1.9905569996e10*pow(sh,12) -
1435 1.1323630699581e13*pow(sh,13) +
1436 1.5234053867994e13*pow(sh,14) -
1437 9.845078305115e12*pow(sh,15) +
1438 2.700610570998e12*pow(sh,16) +
1439 3.170609780136e12*pow(sh,17) -
1440 1.1930111549088e13*pow(sh,18) +
1441 2.3203039225488e13*pow(sh,19) -
1442 2.8131676788624e13*pow(sh,20) +
1443 1.8366269990976e13*pow(sh,21) +
1444 5.86498925406e12*pow(sh,22) +
1445 2.8811545081488e13*pow(sh,23) -
1446 4.5661550453265e14*pow(sh,24) +
1447 1.732122473878368e15*pow(sh,25) -
1448 3.197952696667872e15*pow(sh,26) +
1449 1.902641717625792e15*pow(sh,27) +
1450 5.333806838035104e15*pow(sh,28) -
1451 1.7146879255828608e16*pow(sh,29) +
1452 2.675706192884525e16*pow(sh,30) -
1453 2.8039050515059584e16*pow(sh,31) +
1454 2.1385006944917616e16*pow(sh,32) -
1455 1.2221439347413296e16*pow(sh,33) +
1456 5.277310784521776e15*pow(sh,34) -
1457 1.713784020076128e15*pow(sh,35) +
1458 4.11671384988864e14*pow(sh,36) -
1459 7.0855642249392e13*pow(sh,37) +
1460 8.252635735344e12*pow(sh,38) -
1461 5.81797087872e11*pow(sh,39) +
1462 1.8722239536e10*pow(sh,40))) -
1463 1.131781364090697e-15*pow(-1. + sh,-10)*pow(sh,-16)*
1464 (-1.522039519e11 + 4.26276275425e11*sh +
1465 3.315607505925e12*pow(sh,2) -
1466 1.9935815474575e13*pow(sh,3) -
1467 1.24680380503679e14*pow(sh,4) -
1468 9.4734104241777e13*pow(sh,5) +
1469 6.72219759402191e14*pow(sh,6) +
1470 2.120473984303675e15*pow(sh,7) +
1471 7.662945656754339e17*pow(sh,8) -
1472 7.132526555906264e18*pow(sh,9) +
1473 2.9416202534538686e19*pow(sh,10) -
1474 7.102049557437948e19*pow(sh,11) +
1475 1.107461387150374e20*pow(sh,12) -
1476 1.1592296841795374e20*pow(sh,13) +
1477 8.202599046107015e19*pow(sh,14) -
1478 3.867573016059e19*pow(sh,15) +
1479 1.1583790708091849e19*pow(sh,16) +
1480 5.455110631455277e16*pow(sh,17) -
1481 9.021690519674575e18*pow(sh,18) +
1482 2.0989006324251304e19*pow(sh,19) -
1483 3.024958551383288e19*pow(sh,20) +
1484 2.6235194397528736e19*pow(sh,21) -
1485 4.751003778396708e18*pow(sh,22) +
1486 3.1013412939244257e19*pow(sh,23) -
1487 4.4030880872708604e20*pow(sh,24) +
1488 1.8521539756313275e21*pow(sh,25) -
1489 4.09723866666257e21*pow(sh,26) +
1490 4.4398535867110675e21*pow(sh,27) +
1491 1.6558648776187506e21*pow(sh,28) -
1492 1.5447456223820402e22*pow(sh,29) +
1493 3.0926810843136838e22*pow(sh,30) -
1494 3.877106240961276e22*pow(sh,31) +
1495 3.495116951810053e22*pow(sh,32) -
1496 2.3715466598184745e22*pow(sh,33) +
1497 1.231700538915695e22*pow(sh,34) -
1498 4.908204594473572e21*pow(sh,35) +
1499 1.4885933408647808e21*pow(sh,36) -
1500 3.372012167296045e20*pow(sh,37) +
1501 5.517431714182939e19*pow(sh,38) -
1502 6.150944761142205e18*pow(sh,39) +
1503 4.174745980836151e17*pow(sh,40) -
1504 1.2998152420597344e16*pow(sh,41) +
1505 4.32864432e10*PI2*
1506 (84. + 735.*sh + 2115.*pow(sh,2) -
1507 105.*pow(sh,3) - 13881.*pow(sh,4) -
1508 27279.*pow(sh,5) + 2289.*pow(sh,6) +
1509 56805.*pow(sh,7) - 1.2530385e7*pow(sh,8) +
1510 1.20589919e8*pow(sh,9) -
1511 5.04052193e8*pow(sh,10) +
1512 1.226945139e9*pow(sh,11) -
1513 1.939059325e9*pow(sh,12) +
1514 2.078426665e9*pow(sh,13) -
1515 1.520105055e9*pow(sh,14) +
1516 7.36103333e8*pow(sh,15) -
1517 2.14713611e8*pow(sh,16) +
1518 1.9961346e7*pow(sh,17) +
1519 3.7191526e7*pow(sh,18) -
1520 8.4336034e7*pow(sh,19) +
1521 1.23678654e8*pow(sh,20) -
1522 1.54538642e8*pow(sh,21) +
1523 5.6921303e8*pow(sh,22) -
1524 3.377351682e9*pow(sh,23) +
1525 1.3338367312e10*pow(sh,24) -
1526 3.3040152232e10*pow(sh,25) +
1527 4.7430542016e10*pow(sh,26) -
1528 1.4900494752e10*pow(sh,27) -
1529 1.03195325376e11*pow(sh,28) +
1530 2.85860573856e11*pow(sh,29) -
1531 4.41409041216e11*pow(sh,30) +
1532 4.79314177056e11*pow(sh,31) -
1533 3.90721421376e11*pow(sh,32) +
1534 2.45176465248e11*pow(sh,33) -
1535 1.19414737728e11*pow(sh,34) +
1536 4.5058851552e10*pow(sh,35) -
1537 1.3033582848e10*pow(sh,36) +
1538 2.831770656e9*pow(sh,37) -
1539 4.46462016e8*pow(sh,38) +
1540 4.8144096e7*pow(sh,39) - 3.171168e6*pow(sh,40) +
1541 96096.*pow(sh,41))))*pow(z,9);
1542 }
1543 else {
1544 res += pow(z,9)*(781.7694061014631 -
1545 53520.67255349783*(1. - 1.*sh) -
1546 160255.89541905606*pow(1. - 1.*sh,2) -
1547 516295.64539226936*pow(1. - 1.*sh,3) -
1548 2.0156818718637745e6*pow(1. - 1.*sh,4) +
1549 log(z)*(2753.339544200989 -
1550 16340.99798716473*(1. - 1.*sh) +
1551 19367.74477240799*pow(1. - 1.*sh,2) +
1552 126117.45819550043*pow(1. - 1.*sh,3) +
1553 232002.88921917632*pow(1. - 1.*sh,4)) +
1554 (-353.1111111111111 - 291.6666666666667*(1. - 1.*sh) +
1555 12631.518518518518*pow(1. - 1.*sh,2) +
1556 31769.238095238095*pow(1. - 1.*sh,3) +
1557 98072.45502645502*pow(1. - 1.*sh,4))*pow(log(z),2));
1558 }
1559 }
1560
1561 if(19<=maxpow) {
1562 if(sh<.900001) {
1563 res += 3.354178873715894e-8*PI2*pow(sh,-17)*
1564 (109395. + 2.16216e6*sh + 2.0430696e7*pow(sh,2) +
1565 1.22866128e8*pow(sh,3) + 5.27900436e8*pow(sh,4) +
1566 1.72236568e9*pow(sh,5) + 4.41295356e9*pow(sh,6) +
1567 8.96714376e9*pow(sh,7) + 1.385377093e10*pow(sh,8) +
1568 8.96714376e9*pow(sh,9) + 4.41295356e9*pow(sh,10) +
1569 1.72236568e9*pow(sh,11) + 5.27900436e8*pow(sh,12) +
1570 1.22866128e8*pow(sh,13) + 2.0430696e7*pow(sh,14) +
1571 2.16216e6*pow(sh,15) + 109395.*pow(sh,16))*pow(z,9.5);
1572 }
1573 else {
1574 res += (15031.271320953776 + 135281.441888584*(1. - 1.*sh) +
1575 694444.7350280645*pow(1. - 1.*sh,2) +
1576 2.6605350238088183e6*pow(1. - 1.*sh,3) +
1577 8.443816664545784e6*pow(1. - 1.*sh,4))*pow(z,9.5);
1578 }
1579 }
1580
1581 if(20<=maxpow) {
1582 if(sh<.900001) {
1583 res += (384.81650457033396*pow(-1. + sh,-3)*pow(sh,-8) -
1584 320.13168724279836*Li3sh*pow(-1. + sh,-3)*pow(sh,-8) +
1585 106.71056241426612*pow(Lsh,3)*pow(-1. + sh,-3)*
1586 pow(sh,-8) + 3.0264550264550265*cl2*sqrt4sh*sqrtsh*
1587 pow(sh,4)*(-80. + 5340.*sh - 47370.*pow(sh,2) +
1588 109970.*pow(sh,3) + 2889.*pow(sh,4) -
1589 292716.*pow(sh,5) + 440556.*pow(sh,6) -
1590 328734.*pow(sh,7) + 146475.*pow(sh,8) -
1591 40768.*pow(sh,9) + 6972.*pow(sh,10) -
1592 672.*pow(sh,11) + 28.*pow(sh,12)) +
1593 0.00047031158142269255*ash*sqrt4sh*sqrtsh*
1594 pow(-1. + sh,-3)*pow(sh,4)*
1595 (1.1035e6 - 7.72587e7*sh + 8.84076615e8*pow(sh,2) -
1596 3.732489695e9*pow(sh,3) + 6.571169658e9*pow(sh,4) -
1597 8.05040586e8*pow(sh,5) -
1598 1.7678698868e10*pow(sh,6) +
1599 3.6419080572e10*pow(sh,7) -
1600 3.9440395638e10*pow(sh,8) +
1601 2.7362254298e10*pow(sh,9) -
1602 1.2874702995e10*pow(sh,10) +
1603 4.165441731e9*pow(sh,11) -
1604 9.14198644e8*pow(sh,12) + 1.30140756e8*pow(sh,13) -
1605 1.0845063e7*pow(sh,14) + 401669.*pow(sh,15)) -
1606 9.079365079365079*pow(ash,2)*pow(-1. + sh,-4)*pow(sh,5)*
1607 (-1890. + 45864.*sh - 340200.*pow(sh,2) +
1608 1.13508e6*pow(sh,3) - 1.721265e6*pow(sh,4) +
1609 4.925592e6*pow(sh,6) - 1.01388e7*pow(sh,7) +
1610 1.158381e7*pow(sh,8) - 8.79228e6*pow(sh,9) +
1611 4.68432e6*pow(sh,10) - 1.782648e6*pow(sh,11) +
1612 482895.*pow(sh,12) - 91000.*pow(sh,13) +
1613 11340.*pow(sh,14) - 840.*pow(sh,15) + 28.*pow(sh,16)
1614 ) - 0.0005878894767783657*Li2sh*pow(-1. + sh,-11)*
1615 pow(sh,-9)*(-2.994992e6 + 3.202199e7*sh -
1616 1.54990836e8*pow(sh,2) + 4.47615168e8*pow(sh,3) -
1617 8.5514352e8*pow(sh,4) + 1.130787504e9*pow(sh,5) -
1618 1.04997984e9*pow(sh,6) + 6.77511744e8*pow(sh,7) -
1619 2.91603312e8*pow(sh,8) + 7.589582e7*pow(sh,9) -
1620 9.069632e6*pow(sh,10) + 1071.*pow(sh,17) -
1621 378.*pow(sh,18)) -
1622 1.*Lsh*(-320.13168724279836*Li2sh*pow(-1. + sh,-3)*
1623 pow(sh,-8) - 3.0264550264550265*ash*sqrt4sh*sqrtsh*
1624 pow(sh,4)*(-80. + 5340.*sh - 47370.*pow(sh,2) +
1625 109970.*pow(sh,3) + 2889.*pow(sh,4) -
1626 292716.*pow(sh,5) + 440556.*pow(sh,6) -
1627 328734.*pow(sh,7) + 146475.*pow(sh,8) -
1628 40768.*pow(sh,9) + 6972.*pow(sh,10) -
1629 672.*pow(sh,11) + 28.*pow(sh,12)) +
1630 5.184210553601108e-9*pow(-1. + sh,-11)*pow(sh,-18)*
1631 (268128. + 50176.*sh - 1.5037316e7*pow(sh,2) -
1632 7.0758368e7*pow(sh,3) - 6.454424e7*pow(sh,4) +
1633 3.47363296e8*pow(sh,5) +
1634 9.86787592e8*pow(sh,6) + 3.5646688e7*pow(sh,7) -
1635 4.264570016e9*pow(sh,8) -
1636 49280.*(-4.185317e6 + 6.891885e6*Lshb)*
1637 pow(sh,9) + 2.*
1638 (-9.13367431661e11 + 1.815646833e12*Lshb +
1639 2.5729704e10*PI2)*
1640 pow(sh,10) -
1641 34.*(-2.11665295319e11 + 5.169400236e11*Lshb +
1642 1.2108096e10*PI2)*
1643 pow(sh,11) +
1644 112.*(-1.48068551563e11 + 4.532103576e11*Lshb +
1645 1.2864852e10*PI2)*
1646 pow(sh,12) -
1647 28.*(-8.92863157079e11 + 3.463331256e12*Lshb +
1648 1.02918816e11*PI2)*
1649 pow(sh,13) +
1650 7700.*(-3.377464619e9 + 1.6653415968e10*Lshb +
1651 4.678128e8*PI2)*
1652 pow(sh,14) -
1653 14.*(-1.367678553169e12 + 8.504836704e12*Lshb +
1654 2.05837632e11*PI2)*
1655 pow(sh,15) +
1656 56.*(-1.79529366083e11 + 1.3719612816e12*Lshb +
1657 2.5729704e10*PI2)*
1658 pow(sh,16) -
1659 4.*(-9.28306865747e11 + 8.2669538952e12*Lshb +
1660 1.02918816e11*PI2)*
1661 pow(sh,17) +
1662 (-9.00807538366e11 + 8.606585988e12*Lshb +
1663 5.1459408e10*PI2)*
1664 pow(sh,18) -
1665 315.*(-3.24014759e8 + 3.26506752e9*Lshb)*
1666 pow(sh,19) + 3.873846312e9*pow(sh,20) +
1667 6.5471364e7*pow(sh,21) -
1668 8.55977724e8*pow(sh,22) -
1669 2.31299082e8*pow(sh,23) +
1670 1.540332e8*pow(sh,24) + 1.180071e8*pow(sh,25) +
1671 11025.*(-2549. + 11016.*Lshb)*pow(sh,26) -
1672 11025.*(145. + 3888.*Lshb)*pow(sh,27))) -
1673 6.532105297537396e-6*pow(Lsh,2)*pow(-1. + sh,-12)*
1674 pow(sh,-18)*(-1008. - 8848.*sh - 23688.*pow(sh,2) +
1675 17352.*pow(sh,3) + 212592.*pow(sh,4) +
1676 311184.*pow(sh,5) - 400176.*pow(sh,6) -
1677 1.492176e6*pow(sh,7) + 255024.*pow(sh,8) +
1678 1.29624264e8*pow(sh,9) +
1679 24.*(-6.2253479e7 + 1.02102e6*Lshb)*pow(sh,10) -
1680 27.*(-2.70724357e8 + 8.16816e6*Lshb)*pow(sh,11) +
1681 1989.*(-1.0174699e7 + 443520.*Lshb)*pow(sh,12) -
1682 1848.*(-1.9205873e7 + 1.11384e6*Lshb)*pow(sh,13) +
1683 4032.*(-1.0206433e7 + 765765.*Lshb)*pow(sh,14) -
1684 3528.*(-8.888339e6 + 875160.*Lshb)*pow(sh,15) +
1685 168.*(-8.6549101e7 + 1.225224e7*Lshb)*pow(sh,16) -
1686 72.*(-3.9754051e7 + 1.225224e7*Lshb)*pow(sh,17) +
1687 36.*(1.9660427e7 + 6.12612e6*Lshb)*pow(sh,18) -
1688 2.*(2.60905399e8 + 1.225224e7*Lshb)*pow(sh,19) +
1689 8.729721e7*pow(sh,20) + 48195.*pow(sh,26) -
1690 65205.*pow(sh,27) + 17010.*pow(sh,28)) -
1691 6.532105297537396e-6*pow(lz,2)*pow(sh,-18)*
1692 (-252. - 5236.*sh - 52122.*pow(sh,2) -
1693 330990.*pow(sh,3) - 1.50586e6*pow(sh,4) -
1694 5.221788e6*pow(sh,5) - 1.4306214e7*pow(sh,6) -
1695 3.1500898e7*pow(sh,7) - 5.513508e7*pow(sh,8) +
1696 4.900896e7*pow(sh,9) - 2.668511e7*pow(sh,10) -
1697 1.4613135e7*pow(sh,11) + 8.763045e6*pow(sh,12) +
1698 2.218345e7*pow(sh,13) + 2.506596e7*pow(sh,14) +
1699 2.0910477e7*pow(sh,15) + 1.2190381e7*pow(sh,16) +
1700 252.*pow(sh,17) + 6.48648e7*pow(sh,18) +
1701 6.555978e7*pow(sh,19) + 6.764472e7*pow(sh,20) +
1702 7.18146e7*pow(sh,21) + 7.87644e7*pow(sh,22) +
1703 3.081078e8*pow(sh,23) - 4.33296864e9*pow(sh,24) +
1704 2.046808764e10*pow(sh,25) -
1705 2.24524872e10*pow(sh,26) -
1706 3.088433205e10*pow(sh,27) +
1707 9.73829142e10*pow(sh,28) -
1708 1.059717087e11*pow(sh,29) +
1709 6.5108043e10*pow(sh,30) -
1710 2.507429925e10*pow(sh,31) +
1711 6.1945884e9*pow(sh,32) - 9.567558e8*pow(sh,33) +
1712 8.432424e7*pow(sh,34) - 3.24324e6*pow(sh,35)) -
1713 1.*lz*(160.06584362139918*pow(Lsh,2)*pow(-1. + sh,-3)*
1714 pow(sh,-8) - 6.052910052910053*ash*sqrt4sh*sqrtsh*
1715 pow(sh,4)*(-80. + 5340.*sh - 47370.*pow(sh,2) +
1716 109970.*pow(sh,3) + 2889.*pow(sh,4) -
1717 292716.*pow(sh,5) + 440556.*pow(sh,6) -
1718 328734.*pow(sh,7) + 146475.*pow(sh,8) -
1719 40768.*pow(sh,9) + 6972.*pow(sh,10) -
1720 672.*pow(sh,11) + 28.*pow(sh,12)) -
1721 0.000013064210595074793*Lsh*pow(-1. + sh,-11)*
1722 pow(sh,-18)*(504. + 4928.*sh + 16772.*pow(sh,2) +
1723 8096.*pow(sh,3) - 98200.*pow(sh,4) -
1724 253792.*pow(sh,5) - 53704.*pow(sh,6) +
1725 692384.*pow(sh,7) + 564872.*pow(sh,8) -
1726 1.224454e8*pow(sh,9) +
1727 1.288450948e9*pow(sh,10) -
1728 5.852563529e9*pow(sh,11) +
1729 1.5415053304e10*pow(sh,12) -
1730 2.6502321608e10*pow(sh,13) +
1731 3.144127168e10*pow(sh,14) -
1732 2.6331569936e10*pow(sh,15) +
1733 1.5529376128e10*pow(sh,16) -
1734 6.238441328e9*pow(sh,17) +
1735 1.555660876e9*pow(sh,18) -
1736 1.7969985e8*pow(sh,19) - 864864.*pow(sh,20) -
1737 769608.*pow(sh,21) + 13608.*pow(sh,22) +
1738 222264.*pow(sh,23) + 69120.*pow(sh,24) -
1739 36360.*pow(sh,25) + 3465.*pow(sh,26) -
1740 5355.*pow(sh,27)) +
1741 2.132542391444306e-12*pow(-1. + sh,-10)*pow(sh,-18)*
1742 (3.25909584e8 + 3.86898512e8*sh -
1743 1.7890959086e10*pow(sh,2) -
1744 1.0389775539e11*pow(sh,3) -
1745 1.8235127911e11*pow(sh,4) +
1746 2.39868807178e11*pow(sh,5) +
1747 1.439309125254e12*pow(sh,6) +
1748 1.482637674518e12*pow(sh,7) -
1749 3.70094717993e12*pow(sh,8) +
1750 5.3120395014687e14*pow(sh,9) -
1751 4.14643042172931e15*pow(sh,10) +
1752 1.345200523191798e16*pow(sh,11) -
1753 2.254936255887042e16*pow(sh,12) +
1754 1.699263013683648e16*pow(sh,13) +
1755 6.14963216664132e15*pow(sh,14) -
1756 2.740944223315607e16*pow(sh,15) +
1757 2.8637380687636936e16*pow(sh,16) -
1758 1.5526446414793194e16*pow(sh,17) +
1759 4.836946771691055e15*pow(sh,18) -
1760 5.380798436415755e15*pow(sh,19) +
1761 1.974903378165775e16*pow(sh,20) -
1762 4.525406630722413e16*pow(sh,21) +
1763 6.653785922015247e16*pow(sh,22) -
1764 6.66839502419495e16*pow(sh,23) +
1765 6.049729378013662e16*pow(sh,24) -
1766 7.411696572018171e16*pow(sh,25) -
1767 2.463627215549949e17*pow(sh,26) +
1768 2.690872861043421e18*pow(sh,27) -
1769 1.035946806297679e19*pow(sh,28) +
1770 2.182665348950866e19*pow(sh,29) -
1771 2.151768755011101e19*pow(sh,30) -
1772 1.6939887428138682e19*pow(sh,31) +
1773 1.0333267615804637e20*pow(sh,32) -
1774 2.0555129789476546e20*pow(sh,33) +
1775 2.6641684480745528e20*pow(sh,34) -
1776 2.5331099541938533e20*pow(sh,35) +
1777 1.8430954123554472e20*pow(sh,36) -
1778 1.0440880163165341e20*pow(sh,37) +
1779 4.6274661819032445e19*pow(sh,38) -
1780 1.5988086524017488e19*pow(sh,39) +
1781 4.2570217606020905e18*pow(sh,40) -
1782 8.554234587216317e17*pow(sh,41) +
1783 1.252838056241772e17*pow(sh,42) -
1784 1.26021689978184e16*pow(sh,43) +
1785 7.7738941071792e14*pow(sh,44) -
1786 2.214605244852e13*pow(sh,45))) +
1787 3.4810653259229434e-19*pow(-1. + sh,-11)*pow(sh,-18)*
1788 (-3.16414088198208e14 + 9.74539823921664e14*sh +
1789 8.087033764735926e15*pow(sh,2) -
1790 5.684694862939435e16*pow(sh,3) -
1791 4.0319420043801754e17*pow(sh,4) -
1792 4.882604186351892e17*pow(sh,5) +
1793 1.9325128069129482e18*pow(sh,6) +
1794 6.292691026868566e18*pow(sh,7) +
1795 6.880478820028293e18*pow(sh,8) +
1796 8.434058124662613e21*pow(sh,9) -
1797 8.666666875206849e22*pow(sh,10) +
1798 3.988848694569122e23*pow(sh,11) -
1799 1.0892247798831997e24*pow(sh,12) +
1800 1.956951254970254e24*pow(sh,13) -
1801 2.420742712936919e24*pow(sh,14) +
1802 2.0958116597163414e24*pow(sh,15) -
1803 1.2670164385119088e24*pow(sh,16) +
1804 5.268571590407634e23*pow(sh,17) -
1805 1.5075131737158982e23*pow(sh,18) +
1806 5.5099869108338715e22*pow(sh,19) -
1807 1.2335610340065616e23*pow(sh,20) +
1808 3.125948051315389e23*pow(sh,21) -
1809 5.329144661412522e23*pow(sh,22) +
1810 6.337672351589234e23*pow(sh,23) -
1811 6.415906398957901e23*pow(sh,24) +
1812 7.960742052832872e23*pow(sh,25) +
1813 1.0407339222184654e24*pow(sh,26) -
1814 1.8365456331044262e25*pow(sh,27) +
1815 8.185263022637105e25*pow(sh,28) -
1816 2.0381593674174775e26*pow(sh,29) +
1817 2.86653881719294e26*pow(sh,30) -
1818 8.60180283451487e25*pow(sh,31) -
1819 6.102598804051836e26*pow(sh,32) +
1820 1.677905797647036e27*pow(sh,33) -
1821 2.6085143775451684e27*pow(sh,34) +
1822 2.8903964656452616e27*pow(sh,35) -
1823 2.4393048290135273e27*pow(sh,36) +
1824 1.610228894638015e27*pow(sh,37) -
1825 8.401871973947814e26*pow(sh,38) +
1826 3.469550828380025e26*pow(sh,39) -
1827 1.1272782566287204e26*pow(sh,40) +
1828 2.8443789274384395e25*pow(sh,41) -
1829 5.451981703535345e24*pow(sh,42) +
1830 7.659728477371017e23*pow(sh,43) -
1831 7.427478422398451e22*pow(sh,44) +
1832 4.435813069347255e21*pow(sh,45) -
1833 1.2279937968685318e20*pow(sh,46) +
1834 6.2548910424e12*PI2*
1835 (1512. + 14784.*sh + 50316.*pow(sh,2) +
1836 24288.*pow(sh,3) - 294600.*pow(sh,4) -
1837 761376.*pow(sh,5) - 161112.*pow(sh,6) +
1838 2.077152e6*pow(sh,7) + 1.694616e6*pow(sh,8) -
1839 9.4319148e8*pow(sh,9) +
1840 9.967342612e9*pow(sh,10) -
1841 4.6850139311e10*pow(sh,11) +
1842 1.30210149496e11*pow(sh,12) -
1843 2.38833139832e11*pow(sh,13) +
1844 3.0372906844e11*pow(sh,14) -
1845 2.72391022736e11*pow(sh,15) +
1846 1.70802069088e11*pow(sh,16) -
1847 7.1983905728e10*pow(sh,17) +
1848 1.8589933516e10*pow(sh,18) -
1849 2.99998765e9*pow(sh,19) +
1850 3.44063258e9*pow(sh,20) -
1851 8.9705161e9*pow(sh,21) +
1852 1.535557394e10*pow(sh,22) -
1853 1.759879618e10*pow(sh,23) +
1854 1.0323785e9*pow(sh,24) +
1855 1.54134820988e11*pow(sh,25) -
1856 1.050042005659e12*pow(sh,26) +
1857 4.280975184059e12*pow(sh,27) -
1858 1.1452618278108e13*pow(sh,28) +
1859 1.942055517402e13*pow(sh,29) -
1860 1.455317517654e13*pow(sh,30) -
1861 2.304660776418e13*pow(sh,31) +
1862 9.97892002107e13*pow(sh,32) -
1863 1.907859269745e14*pow(sh,33) +
1864 2.504750279031e14*pow(sh,34) -
1865 2.483138624967e14*pow(sh,35) +
1866 1.926820640745e14*pow(sh,36) -
1867 1.188407379159e14*pow(sh,37) +
1868 5.85603387369e13*pow(sh,38) -
1869 2.301507374166e13*pow(sh,39) +
1870 7.15907863242e12*pow(sh,40) -
1871 1.73763555966e12*pow(sh,41) +
1872 3.216402189e11*pow(sh,42) -
1873 4.378374e10*pow(sh,43) +
1874 4.12540128e9*pow(sh,44) -
1875 2.3999976e8*pow(sh,45) + 6.48648e6*pow(sh,46))))*
1876 pow(z,10);
1877 }
1878 else {
1879 res += pow(z,10)*(2841.537345257575 -
1880 225632.48115404812*(1. - 1.*sh) -
1881 731898.7973986422*pow(1. - 1.*sh,2) -
1882 2.5500608094526595e6*pow(1. - 1.*sh,3) -
1883 1.0871575896706128e7*pow(1. - 1.*sh,4) +
1884 log(z)*(10236.629660601508 -
1885 69938.30618254407*(1. - 1.*sh) +
1886 86757.40411215654*pow(1. - 1.*sh,2) +
1887 605518.1352531877*pow(1. - 1.*sh,3) +
1888 1.0480116268625655e6*pow(1. - 1.*sh,4)) +
1889 (-1356.6172839506173 -
1890 1319.851851851852*(1. - 1.*sh) +
1891 58319.57037037037*pow(1. - 1.*sh,2) +
1892 152747.21081716637*pow(1. - 1.*sh,3) +
1893 509124.9807172252*pow(1. - 1.*sh,4))*pow(log(z),2));
1894 }
1895 }
1896
1897 }
1898 return res;
1899}
1900
1901
1902double f_17_im(double sh, double z, size_t maxpow) {
1903 double lz = log(z);
1904
1905 double Lsh = log(sh);
1906 double Lshb = log(1.-sh);
1907 double Li2sh = real(CLi2(sh));
1908 double Li3sh = real(CLi3(sh));
1909 // double Li3shb = real(CLi3(1.-sh));
1910 // double Li4sh = real(CLi4(sh));
1911 // double sqrtsh = sqrt(sh);
1912 // double sqrt4sh = sqrt(4.-sh);
1913 // double ash = asin(sqrtsh/2.);
1914 // double cl2 = Cl2(2.*ash);
1915 // double cl3 = Cl3(2.*ash);
1916
1917
1918 double res=0;
1919
1920 if(sh<0.4) {
1921 res = -0.517135 + 1.39626*sh + 0.465421*lz*sh + 1.59186*z +
1922 0.93084*lz*z + 5.78065*sh*z + 0.930842*Lsh*sh*z +
1923 6.5159*lz*sh*z + 0.9308425*z*pow(lz,2) +
1924 0.9308425*sh*z*pow(lz,2) + 1.59019*pow(sh,2) +
1925 0.465421*lz*pow(sh,2) + 14.7788*z*pow(sh,2) +
1926 1.86168*Lsh*z*pow(sh,2) + 11.1701*lz*z*pow(sh,2) +
1927 0.9308425*z*pow(lz,2)*pow(sh,2) + 1.63673*pow(sh,3) +
1928 0.465421*lz*pow(sh,3) + 25.8196*z*pow(sh,3) +
1929 2.79253*Lsh*z*pow(sh,3) + 15.51405*lz*z*pow(sh,3) +
1930 0.9308425*z*pow(lz,2)*pow(sh,3) +
1931 0.00258567*pow(sh,3)*pow(z,-2) -
1932 0.0258567*pow(sh,3)*pow(z,-1) - 3.06235*pow(z,2) -
1933 15.2375*sh*pow(z,2) + 5.58505*lz*sh*pow(z,2) +
1934 3.72337*Lsh*lz*sh*pow(z,2) +
1935 0.9308425*pow(lz,2)*pow(z,2) +
1936 4.6542*sh*pow(lz,2)*pow(z,2) -
1937 32.8021*pow(sh,2)*pow(z,2) +
1938 3.72337*Lsh*pow(sh,2)*pow(z,2) +
1939 19.5477*lz*pow(sh,2)*pow(z,2) +
1940 11.1701*Lsh*lz*pow(sh,2)*pow(z,2) +
1941 11.1701*pow(lz,2)*pow(sh,2)*pow(z,2) -
1942 52.4207*pow(sh,3)*pow(z,2) +
1943 13.0318*Lsh*pow(sh,3)*pow(z,2) +
1944 44.37015*lz*pow(sh,3)*pow(z,2) +
1945 22.3402*Lsh*lz*pow(sh,3)*pow(z,2) +
1946 20.478525*pow(lz,2)*pow(sh,3)*pow(z,2) +
1947 2.89595*pow(z,3) - 1.241125*lz*pow(z,3) +
1948 15.6984*sh*pow(z,3) + 1.86168*Lsh*sh*pow(z,3) -
1949 12.41125*lz*sh*pow(z,3) - 3.72337*Lsh*lz*sh*pow(z,3) +
1950 34.8683*pow(sh,2)*pow(z,3) +
1951 3.72337*Lsh*pow(sh,2)*pow(z,3) -
1952 40.3365*lz*pow(sh,2)*pow(z,3) -
1953 14.8935*Lsh*lz*pow(sh,2)*pow(z,3) +
1954 54.2499*pow(sh,3)*pow(z,3) +
1955 1.86168*Lsh*pow(sh,3)*pow(z,3) -
1956 92.4635*lz*pow(sh,3)*pow(z,3) -
1957 37.2337*Lsh*lz*pow(sh,3)*pow(z,3);
1958 }
1959 else {
1960
1961 if(sh<.900001) {
1962 res += (0.4654211338651545*Lsh*sh*(-1. + 2.*sh)*pow(-1. + sh,-3) -
1963 0.025856729659175254*pow(-1. + sh,-2)*
1964 (20. - 49.*sh + 47.*pow(sh,2)))*1.;
1965 }
1966 else {
1967 res += (-0.8274153490936081 + 0.11635528346628862*(1. - 1.*sh) +
1968 0.054299132284268026*pow(1. - 1.*sh,2) +
1969 0.031028075591010302*pow(1. - 1.*sh,3) +
1970 0.019946620022792336*pow(1. - 1.*sh,4))*1.;
1971 }
1972
1973
1974 if(1<=maxpow) {
1975 if(sh<.900001) {
1976 res += 0.;
1977 }
1978 else {
1979 res += 0.;
1980 }
1981 }
1982
1983 if(2<=maxpow) {
1984 if(sh<.900001) {
1985 res += (-8.951402989423594*sh*pow(-1. + sh,-3) +
1986 7.446738141842472*Li3sh*sh*pow(-1. + sh,-3) -
1987 0.930842267730309*Li2sh*(-5. + 3.*sh)*
1988 pow(-1. + sh,-3) - 0.620561511820206*sh*pow(Lsh,3)*
1989 pow(-1. + sh,-3) + 1.861684535460618*pow(Lsh,2)*
1990 pow(-1. + sh,-2) - 1.*Lsh*
1991 (3.723369070921236*Li2sh*sh*pow(-1. + sh,-3) +
1992 0.930842267730309*pow(-1. + sh,-3)*
1993 (3. + Lshb*(-5. + 3.*sh) +
1994 2.*sh*PI2 - 2.*pow(sh,2)))\
1995 + 0.1551403779550515*pow(-1. + sh,-3)*
1996 (-6.*(2. - 5.*sh + 3.*pow(sh,2)) +
1997 PI2*
1998 (-9. + 3.*sh + 4.*pow(sh,2))))*pow(z,1);
1999 }
2000 else {
2001 res += (4.1876741044473365 + 2.7402552937030498*(1. - 1.*sh) +
2002 2.1232783768063475*pow(1. - 1.*sh,2) +
2003 1.7630333644902134*pow(1. - 1.*sh,3) +
2004 1.5217395214542553*pow(1. - 1.*sh,4))*pow(z,1);
2005 }
2006 }
2007
2008 if(3<=maxpow) {
2009 if(sh<.900001) {
2010 res += 0.;
2011 }
2012 else {
2013 res += 0.;
2014 }
2015 }
2016
2017 if(4<=maxpow) {
2018 if(sh<.900001) {
2019 res += (-0.930842267730309*Li2sh*(2. - 7.*sh)*pow(-1. + sh,-3) +
2020 0.930842267730309*pow(Lsh,2)*pow(-1. + sh,-2) -
2021 1.*lz*(6.5158958741121635*Lsh*sh*pow(-1. + sh,-3) -
2022 0.4654211338651545*pow(-1. + sh,-2)*pow(sh,-2)*
2023 (2. - 7.*sh + 15.*pow(sh,2) + 4.*pow(sh,3))) -
2024 0.07757018897752575*pow(-1. + sh,-3)*pow(sh,-2)*
2025 (-18. + 63.*sh - 2.*
2026 (63. + 2.*PI2)*pow(sh,2) +
2027 (9. + 14.*PI2)*pow(sh,3) +
2028 36.*pow(sh,4)) +
2029 0.4654211338651545*Lsh*pow(-1. + sh,-4)*pow(sh,-2)*
2030 (-4. + 13.*sh + (-21. + 4.*Lshb)*pow(sh,2) +
2031 (11. - 18.*Lshb)*pow(sh,3) +
2032 (-5. + 14.*Lshb)*pow(sh,4)))*pow(z,2);
2033 }
2034 else {
2035 res += (1.52554704989134 + 3.0730723199929786*(1. - 1.*sh) +
2036 4.914071471726257*pow(1. - 1.*sh,2) +
2037 7.194598089480287*pow(1. - 1.*sh,3) +
2038 9.866611424925042*pow(1. - 1.*sh,4) +
2039 log(z)*(0.620561511820206 +
2040 1.0084124567078347*(1. - 1.*sh) +
2041 1.7220581953010718*pow(1. - 1.*sh,2) +
2042 2.544302198462845*pow(1. - 1.*sh,3) +
2043 3.413088315011133*pow(1. - 1.*sh,4)))*pow(z,2);
2044 }
2045 }
2046
2047 if(5<=maxpow) {
2048 if(sh<.900001) {
2049 res += 0.;
2050 }
2051 else {
2052 res += 0.;
2053 }
2054 }
2055
2056 if(6<=maxpow) {
2057 if(sh<.900001) {
2058 res += (-1.861684535460618*pow(Lsh,2)*pow(-1. + sh,-3)*pow(sh,-1) +
2059 1.861684535460618*Li2sh*pow(-1. + sh,-4)*pow(sh,-1)*
2060 (1. - 1.*sh + 2.*pow(sh,2)) +
2061 0.1551403779550515*Lsh*pow(-1. + sh,-5)*pow(sh,-4)*
2062 (4. + 4.*sh - 71.*pow(sh,2) +
2063 (155. - 12.*Lshb)*pow(sh,3) +
2064 2.*(-83. + 12.*Lshb)*pow(sh,4) +
2065 (98. - 36.*Lshb)*pow(sh,5) +
2066 12.*(-3. + 2.*Lshb)*pow(sh,6)) -
2067 1.*lz*(1.861684535460618*Lsh*pow(-1. + sh,-4)*
2068 pow(sh,-1)*(1. - 1.*sh + 2.*pow(sh,2)) +
2069 0.1551403779550515*pow(-1. + sh,-3)*pow(sh,-4)*
2070 (2. + 6.*sh - 45.*pow(sh,2) + 61.*pow(sh,3) -
2071 41.*pow(sh,4) - 11.*pow(sh,5) + 4.*pow(sh,6))) -
2072 0.025856729659175254*pow(-1. + sh,-4)*pow(sh,-4)*
2073 (10. - 10.*sh - 54.*pow(sh,2) +
2074 2.*(-23. + 6.*PI2)*pow(sh,3) -
2075 3.*(-53. + 4.*PI2)*pow(sh,4) +
2076 24.*(-10. + PI2)*pow(sh,5) +
2077 141.*pow(sh,6) - 32.*pow(sh,7)))*pow(z,3);
2078 }
2079 else {
2080 res += (2.32969134229169 + 7.64686922940449*(1. - 1.*sh) +
2081 18.94249239557088*pow(1. - 1.*sh,2) +
2082 38.204310125548965*pow(1. - 1.*sh,3) +
2083 67.3328659256586*pow(1. - 1.*sh,4) +
2084 log(z)*(0.1551403779550515 +
2085 3.07177948351002*(1. - 1.*sh) +
2086 8.625805014300864*pow(1. - 1.*sh,2) +
2087 17.193986459646997*pow(1. - 1.*sh,3) +
2088 29.117632651049522*pow(1. - 1.*sh,4)))*pow(z,3);
2089 }
2090 }
2091
2092 if(7<=maxpow) {
2093 if(sh<.900001) {
2094 res += 0.;
2095 }
2096 else {
2097 res += 0.;
2098 }
2099 }
2100
2101 if(8<=maxpow) {
2102 if(sh<.900001) {
2103 res += (-3.1028075591010302*Li2sh*pow(-1. + sh,-3)*pow(sh,-2) -
2104 3.1028075591010302*pow(Lsh,2)*pow(-1. + sh,-3)*
2105 pow(sh,-2) - 1.*lz*
2106 (-3.1028075591010302*Lsh*pow(-1. + sh,-3)*pow(sh,-2) -
2107 0.05171345931835051*pow(-1. + sh,-2)*pow(sh,-6)*
2108 (3. + 19.*sh + 43.*pow(sh,2) - 260.*pow(sh,3) +
2109 225.*pow(sh,4) - 105.*pow(sh,5) + 15.*pow(sh,6)))
2110 - 0.05171345931835051*Lsh*pow(-1. + sh,-6)*pow(sh,-6)*
2111 (6. + 14.*sh - 30.*pow(sh,2) - 405.*pow(sh,3) +
2112 (1569. - 60.*Lshb)*pow(sh,4) +
2113 15.*(-169. + 12.*Lshb)*pow(sh,5) +
2114 (2235. - 180.*Lshb)*pow(sh,6) +
2115 (-1037. + 60.*Lshb)*pow(sh,7) + 213.*pow(sh,8)) +
2116 0.004309454943195875*pow(-1. + sh,-5)*pow(sh,-6)*
2117 (21. - 10.*sh - 307.*pow(sh,2) + 1247.*pow(sh,3) +
2118 (-3143. + 120.*PI2)*
2119 pow(sh,4) + (3526. -
2120 240.*PI2)*pow(sh,5) +
2121 (397. + 120.*PI2)*pow(sh,6) -
2122 2577.*pow(sh,7) + 1140.*pow(sh,8) +
2123 138.*pow(sh,9) - 72.*pow(sh,10)))*pow(z,4);
2124 }
2125 else {
2126 res += (2.999380640464329 + 22.55925786392586*(1. - 1.*sh) +
2127 78.72635417514317*pow(1. - 1.*sh,2) +
2128 200.15639021889723*pow(1. - 1.*sh,3) +
2129 424.28359587096105*pow(1. - 1.*sh,4) +
2130 log(z)*(2.482246047280824 +
2131 14.11777439390969*(1. - 1.*sh) +
2132 44.215007717189685*pow(1. - 1.*sh,2) +
2133 104.04748014852122*pow(1. - 1.*sh,3) +
2134 206.9868147402206*pow(1. - 1.*sh,4)))*pow(z,4);
2135 }
2136 }
2137
2138 if(9<=maxpow) {
2139 if(sh<.900001) {
2140 res += 0.;
2141 }
2142 else {
2143 res += 0.;
2144 }
2145 }
2146
2147 if(10<=maxpow) {
2148 if(sh<.900001) {
2149 res += (-6.5158958741121635*Li2sh*pow(-1. + sh,-3)*pow(sh,-3) -
2150 6.5158958741121635*pow(Lsh,2)*pow(-1. + sh,-3)*
2151 pow(sh,-3) - 1.*lz*
2152 (-6.5158958741121635*Lsh*pow(-1. + sh,-3)*pow(sh,-3) -
2153 0.015514037795505151*pow(-1. + sh,-2)*pow(sh,-8)*
2154 (6. + 51.*sh + 181.*pow(sh,2) + 301.*pow(sh,3) -
2155 2324.*pow(sh,4) + 2220.*pow(sh,5) -
2156 880.*pow(sh,6) - 70.*pow(sh,7) + 95.*pow(sh,8)))\
2157 - 0.015514037795505151*Lsh*pow(-1. + sh,-7)*pow(sh,-8)*
2158 (-12. - 42.*sh + 28.*pow(sh,2) + 308.*pow(sh,3) +
2159 2793.*pow(sh,4) +
2160 2.*(-8339. + 210.*Lshb)*pow(sh,5) +
2161 (37042. - 1680.*Lshb)*pow(sh,6) +
2162 168.*(-266. + 15.*Lshb)*pow(sh,7) -
2163 8.*(-3959. + 210.*Lshb)*pow(sh,8) +
2164 3.*(-4351. + 140.*Lshb)*pow(sh,9) + 2720.*pow(sh,10)
2165 ) - 0.00025856729659175253*pow(-1. + sh,-6)*
2166 pow(sh,-8)*(162. - 36.*sh - 2914.*pow(sh,2) -
2167 5862.*pow(sh,3) + 97530.*pow(sh,4) -
2168 329152.*pow(sh,5) -
2169 4200.*PI2*pow(-1. + sh,3)*
2170 pow(sh,5) + 497696.*pow(sh,6) -
2171 286926.*pow(sh,7) - 114303.*pow(sh,8) +
2172 259230.*pow(sh,9) - 141000.*pow(sh,10) +
2173 22550.*pow(sh,11) - 2975.*pow(sh,12) +
2174 600.*pow(sh,13)))*pow(z,5);
2175 }
2176 else {
2177 res += (7.5730667353201575 + 76.74295831935828*(1. - 1.*sh) +
2178 333.4828305424486*pow(1. - 1.*sh,2) +
2179 1010.6544814238534*pow(1. - 1.*sh,3) +
2180 2487.030661606718*pow(1. - 1.*sh,4) +
2181 log(z)*(9.618703433213193 +
2182 58.798203244964526*(1. - 1.*sh) +
2183 212.46474760944307*pow(1. - 1.*sh,2) +
2184 578.673609772342*pow(1. - 1.*sh,3) +
2185 1319.624054885668*pow(1. - 1.*sh,4)))*pow(z,5);
2186 }
2187 }
2188
2189 if(11<=maxpow) {
2190 if(sh<.900001) {
2191 res += 0.;
2192 }
2193 else {
2194 res += 0.;
2195 }
2196 }
2197
2198 if(12<=maxpow) {
2199 if(sh<.900001) {
2200 res += (-15.638150097869193*Li2sh*pow(-1. + sh,-3)*pow(sh,-4) -
2201 15.638150097869193*pow(Lsh,2)*pow(-1. + sh,-3)*
2202 pow(sh,-4) - 1.*lz*
2203 (-15.638150097869193*Lsh*pow(-1. + sh,-3)*pow(sh,-4) -
2204 0.00310280755910103*pow(-1. + sh,-2)*pow(sh,-10)*
2205 (20. + 212.*sh + 992.*pow(sh,2) +
2206 2592.*pow(sh,3) + 3492.*pow(sh,4) -
2207 33768.*pow(sh,5) + 34250.*pow(sh,6) -
2208 12355.*pow(sh,7) - 1855.*pow(sh,8) +
2209 795.*pow(sh,9) + 585.*pow(sh,10))) -
2210 0.00310280755910103*Lsh*pow(-1. + sh,-8)*pow(sh,-10)*
2211 (40. + 184.*sh + 40.*pow(sh,2) - 1160.*pow(sh,3) -
2212 2240.*pow(sh,4) - 33740.*pow(sh,5) -
2213 6.*(-44969. + 840.*Lshb)*pow(sh,6) +
2214 315.*(-2447. + 80.*Lshb)*pow(sh,7) -
2215 15.*(-80189. + 3360.*Lshb)*pow(sh,8) +
2216 40.*(-28549. + 1260.*Lshb)*pow(sh,9) +
2217 (669980. - 25200.*Lshb)*pow(sh,10) +
2218 (-228338. + 5040.*Lshb)*pow(sh,11) +
2219 35770.*pow(sh,12)) -
2220 0.00005171345931835051*pow(-1. + sh,-7)*pow(sh,-10)*
2221 (-440. + 32.*sh + 10212.*pow(sh,2) +
2222 23632.*pow(sh,3) - 7888.*pow(sh,4) -
2223 1.620528e6*pow(sh,5) + 7.571238e6*pow(sh,6) -
2224 50400.*PI2*pow(-1. + sh,4)*
2225 pow(sh,6) - 1.5372042e7*pow(sh,7) +
2226 1.5504288e7*pow(sh,8) - 5.560242e6*pow(sh,9) -
2227 3.213542e6*pow(sh,10) + 3.254015e6*pow(sh,11) -
2228 18260.*pow(sh,12) - 907710.*pow(sh,13) +
2229 366640.*pow(sh,14) - 57405.*pow(sh,15) +
2230 2800.*pow(sh,16)))*pow(z,6);
2231 }
2232 else {
2233 res += (22.715875769290008 + 274.2629779131134*(1. - 1.*sh) +
2234 1412.2988649700028*pow(1. - 1.*sh,2) +
2235 4950.204882473423*pow(1. - 1.*sh,3) +
2236 13834.085987140208*pow(1. - 1.*sh,4) +
2237 log(z)*(35.68228692966185 +
2238 243.9582443343185*(1. - 1.*sh) +
2239 998.3128181029609*pow(1. - 1.*sh,2) +
2240 3074.85126299353*pow(1. - 1.*sh,3) +
2241 7873.5293215968195*pow(1. - 1.*sh,4)))*pow(z,6);
2242 }
2243 }
2244
2245 if(13<=maxpow) {
2246 if(sh<.900001) {
2247 res += 0.;
2248 }
2249 else {
2250 res += 0.;
2251 }
2252 }
2253
2254 if(14<=maxpow){
2255 if(sh<.900001) {
2256 res += (-40.9570597801336*Li2sh*pow(-1. + sh,-3)*pow(sh,-5) -
2257 40.9570597801336*pow(Lsh,2)*pow(-1. + sh,-3)*
2258 pow(sh,-5) - 1.*lz*
2259 (-40.9570597801336*Lsh*pow(-1. + sh,-3)*pow(sh,-5) -
2260 0.0014775274090957288*pow(-1. + sh,-2)*pow(sh,-12)*
2261 (30. + 380.*sh + 2186.*pow(sh,2) +
2262 7436.*pow(sh,3) + 15906.*pow(sh,4) +
2263 18216.*pow(sh,5) - 217404.*pow(sh,6) +
2264 230279.*pow(sh,7) - 78421.*pow(sh,8) -
2265 14581.*pow(sh,9) + 3024.*pow(sh,10) +
2266 3864.*pow(sh,11) + 1365.*pow(sh,12))) -
2267 0.0014775274090957288*Lsh*pow(-1. + sh,-9)*pow(sh,-12)*
2268 (-60. - 340.*sh - 312.*pow(sh,2) + 1872.*pow(sh,3) +
2269 4980.*pow(sh,4) + 1620.*pow(sh,5) +
2270 203850.*pow(sh,6) +
2271 (-1.895519e6 + 27720.*Lshb)*pow(sh,7) +
2272 (6.594942e6 - 166320.*Lshb)*pow(sh,8) +
2273 33.*(-385051. + 12600.*Lshb)*pow(sh,9) +
2274 (1.5286135e7 - 554400.*Lshb)*pow(sh,10) +
2275 15.*(-794279. + 27720.*Lshb)*pow(sh,11) -
2276 6.*(-990013. + 27720.*Lshb)*pow(sh,12) +
2277 2.*(-882383. + 13860.*Lshb)*pow(sh,13) +
2278 249228.*pow(sh,14)) -
2279 3.517922402608878e-6*pow(-1. + sh,-8)*pow(sh,-12)*
2280 (3900. + 100.*sh - 116036.*pow(sh,2) -
2281 329570.*pow(sh,3) + 93490.*pow(sh,4) +
2282 1.36222e6*pow(sh,5) + 7.515214e7*pow(sh,6) -
2283 4.58367722e8*pow(sh,7) -
2284 1.9404e6*PI2*pow(-1. + sh,5)*
2285 pow(sh,7) + 1.185571378e9*pow(sh,8) -
2286 1.64901962e9*pow(sh,9) + 1.210803485e9*pow(sh,10) -
2287 2.77663825e8*pow(sh,11) - 2.28715591e8*pow(sh,12) +
2288 1.81552504e8*pow(sh,13) - 5.1683975e7*pow(sh,14) +
2289 3.0412585e7*pow(sh,15) - 3.0028425e7*pow(sh,16) +
2290 1.2629064e7*pow(sh,17) - 2.061822e6*pow(sh,18) +
2291 52920.*pow(sh,19)))*pow(z,7);
2292 }
2293 else {
2294 res += (76.06009440178788 + 1017.2781752351876*(1. - 1.*sh) +
2295 5990.892688563418*pow(1. - 1.*sh,2) +
2296 23739.93632888451*pow(1. - 1.*sh,3) +
2297 74088.64892315648*pow(1. - 1.*sh,4) +
2298 log(z)*(131.81760780247544 +
2299 1011.2566969703441*(1. - 1.*sh) +
2300 4618.653164024247*pow(1. - 1.*sh,2) +
2301 15821.68116499002*pow(1. - 1.*sh,3) +
2302 44807.95424173389*pow(1. - 1.*sh,4)))*pow(z,7);
2303 }
2304 }
2305
2306 if(15<=maxpow) {
2307 if(sh<.900001) {
2308 res += 0.;
2309 }
2310 else {
2311 res += 0.;
2312 }
2313 }
2314
2315 if(16<=maxpow) {
2316 if(sh<.900001) {
2317 res += (-114.09466653037217*Li2sh*pow(-1. + sh,-3)*pow(sh,-6) -
2318 114.09466653037217*pow(Lsh,2)*pow(-1. + sh,-3)*
2319 pow(sh,-6) - 1.*lz*
2320 (-114.09466653037217*Lsh*pow(-1. + sh,-3)*pow(sh,-6) -
2321 0.000316613016234799*pow(-1. + sh,-2)*pow(sh,-14)*
2322 (105. + 1545.*sh + 10505.*pow(sh,2) +
2323 43433.*pow(sh,3) + 119873.*pow(sh,4) +
2324 221793.*pow(sh,5) + 221793.*pow(sh,6) -
2325 3.231657e6*pow(sh,7) + 3.541034e6*pow(sh,8) -
2326 1.160656e6*pow(sh,9) - 243376.*pow(sh,10) +
2327 26124.*pow(sh,11) + 54544.*pow(sh,12) +
2328 27790.*pow(sh,13) + 6790.*pow(sh,14))) -
2329 0.000633226032469598*Lsh*pow(-1. + sh,-10)*pow(sh,-14)*
2330 (105. + 705.*sh + 1085.*pow(sh,2) - 3227.*pow(sh,3) -
2331 12621.*pow(sh,4) - 7077.*pow(sh,5) +
2332 23415.*pow(sh,6) - 1.52775e6*pow(sh,7) +
2333 (1.5332677e7 - 180180.*Lshb)*pow(sh,8) +
2334 154.*(-404281. + 8190.*Lshb)*pow(sh,9) -
2335 3276.*(-43597. + 1155.*Lshb)*pow(sh,10) +
2336 140.*(-1.492544e6 + 45045.*Lshb)*pow(sh,11) -
2337 35.*(-5.843231e6 + 180180.*Lshb)*pow(sh,12) +
2338 84.*(-1.606567e6 + 45045.*Lshb)*pow(sh,13) -
2339 14.*(-4.169089e6 + 90090.*Lshb)*pow(sh,14) +
2340 4.*(-3.790859e6 + 45045.*Lshb)*pow(sh,15) +
2341 1.820973e6*pow(sh,16)) -
2342 3.7692025742237975e-7*pow(-1. + sh,-9)*pow(sh,-14)*
2343 (-23625. - 2250.*sh + 884825.*pow(sh,2) +
2344 3.042036e6*pow(sh,3) + 226209.*pow(sh,4) -
2345 1.547673e7*pow(sh,5) - 1.7445585e7*pow(sh,6) -
2346 2.27462355e9*pow(sh,7) +
2347 1.6881630069e10*pow(sh,8) -
2348 5.04504e7*PI2*pow(-1. + sh,6)*
2349 pow(sh,8) - 5.3231013434e10*pow(sh,9) +
2350 9.3745467315e10*pow(sh,10) -
2351 9.75051387e10*pow(sh,11) +
2352 5.4985329535e10*pow(sh,12) -
2353 7.700748318e9*pow(sh,13) -
2354 9.422168487e9*pow(sh,14) +
2355 5.032015758e9*pow(sh,15) + 1.2563586e8*pow(sh,16) -
2356 1.23426506e9*pow(sh,17) +
2357 1.153426148e9*pow(sh,18) -
2358 7.67036928e8*pow(sh,19) + 2.79185592e8*pow(sh,20) -
2359 4.285204e7*pow(sh,21) + 776160.*pow(sh,22)))*
2360 pow(z,8);
2361 }
2362 else {
2363 res += (271.5271820060675 + 3880.215714318396*(1. - 1.*sh) +
2364 25470.9497140867*pow(1. - 1.*sh,2) +
2365 112116.7831963215*pow(1. - 1.*sh,3) +
2366 385562.38008219755*pow(1. - 1.*sh,4) +
2367 log(z)*(489.0024713143224 +
2368 4185.8425376052455*(1. - 1.*sh) +
2369 21101.356451405147*pow(1. - 1.*sh,2) +
2370 79419.24508622084*pow(1. - 1.*sh,3) +
2371 245951.53666868948*pow(1. - 1.*sh,4)))*pow(z,8);
2372 }
2373 }
2374
2375 if(17<=maxpow) {
2376 if(sh<.900001) {
2377 res += 0.;
2378 }
2379 else {
2380 res += 0.;
2381 }
2382 }
2383
2384 if(18<=maxpow) {
2385 if(sh<.900001) {
2386 res += (-332.77611071358547*Li2sh*pow(-1. + sh,-3)*pow(sh,-7) -
2387 332.77611071358547*pow(Lsh,2)*pow(-1. + sh,-3)*
2388 pow(sh,-7) - 1.*lz*
2389 (-332.77611071358547*Lsh*pow(-1. + sh,-3)*pow(sh,-7) -
2390 0.0009234546306848304*pow(-1. + sh,-2)*pow(sh,-16)*
2391 (28. + 469.*sh + 3673.*pow(sh,2) +
2392 17785.*pow(sh,3) + 59113.*pow(sh,4) +
2393 140257.*pow(sh,5) + 231985.*pow(sh,6) +
2394 205777.*pow(sh,7) - 3.632057e6*pow(sh,8) +
2395 4.091364e6*pow(sh,9) - 1.304928e6*pow(sh,10) -
2396 297432.*pow(sh,11) + 14292.*pow(sh,12) +
2397 58644.*pow(sh,13) + 35460.*pow(sh,14) +
2398 12780.*pow(sh,15) + 2430.*pow(sh,16))) -
2399 0.0009234546306848304*Lsh*pow(-1. + sh,-11)*pow(sh,-16)*
2400 (-56. - 434.*sh - 920.*pow(sh,2) + 1480.*pow(sh,3) +
2401 9184.*pow(sh,4) + 8932.*pow(sh,5) -
2402 19712.*pow(sh,6) - 36344.*pow(sh,7) +
2403 3.49657e6*pow(sh,8) +
2404 7.*(-5.358061e6 + 51480.*Lshb)*pow(sh,9) -
2405 20.*(-8.630911e6 + 144144.*Lshb)*pow(sh,10) +
2406 880.*(-521011. + 11466.*Lshb)*pow(sh,11) -
2407 56.*(-1.4125987e7 + 360360.*Lshb)*pow(sh,12) +
2408 140.*(-6.677771e6 + 180180.*Lshb)*pow(sh,13) -
2409 112.*(-6.885077e6 + 180180.*Lshb)*pow(sh,14) +
2410 56.*(-7.869671e6 + 180180.*Lshb)*pow(sh,15) +
2411 (1.68053456e8 - 2.88288e6*Lshb)*pow(sh,16) +
2412 (-3.8989933e7 + 360360.*Lshb)*pow(sh,17) +
2413 4.262544e6*pow(sh,18)) -
2414 7.329005005435162e-7*pow(-1. + sh,-10)*pow(sh,-16)*
2415 (8330. + 1225.*sh - 385185.*pow(sh,2) -
2416 1.565725e6*pow(sh,3) - 766913.*pow(sh,4) +
2417 8.101569e6*pow(sh,5) + 1.6471637e7*pow(sh,6) -
2418 1.4354375e7*pow(sh,7) + 3.953480265e9*pow(sh,8) -
2419 3.3767434535e10*pow(sh,9) -
2420 7.56756e7*PI2*pow(-1. + sh,7)*
2421 pow(sh,9) + 1.25322516107e11*pow(sh,10) -
2422 2.66443744245e11*pow(sh,11) +
2423 3.52730324065e11*pow(sh,12) -
2424 2.89748672815e11*pow(sh,13) +
2425 1.29737902497e11*pow(sh,14) -
2426 9.132479783e9*pow(sh,15) -
2427 2.0967436048e10*pow(sh,16) +
2428 9.674219718e9*pow(sh,17) -
2429 2.08073817e9*pow(sh,18) +
2430 2.119593546e9*pow(sh,19) -
2431 2.784214188e9*pow(sh,20) +
2432 2.248987986e9*pow(sh,21) -
2433 1.186673418e9*pow(sh,22) + 3.6469845e8*pow(sh,23) -
2434 5.0148315e7*pow(sh,24) + 720720.*pow(sh,25)))*
2435 pow(z,9);
2436 }
2437 else {
2438 res += (1006.065639479665 + 15109.542202132543*(1. - 1.*sh) +
2439 108519.79668479163*pow(1. - 1.*sh,2) +
2440 523317.44480667595*pow(1. - 1.*sh,3) +
2441 1.9618209518756133e6*pow(1. - 1.*sh,4) +
2442 log(z)*(1824.4508447514058 +
2443 17292.722228759816*(1. - 1.*sh) +
2444 95376.89127845067*pow(1. - 1.*sh,2) +
2445 390749.8979900969*pow(1. - 1.*sh,3) +
2446 1.3116595468138563e6*pow(1. - 1.*sh,4)))*pow(z,9);
2447 }
2448 }
2449
2450 if(19<=maxpow) {
2451 if(sh<.900001) {
2452 res += 0.;}
2453 else {
2454 res += 0.;
2455 }
2456 }
2457
2458 if(20<=maxpow) {
2459 if(sh<.900001) {
2460 res += (-1005.7233568232806*Li2sh*pow(-1. + sh,-3)*pow(sh,-8) -
2461 1005.7233568232806*pow(Lsh,2)*pow(-1. + sh,-3)*
2462 pow(sh,-8) - 1.*lz*
2463 (-1005.7233568232806*Lsh*pow(-1. + sh,-3)*pow(sh,-8) -
2464 0.00004104242803043691*pow(-1. + sh,-2)*pow(sh,-18)*
2465 (504. + 9464.*sh + 83804.*pow(sh,2) +
2466 463964.*pow(sh,3) + 1.792004e6*pow(sh,4) +
2467 5.082116e6*pow(sh,5) + 1.0736996e7*pow(sh,6) +
2468 1.6220516e7*pow(sh,7) + 1.2878996e7*pow(sh,8) -
2469 2.73934804e8*pow(sh,9) +
2470 3.15821466e8*pow(sh,10) -
2471 9.8670339e7*pow(sh,11) -
2472 2.3977539e7*pow(sh,12) + 157761.*pow(sh,13) +
2473 4.274181e6*pow(sh,14) + 2.899395e6*pow(sh,15) +
2474 1.241235e6*pow(sh,16) + 359415.*pow(sh,17) +
2475 56385.*pow(sh,18))) -
2476 0.00004104242803043691*Lsh*pow(-1. + sh,-12)*
2477 pow(sh,-18)*(1008. + 8848.*sh + 23688.*pow(sh,2) -
2478 17352.*pow(sh,3) - 212592.*pow(sh,4) -
2479 311184.*pow(sh,5) + 400176.*pow(sh,6) +
2480 1.492176e6*pow(sh,7) - 255024.*pow(sh,8) -
2481 2.64398904e8*pow(sh,9) -
2482 6.*(-5.11641281e8 + 4.08408e6*Lshb)*pow(sh,10) +
2483 9.*(-1.747237201e9 + 2.450448e7*Lshb)*pow(sh,11) -
2484 1989.*(-2.3808319e7 + 443520.*Lshb)*pow(sh,12) +
2485 1848.*(-5.0928893e7 + 1.11384e6*Lshb)*pow(sh,13) -
2486 13104.*(-9.960259e6 + 235620.*Lshb)*pow(sh,14) +
2487 3528.*(-3.6704249e7 + 875160.*Lshb)*pow(sh,15) -
2488 168.*(-5.49270061e8 + 1.225224e7*Lshb)*pow(sh,16) +
2489 72.*(-6.45450961e8 + 1.225224e7*Lshb)*pow(sh,17) -
2490 288.*(-5.4964186e7 + 765765.*Lshb)*pow(sh,18) +
2491 (-3.301634542e9 + 2.450448e7*Lshb)*pow(sh,19) +
2492 3.2083623e8*pow(sh,20)) +
2493 1.6286677789855916e-8*pow(-1. + sh,-11)*pow(sh,-18)*
2494 (268128. + 50176.*sh - 1.5037316e7*pow(sh,2) -
2495 7.0758368e7*pow(sh,3) - 6.454424e7*pow(sh,4) +
2496 3.47363296e8*pow(sh,5) + 9.86787592e8*pow(sh,6) +
2497 3.5646688e7*pow(sh,7) - 4.264570016e9*pow(sh,8) +
2498 6.1791288328e11*pow(sh,9) -
2499 5.890389956722e12*pow(sh,10) +
2500 1.02918816e10*PI2*
2501 pow(-1. + sh,8)*pow(sh,10) +
2502 2.5054270208126e13*pow(sh,11) -
2503 6.2290275001696e13*pow(sh,12) +
2504 9.9547394852612e13*pow(sh,13) -
2505 1.0492568190538e14*pow(sh,14) +
2506 7.0557905411966e13*pow(sh,15) -
2507 2.5585687891288e13*pow(sh,16) +
2508 2.41116416108e11*pow(sh,17) +
2509 4.002654161834e12*pow(sh,18) -
2510 1.418993445915e12*pow(sh,19) -
2511 5.1123112488e10*pow(sh,20) +
2512 3.91122982404e11*pow(sh,21) -
2513 5.60776090644e11*pow(sh,22) +
2514 5.66827442118e11*pow(sh,23) -
2515 3.8373727824e11*pow(sh,24) +
2516 1.699988427e11*pow(sh,25) -
2517 4.480654338e10*pow(sh,26) +
2518 5.447537865e9*pow(sh,27) - 6.48648e7*pow(sh,28)))*
2519 pow(z,10);
2520 }
2521 else {
2522 res += (3810.205573044906 + 59724.74778239659*(1. - 1.*sh) +
2523 463067.1377229003*pow(1. - 1.*sh,2) +
2524 2.4198049101282065e6*pow(1. - 1.*sh,3) +
2525 9.801969439295417e6*pow(1. - 1.*sh,4) +
2526 log(z)*(6844.5866215396 +
2527 71287.3656645614*(1. - 1.*sh) +
2528 427082.75058067543*pow(1. - 1.*sh,2) +
2529 1.8906811822573014e6*pow(1. - 1.*sh,3) +
2530 6.831129334403158e6*pow(1. - 1.*sh,4)))*pow(z,10);
2531 }
2532 }
2533
2534 }
2535 return res;
2536}
2537
2538
2539double f_19_re(double sh, double L_mu, double z, size_t maxpow) {
2540 double lz = log(z);
2541
2542 double Lsh = log(sh);
2543 double Lshb = log(1.-sh);
2544 double Li2sh = real(CLi2(sh));
2545 double Li3sh = real(CLi3(sh));
2546 double Li3shb = real(CLi3(1.-sh));
2547 double Li4sh = real(CLi4(sh));
2548 double sqrtsh = sqrt(sh);
2549 double sqrt4sh = sqrt(4.-sh);
2550 double ash = asin(sqrtsh/2.);
2551 double cl2 = Cl2(2.*ash);
2552 double cl3 = Cl3(2.*ash);
2553
2554
2555 double res=0;
2556
2557 if(sh<0.4) {
2558 res = -4.61812 - 0.0493827*Lsh - 0.06584362139917696*L_mu*Lsh +
2559 2.814815*lz + L_mu*(-1.953360768175583 +
2560 1.1851851851851851*lz) + 4.47441*sh + 0.74074*lz*sh +
2561 14.4621*z - 0.592593*Lsh*z + 4.796605*lz*z +
2562 71.3855*sh*z - 2.66667*Lsh*sh*z + 4.238385*lz*sh*z -
2563 0.592595*Lsh*lz*sh*z - 1.0534979423868314*pow(L_mu,2) -
2564 0.2962975*z*pow(lz,2) + 3.134725*sh*z*pow(lz,2) -
2565 0.098765375*z*pow(lz,3) - 0.098765375*sh*z*pow(lz,3) +
2566 0.0493826875*sh*z*pow(lz,4) + 37.1282*pow(sh,2) +
2567 0.0164609*Lsh*pow(sh,2) + 11.03105*lz*pow(sh,2) +
2568 212.74*z*pow(sh,2) - 5.33333*Lsh*z*pow(sh,2) -
2569 10.96075*lz*z*pow(sh,2) - 1.185185*Lsh*lz*z*pow(sh,2) +
2570 1.3333325*pow(lz,2)*pow(sh,2) +
2571 14.2931*z*pow(lz,2)*pow(sh,2) +
2572 0.098765375*pow(lz,3)*pow(sh,2) -
2573 0.29629625*z*pow(lz,3)*pow(sh,2) +
2574 0.148148125*z*pow(lz,4)*pow(sh,2) + 79.7475*pow(sh,3) +
2575 0.0219479*Lsh*pow(sh,3) + 28.65855*lz*pow(sh,3) +
2576 425.579*z*pow(sh,3) - 8.2963*Lsh*z*pow(sh,3) -
2577 34.4008*lz*z*pow(sh,3) - 1.77778*Lsh*lz*z*pow(sh,3) +
2578 2.814825*pow(lz,2)*pow(sh,3) +
2579 32.33925*z*pow(lz,2)*pow(sh,3) +
2580 0.29629625*pow(lz,3)*pow(sh,3) -
2581 0.6913575*z*pow(lz,3)*pow(sh,3) +
2582 0.29629625*z*pow(lz,4)*pow(sh,3) +
2583 L_mu*pow(sh,3)*(0.00020902736952119668 -
2584 0.0037624926513815404*pow(z,-3)) -
2585 0.0759415*pow(sh,3)*pow(z,-3) +
2586 L_mu*pow(sh,2)*(0.0014109347442680777 -
2587 0.025396825396825397*pow(z,-2)) -
2588 0.403158*pow(sh,2)*pow(z,-2) -
2589 0.00480894*pow(sh,3)*pow(z,-2) +
2590 L_mu*sh*(0.01316872427983539 -
2591 0.23703703703703705*pow(z,-1)) -
2592 2.48507*sh*pow(z,-1) - 0.0613169*pow(sh,2)*pow(z,-1) -
2593 1.81002*pow(sh,3)*pow(z,-1) -
2594 0.4597295*lz*pow(sh,3)*pow(z,-1) -
2595 0.04938275*pow(lz,2)*pow(sh,3)*pow(z,-1) +
2596 pow(sh,3)*(7.79821*pow(z,-0.5) - 319.726*pow(z,0.5)) -
2597 23.3946*sh*pow(z,0.5) - 140.368*pow(sh,2)*pow(z,0.5) +
2598 3.8991*pow(z,1.5) - 16.0864*pow(z,2) +
2599 4.95977*Lsh*pow(z,2) + 27.12195*lz*pow(z,2) -
2600 0.592595*Lsh*lz*pow(z,2) - 18.1301*sh*pow(z,2) +
2601 18.6539*Lsh*sh*pow(z,2) + 74.798*lz*sh*pow(z,2) -
2602 2.37037*Lsh*lz*sh*pow(z,2) -
2603 3.85185*pow(lz,2)*pow(z,2) -
2604 0.5925925*Lsh*pow(lz,2)*pow(z,2) -
2605 12.2963*sh*pow(lz,2)*pow(z,2) -
2606 2.37037*Lsh*sh*pow(lz,2)*pow(z,2) -
2607 0.4938275*pow(lz,3)*pow(z,2) -
2608 1.3827125*sh*pow(lz,3)*pow(z,2) -
2609 44.6829*pow(sh,2)*pow(z,2) +
2610 40.786*Lsh*pow(sh,2)*pow(z,2) +
2611 136.0075*lz*pow(sh,2)*pow(z,2) -
2612 7.1111*Lsh*lz*pow(sh,2)*pow(z,2) -
2613 29.77775*pow(lz,2)*pow(sh,2)*pow(z,2) -
2614 5.333325*Lsh*pow(lz,2)*pow(sh,2)*pow(z,2) -
2615 2.6666625*pow(lz,3)*pow(sh,2)*pow(z,2) -
2616 87.8946*pow(sh,3)*pow(z,2) +
2617 70.2698*Lsh*pow(sh,3)*pow(z,2) +
2618 208.806*lz*pow(sh,3)*pow(z,2) -
2619 15.80245*Lsh*lz*pow(sh,3)*pow(z,2) -
2620 56.79*pow(lz,2)*pow(sh,3)*pow(z,2) -
2621 9.481475*Lsh*pow(lz,2)*pow(sh,3)*pow(z,2) -
2622 4.345675*pow(lz,3)*pow(sh,3)*pow(z,2) - 14.73*pow(z,3) -
2623 9.20287*Lsh*pow(z,3) - 14.28805*lz*pow(z,3) -
2624 0.52675*Lsh*lz*pow(z,3) - 72.89*sh*pow(z,3) -
2625 41.6104*Lsh*sh*pow(z,3) - 34.0675*lz*sh*pow(z,3) -
2626 1.185185*Lsh*lz*sh*pow(z,3) +
2627 5.037025*pow(lz,2)*pow(z,3) +
2628 0.7901225*Lsh*pow(lz,2)*pow(z,3) +
2629 15.901225*sh*pow(lz,2)*pow(z,3) +
2630 3.55555*Lsh*sh*pow(lz,2)*pow(z,3) -
2631 137.203*pow(sh,2)*pow(z,3) -
2632 111.356*Lsh*pow(sh,2)*pow(z,3) -
2633 49.7185*lz*pow(sh,2)*pow(z,3) +
2634 42.22225*pow(lz,2)*pow(sh,2)*pow(z,3) +
2635 9.481475*Lsh*pow(lz,2)*pow(sh,2)*pow(z,3) -
2636 279.268*pow(sh,3)*pow(z,3) -
2637 231.893*Lsh*pow(sh,3)*pow(z,3) -
2638 73.4265*lz*pow(sh,3)*pow(z,3) +
2639 5.92595*Lsh*lz*pow(sh,3)*pow(z,3) +
2640 82.81475*pow(lz,2)*pow(sh,3)*pow(z,3) +
2641 19.753075*Lsh*pow(lz,2)*pow(sh,3)*pow(z,3);
2642 }
2643 else {
2644 if(sh<.900001) {
2645 res += (11.39728026699467 - 1.0534979423868314*pow(L_mu,2) -
2646 0.03292181069958848*Li2sh*(-8. + 17.*sh)*
2647 pow(-1. + sh,-1) - 0.03292181069958848*cl2*(2. + sh)*
2648 sqrt4sh*sqrtsh*pow(sh,-2) -
2649 1.*L_mu*(-1.1193415637860082*Lsh +
2650 0.13168724279835392*ash*(2. + sh)*sqrt4sh*sqrtsh*
2651 pow(sh,-2) + 0.13168724279835392*(-2. + 29.*sh)*
2652 pow(sh,-1)) + 0.14814814814814814*pow(Lsh,2)*
2653 pow(-1. + sh,-3)*pow(sh,2) -
2654 1.*Lsh*(0.03292181069958848*ash*(2. + sh)*sqrt4sh*
2655 sqrtsh*pow(sh,-2) +
2656 0.01646090534979424*pow(-1. + sh,-2)*
2657 (-168. + 307.*sh - 121.*pow(sh,2) +
2658 2.*Lshb*(8. - 25.*sh + 17.*pow(sh,2)))) -
2659 0.03292181069958848*ash*sqrt4sh*sqrtsh*pow(-1. + sh,-3)*
2660 pow(sh,-2)*(-4. + 3.*sh + 18.*pow(sh,2) -
2661 16.*pow(sh,3) + 5.*pow(sh,4)) -
2662 0.09876543209876543*pow(ash,2)*pow(-1. + sh,-4)*
2663 pow(sh,-1)*(12. - 33.*sh + 18.*pow(sh,2) -
2664 4.*pow(sh,4) + pow(sh,5)) +
2665 0.001828989483310471*pow(-1. + sh,-4)*pow(sh,-1)*
2666 (144. + 2.*sh*(-2068. +
2667 75.*PI2) +
2668 (15077. - 618.*PI2)*
2669 pow(sh,2) + 102.*
2670 (-214. + 9.*PI2)*pow(sh,3) +
2671 (14249. - 615.*PI2)*
2672 pow(sh,4) + 2.*(-1753. +
2673 78.*PI2)*pow(sh,5)))*
2674 1.;
2675 }
2676 else {
2677 res += 1.*(5.605483340182181 -
2678 1.9301201034078073*(1. - 1.*sh) -
2679 1.1708211541924651*pow(1. - 1.*sh,2) -
2680 0.8303057591438543*pow(1. - 1.*sh,3) +
2681 L_mu*(-3.9138369114536733 -
2682 1.136144688522592*(1. - 1.*sh) -
2683 0.5573265536192934*pow(1. - 1.*sh,2) -
2684 0.37357014711105585*pow(1. - 1.*sh,3) -
2685 0.27973271946953165*pow(1. - 1.*sh,4)) -
2686 0.6410250317311895*pow(1. - 1.*sh,4) -
2687 1.0534979423868314*pow(L_mu,2));
2688 }
2689
2690 if(1<=maxpow){
2691 if(sh<.900001) {
2692 res += 0.;
2693 }
2694 else {
2695 res += 0.;
2696 }
2697 }
2698
2699 if(2<=maxpow) {
2700 if(sh<.900001) {
2701 res += (-0.09876543209876543*sh*pow(Lsh,4)*pow(-1. + sh,-3) +
2702 0.5925925925925926*Li2sh*(1. + 2.*sh)*
2703 pow(-1. + sh,-2) - 0.19753086419753085*(-3. + sh)*
2704 pow(Lsh,3)*pow(-1. + sh,-2) -
2705 7.111111111111111*L_mu*pow(sh,-1) -
2706 1.*lz*(0.5925925925925926*Lsh*
2707 (2. + 2.*Lshb*(-1. + sh) + sh)*pow(-1. + sh,-2) +
2708 1.1851851851851851*Li2sh*pow(-1. + sh,-1) -
2709 0.5925925925925926*pow(Lsh,2)*pow(-1. + sh,-1) -
2710 0.19753086419753085*
2711 (144. + sh*(-135. + PI2))*
2712 pow(-1. + sh,-1)*pow(sh,-1)) +
2713 0.7123300166871669*pow(-1. + sh,-3)*
2714 (-3. + 3.*sh + 2.*pow(sh,2)) -
2715 0.5925925925925926*ash*sqrt4sh*sqrtsh*pow(-1. + sh,-3)*
2716 pow(sh,-1)*(2. - 11.*sh + 3.*pow(sh,2)) +
2717 0.5925925925925926*Li3sh*pow(-1. + sh,-3)*
2718 (-3. - 3.*sh + 4.*pow(sh,2)) -
2719 1.*pow(Lsh,2)*(1.1851851851851851*Li2sh*sh*
2720 pow(-1. + sh,-3) +
2721 0.09876543209876543*pow(-1. + sh,-3)*
2722 (12. + 3.*Lshb*(-7. + 5.*sh) +
2723 2.*sh*(-6. + PI2) +
2724 3.*pow(sh,2))) -
2725 3.5555555555555554*pow(ash,2)*pow(-1. + sh,-4)*
2726 (-1. + 8.*sh - 5.*pow(sh,2) + pow(sh,3)) -
2727 1.*Lsh*(5.698640133497335*sh*pow(-1. + sh,-3) -
2728 4.7407407407407405*Li3sh*sh*pow(-1. + sh,-3) +
2729 0.5925925925925926*Li2sh*pow(-1. + sh,-3)*
2730 (-5. + sh + 2.*pow(sh,2)) -
2731 0.09876543209876543*pow(-1. + sh,-3)*pow(sh,-1)*
2732 (-288. + sh*(906. - 6.*Lshb -
2733 7.*PI2) +
2734 (-903. - 6.*Lshb + 5.*PI2)*
2735 pow(sh,2) + 3.*(95. + 4.*Lshb)*pow(sh,3))) -
2736 0.019753086419753086*pow(-1. + sh,-4)*pow(sh,-1)*
2737 (-4.*(-1. + sh)*pow(3.141592653589793,4)*pow(sh,2) +
2738 15.*(-1. + sh)*(-20. + 48.*sh +
2739 3.*(-13. + 8.*Li4sh)*pow(sh,2) + 11.*pow(sh,3))\
2740 + 5.*PI2*
2741 (-3. + 8.*sh - 10.*pow(sh,2) + 2.*pow(sh,4))))*
2742 pow(z,1);
2743 }
2744 else {
2745 res += (-0.6372090343808106 - 30.841194974865694*(1. - 1.*sh) -
2746 45.8723194923496*pow(1. - 1.*sh,2) -
2747 55.64666652217136*pow(1. - 1.*sh,3) +
2748 log(z)*(-29.333333333333332 -
2749 29.037037037037038*(1. - 1.*sh) -
2750 28.921810699588477*pow(1. - 1.*sh,2) -
2751 28.854320987654322*pow(1. - 1.*sh,3) -
2752 28.8079012345679*pow(1. - 1.*sh,4)) +
2753 L_mu*(-7.111111111111111 -
2754 7.111111111111111*(1. - 1.*sh) -
2755 7.111111111111111*pow(1. - 1.*sh,2) -
2756 7.111111111111111*pow(1. - 1.*sh,3) -
2757 7.111111111111111*pow(1. - 1.*sh,4)) -
2758 62.91148562558235*pow(1. - 1.*sh,4))*pow(z,1);
2759 }
2760 }
2761
2762 if(3<=maxpow) {
2763 if(sh<.900001) {
2764 res += 0.3950617283950617*(-2. + sh)*PI2*
2765 pow(sh,-1)*pow(z,1.5);}
2766 else {
2767 res += (-3.8991029732698697 - 7.798205946539739*(1. - 1.*sh) -
2768 7.798205946539739*pow(1. - 1.*sh,2) -
2769 7.798205946539739*pow(1. - 1.*sh,3) -
2770 7.798205946539739*pow(1. - 1.*sh,4))*pow(z,1.5);
2771 }
2772 }
2773
2774 if(4<=maxpow) {
2775 if(sh<.900001) {
2776 res += (-0.5925925925925926*Li3shb*(6. + sh)*pow(-1. + sh,-3) -
2777 0.5925925925925926*Li3sh*(-11. + 3.*sh)*
2778 pow(-1. + sh,-3) - 0.09876543209876543*(2. + sh)*
2779 pow(Lsh,3)*pow(-1. + sh,-3) -
2780 1.*L_mu*(3.5555555555555554*pow(sh,-2) +
2781 7.111111111111111*Lsh*pow(sh,-2)) +
2782 0.5925925925925926*Li2sh*pow(-1. + sh,-3)*pow(sh,-2)*
2783 (-3. + 10.*sh - 9.*pow(sh,2) + pow(sh,3)) +
2784 0.5925925925925926*cl2*sqrt4sh*sqrtsh*pow(-1. + sh,-3)*
2785 pow(sh,-1)*(2. + 8.*pow(sh,2) - 5.*pow(sh,3) +
2786 pow(sh,4)) - 0.5925925925925926*ash*sqrt4sh*sqrtsh*
2787 pow(-1. + sh,-3)*pow(sh,-1)*
2788 (-2. - 4.*sh + 24.*pow(sh,2) - 15.*pow(sh,3) +
2789 3.*pow(sh,4)) - 0.7123300166871669*pow(-1. + sh,-4)*
2790 pow(sh,-2)*(64. - 256.*sh + 375.*pow(sh,2) -
2791 236.*pow(sh,3) + 59.*pow(sh,4)) +
2792 0.14814814814814814*pow(Lsh,2)*pow(-1. + sh,-4)*
2793 pow(sh,-2)*(185. - 751.*sh +
2794 3.*(379. + 2.*Lshb)*pow(sh,2) -
2795 1.*(777. + 8.*Lshb)*pow(sh,3) +
2796 2.*(100. + Lshb)*pow(sh,4)) -
2797 1.*Lsh*(-0.5925925925925926*Li2sh*(-7. + 2.*sh)*
2798 pow(-1. + sh,-3) -
2799 3.5555555555555554*pow(ash,2)*pow(-1. + sh,-4)*
2800 (-1. - 3.*sh + pow(sh,2)) -
2801 0.04938271604938271*pow(-1. + sh,-3)*pow(sh,-2)*
2802 (-423. + 1236.*sh -
2803 1.*(1179. + 46.*PI2)*
2804 pow(sh,2) + 2.*
2805 (225. + PI2)*pow(sh,3) +
2806 12.*Lshb*(-3. + 10.*sh - 9.*pow(sh,2) +
2807 pow(sh,3))) -
2808 0.5925925925925926*ash*sqrt4sh*sqrtsh*
2809 pow(-1. + sh,-3)*pow(sh,-1)*
2810 (2. + 8.*pow(sh,2) - 5.*pow(sh,3) + pow(sh,4))) -
2811 1.7777777777777777*pow(ash,2)*pow(-1. + sh,-4)*
2812 (4. - 2.*sh - 24.*pow(sh,2) + 23.*pow(sh,3) -
2813 8.*pow(sh,4) + pow(sh,5)) -
2814 1.*pow(lz,2)*(-0.2962962962962963*Lsh*(6. + sh)*
2815 pow(-1. + sh,-3) -
2816 0.14814814814814814*pow(-1. + sh,-2)*pow(sh,-2)*
2817 (188. - 378.*sh + 169.*pow(sh,2) + 12.*pow(sh,3) -
2818 6.*pow(sh,4) + pow(sh,5))) -
2819 0.024691358024691357*pow(-1. + sh,-4)*pow(sh,-2)*
2820 (88. - 448.*sh - 3.*(-415. + 48.*cl3)*pow(sh,2) -
2821 2.*(917. + 216.*cl3)*pow(sh,3) +
2822 (1453. + 144.*cl3)*pow(sh,4) - 693.*pow(sh,5) +
2823 210.*pow(sh,6) - 21.*pow(sh,7) -
2824 2.*PI2*
2825 (-603. + 2441.*sh - 3677.*pow(sh,2) +
2826 2457.*pow(sh,3) - 662.*pow(sh,4) +
2827 52.*pow(sh,5) - 16.*pow(sh,6) + 2.*pow(sh,7))) -
2828 1.*lz*(0.5925925925925926*Li2sh*(6. + sh)*
2829 pow(-1. + sh,-3) -
2830 0.2962962962962963*pow(Lsh,2)*pow(-1. + sh,-2) -
2831 7.111111111111111*L_mu*pow(sh,-2) -
2832 7.111111111111111*pow(ash,2)*pow(-1. + sh,-4)*
2833 (-1. - 3.*sh + pow(sh,2)) +
2834 0.2962962962962963*Lsh*pow(-1. + sh,-3)*pow(sh,-2)*
2835 (-187. + 566.*sh +
2836 3.*(-191. + 4.*Lshb)*pow(sh,2) +
2837 2.*(96. + Lshb)*pow(sh,3)) -
2838 1.1851851851851851*ash*sqrt4sh*sqrtsh*
2839 pow(-1. + sh,-3)*pow(sh,-1)*
2840 (2. + 8.*pow(sh,2) - 5.*pow(sh,3) + pow(sh,4)) +
2841 0.04938271604938271*pow(-1. + sh,-4)*pow(sh,-2)*
2842 (432. - 1728.*sh +
2843 (2511. + 8.*PI2)*
2844 pow(sh,2) - 2.*
2845 (735. + 11.*PI2)*pow(sh,3)\
2846 + (99. + 2.*PI2)*
2847 pow(sh,4) + 225.*pow(sh,5) - 78.*pow(sh,6) +
2848 9.*pow(sh,7))))*pow(z,2);
2849 }
2850 else {
2851 res += pow(z,2)*(-336.0382986459167 -
2852 695.8939576145283*(1. - 1.*sh) -
2853 1040.3241576582361*pow(1. - 1.*sh,2) -
2854 1365.7546667417848*pow(1. - 1.*sh,3) -
2855 1671.7824637501126*pow(1. - 1.*sh,4) +
2856 L_mu*(-3.5555555555555554 +
2857 7.111111111111111*pow(1. - 1.*sh,2) +
2858 16.59259259259259*pow(1. - 1.*sh,3) +
2859 27.85185185185185*pow(1. - 1.*sh,4)) +
2860 log(z)*(-21.887216272530303 +
2861 9.991951790611958*(1. - 1.*sh) +
2862 71.95973563934483*pow(1. - 1.*sh,2) +
2863 151.94549827445954*pow(1. - 1.*sh,3) +
2864 245.72125954180052*pow(1. - 1.*sh,4) +
2865 L_mu*(7.111111111111111 +
2866 14.222222222222221*(1. - 1.*sh) +
2867 21.333333333333332*pow(1. - 1.*sh,2) +
2868 28.444444444444443*pow(1. - 1.*sh,3) +
2869 35.55555555555556*pow(1. - 1.*sh,4))) +
2870 (27.65432098765432 + 55.67901234567901*(1. - 1.*sh) +
2871 83.6*pow(1. - 1.*sh,2) +
2872 111.39753086419753*pow(1. - 1.*sh,3) +
2873 139.20987654320987*pow(1. - 1.*sh,4))*pow(log(z),2));
2874 }
2875 }
2876
2877 if(5<=maxpow) {
2878 if(sh<.900001) {
2879 res += -0.05267489711934156*PI2*pow(sh,-3)*
2880 (3. + 14.*sh + 3.*pow(sh,2))*pow(z,2.5);
2881 }
2882 else {
2883 res += (-10.397607928719653 - 20.795215857439306*(1. - 1.*sh) -
2884 32.75246497546691*pow(1. - 1.*sh,2) -
2885 46.26935528280246*pow(1. - 1.*sh,3) -
2886 61.34588677944595*pow(1. - 1.*sh,4))*pow(z,2.5);
2887 }
2888 }
2889
2890 if(6<=maxpow) {
2891 if(sh<.900001) {
2892 res += (-0.7901234567901234*Li3shb*(2. + sh)*pow(-1. + sh,-4) -
2893 1.*L_mu*(-6.320987654320987*pow(sh,-3) +
2894 9.481481481481481*Lsh*pow(sh,-3)) +
2895 1.1851851851851851*Li3sh*pow(-1. + sh,-3)*pow(sh,-1) -
2896 0.3950617283950617*pow(Lsh,3)*pow(-1. + sh,-3)*
2897 pow(sh,-1) + 0.4748866777914446*pow(-1. + sh,-4)*
2898 pow(sh,-1)*(3. + sh + 2.*pow(sh,2)) -
2899 0.06584362139917696*Li2sh*pow(-1. + sh,-4)*pow(sh,-3)*
2900 (-36. + 144.*sh - 234.*pow(sh,2) + 208.*pow(sh,3) -
2901 73.*pow(sh,4) + 9.*pow(sh,5)) -
2902 0.01646090534979424*pow(Lsh,2)*pow(-1. + sh,-5)*
2903 pow(sh,-4)*(-12. + 3682.*sh - 18347.*pow(sh,2) +
2904 (36889. + 36.*Lshb)*pow(sh,3) -
2905 2.*(18563. + 36.*Lshb)*pow(sh,4) +
2906 4.*(4679. + 9.*Lshb)*pow(sh,5) - 3748.*pow(sh,6) -
2907 18.*pow(sh,7)) +
2908 0.3950617283950617*pow(ash,2)*pow(-1. + sh,-4)*
2909 (16. - 22.*sh - 171.*pow(sh,2) + 336.*pow(sh,3) -
2910 300.*pow(sh,4) + 141.*pow(sh,5) - 33.*pow(sh,6) +
2911 3.*pow(sh,7)) - 1.*pow(lz,2)*
2912 (-0.3950617283950617*Lsh*(2. + sh)*pow(-1. + sh,-4) +
2913 0.01646090534979424*pow(-1. + sh,-3)*pow(sh,-4)*
2914 (-3. + 3685.*sh - 11046.*pow(sh,2) +
2915 11061.*pow(sh,3) - 3604.*pow(sh,4) -
2916 132.*pow(sh,5) + 321.*pow(sh,6) -
2917 378.*pow(sh,7) + 222.*pow(sh,8) -
2918 60.*pow(sh,9) + 6.*pow(sh,10))) -
2919 0.13168724279835392*ash*pow(-1. + sh,-3)*
2920 (-8. - 21.*sh - 17.*pow(sh,2) + 23.*pow(sh,3) -
2921 8.*pow(sh,4) + pow(sh,5))*pow(-((-4 + sh)*sh),0.5)\
2922 - 1.*Lsh*(-2.3703703703703702*(2. + sh)*pow(ash,2)*
2923 pow(-1. + sh,-4) +
2924 1.1851851851851851*Li2sh*pow(-1. + sh,-3)*
2925 pow(sh,-1) + 0.0054869684499314125*pow(-1. + sh,-4)*
2926 pow(sh,-4)*(30. + (12452. - 432.*Lshb)*sh +
2927 2.*(-25315. + 864.*Lshb)*pow(sh,2) +
2928 36.*(-78.*Lshb +
2929 5.*(424. + PI2))*
2930 pow(sh,3) + (-50317. + 2496.*Lshb -
2931 36.*PI2)*pow(sh,4) +
2932 (12496. - 876.*Lshb +
2933 72.*PI2)*pow(sh,5) +
2934 27.*(3. + 4.*Lshb)*pow(sh,6)) +
2935 0.3950617283950617*ash*pow(-1. + sh,-3)*
2936 (4. + 15.*sh - 29.*pow(sh,2) + 23.*pow(sh,3) -
2937 8.*pow(sh,4) + pow(sh,5))*
2938 pow(-((-4 + sh)*sh),0.5)) -
2939 1.*lz*(0.7901234567901234*Li2sh*(2. + sh)*
2940 pow(-1. + sh,-4) -
2941 4.7407407407407405*(2. + sh)*pow(ash,2)*
2942 pow(-1. + sh,-4) -
2943 9.481481481481481*L_mu*pow(sh,-3) -
2944 0.5925925925925926*pow(Lsh,2)*pow(-1. + sh,-3)*
2945 pow(sh,-1) + 0.03292181069958848*Lsh*
2946 pow(-1. + sh,-4)*pow(sh,-4)*
2947 (-6. + 3682.*sh - 14713.*pow(sh,2) +
2948 22170.*pow(sh,3) +
2949 6.*(-2491. + 8.*Lshb)*pow(sh,4) +
2950 6.*(631. + 4.*Lshb)*pow(sh,5) - 9.*pow(sh,6)) +
2951 0.0054869684499314125*pow(-1. + sh,-3)*pow(sh,-4)*
2952 (15. + 12482.*sh - 37473.*pow(sh,2) +
2953 37278.*pow(sh,3) - 12305.*pow(sh,4) +
2954 498.*pow(sh,5) - 1215.*pow(sh,6) +
2955 606.*pow(sh,7) - 84.*pow(sh,8) - 24.*pow(sh,9) +
2956 6.*pow(sh,10)) +
2957 0.7901234567901234*ash*pow(-1. + sh,-3)*
2958 (4. + 15.*sh - 29.*pow(sh,2) + 23.*pow(sh,3) -
2959 8.*pow(sh,4) + pow(sh,5))*
2960 pow(-((-4 + sh)*sh),0.5)) -
2961 0.0027434842249657062*pow(-1. + sh,-4)*pow(sh,-4)*
2962 (19. + 31332.*sh - 125971.*pow(sh,2) +
2963 189649.*pow(sh,3) - 94.*pow(sh,11) +
2964 6.*PI2*
2965 (-6. + 3838.*sh - 15355.*pow(sh,2) +
2966 23258.*pow(sh,3) - 15790.*pow(sh,4) +
2967 4134.*pow(sh,5) - 299.*pow(sh,6) +
2968 440.*pow(sh,7) - 400.*pow(sh,8) +
2969 188.*pow(sh,9) - 44.*pow(sh,10) + 4.*pow(sh,11))\
2970 + pow(sh,4)*(-125525. + 1728.*cl3 -
2971 576.*cl2*pow(-((-4 + sh)*sh),0.5)) +
2972 12.*pow(sh,5)*(2563. + 72.*cl3 -
2973 132.*cl2*pow(-((-4 + sh)*sh),0.5)) +
2974 2.*pow(sh,10)*(451. +
2975 72.*cl2*pow(-((-4 + sh)*sh),0.5)) -
2976 4.*pow(sh,9)*(791. +
2977 324.*cl2*pow(-((-4 + sh)*sh),0.5)) +
2978 pow(sh,8)*(4810. +
2979 4464.*cl2*pow(-((-4 + sh)*sh),0.5)) +
2980 pow(sh,6)*(-343. +
2981 6336.*cl2*pow(-((-4 + sh)*sh),0.5)) -
2982 1.*pow(sh,7)*(2371. +
2983 7488.*cl2*pow(-((-4 + sh)*sh),0.5))))*pow(z,3);
2984 }
2985 else {
2986 res += pow(z,3)*(-691.9182670329545 -
2987 2017.613655726338*(1. - 1.*sh) -
2988 3881.550454689942*pow(1. - 1.*sh,2) -
2989 6209.7474017909*pow(1. - 1.*sh,3) -
2990 8925.087722919276*pow(1. - 1.*sh,4) +
2991 L_mu*(6.320987654320987 +
2992 28.444444444444443*(1. - 1.*sh) +
2993 71.11111111111111*pow(1. - 1.*sh,2) +
2994 137.4814814814815*pow(1. - 1.*sh,3) +
2995 229.92592592592592*pow(1. - 1.*sh,4)) +
2996 log(z)*(65.87937511351353 +
2997 322.6369826409675*(1. - 1.*sh) +
2998 831.0074785910778*pow(1. - 1.*sh,2) +
2999 1624.0261584651576*pow(1. - 1.*sh,3) +
3000 2734.9197954441984*pow(1. - 1.*sh,4) +
3001 L_mu*(9.481481481481481 +
3002 28.444444444444443*(1. - 1.*sh) +
3003 56.888888888888886*pow(1. - 1.*sh,2) +
3004 94.81481481481481*pow(1. - 1.*sh,3) +
3005 142.22222222222223*pow(1. - 1.*sh,4))) +
3006 (59.7037037037037 + 181.14567901234568*(1. - 1.*sh) +
3007 362.4493827160494*pow(1. - 1.*sh,2) +
3008 603.5673133450912*pow(1. - 1.*sh,3) +
3009 905.1428571428571*pow(1. - 1.*sh,4))*pow(log(z),2));
3010 }
3011 }
3012
3013 if(7<=maxpow) {
3014 if(sh<.900001) {
3015 res += -0.004514991181657848*PI2*pow(sh,-5)*
3016 (15. + 108.*sh + 314.*pow(sh,2) + 108.*pow(sh,3) +
3017 15.*pow(sh,4))*pow(z,3.5);
3018 }
3019 else {
3020 res += (-24.954259028927165 - 74.8627770867815*(1. - 1.*sh) -
3021 157.21183188224114*pow(1. - 1.*sh,2) -
3022 279.48770112398427*pow(1. - 1.*sh,3) -
3023 449.8450801732495*pow(1. - 1.*sh,4))*pow(z,3.5);
3024 }
3025 }
3026
3027 if(8<=maxpow) {
3028 if(sh<.900001) {
3029 res += (-1.*L_mu*(-19.555555555555557*pow(sh,-4) +
3030 21.333333333333332*Lsh*pow(sh,-4)) -
3031 2.374433388957223*pow(-1. + sh,-3)*pow(sh,-2) +
3032 1.9753086419753085*Li3sh*pow(-1. + sh,-3)*pow(sh,-2) -
3033 0.6584362139917695*pow(Lsh,3)*pow(-1. + sh,-3)*
3034 pow(sh,-2) - 0.09876543209876543*Li2sh*
3035 pow(-1. + sh,-5)*pow(sh,-4)*
3036 (54. - 268.*sh + 544.*pow(sh,2) - 570.*pow(sh,3) +
3037 292.*pow(sh,4) - 58.*pow(sh,5) - 6.*pow(sh,6) +
3038 3.*pow(sh,7)) - 1.7777777777777777*sh*pow(ash,2)*
3039 pow(-1. + sh,-4)*(-24. - 3.*sh + 174.*pow(sh,2) -
3040 390.*pow(sh,3) + 411.*pow(sh,4) - 241.*pow(sh,5) +
3041 80.*pow(sh,6) - 14.*pow(sh,7) + pow(sh,8)) -
3042 0.01646090534979424*pow(Lsh,2)*pow(-1. + sh,-6)*
3043 pow(sh,-6)*(6. + 14.*sh - 9747.*pow(sh,2) +
3044 58077.*pow(sh,3) -
3045 3.*(48391. + 20.*Lshb)*pow(sh,4) +
3046 3.*(64669. + 60.*Lshb)*pow(sh,5) -
3047 15.*(9737. + 12.*Lshb)*pow(sh,6) +
3048 (58789. + 60.*Lshb)*pow(sh,7) - 9906.*pow(sh,8) +
3049 27.*pow(sh,9) - 9.*pow(sh,10)) +
3050 0.00823045267489712*pow(lz,2)*pow(sh,-6)*
3051 (-3. - 25.*sh + 19344.*pow(sh,2) + 73.*pow(sh,4) +
3052 3.*pow(sh,5) + 180.*pow(sh,6) + 36.*pow(sh,7) -
3053 738.*pow(sh,8) + 612.*pow(sh,9) - 180.*pow(sh,10) +
3054 18.*pow(sh,11)) +
3055 0.09876543209876543*ash*pow(-1. + sh,-3)*
3056 (-6. - 41.*sh - 239.*pow(sh,2) + 671.*pow(sh,3) -
3057 680.*pow(sh,4) + 329.*pow(sh,5) - 77.*pow(sh,6) +
3058 7.*pow(sh,7))*pow(-((-4 + sh)*sh),0.5) -
3059 1.*lz*(-21.333333333333332*L_mu*pow(sh,-4) -
3060 0.9876543209876543*pow(Lsh,2)*pow(-1. + sh,-3)*
3061 pow(sh,-2) - 0.03292181069958848*Lsh*
3062 pow(-1. + sh,-5)*pow(sh,-6)*
3063 (-3. - 10.*sh + 9722.*pow(sh,2) -
3064 48430.*pow(sh,3) + 96898.*pow(sh,4) -
3065 97142.*pow(sh,5) + 48736.*pow(sh,6) -
3066 9804.*pow(sh,7) + 3.*pow(sh,8) + 3.*pow(sh,9)) -
3067 0.00027434842249657066*pow(-1. + sh,-4)*pow(sh,-6)*
3068 (105. + 55.*sh + 963530.*pow(sh,2) -
3069 3.85233e6*pow(sh,3) + 5.76189e6*pow(sh,4) -
3070 3.806202e6*pow(sh,5) + 923844.*pow(sh,6) +
3071 1154.*pow(sh,7) + 54349.*pow(sh,8) -
3072 76131.*pow(sh,9) + 4716.*pow(sh,10) +
3073 82440.*pow(sh,11) - 83970.*pow(sh,12) +
3074 36900.*pow(sh,13) - 7740.*pow(sh,14) +
3075 630.*pow(sh,15)) -
3076 1.1851851851851851*ash*
3077 (-6. - 13.*sh + 20.*pow(sh,2) - 8.*pow(sh,3) +
3078 pow(sh,4))*pow(-((-4 + sh)*sh),0.5)) -
3079 1.*Lsh*(1.9753086419753085*Li2sh*pow(-1. + sh,-3)*
3080 pow(sh,-2) + 0.0027434842249657062*pow(-1. + sh,-5)*
3081 pow(sh,-6)*(-21. + 10.*sh +
3082 2.*(-48097. + 972.*Lshb)*pow(sh,2) +
3083 (483970. - 9648.*Lshb)*pow(sh,3) +
3084 (-972667. + 19584.*Lshb -
3085 600.*PI2)*pow(sh,4) +
3086 8.*(122107. - 2565.*Lshb +
3087 150.*PI2)*pow(sh,5) +
3088 2.*(-245429. + 5256.*Lshb -
3089 300.*PI2)*pow(sh,6) +
3090 (98142. - 2088.*Lshb)*pow(sh,7) -
3091 6.*(7. + 36.*Lshb)*pow(sh,8) +
3092 6.*(5. + 18.*Lshb)*pow(sh,9)) -
3093 0.5925925925925926*ash*
3094 (-6. - 13.*sh + 20.*pow(sh,2) - 8.*pow(sh,3) +
3095 pow(sh,4))*pow(-((-4 + sh)*sh),0.5)) -
3096 4.572473708276177e-6*pow(-1. + sh,-5)*pow(sh,-6)*
3097 (-1200.*PI2*
3098 (-9. - 30.*sh + 30192.*pow(sh,2) -
3099 150534.*pow(sh,3) + 301774.*pow(sh,4) -
3100 303542.*pow(sh,5) + 152986.*pow(sh,6) -
3101 30076.*pow(sh,7) - 1033.*pow(sh,8) -
3102 2857.*pow(sh,9) + 10122.*pow(sh,10) -
3103 14418.*pow(sh,11) + 11736.*pow(sh,12) -
3104 5778.*pow(sh,13) + 1692.*pow(sh,14) -
3105 270.*pow(sh,15) + 18.*pow(sh,16)) +
3106 (-1. + sh)*(2775. - 2775.*sh +
3107 1.836255e7*pow(sh,2) - 7.415055e7*pow(sh,3) +
3108 1.1249425e8*pow(sh,4) - 7.6337698e7*pow(sh,5) +
3109 86850.*pow(sh,15) +
3110 pow(sh,8)*(4.883011e6 -
3111 4.6656e6*cl2*pow(-((-4 + sh)*sh),0.5)) -
3112 900.*pow(sh,14)*
3113 (1249. + 144.*cl2*pow(-((-4 + sh)*sh),0.5)) +
3114 900.*pow(sh,13)*
3115 (6445. + 1728.*cl2*pow(-((-4 + sh)*sh),0.5)) -
3116 4050.*pow(sh,12)*
3117 (3755. + 1856.*cl2*pow(-((-4 + sh)*sh),0.5)) +
3118 4500.*pow(sh,11)*
3119 (4681. + 4176.*cl2*pow(-((-4 + sh)*sh),0.5)) +
3120 12.*pow(sh,6)*
3121 (1.746143e6 +
3122 64800.*cl2*pow(-((-4 + sh)*sh),0.5)) -
3123 2.*pow(sh,7)*(1.393817e6 +
3124 712800.*cl2*pow(-((-4 + sh)*sh),0.5)) -
3125 36.*pow(sh,10)*
3126 (374591. + 716400.*cl2*pow(-((-4 + sh)*sh),0.5))
3127 + 3.*pow(sh,9)*
3128 (-523. + 6.1344e6*cl2*pow(-((-4 + sh)*sh),0.5)))
3129 ))*pow(z,4);
3130 }
3131 else {
3132 res += pow(z,4)*(-1672.4687901566804 -
3133 6425.515582048289*(1. - 1.*sh) -
3134 15411.783043279445*pow(1. - 1.*sh,2) -
3135 29568.2502704632*pow(1. - 1.*sh,3) -
3136 49534.42028818623*pow(1. - 1.*sh,4) +
3137 L_mu*(19.555555555555557 +
3138 99.55555555555556*(1. - 1.*sh) +
3139 291.55555555555554*pow(1. - 1.*sh,2) +
3140 654.2222222222222*pow(1. - 1.*sh,3) +
3141 1251.5555555555557*pow(1. - 1.*sh,4)) +
3142 log(z)*(253.5498382001439 +
3143 1369.6655601827902*(1. - 1.*sh) +
3144 4072.304539664025*pow(1. - 1.*sh,2) +
3145 9174.433775454903*pow(1. - 1.*sh,3) +
3146 17618.760992657026*pow(1. - 1.*sh,4) +
3147 L_mu*(21.333333333333332 +
3148 85.33333333333333*(1. - 1.*sh) +
3149 213.33333333333334*pow(1. - 1.*sh,2) +
3150 426.6666666666667*pow(1. - 1.*sh,3) +
3151 746.6666666666666*pow(1. - 1.*sh,4))) +
3152 (159.01234567901236 + 638.8148148148148*(1. - 1.*sh) +
3153 1591.9506172839506*pow(1. - 1.*sh,2) +
3154 3177.448559670782*pow(1. - 1.*sh,3) +
3155 5557.119341563786*pow(1. - 1.*sh,4))*pow(log(z),2));
3156 }
3157 }
3158
3159 if(9<=maxpow) {
3160 if(sh<.900001) {
3161 res += -0.0010749979003947259*PI2*pow(sh,-7)*
3162 (35. + 330.*sh + 1389.*pow(sh,2) + 3212.*pow(sh,3) +
3163 1389.*pow(sh,4) + 330.*pow(sh,5) + 35.*pow(sh,6))*
3164 pow(z,4.5);
3165 }
3166 else {
3167 res += (-71.2978829397919 - 285.1915317591676*(1. - 1.*sh) -
3168 745.0628767208254*pow(1. - 1.*sh,2) -
3169 1586.3778954103698*pow(1. - 1.*sh,3) -
3170 2982.415906901117*pow(1. - 1.*sh,4))*pow(z,4.5);
3171 }
3172 }
3173
3174 if(10<=maxpow) {
3175 if(sh<.900001) {
3176 res += (-1.*L_mu*(-58.785185185185185*pow(sh,-5) +
3177 56.888888888888886*Lsh*pow(sh,-5)) -
3178 4.986310116810168*pow(-1. + sh,-3)*pow(sh,-3) +
3179 4.148148148148148*Li3sh*pow(-1. + sh,-3)*pow(sh,-3) -
3180 1.382716049382716*pow(Lsh,3)*pow(-1. + sh,-3)*
3181 pow(sh,-3) - 0.3950617283950617*cl2*sh*sqrt4sh*sqrtsh*
3182 (44. + 108.*sh - 221.*pow(sh,2) + 132.*pow(sh,3) -
3183 33.*pow(sh,4) + 3.*pow(sh,5)) -
3184 0.03950617283950617*ash*sh*sqrt4sh*sqrtsh*
3185 pow(-1. + sh,-3)*(-496. + 326.*sh + 6147.*pow(sh,2) -
3186 16495.*pow(sh,3) + 18680.*pow(sh,4) -
3187 11251.*pow(sh,5) + 3760.*pow(sh,6) -
3188 658.*pow(sh,7) + 47.*pow(sh,8)) -
3189 0.19753086419753085*Li2sh*pow(-1. + sh,-6)*pow(sh,-5)*
3190 (-72. + 429.*sh - 1073.*pow(sh,2) + 1442.*pow(sh,3) -
3191 1092.*pow(sh,4) + 435.*pow(sh,5) - 47.*pow(sh,6) -
3192 6.*pow(sh,7) - 1.*pow(sh,8) + pow(sh,9)) +
3193 1.1851851851851851*sh*pow(ash,2)*pow(-1. + sh,-4)*
3194 (-24. + 162.*sh + 114.*pow(sh,2) - 1809.*pow(sh,3) +
3195 4224.*pow(sh,4) - 4957.*pow(sh,5) +
3196 3423.*pow(sh,6) - 1445.*pow(sh,7) +
3197 366.*pow(sh,8) - 51.*pow(sh,9) + 3.*pow(sh,10)) -
3198 1.*Lsh*(4.148148148148148*Li2sh*pow(-1. + sh,-3)*
3199 pow(sh,-3) + 0.3950617283950617*ash*sh*sqrt4sh*
3200 sqrtsh*(44. + 108.*sh - 221.*pow(sh,2) +
3201 132.*pow(sh,3) - 33.*pow(sh,4) + 3.*pow(sh,5)) +
3202 0.00005486968449931413*pow(-1. + sh,-6)*pow(sh,-8)*
3203 (486. - 108.*sh - 8742.*pow(sh,2) +
3204 (1.6072738e7 - 259200.*Lshb)*pow(sh,3) +
3205 6.*(-1.6103209e7 + 257400.*Lshb)*pow(sh,4) +
3206 24.*(1.0092821e7 - 160950.*Lshb +
3207 2625.*PI2)*pow(sh,5) +
3208 4.*(-8.0991623e7 + 1.2978e6*Lshb -
3209 47250.*PI2)*pow(sh,6) +
3210 6.*(4.0636147e7 - 655200.*Lshb +
3211 31500.*PI2)*pow(sh,7) +
3212 3.*(-3.2644121e7 + 522000.*Lshb -
3213 21000.*PI2)*pow(sh,8) -
3214 2.*(-8.202737e6 + 84600.*Lshb)*pow(sh,9) -
3215 900.*(17. + 24.*Lshb)*pow(sh,10) -
3216 450.*(-1. + 8.*Lshb)*pow(sh,11) +
3217 75.*(7. + 48.*Lshb)*pow(sh,12))) -
3218 0.0016460905349794238*pow(Lsh,2)*pow(-1. + sh,-7)*
3219 pow(sh,-8)*(-36. - 126.*sh + 84.*pow(sh,2) +
3220 299648.*pow(sh,3) - 2.087099e6*pow(sh,4) +
3221 60.*(104197. + 21.*Lshb)*pow(sh,5) -
3222 2.*(5.211467e6 + 2520.*Lshb)*pow(sh,6) +
3223 56.*(186416. + 135.*Lshb)*pow(sh,7) -
3224 12.*(523459. + 420.*Lshb)*pow(sh,8) +
3225 (2.104169e6 + 1260.*Lshb)*pow(sh,9) -
3226 303404.*pow(sh,10) + 300.*pow(sh,11) +
3227 120.*pow(sh,12) - 60.*pow(sh,13)) +
3228 0.0008230452674897119*pow(lz,2)*pow(sh,-8)*
3229 (-18. - 189.*sh - 903.*pow(sh,2) +
3230 594928.*pow(sh,3) + 630.*pow(sh,4) +
3231 1383.*pow(sh,5) + 1839.*pow(sh,6) + 18.*pow(sh,7) +
3232 3120.*pow(sh,8) + 8160.*pow(sh,9) +
3233 1440.*pow(sh,10) - 46560.*pow(sh,11) +
3234 51720.*pow(sh,12) - 23040.*pow(sh,13) +
3235 4680.*pow(sh,14) - 360.*pow(sh,15)) -
3236 1.*lz*(-56.888888888888886*L_mu*pow(sh,-5) -
3237 2.074074074074074*pow(Lsh,2)*pow(-1. + sh,-3)*
3238 pow(sh,-3) + 0.7901234567901234*ash*sh*sqrt4sh*
3239 sqrtsh*(44. + 108.*sh - 221.*pow(sh,2) +
3240 132.*pow(sh,3) - 33.*pow(sh,4) + 3.*pow(sh,5)) -
3241 0.0032921810699588477*Lsh*pow(-1. + sh,-6)*
3242 pow(sh,-8)*(18. + 81.*sh + 39.*pow(sh,2) -
3243 299147.*pow(sh,3) + 1.788834e6*pow(sh,4) -
3244 4.467993e6*pow(sh,5) + 5.959219e6*pow(sh,6) -
3245 4.474299e6*pow(sh,7) + 1.792497e6*pow(sh,8) -
3246 297944.*pow(sh,9) - 450.*pow(sh,10) +
3247 90.*pow(sh,11) + 15.*pow(sh,12)) +
3248 7.838526357044876e-6*pow(-1. + sh,-5)*pow(sh,-8)*
3249 (1701. + 1323.*sh - 29274.*pow(sh,2) +
3250 1.12541443e8*pow(sh,3) -
3251 5.61871835e8*pow(sh,4) +
3252 1.121615551e9*pow(sh,5) -
3253 1.117743382e9*pow(sh,6) +
3254 5.54683001e8*pow(sh,7) -
3255 1.07408773e8*pow(sh,8) - 4.03983e6*pow(sh,9) +
3256 4.371768e6*pow(sh,10) + 4.551324e6*pow(sh,11) -
3257 1.1897697e7*pow(sh,12) - 1.323264e7*pow(sh,13) +
3258 6.277908e7*pow(sh,14) - 8.508528e7*pow(sh,15) +
3259 6.212682e7*pow(sh,16) - 2.701314e7*pow(sh,17) +
3260 6.98418e6*pow(sh,18) - 990360.*pow(sh,19) +
3261 59220.*pow(sh,20))) -
3262 2.7994736989445985e-8*pow(-1. + sh,-6)*pow(sh,-8)*
3263 (161406. - 318843.*sh - 1.910657e6*pow(sh,2) +
3264 2.6587841e7*pow(sh,3) - 4.35567027e8*pow(sh,4) +
3265 2.014488392e9*pow(sh,5) - 4.239785466e9*pow(sh,6) +
3266 4.472946066e9*pow(sh,7) - 1.480821324e9*pow(sh,8) -
3267 2.199797883e9*pow(sh,9) +
3268 2.944201467e9*pow(sh,10) +
3269 1.246759469e9*pow(sh,11) -
3270 2.466843039e9*pow(sh,12) -
3271 1.8171607842e10*pow(sh,13) +
3272 6.053910752e10*pow(sh,14) -
3273 8.996385496e10*pow(sh,15) +
3274 7.96292826e10*pow(sh,16) -
3275 4.509057616e10*pow(sh,17) +
3276 1.647058952e10*pow(sh,18) -
3277 3.74875284e9*pow(sh,19) + 4.8245988e8*pow(sh,20) -
3278 2.674812e7*pow(sh,21) +
3279 58800.*PI2*
3280 (-18. - 81.*sh - 39.*pow(sh,2) +
3281 308147.*pow(sh,3) - 1.843944e6*pow(sh,4) +
3282 4.610871e6*pow(sh,5) - 6.160013e6*pow(sh,6) +
3283 4.635393e6*pow(sh,7) - 1.862435e6*pow(sh,8) +
3284 312614.*pow(sh,9) + 3132.*pow(sh,10) -
3285 3736.*pow(sh,11) - 77479.*pow(sh,12) +
3286 318588.*pow(sh,13) - 608560.*pow(sh,14) +
3287 702440.*pow(sh,15) - 529920.*pow(sh,16) +
3288 267160.*pow(sh,17) - 89120.*pow(sh,18) +
3289 18840.*pow(sh,19) - 2280.*pow(sh,20) +
3290 120.*pow(sh,21))))*pow(z,5);
3291 }
3292 else {
3293 res += pow(z,5)*(-4875.039604802492 -
3294 23394.026843086856*(1. - 1.*sh) -
3295 67666.42652379921*pow(1. - 1.*sh,2) -
3296 152266.3652960926*pow(1. - 1.*sh,3) -
3297 292874.8144929396*pow(1. - 1.*sh,4) +
3298 L_mu*(58.785185185185185 +
3299 350.81481481481484*(1. - 1.*sh) +
3300 1194.6666666666667*pow(1. - 1.*sh,2) +
3301 3072.*pow(1. - 1.*sh,3) +
3302 6641.777777777777*pow(1. - 1.*sh,4)) +
3303 log(z)*(847.677812246958 +
3304 5397.215321438122*(1. - 1.*sh) +
3305 18627.480751808722*pow(1. - 1.*sh,2) +
3306 48121.18079162945*pow(1. - 1.*sh,3) +
3307 104649.22541796633*pow(1. - 1.*sh,4) +
3308 L_mu*(56.888888888888886 +
3309 284.44444444444446*(1. - 1.*sh) +
3310 853.3333333333334*pow(1. - 1.*sh,2) +
3311 1991.111111111111*pow(1. - 1.*sh,3) +
3312 3982.222222222222*pow(1. - 1.*sh,4))) +
3313 (491.23292181069957 +
3314 2460.5102880658437*(1. - 1.*sh) +
3315 7344.419753086419*pow(1. - 1.*sh,2) +
3316 17100.213991769546*pow(1. - 1.*sh,3) +
3317 34182.45267489712*pow(1. - 1.*sh,4))*pow(log(z),2));
3318 }
3319 }
3320
3321 if(11<=maxpow) {
3322 if(sh<.900001) {
3323 res += -0.00007600995255316243*PI2*pow(sh,-9)*
3324 (315. + 3640.*sh + 19380.*pow(sh,2) + 62088.*pow(sh,3) +
3325 124834.*pow(sh,4) + 62088.*pow(sh,5) +
3326 19380.*pow(sh,6) + 3640.*pow(sh,7) + 315.*pow(sh,8))*
3327 pow(z,5.5);
3328 }
3329 else {
3330 res += (-221.8156358126859 - 1109.0781790634296*(1. - 1.*sh) -
3331 3460.3239186779006*pow(1. - 1.*sh,2) -
3332 8562.083542369677*pow(1. - 1.*sh,3) -
3333 18357.620459597754*pow(1. - 1.*sh,4))*pow(z,5.5);
3334 }
3335 }
3336
3337 if(12<=maxpow) {
3338 if(sh<.900001) {
3339 res += (-1.*L_mu*(-182.91358024691357*pow(sh,-6) +
3340 165.92592592592592*Lsh*pow(sh,-6)) -
3341 11.967144280344405*pow(-1. + sh,-3)*pow(sh,-4) +
3342 9.955555555555556*Li3sh*pow(-1. + sh,-3)*pow(sh,-4) -
3343 3.3185185185185184*pow(Lsh,3)*pow(-1. + sh,-3)*
3344 pow(sh,-4) + 0.4609053497942387*cl2*sh*sqrt4sh*sqrtsh*
3345 (20. - 194.*sh - 657.*pow(sh,2) + 1581.*pow(sh,3) -
3346 1239.*pow(sh,4) + 462.*pow(sh,5) - 84.*pow(sh,6) +
3347 6.*pow(sh,7)) + 0.0043895747599451305*ash*sh*
3348 sqrt4sh*sqrtsh*pow(-1. + sh,-3)*
3349 (-3230. + 42428.*sh + 5415.*pow(sh,2) -
3350 547510.*pow(sh,3) + 1.454143e6*pow(sh,4) -
3351 1.806873e6*pow(sh,5) + 1.280646e6*pow(sh,6) -
3352 546171.*pow(sh,7) + 138714.*pow(sh,8) -
3353 19329.*pow(sh,9) + 1137.*pow(sh,10)) -
3354 1.382716049382716*pow(ash,2)*pow(-1. + sh,-4)*pow(sh,2)*
3355 (210. - 870.*sh - 1395.*pow(sh,2) +
3356 13113.*pow(sh,3) - 31009.*pow(sh,4) +
3357 39370.*pow(sh,5) - 30843.*pow(sh,6) +
3358 15585.*pow(sh,7) - 5091.*pow(sh,8) +
3359 1038.*pow(sh,9) - 120.*pow(sh,10) + 6.*pow(sh,11))\
3360 - 0.0032921810699588477*Li2sh*pow(-1. + sh,-7)*
3361 pow(sh,-6)*(12600. - 87696.*sh + 262296.*pow(sh,2) -
3362 436590.*pow(sh,3) + 435240.*pow(sh,4) -
3363 257040.*pow(sh,5) + 79436.*pow(sh,6) -
3364 8456.*pow(sh,7) - 360.*pow(sh,9) + 45.*pow(sh,11))\
3365 - 1.*Lsh*(9.955555555555556*Li2sh*pow(-1. + sh,-3)*
3366 pow(sh,-4) - 0.4609053497942387*ash*sh*sqrt4sh*
3367 sqrtsh*(20. - 194.*sh - 657.*pow(sh,2) +
3368 1581.*pow(sh,3) - 1239.*pow(sh,4) +
3369 462.*pow(sh,5) - 84.*pow(sh,6) + 6.*pow(sh,7)) +
3370 0.000010973936899862826*pow(-1. + sh,-7)*pow(sh,-10)*
3371 (-1320. + 96.*sh + 30636.*pow(sh,2) +
3372 70896.*pow(sh,3) +
3373 8.*(-3.4452983e7 + 472500.*Lshb)*pow(sh,4) -
3374 112.*(-1.7229823e7 + 234900.*Lshb)*pow(sh,5) +
3375 6.*(-9.66264881e8 + 1.31148e7*Lshb -
3376 126000.*PI2)*pow(sh,6) +
3377 (9.681150074e9 - 1.30977e8*Lshb +
3378 3.024e6*PI2)*pow(sh,7) +
3379 2.*(-4.851617443e9 + 6.5286e7*Lshb -
3380 2.268e6*PI2)*pow(sh,8) +
3381 24.*(2.43237251e8 - 3.213e6*Lshb +
3382 126000.*PI2)*pow(sh,9) +
3383 3.*(-6.50704647e8 + 7.9436e6*Lshb -
3384 252000.*PI2)*pow(sh,10)\
3385 - 60.*(-4.666787e6 + 42280.*Lshb)*pow(sh,11) -
3386 23730.*pow(sh,12) -
3387 60.*(923. + 1800.*Lshb)*pow(sh,13) +
3388 4995.*pow(sh,14) +
3389 135.*(9. + 100.*Lshb)*pow(sh,15))) -
3390 0.0003292181069958848*pow(Lsh,2)*pow(-1. + sh,-8)*
3391 pow(sh,-10)*(120. + 552.*sh + 120.*pow(sh,2) -
3392 3480.*pow(sh,3) - 4.90282e6*pow(sh,4) +
3393 3.912806e7*pow(sh,5) -
3394 1.*(1.36736083e8 + 15120.*Lshb)*pow(sh,6) +
3395 5.*(5.4670261e7 + 15120.*Lshb)*pow(sh,7) -
3396 70.*(4.883491e6 + 2160.*Lshb)*pow(sh,8) +
3397 40.*(6.845753e6 + 3780.*Lshb)*pow(sh,9) -
3398 10.*(1.3722853e7 + 7560.*Lshb)*pow(sh,10) +
3399 2.*(1.9677013e7 + 7560.*Lshb)*pow(sh,11) -
3400 4.94776e6*pow(sh,12) - 1800.*pow(sh,13) +
3401 1800.*pow(sh,14) + 225.*pow(sh,15) - 225.*pow(sh,16)
3402 ) + 0.0003292181069958848*pow(lz,2)*pow(sh,-10)*
3403 (-30. - 378.*sh - 2214.*pow(sh,2) - 7938.*pow(sh,3) +
3404 4.8772e6*pow(sh,4) + 7560.*pow(sh,5) +
3405 6273.*pow(sh,6) + 13689.*pow(sh,7) +
3406 10908.*pow(sh,8) + 30.*pow(sh,9) +
3407 20300.*pow(sh,10) + 27300.*pow(sh,11) +
3408 113400.*pow(sh,12) + 49700.*pow(sh,13) -
3409 880950.*pow(sh,14) + 1.19385e6*pow(sh,15) -
3410 706650.*pow(sh,16) + 216300.*pow(sh,17) -
3411 33600.*pow(sh,18) + 2100.*pow(sh,19)) -
3412 1.*lz*(-165.92592592592592*L_mu*pow(sh,-6) -
3413 4.977777777777778*pow(Lsh,2)*pow(-1. + sh,-3)*
3414 pow(sh,-4) - 0.9218106995884774*ash*sh*sqrt4sh*
3415 sqrtsh*(20. - 194.*sh - 657.*pow(sh,2) +
3416 1581.*pow(sh,3) - 1239.*pow(sh,4) +
3417 462.*pow(sh,5) - 84.*pow(sh,6) + 6.*pow(sh,7)) -
3418 0.0006584362139917696*Lsh*pow(-1. + sh,-7)*
3419 pow(sh,-10)*(-60. - 336.*sh - 396.*pow(sh,2) +
3420 1344.*pow(sh,3) + 4.900804e6*pow(sh,4) -
3421 3.4230616e7*pow(sh,5) + 1.02572181e8*pow(sh,6) -
3422 1.70881214e8*pow(sh,7) +
3423 1.70889596e8*pow(sh,8) -
3424 1.02558564e8*pow(sh,9) +
3425 3.4176506e7*pow(sh,10) - 4.86782e6*pow(sh,11) -
3426 2940.*pow(sh,12) - 1740.*pow(sh,13) +
3427 585.*pow(sh,14) + 45.*pow(sh,15)) +
3428 1.567705271408975e-6*pow(-1. + sh,-6)*pow(sh,-10)*
3429 (-4620. - 4284.*sh + 102942.*pow(sh,2) +
3430 351078.*pow(sh,3) - 1.928933146e9*pow(sh,4) +
3431 1.155219891e10*pow(sh,5) -
3432 2.8832387178e10*pow(sh,6) +
3433 3.8356658804e10*pow(sh,7) -
3434 2.8662297144e10*pow(sh,8) +
3435 1.1385924988e10*pow(sh,9) -
3436 1.88384127e9*pow(sh,10) +
3437 5.9056617e7*pow(sh,11) -
3438 8.9385341e7*pow(sh,12) +
3439 1.01542571e8*pow(sh,13) -
3440 3.36952887e8*pow(sh,14) +
3441 4.6151941e8*pow(sh,15) +
3442 1.1490745e9*pow(sh,16) -
3443 5.1849126e9*pow(sh,17) +
3444 8.94761595e9*pow(sh,18) -
3445 9.1281316e9*pow(sh,19) +
3446 6.0729627e9*pow(sh,20) -
3447 2.7087795e9*pow(sh,21) + 8.039283e8*pow(sh,22) -
3448 1.522416e8*pow(sh,23) + 1.66278e7*pow(sh,24) -
3449 795900.*pow(sh,25))) -
3450 1.244210532864266e-9*pow(-1. + sh,-7)*pow(sh,-10)*
3451 (-1.60524e6 + 3.372768e6*sh + 2.1255318e7*pow(sh,2) -
3452 5.1364152e7*pow(sh,3) +
3453 3.79257522168e11*pow(sh,4) -
3454 2.633399785632e12*pow(sh,5) +
3455 7.825640856201e12*pow(sh,6) -
3456 1.2900120410724e13*pow(sh,7) +
3457 1.2750237623886e13*pow(sh,8) -
3458 7.584725099624e12*pow(sh,9) +
3459 2.529935410926e12*pow(sh,10) -
3460 2.91800208364e11*pow(sh,11) -
3461 2.09548894394e11*pow(sh,12) +
3462 3.42677229216e11*pow(sh,13) -
3463 7.84252942969e11*pow(sh,14) +
3464 7.91328639346e11*pow(sh,15) +
3465 3.49537340577e12*pow(sh,16) -
3466 1.51956042427e13*pow(sh,17) +
3467 2.91706462341e13*pow(sh,18) -
3468 3.468763704735e13*pow(sh,19) +
3469 2.790223133985e13*pow(sh,20) -
3470 1.564098014115e13*pow(sh,21) +
3471 6.1223554161e12*pow(sh,22) -
3472 1.63963647855e12*pow(sh,23) +
3473 2.859293178e11*pow(sh,24) -
3474 2.92020939e10*pow(sh,25) + 1.3226913e9*pow(sh,26) -
3475 88200.*PI2*
3476 (-180. - 1008.*sh - 1188.*pow(sh,2) +
3477 4032.*pow(sh,3) + 1.5093012e7*pow(sh,4) -
3478 1.05478968e8*pow(sh,5) +
3479 3.16319451e8*pow(sh,6) -
3480 5.27535714e8*pow(sh,7) +
3481 5.28275796e8*pow(sh,8) -
3482 3.17556564e8*pow(sh,9) +
3483 1.05971306e8*pow(sh,10) -
3484 1.4919188e7*pow(sh,11) - 564648.*pow(sh,12) +
3485 1.515872e6*pow(sh,13) - 1.613573e6*pow(sh,14) -
3486 1.0017483e7*pow(sh,15) + 5.154742e7*pow(sh,16) -
3487 1.211917e8*pow(sh,17) + 1.785651e8*pow(sh,18) -
3488 1.800631e8*pow(sh,19) + 1.286215e8*pow(sh,20) -
3489 6.57363e7*pow(sh,21) + 2.38644e7*pow(sh,22) -
3490 5.9997e6*pow(sh,23) + 991200.*pow(sh,24) -
3491 96600.*pow(sh,25) + 4200.*pow(sh,26))))*pow(z,6);
3492 }
3493 else {
3494 res += pow(z,6)*(-15489.003566799385 -
3495 89232.71889975584*(1. - 1.*sh) -
3496 302596.6493265383*pow(1. - 1.*sh,2) -
3497 781979.762945469*pow(1. - 1.*sh,3) -
3498 1.6992401790855133e6*pow(1. - 1.*sh,4) +
3499 L_mu*(182.91358024691357 +
3500 1263.4074074074074*(1. - 1.*sh) +
3501 4919.7037037037035*pow(1. - 1.*sh,2) +
3502 14280.691358024691*pow(1. - 1.*sh,3) +
3503 34454.51851851852*pow(1. - 1.*sh,4)) +
3504 log(z)*(2906.463936705608 +
3505 21474.23376628666*(1. - 1.*sh) +
3506 84464.70442803907*pow(1. - 1.*sh,2) +
3507 246235.5920127741*pow(1. - 1.*sh,3) +
3508 598321.9180693374*pow(1. - 1.*sh,4) +
3509 L_mu*(165.92592592592592 +
3510 995.5555555555555*(1. - 1.*sh) +
3511 3484.4444444444443*pow(1. - 1.*sh,2) +
3512 9291.851851851852*pow(1. - 1.*sh,3) +
3513 20906.666666666668*pow(1. - 1.*sh,4))) +
3514 (1615.4238683127571 + 9691.876543209877*(1. - 1.*sh) +
3515 33706.74567901235*pow(1. - 1.*sh,2) +
3516 89710.5086419753*pow(1. - 1.*sh,3) +
3517 201778.22222222222*pow(1. - 1.*sh,4))*pow(log(z),2));
3518 }
3519 }
3520
3521 if(13<=maxpow) {
3522 if(sh<.900001) {
3523 res += -0.000023919215838407757*PI2*
3524 pow(sh,-11)*(693. + 9450.*sh + 60305.*pow(sh,2) +
3525 238200.*pow(sh,3) + 642234.*pow(sh,4) +
3526 1.173308e6*pow(sh,5) + 642234.*pow(sh,6) +
3527 238200.*pow(sh,7) + 60305.*pow(sh,8) +
3528 9450.*pow(sh,9) + 693.*pow(sh,10))*pow(z,6.5);
3529 }
3530 else {
3531 res += (-725.9420808415176 - 4355.652485049105*(1. - 1.*sh) -
3532 15789.240258303007*pow(1. - 1.*sh,2) -
3533 44463.95245154296*pow(1. - 1.*sh,3) -
3534 106907.93465535706*pow(1. - 1.*sh,4))*pow(z,6.5);
3535 }
3536 }
3537
3538 if(14<=maxpow) {
3539 if(sh<.900001) {
3540 res += (-1.*L_mu*(-587.9873015873015*pow(sh,-7) +
3541 512.*Lsh*pow(sh,-7)) -
3542 31.342520734235343*pow(-1. + sh,-3)*pow(sh,-5) +
3543 26.074074074074073*Li3sh*pow(-1. + sh,-3)*pow(sh,-5) -
3544 8.691358024691358*pow(Lsh,3)*pow(-1. + sh,-3)*
3545 pow(sh,-5) - 0.7111111111111111*cl2*sqrt4sh*sqrtsh*
3546 pow(sh,2)*(-204. + 654.*sh + 3621.*pow(sh,2) -
3547 9390.*pow(sh,3) + 8928.*pow(sh,4) -
3548 4384.*pow(sh,5) + 1190.*pow(sh,6) -
3549 170.*pow(sh,7) + 10.*pow(sh,8)) -
3550 0.011287477954144622*ash*sqrt4sh*sqrtsh*
3551 pow(-1. + sh,-3)*pow(sh,2)*
3552 (23244. - 145995.*sh - 135165.*pow(sh,2) +
3553 2.214474e6*pow(sh,3) - 5.812671e6*pow(sh,4) +
3554 7.761562e6*pow(sh,5) - 6.239858e6*pow(sh,6) +
3555 3.192422e6*pow(sh,7) - 1.048133e6*pow(sh,8) +
3556 214001.*pow(sh,9) - 24740.*pow(sh,10) +
3557 1237.*pow(sh,11)) -
3558 0.11851851851851852*Li2sh*pow(-1. + sh,-8)*pow(sh,-7)*
3559 (-1080. + 8600.*sh - 29988.*pow(sh,2) +
3560 59752.*pow(sh,3) - 74250.*pow(sh,4) +
3561 58630.*pow(sh,5) - 28380.*pow(sh,6) +
3562 7472.*pow(sh,7) - 698.*pow(sh,8) - 10.*pow(sh,11) +
3563 pow(sh,12) + pow(sh,13)) +
3564 2.1333333333333333*pow(ash,2)*pow(-1. + sh,-4)*
3565 pow(sh,2)*(60. - 1390.*sh + 3920.*pow(sh,2) +
3566 11563.*pow(sh,3) - 80966.*pow(sh,4) +
3567 191832.*pow(sh,5) - 258720.*pow(sh,6) +
3568 224115.*pow(sh,7) - 130416.*pow(sh,8) +
3569 51582.*pow(sh,9) - 13684.*pow(sh,10) +
3570 2330.*pow(sh,11) - 230.*pow(sh,12) + 10.*pow(sh,13))
3571 - 1.*Lsh*(26.074074074074073*Li2sh*pow(-1. + sh,-3)*
3572 pow(sh,-5) + 0.7111111111111111*ash*sqrt4sh*sqrtsh*
3573 pow(sh,2)*(-204. + 654.*sh + 3621.*pow(sh,2) -
3574 9390.*pow(sh,3) + 8928.*pow(sh,4) -
3575 4384.*pow(sh,5) + 1190.*pow(sh,6) -
3576 170.*pow(sh,7) + 10.*pow(sh,8)) +
3577 2.239578959155679e-6*pow(-1. + sh,-8)*pow(sh,-12)*
3578 (3900. + 100.*sh - 116036.*pow(sh,2) -
3579 329570.*pow(sh,3) + 93490.*pow(sh,4) +
3580 (4.740596068e9 - 5.71536e7*Lshb)*pow(sh,5) +
3581 4.*(-9.479986241e9 + 1.13778e8*Lshb)*pow(sh,6) +
3582 2.*(6.6407275091e10 - 7.9348248e8*Lshb +
3583 4.851e6*PI2)*pow(sh,7) +
3584 10.*(-2.6593392899e10 + 3.16207584e8*Lshb -
3585 4.851e6*PI2)*pow(sh,8) +
3586 10.*(3.3290343127e10 - 3.92931e8*Lshb +
3587 9.702e6*PI2)*pow(sh,9) +
3588 (-2.66790821833e11 + 3.1026996e9*Lshb -
3589 9.702e7*PI2)*pow(sh,10)\
3590 + (1.33671533459e11 - 1.5018696e9*Lshb +
3591 4.851e7*PI2)*pow(sh,11)\
3592 + (-3.8283679243e10 + 3.9541824e8*Lshb -
3593 9.702e6*PI2)*pow(sh,12)\
3594 + (4.796104102e9 - 3.693816e7*Lshb)*
3595 pow(sh,13) + 1.055215e6*pow(sh,14) -
3596 172235.*pow(sh,15) -
3597 735.*(307. + 720.*Lshb)*pow(sh,16) +
3598 1176.*(23. + 45.*Lshb)*pow(sh,17) +
3599 294.*(11. + 180.*Lshb)*pow(sh,18))) -
3600 0.00047031158142269255*pow(Lsh,2)*pow(-1. + sh,-9)*
3601 pow(sh,-12)*(-60. - 340.*sh - 312.*pow(sh,2) +
3602 1872.*pow(sh,3) + 4980.*pow(sh,4) +
3603 1.1658504e7*pow(sh,5) - 1.04832846e8*pow(sh,6) +
3604 11.*(3.8074319e7 + 2520.*Lshb)*pow(sh,7) -
3605 6.*(1.62766363e8 + 27720.*Lshb)*pow(sh,8) +
3606 3.*(4.88268437e8 + 138600.*Lshb)*pow(sh,9) -
3607 1.*(1.465559189e9 + 554400.*Lshb)*pow(sh,10) +
3608 (9.78147321e8 + 415800.*Lshb)*pow(sh,11) -
3609 30.*(1.3999939e7 + 5544.*Lshb)*pow(sh,12) +
3610 2.*(5.2652911e7 + 13860.*Lshb)*pow(sh,13) -
3611 1.1751384e7*pow(sh,14) - 1260.*pow(sh,16) +
3612 1386.*pow(sh,17) - 126.*pow(sh,19)) -
3613 0.00047031158142269255*pow(lz,2)*pow(sh,-12)*
3614 (15. + 220.*sh + 1518.*pow(sh,2) + 6534.*pow(sh,3) +
3615 19503.*pow(sh,4) - 1.1615304e7*pow(sh,5) -
3616 20790.*pow(sh,6) - 6546.*pow(sh,7) -
3617 24741.*pow(sh,8) - 29490.*pow(sh,9) -
3618 19183.*pow(sh,10) - 15.*pow(sh,11) -
3619 42336.*pow(sh,12) - 50652.*pow(sh,13) -
3620 42336.*pow(sh,14) - 522396.*pow(sh,15) -
3621 514080.*pow(sh,16) + 5.330178e6*pow(sh,17) -
3622 8.247204e6*pow(sh,18) + 6.008688e6*pow(sh,19) -
3623 2.443392e6*pow(sh,20) + 570780.*pow(sh,21) -
3624 71820.*pow(sh,22) + 3780.*pow(sh,23)) -
3625 1.*lz*(-512.*L_mu*pow(sh,-7) -
3626 13.037037037037036*pow(Lsh,2)*pow(-1. + sh,-3)*
3627 pow(sh,-5) + 1.4222222222222223*ash*sqrt4sh*sqrtsh*
3628 pow(sh,2)*(-204. + 654.*sh + 3621.*pow(sh,2) -
3629 9390.*pow(sh,3) + 8928.*pow(sh,4) -
3630 4384.*pow(sh,5) + 1190.*pow(sh,6) -
3631 170.*pow(sh,7) + 10.*pow(sh,8)) -
3632 0.0009406231628453851*Lsh*pow(-1. + sh,-8)*
3633 pow(sh,-12)*(30. + 200.*sh + 356.*pow(sh,2) -
3634 580.*pow(sh,3) - 3070.*pow(sh,4) -
3635 1.1660764e7*pow(sh,5) + 9.3173522e7*pow(sh,6) -
3636 3.25763741e8*pow(sh,7) +
3637 6.51103141e8*pow(sh,8) - 8.1359378e8*pow(sh,9) +
3638 6.50748419e8*pow(sh,10) -
3639 3.25285222e8*pow(sh,11) +
3640 9.2859728e7*pow(sh,12) -
3641 1.1567032e7*pow(sh,13) - 2380.*pow(sh,14) -
3642 2065.*pow(sh,15) - 945.*pow(sh,16) +
3643 462.*pow(sh,17) + 21.*pow(sh,18)) +
3644 6.78660290653236e-8*pow(-1. + sh,-7)*pow(sh,-12)*
3645 (64350. + 66000.*sh - 1.848594e6*pow(sh,2) -
3646 7.286499e6*pow(sh,3) - 5.743914e6*pow(sh,4) +
3647 1.564114497e11*pow(sh,5) -
3648 1.092996615942e12*pow(sh,6) +
3649 3.274039012563e12*pow(sh,7) -
3650 5.447084215617e12*pow(sh,8) +
3651 5.433819864693e12*pow(sh,9) -
3652 3.247981504196e12*pow(sh,10) +
3653 1.075526023436e12*pow(sh,11) -
3654 1.50436790331e11*pow(sh,12) -
3655 5.482108499e9*pow(sh,13) +
3656 1.2697937753e10*pow(sh,14) -
3657 1.820498844e10*pow(sh,15) +
3658 4.184087512e9*pow(sh,16) +
3659 6.5568484406e10*pow(sh,17) -
3660 9.5193663855e10*pow(sh,18) -
3661 3.83610629052e11*pow(sh,19) +
3662 1.851933873636e12*pow(sh,20) -
3663 3.850977196836e12*pow(sh,21) +
3664 4.997388254166e12*pow(sh,22) -
3665 4.45400972478e12*pow(sh,23) +
3666 2.82695858676e12*pow(sh,24) -
3667 1.2912095196e12*pow(sh,25) +
3668 4.2141221892e11*pow(sh,26) -
3669 9.582123474e10*pow(sh,27) +
3670 1.44039357e10*pow(sh,28) -
3671 1.28490516e9*pow(sh,29) + 5.143446e7*pow(sh,30)))
3672 - 4.896538893601991e-12*pow(-1. + sh,-8)*pow(sh,-12)*
3673 (2.074545e8 - 4.76982e8*sh -
3674 3.223561968e9*pow(sh,2) +
3675 1.2229671465e10*pow(sh,3) +
3676 5.5118379195e10*pow(sh,4) -
3677 5.39918795738718e14*pow(sh,5) +
3678 4.299200276151924e15*pow(sh,6) -
3679 1.497521829460536e16*pow(sh,7) +
3680 2.979736241687578e16*pow(sh,8) -
3681 3.705409524476913e16*pow(sh,9) +
3682 2.9516698533084984e16*pow(sh,10) -
3683 1.4749822777601014e16*pow(sh,11) +
3684 4.277878063797251e15*pow(sh,12) -
3685 6.52624973981284e14*pow(sh,13) +
3686 2.5170701729432e14*pow(sh,14) -
3687 4.0013657985217e14*pow(sh,15) +
3688 1.47801666642455e14*pow(sh,16) +
3689 1.2877818678578e15*pow(sh,17) -
3690 2.076397177767913e15*pow(sh,18) -
3691 8.385630050032431e15*pow(sh,19) +
3692 4.538622316201646e16*pow(sh,20) -
3693 1.061838620189715e17*pow(sh,21) +
3694 1.575009771316346e17*pow(sh,22) -
3695 1.6342684496066314e17*pow(sh,23) +
3696 1.2333678370646925e17*pow(sh,24) -
3697 6.8698738259084936e16*pow(sh,25) +
3698 2.8233898574272776e16*pow(sh,26) -
3699 8.447633225048556e15*pow(sh,27) +
3700 1.786675943700648e15*pow(sh,28) -
3701 2.5272282124782e14*pow(sh,29) +
3702 2.141343983394e13*pow(sh,30) -
3703 8.2047522942e11*pow(sh,31) +
3704 3.20166e7*PI2*
3705 (-90. - 600.*sh - 1068.*pow(sh,2) +
3706 1740.*pow(sh,3) + 9210.*pow(sh,4) +
3707 3.5821452e7*pow(sh,5) - 2.86356066e8*pow(sh,6) +
3708 1.001798639e9*pow(sh,7) -
3709 2.003828431e9*pow(sh,8) +
3710 2.50626266e9*pow(sh,9) -
3711 2.006862017e9*pow(sh,10) +
3712 1.004429086e9*pow(sh,11) -
3713 2.8716356e8*pow(sh,12) + 3.622858e7*pow(sh,13) -
3714 1.140968e6*pow(sh,14) + 600307.*pow(sh,15) +
3715 5.766227e6*pow(sh,16) - 8.667286e6*pow(sh,17) -
3716 7.4435635e7*pow(sh,18) +
3717 4.29448764e8*pow(sh,19) -
3718 1.174957056e9*pow(sh,20) +
3719 2.075532984e9*pow(sh,21) -
3720 2.59118244e9*pow(sh,22) +
3721 2.377353888e9*pow(sh,23) -
3722 1.631212128e9*pow(sh,24) +
3723 8.40926772e8*pow(sh,25) -
3724 3.23868888e8*pow(sh,26) +
3725 9.1648368e7*pow(sh,27) -
3726 1.8464544e7*pow(sh,28) + 2.50236e6*pow(sh,29) -
3727 204120.*pow(sh,30) + 7560.*pow(sh,31))))*pow(z,7);
3728 }
3729 else {
3730 res += pow(z,7)*(-51610.88930322329 -
3731 347049.77916686254*(1. - 1.*sh) -
3732 1.3506484596566306e6*pow(1. - 1.*sh,2) -
3733 3.942197589163436e6*pow(1. - 1.*sh,3) -
3734 9.550309146362534e6*pow(1. - 1.*sh,4) +
3735 L_mu*(587.9873015873015 +
3736 4627.9111111111115*(1. - 1.*sh) +
3737 20303.644444444446*pow(1. - 1.*sh,2) +
3738 65689.6*pow(1. - 1.*sh,3) +
3739 174976.*pow(1. - 1.*sh,4)) +
3740 log(z)*(10201.948065363957 +
3741 86007.6529570384*(1. - 1.*sh) +
3742 379663.80341596896*pow(1. - 1.*sh,2) +
3743 1.2326804892307315e6*pow(1. - 1.*sh,3) +
3744 3.309516784057691e6*pow(1. - 1.*sh,4) +
3745 L_mu*(512. + 3584.*(1. - 1.*sh) +
3746 14336.*pow(1. - 1.*sh,2) +
3747 43008.*pow(1. - 1.*sh,3) +
3748 107520.*pow(1. - 1.*sh,4))) +
3749 (5506.910758377425 + 38490.637037037035*(1. - 1.*sh) +
3750 152831.80246913582*pow(1. - 1.*sh,2) +
3751 457767.65432098764*pow(1. - 1.*sh,3) +
3752 1.1442307160493827e6*pow(1. - 1.*sh,4))*
3753 pow(log(z),2));
3754 }
3755 }
3756
3757 if(15<=maxpow) {
3758 if(sh<.900001) {
3759 res += -4.047867295730543e-6*PI2*pow(sh,-13)*
3760 (3003. + 47124.*sh + 349398.*pow(sh,2) +
3761 1.62554e6*pow(sh,3) + 5.297685e6*pow(sh,4) +
3762 1.265412e7*pow(sh,5) + 2.15477e7*pow(sh,6) +
3763 1.265412e7*pow(sh,7) + 5.297685e6*pow(sh,8) +
3764 1.62554e6*pow(sh,9) + 349398.*pow(sh,10) +
3765 47124.*pow(sh,11) + 3003.*pow(sh,12))*pow(z,7.5);
3766 }
3767 else {
3768 res += (-2457.0347351559058 - 17199.24314609134*(1. - 1.*sh) -
3769 71008.30384600567*pow(1. - 1.*sh,2) -
3770 224081.5678462186*pow(1. - 1.*sh,3) -
3771 596572.421257881*pow(1. - 1.*sh,4))*pow(z,7.5);
3772 }
3773 }
3774
3775 if(16<=maxpow) {
3776 if(sh<.900001) {
3777 res += (-1.*L_mu*(-1940.6814814814816*pow(sh,-8) +
3778 1642.6666666666667*Lsh*pow(sh,-8)) -
3779 87.3113077596556*pow(-1. + sh,-3)*pow(sh,-6) +
3780 72.63492063492063*Li3sh*pow(-1. + sh,-3)*pow(sh,-6) -
3781 24.211640211640212*pow(Lsh,3)*pow(-1. + sh,-3)*
3782 pow(sh,-6) + 1.3037037037037038*cl2*sqrt4sh*sqrtsh*
3783 pow(sh,2)*(-42. + 1287.*sh - 1614.*pow(sh,2) -
3784 19017.*pow(sh,3) + 50556.*pow(sh,4) -
3785 55330.*pow(sh,5) + 33315.*pow(sh,6) -
3786 11945.*pow(sh,7) + 2550.*pow(sh,8) -
3787 300.*pow(sh,9) + 15.*pow(sh,10)) +
3788 0.00047031158142269255*ash*sqrt4sh*sqrtsh*
3789 pow(-1. + sh,-3)*pow(sh,2)*
3790 (228522. - 7.741593e6*sh + 3.0723729e7*pow(sh,2) +
3791 6.0003996e7*pow(sh,3) - 5.8092981e8*pow(sh,4) +
3792 1.504380659e9*pow(sh,5) - 2.124842634e9*pow(sh,6) +
3793 1.888618168e9*pow(sh,7) - 1.114436468e9*pow(sh,8) +
3794 4.4384322e8*pow(sh,9) - 1.18087858e8*pow(sh,10) +
3795 2.0123511e7*pow(sh,11) - 1.986441e6*pow(sh,12) +
3796 86367.*pow(sh,13)) -
3797 3.911111111111111*pow(ash,2)*pow(-1. + sh,-4)*pow(sh,3)*
3798 (-700. + 7875.*sh - 14966.*pow(sh,2) -
3799 79023.*pow(sh,3) + 455850.*pow(sh,4) -
3800 1.077135e6*pow(sh,5) + 1.523775e6*pow(sh,6) -
3801 1.432728e6*pow(sh,7) + 934836.*pow(sh,8) -
3802 430150.*pow(sh,9) + 139230.*pow(sh,10) -
3803 31025.*pow(sh,11) + 4530.*pow(sh,12) -
3804 390.*pow(sh,13) + 15.*pow(sh,14)) -
3805 0.0028218694885361554*Li2sh*pow(-1. + sh,-9)*pow(sh,-8)*
3806 (145530. - 1.30482e6*sh + 5.20032e6*pow(sh,2) -
3807 1.208298e7*pow(sh,3) + 1.801254e7*pow(sh,4) -
3808 1.78178e7*pow(sh,5) + 1.163162e7*pow(sh,6) -
3809 4.77477e6*pow(sh,7) + 1.082136e6*pow(sh,8) -
3810 94842.*pow(sh,9) - 420.*pow(sh,13) +
3811 70.*pow(sh,14) + 35.*pow(sh,15)) -
3812 1.*Lsh*(72.63492063492063*Li2sh*pow(-1. + sh,-3)*
3813 pow(sh,-6) - 1.3037037037037038*ash*sqrt4sh*sqrtsh*
3814 pow(sh,2)*(-42. + 1287.*sh - 1614.*pow(sh,2) -
3815 19017.*pow(sh,3) + 50556.*pow(sh,4) -
3816 55330.*pow(sh,5) + 33315.*pow(sh,6) -
3817 11945.*pow(sh,7) + 2550.*pow(sh,8) -
3818 300.*pow(sh,9) + 15.*pow(sh,10)) +
3819 7.998496282698853e-8*pow(-1. + sh,-9)*pow(sh,-14)*
3820 (-70875. - 6750.*sh + 2.654475e6*pow(sh,2) +
3821 9.126108e6*pow(sh,3) + 678627.*pow(sh,4) -
3822 4.643019e7*pow(sh,5) +
3823 25.*(-1.8964236617e10 + 2.05371936e8*Lshb)*
3824 pow(sh,6) - 180.*
3825 (-2.3705023777e10 + 2.5574472e8*Lshb)*pow(sh,7)\
3826 + 3.*(-5.691283317731e12 + 6.11557632e10*Lshb -
3827 2.52252e8*PI2)*pow(sh,8)\
3828 + 6.*(6.644381363023e12 - 7.10479224e10*Lshb +
3829 7.56756e8*PI2)*pow(sh,9)\
3830 + 225.*(-2.66023942651e11 +
3831 2.824366272e9*Lshb -
3832 5.04504e7*PI2)*pow(sh,10)
3833 + 120.*(4.99371243863e11 - 5.2384332e9*Lshb +
3834 1.26126e8*PI2)*pow(sh,11)
3835 + 225.*(-1.77796507943e11 +
3836 1.823838016e9*Lshb -
3837 5.04504e7*PI2)*pow(sh,12)
3838 + 2106.*(8.153537761e9 - 7.99876e7*Lshb +
3839 2.156e6*PI2)*pow(sh,13)\
3840 + (-4.299863603271e12 + 3.817775808e10*Lshb -
3841 7.56756e8*PI2)*pow(sh,14)
3842 - 140.*(-3.417060133e9 + 2.3900184e7*Lshb)*
3843 pow(sh,15) + 4.710132e7*pow(sh,16) +
3844 3.484152e7*pow(sh,17) - 7.916076e6*pow(sh,18) -
3845 6048.*(923. + 2450.*Lshb)*pow(sh,19) +
3846 12600.*(59. + 196.*Lshb)*pow(sh,20) +
3847 4200.*(13. + 294.*Lshb)*pow(sh,21))) +
3848 0.00006718736877467037*pow(Lsh,2)*pow(-1. + sh,-10)*
3849 pow(sh,-14)*(-315. - 2115.*sh - 3255.*pow(sh,2) +
3850 9681.*pow(sh,3) + 37863.*pow(sh,4) +
3851 21231.*pow(sh,5) + 2.843603e8*pow(sh,6) -
3852 2.8424249e9*pow(sh,7) +
3853 6.*(2.129867959e9 + 90090.*Lshb)*pow(sh,8) -
3854 42.*(8.10842339e8 + 90090.*Lshb)*pow(sh,9) +
3855 84.*(7.09285376e8 + 135135.*Lshb)*pow(sh,10) -
3856 1260.*(5.6749267e7 + 15015.*Lshb)*pow(sh,11) +
3857 630.*(9.4632631e7 + 30030.*Lshb)*pow(sh,12) -
3858 378.*(9.0217367e7 + 30030.*Lshb)*pow(sh,13) +
3859 42.*(3.04968821e8 + 90090.*Lshb)*pow(sh,14) -
3860 2.*(1.426541293e9 + 270270.*Lshb)*pow(sh,15) +
3861 2.8627046e8*pow(sh,16) + 8820.*pow(sh,19) -
3862 10290.*pow(sh,20) + 735.*pow(sh,21) +
3863 735.*pow(sh,22)) +
3864 0.00001679684219366759*pow(lz,2)*pow(sh,-14)*
3865 (-315. - 5265.*sh - 41730.*pow(sh,2) -
3866 208494.*pow(sh,3) - 734877.*pow(sh,4) -
3867 1.926639e6*pow(sh,5) + 1.1339384e9*pow(sh,6) +
3868 2.16216e6*pow(sh,7) + 48987.*pow(sh,8) +
3869 1.669041e6*pow(sh,9) + 2.629962e6*pow(sh,10) +
3870 2.41431e6*pow(sh,11) + 1.436625e6*pow(sh,12) +
3871 315.*pow(sh,13) + 3.764376e6*pow(sh,14) +
3872 4.230072e6*pow(sh,15) + 5.006232e6*pow(sh,16) -
3873 7.37352e6*pow(sh,17) + 1.0643094e8*pow(sh,18) +
3874 1.95359472e8*pow(sh,19) -
3875 1.425010356e9*pow(sh,20) +
3876 2.406212424e9*pow(sh,21) -
3877 2.05080876e9*pow(sh,22) + 1.03141962e9*pow(sh,23) -
3878 3.2026302e8*pow(sh,24) + 6.054048e7*pow(sh,25) -
3879 6.40332e6*pow(sh,26) + 291060.*pow(sh,27)) -
3880 1.*lz*(-1642.6666666666667*L_mu*pow(sh,-8) -
3881 36.317460317460316*pow(Lsh,2)*pow(-1. + sh,-3)*
3882 pow(sh,-6) - 2.6074074074074076*ash*sqrt4sh*sqrtsh*
3883 pow(sh,2)*(-42. + 1287.*sh - 1614.*pow(sh,2) -
3884 19017.*pow(sh,3) + 50556.*pow(sh,4) -
3885 55330.*pow(sh,5) + 33315.*pow(sh,6) -
3886 11945.*pow(sh,7) + 2550.*pow(sh,8) -
3887 300.*pow(sh,9) + 15.*pow(sh,10)) -
3888 0.00006718736877467037*Lsh*pow(-1. + sh,-9)*
3889 pow(sh,-14)*(-315. - 2430.*sh - 5685.*pow(sh,2) +
3890 3996.*pow(sh,3) + 41859.*pow(sh,4) +
3891 63090.*pow(sh,5) + 5.68853935e8*pow(sh,6) -
3892 5.11611966e9*pow(sh,7) +
3893 2.0446767111e10*pow(sh,8) -
3894 4.7676829206e10*pow(sh,9) +
3895 7.1479964025e10*pow(sh,10) -
3896 7.145286696e10*pow(sh,11) +
3897 4.7617276155e10*pow(sh,12) -
3898 2.039566545e10*pow(sh,13) +
3899 5.092669737e9*pow(sh,14) -
3900 5.64250624e8*pow(sh,15) + 37800.*pow(sh,16) -
3901 47460.*pow(sh,17) - 29232.*pow(sh,18) -
3902 9828.*pow(sh,19) + 6930.*pow(sh,20) +
3903 210.*pow(sh,21)) +
3904 2.796677021922676e-10*pow(-1. + sh,-8)*pow(sh,-14)*
3905 (-1.0135125e7 - 1.1100375e7*sh +
3906 3.6848955e8*pow(sh,2) +
3907 1.673522994e9*pow(sh,3) +
3908 1.770566655e9*pow(sh,4) -
3909 4.868950515e9*pow(sh,5) -
3910 1.355916766061e14*pow(sh,6) +
3911 1.08320914263562e15*pow(sh,7) -
3912 3.786163163932292e15*pow(sh,8) +
3913 7.56111391441978e15*pow(sh,9) -
3914 9.4338729874103e15*pow(sh,10) +
3915 7.52783212419654e15*pow(sh,11) -
3916 3.74950772533818e15*pow(sh,12) +
3917 1.064521016851092e15*pow(sh,13) -
3918 1.32239959812912e14*pow(sh,14) +
3919 4.822522515092e12*pow(sh,15) -
3920 1.3702469432263e13*pow(sh,16) +
3921 2.0211432885167e13*pow(sh,17) -
3922 1.5340657706842e13*pow(sh,18) +
3923 3.8517131981282e13*pow(sh,19) -
3924 1.98231128437323e14*pow(sh,20) +
3925 2.48611036890867e14*pow(sh,21) +
3926 1.312843416208632e15*pow(sh,22) -
3927 6.858549767677608e15*pow(sh,23) +
3928 1.6510967898168744e16*pow(sh,24) -
3929 2.57336419311972e16*pow(sh,25) +
3930 2.851348331813982e16*pow(sh,26) -
3931 2.336070503975208e16*pow(sh,27) +
3932 1.439716999494774e16*pow(sh,28) -
3933 6.70336841266092e15*pow(sh,29) +
3934 2.34397396677444e15*pow(sh,30) -
3935 6.0527470649646e14*pow(sh,31) +
3936 1.1182510300962e14*pow(sh,32) -
3937 1.396347000048e13*pow(sh,33) +
3938 1.054350297e12*pow(sh,34) -
3939 3.631041414e10*pow(sh,35))) +
3940 7.760786496621921e-16*pow(-1. + sh,-9)*pow(sh,-14)*
3941 (7.34806697625e11 - 1.86465740175e12*sh -
3942 1.3539275231625e13*pow(sh,2) +
3943 6.7027116030732e13*pow(sh,3) +
3944 3.63276406618983e14*pow(sh,4) +
3945 7.707518005473e13*pow(sh,5) -
3946 1.517387130121548e19*pow(sh,6) +
3947 1.361134491880303e20*pow(sh,7) -
3948 5.426853793481742e20*pow(sh,8) +
3949 1.262085401071148e21*pow(sh,9) -
3950 1.886986812950732e21*pow(sh,10) +
3951 1.8816744004909767e21*pow(sh,11) -
3952 1.2525799935976913e21*pow(sh,12) +
3953 5.37888683654858e20*pow(sh,13) -
3954 1.3573327538305124e20*pow(sh,14) +
3955 1.3896509010095016e19*pow(sh,15) +
3956 5.883932779473471e18*pow(sh,16) -
3957 1.0545119614382879e19*pow(sh,17) +
3958 1.1056449646096937e19*pow(sh,18) -
3959 2.3434959475666616e19*pow(sh,19) +
3960 1.0419598368525897e20*pow(sh,20) -
3961 1.688591180885733e20*pow(sh,21) -
3962 5.308738122339353e20*pow(sh,22) +
3963 3.5306726064196524e21*pow(sh,23) -
3964 9.689077766441178e21*pow(sh,24) +
3965 1.7097533811227756e22*pow(sh,25) -
3966 2.1588630869532427e22*pow(sh,26) +
3967 2.038422378040867e22*pow(sh,27) -
3968 1.4690695476739364e22*pow(sh,28) +
3969 8.14476034656345e21*pow(sh,29) -
3970 3.4697517653715583e21*pow(sh,30) +
3971 1.1250567404926722e21*pow(sh,31) -
3972 2.7233981875541377e20*pow(sh,32) +
3973 4.759269487750347e19*pow(sh,33) -
3974 5.663805036845516e18*pow(sh,34) +
3975 4.101841359381566e17*pow(sh,35) -
3976 1.362249094884678e16*pow(sh,36) +
3977 4.32864432e10*PI2*
3978 (-315. - 2430.*sh - 5685.*pow(sh,2) +
3979 3996.*pow(sh,3) + 41859.*pow(sh,4) +
3980 63090.*pow(sh,5) + 5.81369515e8*pow(sh,6) -
3981 5.23068642e9*pow(sh,7) +
3982 2.0914846601e10*pow(sh,8) -
3983 4.8797229546e10*pow(sh,9) +
3984 7.3211460495e10*pow(sh,10) -
3985 7.324423592e10*pow(sh,11) +
3986 4.8857255585e10*pow(sh,12) -
3987 2.094858111e10*pow(sh,13) +
3988 5.235387183e9*pow(sh,14) -
3989 5.73585856e8*pow(sh,15) -
3990 2.302929e7*pow(sh,16) + 4.790626e7*pow(sh,17) -
3991 1.24781262e8*pow(sh,18) +
3992 4.35359256e8*pow(sh,19) -
3993 5.45760408e8*pow(sh,20) -
3994 3.99911175e9*pow(sh,21) +
3995 2.559251793e10*pow(sh,22) -
3996 7.87509723e10*pow(sh,23) +
3997 1.60158041736e11*pow(sh,24) -
3998 2.35861111332e11*pow(sh,25) +
3999 2.6202440418e11*pow(sh,26) -
4000 2.2419142284e11*pow(sh,27) +
4001 1.491808626e11*pow(sh,28) -
4002 7.7359627884e10*pow(sh,29) +
4003 3.1118686368e10*pow(sh,30) -
4004 9.59731542e9*pow(sh,31) +
4005 2.22259884e9*pow(sh,32) -
4006 3.733653e8*pow(sh,33) + 4.288284e7*pow(sh,34) -
4007 3.00762e6*pow(sh,35) + 97020.*pow(sh,36))))*
4008 pow(z,8);
4009 }
4010 else {
4011 res += pow(z,8)*(-177282.7451111828 -
4012 1.362845028834542e6*(1. - 1.*sh) -
4013 5.9880687949730605e6*pow(1. - 1.*sh,2) -
4014 1.9481491807919256e7*pow(1. - 1.*sh,3) -
4015 5.2053685182060525e7*pow(1. - 1.*sh,4) +
4016 L_mu*(1940.6814814814816 +
4017 17168.118518518517*(1. - 1.*sh) +
4018 83827.2*pow(1. - 1.*sh,2) +
4019 299136.*pow(1. - 1.*sh,3) +
4020 871904.*pow(1. - 1.*sh,4)) +
4021 log(z)*(36437.04027695534 +
4022 345607.09636221116*(1. - 1.*sh) +
4023 1.691397924301905e6*pow(1. - 1.*sh,2) +
4024 6.051670084075397e6*pow(1. - 1.*sh,3) +
4025 1.778888064751204e7*pow(1. - 1.*sh,4) +
4026 L_mu*(1642.6666666666667 +
4027 13141.333333333334*(1. - 1.*sh) +
4028 59136.*pow(1. - 1.*sh,2) +
4029 197120.*pow(1. - 1.*sh,3) +
4030 542080.*pow(1. - 1.*sh,4))) +
4031 (19228.65843621399 + 153417.80082304525*(1. - 1.*sh) +
4032 684734.1037037037*pow(1. - 1.*sh,2) +
4033 2.279762479012346e6*pow(1. - 1.*sh,3) +
4034 6.2693611104056435e6*pow(1. - 1.*sh,4))*
4035 pow(log(z),2));
4036 }
4037 }
4038
4039 if(17<=maxpow) {
4040 if(sh<.900001) {
4041 res += -1.4445330349469783e-6*PI2*pow(sh,-15)*
4042 (6435. + 114114.*sh + 962577.*pow(sh,2) +
4043 5.137524e6*pow(sh,3) + 1.9445755e7*pow(sh,4) +
4044 5.526435e7*pow(sh,5) + 1.20557265e8*pow(sh,6) +
4045 1.9446652e8*pow(sh,7) + 1.20557265e8*pow(sh,8) +
4046 5.526435e7*pow(sh,9) + 1.9445755e7*pow(sh,10) +
4047 5.137524e6*pow(sh,11) + 962577.*pow(sh,12) +
4048 114114.*pow(sh,13) + 6435.*pow(sh,14))*pow(z,8.5);
4049 }
4050 else {
4051 res += (-8517.720415207139 - 68141.76332165711*(1. - 1.*sh) -
4052 315581.54138342454*pow(1. - 1.*sh,2) -
4053 1.1026189077485641e6*pow(1. - 1.*sh,3) -
4054 3.2181012443704475e6*pow(1. - 1.*sh,4))*pow(z,8.5);
4055 }
4056 }
4057
4058 if(18<=maxpow) {
4059 if(sh<.900001) {
4060 res += (-1.*L_mu*(-6542.252322163433*pow(sh,-9) +
4061 5423.407407407408*Lsh*pow(sh,-9)) -
4062 254.65798096566218*pow(-1. + sh,-3)*pow(sh,-7) +
4063 211.85185185185185*Li3sh*pow(-1. + sh,-3)*pow(sh,-7) -
4064 70.61728395061728*pow(Lsh,3)*pow(-1. + sh,-3)*
4065 pow(sh,-7) - 2.6901822457378013*cl2*sqrt4sh*sqrtsh*
4066 pow(sh,3)*(552. - 6504.*sh + 954.*pow(sh,2) +
4067 96534.*pow(sh,3) - 256765.*pow(sh,4) +
4068 311884.*pow(sh,5) - 219753.*pow(sh,6) +
4069 97149.*pow(sh,7) - 27453.*pow(sh,8) +
4070 4830.*pow(sh,9) - 483.*pow(sh,10) + 21.*pow(sh,11))\
4071 - 0.00010451368476059834*ash*sqrt4sh*sqrtsh*
4072 pow(-1. + sh,-3)*pow(sh,3)*
4073 (-2.9602032e7 + 4.3918554e8*sh -
4074 1.183665042e9*pow(sh,2) - 4.124801388e9*pow(sh,3) +
4075 2.9786749451e10*pow(sh,4) -
4076 7.6073083277e10*pow(sh,5) +
4077 1.12343648214e11*pow(sh,6) -
4078 1.08358670795e11*pow(sh,7) +
4079 7.1769426953e10*pow(sh,8) -
4080 3.3301199019e10*pow(sh,9) +
4081 1.0824913791e10*pow(sh,10) -
4082 2.416552923e9*pow(sh,11) +
4083 3.53029242e8*pow(sh,12) - 3.0393246e7*pow(sh,13) +
4084 1.168971e6*pow(sh,14)) +
4085 8.070546737213403*pow(ash,2)*pow(-1. + sh,-4)*pow(sh,3)*
4086 (-112. + 5446.*sh - 40068.*pow(sh,2) +
4087 45402.*pow(sh,3) + 481386.*pow(sh,4) -
4088 2.416545e6*pow(sh,5) + 5.68308e6*pow(sh,6) -
4089 8.356089e6*pow(sh,7) + 8.410689e6*pow(sh,8) -
4090 6.034798e6*pow(sh,9) + 3.142636e6*pow(sh,10) -
4091 1.191618e6*pow(sh,11) + 325686.*pow(sh,12) -
4092 62481.*pow(sh,13) + 7980.*pow(sh,14) -
4093 609.*pow(sh,15) + 21.*pow(sh,16)) -
4094 0.004703115814226925*Li2sh*pow(-1. + sh,-10)*pow(sh,-9)*
4095 (-288288. + 2.873871e6*sh - 1.2889503e7*pow(sh,2) +
4096 3.423222e7*pow(sh,3) - 5.956146e7*pow(sh,4) +
4097 7.0825482e7*pow(sh,5) - 5.8121154e7*pow(sh,6) +
4098 3.2324292e7*pow(sh,7) - 1.153152e7*pow(sh,8) +
4099 2.327611e6*pow(sh,9) - 186043.*pow(sh,10) -
4100 252.*pow(sh,15) + 54.*pow(sh,16) + 18.*pow(sh,17))\
4101 - 1.*Lsh*(211.85185185185185*Li2sh*pow(-1. + sh,-3)*
4102 pow(sh,-7) + 2.6901822457378013*ash*sqrt4sh*sqrtsh*
4103 pow(sh,3)*(552. - 6504.*sh + 954.*pow(sh,2) +
4104 96534.*pow(sh,3) - 256765.*pow(sh,4) +
4105 311884.*pow(sh,5) - 219753.*pow(sh,6) +
4106 97149.*pow(sh,7) - 27453.*pow(sh,8) +
4107 4830.*pow(sh,9) - 483.*pow(sh,10) +
4108 21.*pow(sh,11)) +
4109 1.5552631660803325e-7*pow(-1. + sh,-10)*pow(sh,-16)*
4110 (24990. + 3675.*sh - 1.155555e6*pow(sh,2) -
4111 4.697175e6*pow(sh,3) - 2.300739e6*pow(sh,4) +
4112 2.4304707e7*pow(sh,5) + 4.9414911e7*pow(sh,6) +
4113 (8.82608902003e11 - 8.71782912e9*Lshb)*
4114 pow(sh,7) + (-8.826874533745e12 +
4115 8.690585904e10*Lshb)*pow(sh,8) +
4116 15.*(2.648605733525e12 - 2.5985238048e10*Lshb +
4117 7.56756e7*PI2)*pow(sh,9)\
4118 + 3.*(-3.5329412670653e13 +
4119 3.450607776e11*Lshb -
4120 2.648646e9*PI2)*
4121 pow(sh,10) +
4122 105.*(1.767535730921e12 - 1.715370048e10*Lshb +
4123 2.270268e8*PI2)*
4124 pow(sh,11) +
4125 21.*(-1.0613371381061e13 +
4126 1.0198869408e11*Lshb -
4127 1.89189e9*PI2)*pow(sh,12)
4128 + 189.*(9.83624804999e11 - 9.29938464e9*Lshb +
4129 2.1021e8*PI2)*pow(sh,13)\
4130 + 15.*(-7.089591334283e12 +
4131 6.5165772672e10*Lshb -
4132 1.5891876e9*PI2)*
4133 pow(sh,14) +
4134 33.*(1.209854560067e12 - 1.05670656e10*Lshb +
4135 2.40786e8*PI2)*pow(sh,15)
4136 + 2.*(-4.441328248151e12 +
4137 3.519347832e10*Lshb -
4138 5.67567e8*PI2)*pow(sh,16)
4139 + (8.88980806162e11 - 5.62594032e9*Lshb)*
4140 pow(sh,17) - 3.8377206e7*pow(sh,18) +
4141 4.2700014e7*pow(sh,19) +
4142 1.8171216e7*pow(sh,20) - 5.847282e6*pow(sh,21) -
4143 1890.*(1387. + 4032.*Lshb)*pow(sh,22) +
4144 2430.*(149. + 672.*Lshb)*pow(sh,23) +
4145 1215.*(15. + 448.*Lshb)*pow(sh,24))) -
4146 0.00009798157946306095*pow(Lsh,2)*pow(-1. + sh,-11)*
4147 pow(sh,-16)*(-168. - 1302.*sh - 2760.*pow(sh,2) +
4148 4440.*pow(sh,3) + 27552.*pow(sh,4) +
4149 26796.*pow(sh,5) - 59136.*pow(sh,6) +
4150 6.91904744e8*pow(sh,7) - 7.607607766e9*pow(sh,8) +
4151 (3.8011106171e10 + 1.08108e6*Lshb)*pow(sh,9) -
4152 36.*(3.165700357e9 + 240240.*Lshb)*pow(sh,10) +
4153 720.*(3.16454927e8 + 42042.*Lshb)*pow(sh,11) -
4154 504.*(6.32852603e8 + 120120.*Lshb)*pow(sh,12) +
4155 84.*(3.797894797e9 + 900900.*Lshb)*pow(sh,13) -
4156 192.*(1.187472428e9 + 315315.*Lshb)*pow(sh,14) +
4157 120.*(9.50840131e8 + 252252.*Lshb)*pow(sh,15) -
4158 104.*(3.66207253e8 + 83160.*Lshb)*pow(sh,16) +
4159 (7.631953801e9 + 1.08108e6*Lshb)*pow(sh,17) -
4160 6.95689448e8*pow(sh,18) - 6048.*pow(sh,22) +
4161 7344.*pow(sh,23) - 864.*pow(sh,24) - 432.*pow(sh,25)
4162 ) + 0.00004899078973153047*pow(lz,2)*pow(sh,-16)*
4163 (-84. - 1575.*sh - 14085.*pow(sh,2) -
4164 79950.*pow(sh,3) - 323154.*pow(sh,4) -
4165 987129.*pow(sh,5) - 2.347059e6*pow(sh,6) +
4166 1.379703232e9*pow(sh,7) + 2.7027e6*pow(sh,8) -
4167 473685.*pow(sh,9) + 1.243629e6*pow(sh,10) +
4168 2.698722e6*pow(sh,11) + 2.985906e6*pow(sh,12) +
4169 2.433285e6*pow(sh,13) + 1.388619e6*pow(sh,14) +
4170 84.*pow(sh,15) + 4.25568e6*pow(sh,16) +
4171 4.612608e6*pow(sh,17) + 5.189184e6*pow(sh,18) +
4172 7.605312e6*pow(sh,19) - 6.1281792e7*pow(sh,20) +
4173 2.75438592e8*pow(sh,21) + 8.71398528e8*pow(sh,22) -
4174 5.028236928e9*pow(sh,23) +
4175 8.99602704e9*pow(sh,24) -
4176 8.653636992e9*pow(sh,25) +
4177 5.137333344e9*pow(sh,26) -
4178 1.978438176e9*pow(sh,27) +
4179 4.97379168e8*pow(sh,28) - 7.8990912e7*pow(sh,29) +
4180 7.2072e6*pow(sh,30) - 288288.*pow(sh,31)) -
4181 1.*lz*(-5423.407407407408*L_mu*pow(sh,-9) -
4182 105.92592592592592*pow(Lsh,2)*pow(-1. + sh,-3)*
4183 pow(sh,-7) + 5.380364491475603*ash*sqrt4sh*sqrtsh*
4184 pow(sh,3)*(552. - 6504.*sh + 954.*pow(sh,2) +
4185 96534.*pow(sh,3) - 256765.*pow(sh,4) +
4186 311884.*pow(sh,5) - 219753.*pow(sh,6) +
4187 97149.*pow(sh,7) - 27453.*pow(sh,8) +
4188 4830.*pow(sh,9) - 483.*pow(sh,10) +
4189 21.*pow(sh,11)) +
4190 0.0001959631589261219*Lsh*pow(-1. + sh,-10)*
4191 pow(sh,-16)*(-84. - 735.*sh - 2115.*pow(sh,2) +
4192 105.*pow(sh,3) + 13881.*pow(sh,4) +
4193 27279.*pow(sh,5) - 2289.*pow(sh,6) +
4194 6.91956971e8*pow(sh,7) -
4195 6.915895655e9*pow(sh,8) +
4196 3.1099607139e10*pow(sh,9) -
4197 8.2880063541e10*pow(sh,10) +
4198 1.44964071231e11*pow(sh,11) -
4199 1.73879170521e11*pow(sh,12) +
4200 1.44837476805e11*pow(sh,13) -
4201 8.2722854787e10*pow(sh,14) +
4202 3.0998246241e10*pow(sh,15) -
4203 6.879851159e9*pow(sh,16) +
4204 6.86365796e8*pow(sh,17) - 75600.*pow(sh,18) -
4205 9072.*pow(sh,19) + 22680.*pow(sh,20) +
4206 9828.*pow(sh,21) + 2268.*pow(sh,22) -
4207 2484.*pow(sh,23) - 54.*pow(sh,24)) +
4208 5.43798309818298e-10*pow(-1. + sh,-9)*pow(sh,-16)*
4209 (3.57357e6 + 4.099095e6*sh -
4210 1.6114527e8*pow(sh,2) - 8.32841295e8*pow(sh,3) -
4211 1.161846972e9*pow(sh,4) +
4212 2.313726129e9*pow(sh,5) +
4213 9.380058402e9*pow(sh,6) +
4214 2.52441684058135e14*pow(sh,7) -
4215 2.26944762991947e15*pow(sh,8) +
4216 9.067251405053984e15*pow(sh,9) -
4217 2.113009526738253e16*pow(sh,10) +
4218 3.1647467902192624e16*pow(sh,11) -
4219 3.158667323807502e16*pow(sh,12) +
4220 2.1002634158609704e16*pow(sh,13) -
4221 8.966860615674702e15*pow(sh,14) +
4222 2.228333766410625e15*pow(sh,15) -
4223 2.43656770617994e14*pow(sh,16) -
4224 9.520266140208e12*pow(sh,17) +
4225 3.1476144603672e13*pow(sh,18) -
4226 6.08108801358e13*pow(sh,19) +
4227 8.0522179628688e13*pow(sh,20) -
4228 7.1735262216768e13*pow(sh,21) -
4229 1.85972284144884e14*pow(sh,22) +
4230 1.24257330785952e15*pow(sh,23) -
4231 1.516348491395922e15*pow(sh,24) -
4232 9.623404446386016e15*pow(sh,25) +
4233 5.409785863372176e16*pow(sh,26) -
4234 1.4651551524606797e17*pow(sh,27) +
4235 2.639914855668742e17*pow(sh,28) -
4236 3.46785263569046e17*pow(sh,29) +
4237 3.4581010205224454e17*pow(sh,30) -
4238 2.67102371124581e17*pow(sh,31) +
4239 1.612804363486636e17*pow(sh,32) -
4240 7.625393556018638e16*pow(sh,33) +
4241 2.809203040360517e16*pow(sh,34) -
4242 7.968174811781184e15*pow(sh,35) +
4243 1.704011763662208e15*pow(sh,36) -
4244 2.65362784294608e14*pow(sh,37) +
4245 2.836102317048e13*pow(sh,38) -
4246 1.857724700832e12*pow(sh,39) +
4247 5.6166718608e10*pow(sh,40))) -
4248 2.263562728181394e-15*pow(-1. + sh,-10)*pow(sh,-16)*
4249 (1.522039519e11 - 4.26276275425e11*sh -
4250 3.315607505925e12*pow(sh,2) +
4251 1.9935815474575e13*pow(sh,3) +
4252 1.24680380503679e14*pow(sh,4) +
4253 9.4734104241777e13*pow(sh,5) -
4254 6.72219759402191e14*pow(sh,6) -
4255 2.148676883608435e19*pow(sh,7) +
4256 2.1433741656451708e20*pow(sh,8) -
4257 9.621528485908101e20*pow(sh,9) +
4258 2.559493442861416e21*pow(sh,10) -
4259 4.468559626678942e21*pow(sh,11) +
4260 5.35099530515921e21*pow(sh,12) -
4261 4.4525844044562044e21*pow(sh,13) +
4262 2.544142477915097e21*pow(sh,14) -
4263 9.568948351796755e20*pow(sh,15) +
4264 2.1500361682429e20*pow(sh,16) -
4265 2.422139078794151e19*pow(sh,17) +
4266 8.145618788181729e18*pow(sh,18) -
4267 1.8132101139625396e19*pow(sh,19) +
4268 2.789986937416512e19*pow(sh,20) -
4269 2.916708794791665e19*pow(sh,21) -
4270 4.506612585214779e19*pow(sh,22) +
4271 3.9814881989842764e20*pow(sh,23) -
4272 7.61642854944141e20*pow(sh,24) -
4273 1.912231127650318e21*pow(sh,25) +
4274 1.5547276029752026e22*pow(sh,26) -
4275 4.875241535562659e22*pow(sh,27) +
4276 9.909337425361018e22*pow(sh,28) -
4277 1.4647795672750128e23*pow(sh,29) +
4278 1.651330016200192e23*pow(sh,30) -
4279 1.453924699389752e23*pow(sh,31) +
4280 1.011735575962528e23*pow(sh,32) -
4281 5.58883301567305e22*pow(sh,33) +
4282 2.447160559972393e22*pow(sh,34) -
4283 8.433457866753118e21*pow(sh,35) +
4284 2.2566304052798968e21*pow(sh,36) -
4285 4.585243554016694e20*pow(sh,37) +
4286 6.826335499960051e19*pow(sh,38) -
4287 7.011890262150629e18*pow(sh,39) +
4288 4.434709029248097e17*pow(sh,40) -
4289 1.2998152420597344e16*pow(sh,41) +
4290 4.32864432e10*PI2*
4291 (-84. - 735.*sh - 2115.*pow(sh,2) +
4292 105.*pow(sh,3) + 13881.*pow(sh,4) +
4293 27279.*pow(sh,5) - 2289.*pow(sh,6) +
4294 7.06083083e8*pow(sh,7) -
4295 7.059427043e9*pow(sh,8) +
4296 3.1757931649e10*pow(sh,9) -
4297 8.4675129727e10*pow(sh,10) +
4298 1.48186623501e11*pow(sh,11) -
4299 1.77858935891e11*pow(sh,12) +
4300 1.48260913367e11*pow(sh,13) -
4301 8.4747202497e10*pow(sh,14) +
4302 3.1784695387e10*pow(sh,15) -
4303 7.061392333e9*pow(sh,16) +
4304 7.13289054e8*pow(sh,17) -
4305 3.2675014e7*pow(sh,18) + 7.242013e7*pow(sh,19) -
4306 7.6735758e7*pow(sh,20) -
4307 2.40223726e8*pow(sh,21) +
4308 1.627847962e9*pow(sh,22) -
4309 2.273776974e9*pow(sh,23) -
4310 1.712105386e10*pow(sh,24) +
4311 1.18341944808e11*pow(sh,25) -
4312 3.9995878208e11*pow(sh,26) +
4313 9.10773328608e11*pow(sh,27) -
4314 1.531097366656e12*pow(sh,28) +
4315 1.98076916752e12*pow(sh,29) -
4316 2.016366553344e12*pow(sh,30) +
4317 1.634962897568e12*pow(sh,31) -
4318 1.06202452928e12*pow(sh,32) +
4319 5.53053223008e11*pow(sh,33) -
4320 2.30009473408e11*pow(sh,34) +
4321 7.5735678304e10*pow(sh,35) -
4322 1.945628256e10*pow(sh,36) +
4323 3.810741792e9*pow(sh,37) -
4324 5.48735616e8*pow(sh,38) +
4325 5.4678624e7*pow(sh,39) - 3.36336e6*pow(sh,40) +
4326 96096.*pow(sh,41))))*pow(z,9);
4327 }
4328 else {
4329 res += pow(z,9)*(-622069.3836274818 -
4330 5.380712316126128e6*(1. - 1.*sh) -
4331 2.6348101173329648e7*pow(1. - 1.*sh,2) -
4332 9.453816935977913e7*pow(1. - 1.*sh,3) -
4333 2.761541131481308e8*pow(1. - 1.*sh,4) +
4334 L_mu*(6542.252322163433 +
4335 64303.678306878304*(1. - 1.*sh) +
4336 345923.7248677249*pow(1. - 1.*sh,2) +
4337 1.349738102292769e6*pow(1. - 1.*sh,3) +
4338 4.272929862433863e6*pow(1. - 1.*sh,4)) +
4339 log(z)*(131849.69275238464 +
4340 1.3908505037480777e6*(1. - 1.*sh) +
4341 7.472361309110008e6*pow(1. - 1.*sh,2) +
4342 2.920814956913386e7*pow(1. - 1.*sh,3) +
4343 9.329175253624554e7*pow(1. - 1.*sh,4) +
4344 L_mu*(5423.407407407408 +
4345 48810.666666666664*(1. - 1.*sh) +
4346 244053.33333333334*pow(1. - 1.*sh,2) +
4347 894862.2222222222*pow(1. - 1.*sh,3) +
4348 2.6845866666666665e6*pow(1. - 1.*sh,4))) +
4349 (68317.8044287674 + 612595.3262786596*(1. - 1.*sh) +
4350 3.035726507936508e6*pow(1. - 1.*sh,2) +
4351 1.1122724390358612e7*pow(1. - 1.*sh,3) +
4352 3.3373027717813052e7*pow(1. - 1.*sh,4))*
4353 pow(log(z),2));
4354 }
4355 }
4356
4357 if(19<=maxpow) {
4358 if(sh<.900001) {
4359 res += -6.708357747431788e-8*PI2*pow(sh,-17)*
4360 (109395. + 2.16216e6*sh + 2.0430696e7*pow(sh,2) +
4361 1.22866128e8*pow(sh,3) + 5.27900436e8*pow(sh,4) +
4362 1.72236568e9*pow(sh,5) + 4.41295356e9*pow(sh,6) +
4363 8.96714376e9*pow(sh,7) + 1.385377093e10*pow(sh,8) +
4364 8.96714376e9*pow(sh,9) + 4.41295356e9*pow(sh,10) +
4365 1.72236568e9*pow(sh,11) + 5.27900436e8*pow(sh,12) +
4366 1.22866128e8*pow(sh,13) + 2.0430696e7*pow(sh,14) +
4367 2.16216e6*pow(sh,15) + 109395.*pow(sh,16))*pow(z,9.5);
4368 }
4369 else {
4370 res += (-30062.542641907552 - 270562.883777168*(1. - 1.*sh) -
4371 1.388889470056129e6*pow(1. - 1.*sh,2) -
4372 5.321070047617637e6*pow(1. - 1.*sh,3) -
4373 1.6887633329091568e7*pow(1. - 1.*sh,4))*pow(z,9.5);
4374 }
4375 }
4376
4377 if(20<=maxpow) {
4378 if(sh<.900001) {
4379 res += (-1.*L_mu*(-22436.0126984127*pow(sh,-10) +
4380 18304.*Lsh*pow(sh,-10)) -
4381 769.6330091406679*pow(-1. + sh,-3)*pow(sh,-8) +
4382 640.2633744855967*Li3sh*pow(-1. + sh,-3)*pow(sh,-8) -
4383 213.42112482853224*pow(Lsh,3)*pow(-1. + sh,-3)*
4384 pow(sh,-8) + 6.052910052910053*cl2*sqrt4sh*sqrtsh*
4385 pow(sh,3)*(72. - 4364.*sh + 28750.*pow(sh,2) +
4386 23168.*pow(sh,3) - 476659.*pow(sh,4) +
4387 1.255353e6*pow(sh,5) - 1.649661e6*pow(sh,6) +
4388 1.316274e6*pow(sh,7) - 686175.*pow(sh,8) +
4389 239883.*pow(sh,9) - 55951.*pow(sh,10) +
4390 8372.*pow(sh,11) - 728.*pow(sh,12) + 28.*pow(sh,13))
4391 + 0.0009406231628453851*ash*sqrt4sh*sqrtsh*
4392 pow(-1. + sh,-3)*pow(sh,3)*
4393 (-1.003446e6 + 6.399262e7*sh -
4394 5.88476654e8*pow(sh,2) + 1.052685443e9*pow(sh,3) +
4395 6.558619027e9*pow(sh,4) -
4396 3.9015984112e10*pow(sh,5) +
4397 9.831642973e10*pow(sh,6) -
4398 1.5050270954e11*pow(sh,7) +
4399 1.55340604554e11*pow(sh,8) -
4400 1.13220265218e11*pow(sh,9) +
4401 5.9521934912e10*pow(sh,10) -
4402 2.2692174847e10*pow(sh,11) +
4403 6.219574195e9*pow(sh,12) -
4404 1.194652762e9*pow(sh,13) + 1.5263422e8*pow(sh,14) -
4405 1.1648401e7*pow(sh,15) + 401669.*pow(sh,16)) -
4406 18.158730158730158*pow(ash,2)*pow(-1. + sh,-4)*
4407 pow(sh,4)*(1638. - 34902.*sh + 187614.*pow(sh,2) -
4408 73296.*pow(sh,3) - 2.717613e6*pow(sh,4) +
4409 1.2278721e7*pow(sh,5) - 2.8715127e7*pow(sh,6) +
4410 4.3584072e7*pow(sh,7) - 4.6464222e7*pow(sh,8) +
4411 3.6125334e7*pow(sh,9) - 2.0866662e7*pow(sh,10) +
4412 9.012312e6*pow(sh,11) - 2.899701e6*pow(sh,12) +
4413 684873.*pow(sh,13) - 115255.*pow(sh,14) +
4414 13076.*pow(sh,15) - 896.*pow(sh,16) + 28.*pow(sh,17)
4415 ) - 0.0011757789535567313*Li2sh*pow(-1. + sh,-11)*
4416 pow(sh,-10)*(3.891888e6 - 4.2698656e7*sh +
4417 2.12860648e8*pow(sh,2) - 6.36197562e8*pow(sh,3) +
4418 1.265813472e9*pow(sh,4) - 1.758542016e9*pow(sh,5) +
4419 1.737624672e9*pow(sh,6) - 1.217575632e9*pow(sh,7) +
4420 5.89815408e8*pow(sh,8) - 1.86234048e8*pow(sh,9) +
4421 3.3715396e7*pow(sh,10) - 2.523664e6*pow(sh,11) -
4422 1008.*pow(sh,17) + 252.*pow(sh,18) + 63.*pow(sh,19))
4423 - 1.*Lsh*(640.2633744855967*Li2sh*pow(-1. + sh,-3)*
4424 pow(sh,-8) - 6.052910052910053*ash*sqrt4sh*sqrtsh*
4425 pow(sh,3)*(72. - 4364.*sh + 28750.*pow(sh,2) +
4426 23168.*pow(sh,3) - 476659.*pow(sh,4) +
4427 1.255353e6*pow(sh,5) - 1.649661e6*pow(sh,6) +
4428 1.316274e6*pow(sh,7) - 686175.*pow(sh,8) +
4429 239883.*pow(sh,9) - 55951.*pow(sh,10) +
4430 8372.*pow(sh,11) - 728.*pow(sh,12) +
4431 28.*pow(sh,13)) +
4432 1.0368421107202216e-8*pow(-1. + sh,-11)*pow(sh,-18)*
4433 (-268128. - 50176.*sh + 1.5037316e7*pow(sh,2) +
4434 7.0758368e7*pow(sh,3) + 6.454424e7*pow(sh,4) -
4435 3.47363296e8*pow(sh,5) -
4436 9.86787592e8*pow(sh,6) - 3.5646688e7*pow(sh,7) +
4437 448.*(-1.08098395051e11 + 9.8513415e8*Lshb)*
4438 pow(sh,8) - 2464.*
4439 (-2.16214325051e11 + 1.9651086e9*Lshb)*pow(sh,9)
4440 + (-2.664090635973398e15 +
4441 2.41383974832e13*Lshb -
4442 5.1459408e10*PI2)*
4443 pow(sh,10) +
4444 (7.994327088697714e15 - 7.21448035308e13*Lshb +
4445 4.11675264e11*PI2)*
4446 pow(sh,11) +
4447 28.*(-5.71247555169563e14 +
4448 5.1265445616e12*Lshb -
4449 5.1459408e10*PI2)*
4450 pow(sh,12) +
4451 112.*(2.00040160003213e14 -
4452 1.7805237912e12*Lshb +
4453 2.5729704e10*PI2)*
4454 pow(sh,13) +
4455 14.*(-1.601332890109447e15 +
4456 1.40747598432e13*Lshb -
4457 2.5729704e11*PI2)*
4458 pow(sh,14) +
4459 112.*(1.43081208030667e14 -
4460 1.2327953274e12*Lshb +
4461 2.5729704e10*PI2)*
4462 pow(sh,15) +
4463 28.*(-2.86396712598419e14 +
4464 2.3887524024e12*Lshb -
4465 5.1459408e10*PI2)*
4466 pow(sh,16) +
4467 32.*(8.3604554894621e13 - 6.599669076e11*Lshb +
4468 1.2864852e10*PI2)*
4469 pow(sh,17) +
4470 (-5.35506196250843e14 + 3.8233259064e12*Lshb -
4471 5.1459408e10*PI2)*
4472 pow(sh,18) -
4473 252.*(-1.93318721627e11 + 1.1356488e9*Lshb)*
4474 pow(sh,19) - 3.861655812e9*pow(sh,20) -
4475 5.0733144e7*pow(sh,21) +
4476 8.74592334e8*pow(sh,22) +
4477 2.56502232e8*pow(sh,23) -
4478 1.152693e8*pow(sh,24) -
4479 1800.*(20357. + 63504.*Lshb)*pow(sh,25) +
4480 11025.*(461. + 2592.*Lshb)*pow(sh,26) +
4481 11025.*(17. + 648.*Lshb)*pow(sh,27))) -
4482 0.000013064210595074793*pow(Lsh,2)*pow(-1. + sh,-12)*
4483 pow(sh,-18)*(1008. + 8848.*sh + 23688.*pow(sh,2) -
4484 17352.*pow(sh,3) - 212592.*pow(sh,4) -
4485 311184.*pow(sh,5) + 400176.*pow(sh,6) +
4486 1.492176e6*pow(sh,7) - 1.8665467128e10*pow(sh,8) +
4487 2.23865173224e11*pow(sh,9) -
4488 3.*(4.10179236011e11 + 8.16816e6*Lshb)*pow(sh,10) +
4489 1053.*(3.893290287e9 + 209440.*Lshb)*pow(sh,11) -
4490 234.*(3.9404650781e10 + 3.76992e6*Lshb)*
4491 pow(sh,12) + 1848.*
4492 (7.981764103e9 + 1.11384e6*Lshb)*pow(sh,13) -
4493 5040.*(3.414494773e9 + 612612.*Lshb)*pow(sh,14) +
4494 3528.*(4.182077137e9 + 875160.*Lshb)*pow(sh,15) -
4495 1344.*(6.864759043e9 + 1.53153e6*Lshb)*pow(sh,16) +
4496 1224.*(3.352868227e9 + 720720.*Lshb)*pow(sh,17) -
4497 18.*(6.8479648117e10 + 1.225224e7*Lshb)*
4498 pow(sh,18) + (2.24483274986e11 + 2.450448e7*Lshb)*
4499 pow(sh,19) - 1.8748455264e10*pow(sh,20) -
4500 45360.*pow(sh,25) + 56700.*pow(sh,26) -
4501 8505.*pow(sh,27) - 2835.*pow(sh,28)) +
4502 0.000013064210595074793*pow(lz,2)*pow(sh,-18)*
4503 (-252. - 5236.*sh - 52122.*pow(sh,2) -
4504 330990.*pow(sh,3) - 1.50586e6*pow(sh,4) -
4505 5.221788e6*pow(sh,5) - 1.4306214e7*pow(sh,6) -
4506 3.1500898e7*pow(sh,7) + 1.8610077024e10*pow(sh,8) +
4507 3.675672e7*pow(sh,9) - 1.1865305e7*pow(sh,10) +
4508 7.819275e6*pow(sh,11) + 2.920308e7*pow(sh,12) +
4509 3.763735e7*pow(sh,13) + 3.5618775e7*pow(sh,14) +
4510 2.7424047e7*pow(sh,15) + 1.5311086e7*pow(sh,16) +
4511 252.*pow(sh,17) + 5.397678e7*pow(sh,18) +
4512 5.722002e7*pow(sh,19) + 6.231654e7*pow(sh,20) +
4513 6.996132e7*pow(sh,21) + 2.7057888e8*pow(sh,22) -
4514 3.18810492e9*pow(sh,23) + 7.5729654e9*pow(sh,24) +
4515 4.194296964e10*pow(sh,25) -
4516 2.0547002619e11*pow(sh,26) +
4517 3.8218629735e11*pow(sh,27) -
4518 4.0430890071e11*pow(sh,28) +
4519 2.7416659842e11*pow(sh,29) -
4520 1.2521582073e11*pow(sh,30) +
4521 3.911266359e10*pow(sh,31) -
4522 8.26458633e9*pow(sh,32) + 1.13189076e9*pow(sh,33) -
4523 9.081072e7*pow(sh,34) + 3.24324e6*pow(sh,35)) -
4524 1.*lz*(-18304.*L_mu*pow(sh,-10) -
4525 320.13168724279836*pow(Lsh,2)*pow(-1. + sh,-3)*
4526 pow(sh,-8) - 12.105820105820106*ash*sqrt4sh*sqrtsh*
4527 pow(sh,3)*(72. - 4364.*sh + 28750.*pow(sh,2) +
4528 23168.*pow(sh,3) - 476659.*pow(sh,4) +
4529 1.255353e6*pow(sh,5) - 1.649661e6*pow(sh,6) +
4530 1.316274e6*pow(sh,7) - 686175.*pow(sh,8) +
4531 239883.*pow(sh,9) - 55951.*pow(sh,10) +
4532 8372.*pow(sh,11) - 728.*pow(sh,12) +
4533 28.*pow(sh,13)) -
4534 0.000026128421190149586*Lsh*pow(-1. + sh,-11)*
4535 pow(sh,-18)*(-504. - 4928.*sh - 16772.*pow(sh,2) -
4536 8096.*pow(sh,3) + 98200.*pow(sh,4) +
4537 253792.*pow(sh,5) + 53704.*pow(sh,6) -
4538 692384.*pow(sh,7) + 1.8664647232e10*pow(sh,8) -
4539 2.05207139984e11*pow(sh,9) +
4540 1.025430782207e12*pow(sh,10) -
4541 3.074555676226e12*pow(sh,11) +
4542 6.145992007736e12*pow(sh,12) -
4543 8.60044812004e12*pow(sh,13) +
4544 8.596678573448e12*pow(sh,14) -
4545 6.137611319224e12*pow(sh,15) +
4546 3.067041035912e12*pow(sh,16) -
4547 1.021522277272e12*pow(sh,17) +
4548 2.04049226678e11*pow(sh,18) -
4549 1.8515048904e10*pow(sh,19) +
4550 864864.*pow(sh,20) + 769608.*pow(sh,21) -
4551 13608.*pow(sh,22) - 222264.*pow(sh,23) -
4552 69120.*pow(sh,24) - 9000.*pow(sh,25) +
4553 19215.*pow(sh,26) + 315.*pow(sh,27)) -
4554 4.265084782888612e-12*pow(-1. + sh,-10)*pow(sh,-18)*
4555 (3.25909584e8 + 3.86898512e8*sh -
4556 1.7890959086e10*pow(sh,2) -
4557 1.0389775539e11*pow(sh,3) -
4558 1.8235127911e11*pow(sh,4) +
4559 2.39868807178e11*pow(sh,5) +
4560 1.439309125254e12*pow(sh,6) +
4561 1.482637674518e12*pow(sh,7) +
4562 1.1773533109183245e17*pow(sh,8) -
4563 1.1762786134932733e18*pow(sh,9) +
4564 5.287945685290232e18*pow(sh,10) -
4565 1.408573123970191e19*pow(sh,11) +
4566 2.461891448027823e19*pow(sh,12) -
4567 2.949733724851667e19*pow(sh,13) +
4568 2.4532821652619735e19*pow(sh,14) -
4569 1.3981789937805554e19*pow(sh,15) +
4570 5.223681256860368e18*pow(sh,16) -
4571 1.1543710933218002e18*pow(sh,17) +
4572 1.1493955705739667e17*pow(sh,18) -
4573 4.556468500926695e15*pow(sh,19) +
4574 1.7572146654042552e16*pow(sh,20) -
4575 3.9615878221273704e16*pow(sh,21) +
4576 5.638676809242492e16*pow(sh,22) -
4577 4.406121643569693e16*pow(sh,23) +
4578 3.2318412281568824e16*pow(sh,24) -
4579 4.259492022110168e17*pow(sh,25) +
4580 2.1201430825186813e18*pow(sh,26) -
4581 2.4923037486423537e18*pow(sh,27) -
4582 1.7838580318483542e19*pow(sh,28) +
4583 1.0701104247446746e20*pow(sh,29) -
4584 3.1929857696090705e20*pow(sh,30) +
4585 6.474487284281146e20*pow(sh,31) -
4586 9.760291519177703e20*pow(sh,32) +
4587 1.1392452492311442e21*pow(sh,33) -
4588 1.0520263768751638e21*pow(sh,34) +
4589 7.775724274489533e20*pow(sh,35) -
4590 4.624318941820542e20*pow(sh,36) +
4591 2.213656928475123e20*pow(sh,37) -
4592 8.494727327998501e19*pow(sh,38) +
4593 2.5900145606169035e19*pow(sh,39) -
4594 6.181939718636802e18*pow(sh,40) +
4595 1.1286121824774998e18*pow(sh,41) -
4596 1.5195925385464826e17*pow(sh,42) +
4597 1.420123992415128e16*pow(sh,43) -
4598 8.2168151561496e14*pow(sh,44) +
4599 2.214605244852e13*pow(sh,45))) -
4600 6.962130651845887e-19*pow(-1. + sh,-11)*pow(sh,-18)*
4601 (-3.16414088198208e14 + 9.74539823921664e14*sh +
4602 8.087033764735926e15*pow(sh,2) -
4603 5.684694862939435e16*pow(sh,3) -
4604 4.0319420043801754e17*pow(sh,4) -
4605 4.882604186351892e17*pow(sh,5) +
4606 1.9325128069129482e18*pow(sh,6) +
4607 6.292691026868566e18*pow(sh,7) +
4608 2.792081386627729e23*pow(sh,8) -
4609 3.0653776012724437e24*pow(sh,9) +
4610 1.5296980754272814e25*pow(sh,10) -
4611 4.580270398519267e25*pow(sh,11) +
4612 9.143594067412906e25*pow(sh,12) -
4613 1.2779495928946286e26*pow(sh,13) +
4614 1.2762486136562552e26*pow(sh,14) -
4615 9.110246500944438e25*pow(sh,15) +
4616 4.558305919883703e25*pow(sh,16) -
4617 1.5244656041943856e25*pow(sh,17) +
4618 3.073171046299431e24*pow(sh,18) -
4619 2.6184927906686532e23*pow(sh,19) -
4620 1.0487308963151102e23*pow(sh,20) +
4621 2.7045906540143195e23*pow(sh,21) -
4622 4.4609820546041925e23*pow(sh,22) +
4623 4.3341866014896366e23*pow(sh,23) -
4624 3.0284128932535685e23*pow(sh,24) +
4625 2.8502065219122033e24*pow(sh,25) -
4626 1.6744213714265902e25*pow(sh,26) +
4627 3.4546092096924117e25*pow(sh,27) +
4628 6.6958214497636675e25*pow(sh,28) -
4629 6.719624033223081e26*pow(sh,29) +
4630 2.3634332855143025e27*pow(sh,30) -
4631 5.406861258181357e27*pow(sh,31) +
4632 9.10419041097793e27*pow(sh,32) -
4633 1.1865952156817548e28*pow(sh,33) +
4634 1.2283961231268607e28*pow(sh,34) -
4635 1.0245250602869844e28*pow(sh,35) +
4636 6.935097181125567e27*pow(sh,36) -
4637 3.819594455600949e27*pow(sh,37) +
4638 1.7090015768187537e27*pow(sh,38) -
4639 6.177750381749111e26*pow(sh,39) +
4640 1.7862394817725466e26*pow(sh,40) -
4641 4.0667139734465495e25*pow(sh,41) +
4642 7.117942930727479e24*pow(sh,42) -
4643 9.229373088621336e23*pow(sh,43) +
4644 8.339200912205272e22*pow(sh,44) -
4645 4.6814118287209613e21*pow(sh,45) +
4646 1.2279937968685318e20*pow(sh,46) -
4647 6.2548910424e12*PI2*
4648 (-1512. - 14784.*sh - 50316.*pow(sh,2) -
4649 24288.*pow(sh,3) + 294600.*pow(sh,4) +
4650 761376.*pow(sh,5) + 161112.*pow(sh,6) -
4651 2.077152e6*pow(sh,7) +
4652 5.7064210896e10*pow(sh,8) -
4653 6.27572398992e11*pow(sh,9) +
4654 3.137096776433e12*pow(sh,10) -
4655 9.409743553774e12*pow(sh,11) +
4656 1.8818560922504e13*pow(sh,12) -
4657 2.6347616980552e13*pow(sh,13) +
4658 2.6351485677944e13*pow(sh,14) -
4659 1.8825939544384e13*pow(sh,15) +
4660 9.414254480792e12*pow(sh,16) -
4661 3.137901366712e12*pow(sh,17) +
4662 6.27172370726e11*pow(sh,18) -
4663 5.6235529592e10*pow(sh,19) -
4664 3.03847082e9*pow(sh,20) +
4665 7.83321994e9*pow(sh,21) -
4666 1.36334135e10*pow(sh,22) +
4667 2.612527414e10*pow(sh,23) -
4668 1.2043334018e11*pow(sh,24) +
4669 5.11152445252e11*pow(sh,25) -
4670 7.00772118731e11*pow(sh,26) -
4671 5.082162807869e12*pow(sh,27) +
4672 3.7496386828908e13*pow(sh,28) -
4673 1.3686666259266e14*pow(sh,29) +
4674 3.4205865415722e14*pow(sh,30) -
4675 6.4118721989322e14*pow(sh,31) +
4676 9.3979081997658e14*pow(sh,32) -
4677 1.10202690808782e15*pow(sh,33) +
4678 1.04788397968254e15*pow(sh,34) -
4679 8.141721939351e14*pow(sh,35) +
4680 5.1869434238622e14*pow(sh,36) -
4681 2.7096438795426e14*pow(sh,37) +
4682 1.1569642322238e14*pow(sh,38) -
4683 4.010774591538e13*pow(sh,39) +
4684 1.116674149734e13*pow(sh,40) -
4685 2.4564705165e12*pow(sh,41) +
4686 4.1666228604e11*pow(sh,42) -
4687 5.249021778e10*pow(sh,43) +
4688 4.61837376e9*pow(sh,44) -
4689 2.5297272e8*pow(sh,45) + 6.48648e6*pow(sh,46))))*
4690 pow(z,10);
4691 }
4692 else {
4693 res += pow(z,10)*(-2.2176369034656202e6 -
4694 2.1313657032968003e7*(1. - 1.*sh) -
4695 1.1510510548217365e8*pow(1. - 1.*sh,2) -
4696 4.5152247350887704e8*pow(1. - 1.*sh,3) -
4697 1.4313252283712986e9*pow(1. - 1.*sh,4) +
4698 L_mu*(22436.0126984127 +
4699 242664.12698412698*(1. - 1.*sh) +
4700 1.4261726984126985e6*pow(1. - 1.*sh,2) +
4701 6.040264126984127e6*pow(1. - 1.*sh,3) +
4702 2.0637578412698414e7*pow(1. - 1.*sh,4)) +
4703 log(z)*(481985.82617224846 +
4704 5.600617111968864e6*(1. - 1.*sh) +
4705 3.2763678189123973e7*pow(1. - 1.*sh,2) +
4706 1.3890575176721412e8*pow(1. - 1.*sh,3) +
4707 4.790156868849013e8*pow(1. - 1.*sh,4) +
4708 L_mu*(18304. + 183040.*(1. - 1.*sh) +
4709 1.00672e6*pow(1. - 1.*sh,2) +
4710 4.02688e6*pow(1. - 1.*sh,3) +
4711 1.308736e7*pow(1. - 1.*sh,4))) +
4712 (245966.3111111111 +
4713 2.4484144197530863e6*(1. - 1.*sh) +
4714 1.3337867328395061e7*pow(1. - 1.*sh,2) +
4715 5.3335035751205176e7*pow(1. - 1.*sh,3) +
4716 1.733848092131687e8*pow(1. - 1.*sh,4))*pow(log(z),2)
4717 );
4718 }
4719 }
4720
4721 }
4722 return res;
4723}
4724
4725
4726double f_19_im(double sh, double L_mu, double z, size_t maxpow) {
4727 // printf("Calling f_19_im with sh=%.4e, L_mu=%.4e, z=%.4e\n", sh, L_mu, z);
4728 double lz = log(z);
4729
4730 double Lsh = log(sh);
4731 double Lshb = log(1.-sh);
4732 double Li2sh = real(CLi2(sh));
4733 double Li3sh = real(CLi3(sh));
4734 // double Li3shb = real(CLi3(1.-sh));
4735 // double Li4sh = real(CLi4(sh));
4736 // double sqrtsh = sqrt(sh);
4737 // double sqrt4sh = sqrt(4.-sh);
4738 // double ash = asin(sqrtsh/2.);
4739 // double cl2 = Cl2(2.*ash);
4740 // double cl3 = Cl3(2.*ash);
4741
4742
4743 double res=0;
4744
4745 if(sh<0.4) {
4746 res = 3.67166 + 0.20685383727340204*L_mu - 0.103427*Lsh +
4747 0.93084*lz - 0.310281*sh - 0.93084*lz*sh - 16.2155*z -
4748 5.58505*lz*z - 30.7987*sh*z - 1.86168*Lsh*sh*z -
4749 16.75515*lz*sh*z - 1.861685*z*pow(lz,2) -
4750 1.861685*sh*z*pow(lz,2) - 1.36524*pow(sh,2) -
4751 0.93084*lz*pow(sh,2) - 52.2081*z*pow(sh,2) -
4752 3.72337*Lsh*z*pow(sh,2) - 26.0636*lz*z*pow(sh,2) -
4753 1.861685*z*pow(lz,2)*pow(sh,2) - 1.72206*pow(sh,3) -
4754 0.93084*lz*pow(sh,3) - 76.6479*z*pow(sh,3) -
4755 5.58505*Lsh*z*pow(sh,3) - 34.75145*lz*z*pow(sh,3) -
4756 1.861685*z*pow(lz,2)*pow(sh,3) -
4757 0.00295505*pow(sh,3)*pow(z,-3) -
4758 0.0199466*pow(sh,2)*pow(z,-2) +
4759 0.00369382*pow(sh,3)*pow(z,-2) - 0.186168*sh*pow(z,-1) +
4760 0.0620562*pow(sh,2)*pow(z,-1) +
4761 0.0871741*pow(sh,3)*pow(z,-1) + 26.7517*pow(z,2) -
4762 1.86168*Lsh*pow(z,2) - 7.44675*lz*pow(z,2) -
4763 3.72337*Lsh*lz*pow(z,2) + 66.1439*sh*pow(z,2) -
4764 7.44674*Lsh*sh*pow(z,2) - 33.5103*lz*sh*pow(z,2) -
4765 14.8935*Lsh*lz*sh*pow(z,2) -
4766 7.44675*pow(lz,2)*pow(z,2) -
4767 20.478525*sh*pow(lz,2)*pow(z,2) +
4768 108.713*pow(sh,2)*pow(z,2) -
4769 22.3402*Lsh*pow(sh,2)*pow(z,2) -
4770 81.914*lz*pow(sh,2)*pow(z,2) -
4771 33.5103*Lsh*lz*pow(sh,2)*pow(z,2) -
4772 39.0955*pow(lz,2)*pow(sh,2)*pow(z,2) +
4773 148.481*pow(sh,3)*pow(z,2) -
4774 49.6449*Lsh*pow(sh,3)*pow(z,2) -
4775 155.761*lz*pow(sh,3)*pow(z,2) -
4776 59.574*Lsh*lz*pow(sh,3)*pow(z,2) -
4777 63.29725*pow(lz,2)*pow(sh,3)*pow(z,2) -
4778 23.6892*pow(z,3) - 1.65483*Lsh*pow(z,3) +
4779 17.3757*lz*pow(z,3) + 4.96449*Lsh*lz*pow(z,3) -
4780 63.7828*sh*pow(z,3) - 3.72337*Lsh*sh*pow(z,3) +
4781 67.0205*lz*sh*pow(z,3) + 22.3402*Lsh*lz*sh*pow(z,3) -
4782 106.832*pow(sh,2)*pow(z,3) +
4783 165.0695*lz*pow(sh,2)*pow(z,3) +
4784 59.574*Lsh*lz*pow(sh,2)*pow(z,3) -
4785 135.118*pow(sh,3)*pow(z,3) +
4786 18.6168*Lsh*pow(sh,3)*pow(z,3) +
4787 326.4155*lz*pow(sh,3)*pow(z,3) +
4788 124.1125*Lsh*lz*pow(sh,3)*pow(z,3);
4789 }
4790 else{
4791 if(sh<.900001) {
4792 res += (-3.5165152336478345*L_mu -
4793 0.05171345931835051*pow(-1. + sh,-2)*
4794 (130. - 269.*sh + 121.*pow(sh,2)) +
4795 0.10342691863670102*Lsh*pow(-1. + sh,-3)*
4796 (-8. + 33.*sh - 51.*pow(sh,2) + 17.*pow(sh,3)))*
4797 1.;
4798 }
4799 else {
4800 res += (-5.636767065700205 - 1.3704066719362884*(1. - 1.*sh) -
4801 3.5165152336478345*L_mu -
4802 0.5998761280928658*pow(1. - 1.*sh,2) -
4803 0.36888934313756694*pow(1. - 1.*sh,3) -
4804 0.26226111511449185*pow(1. - 1.*sh,4))*1.;
4805 }
4806
4807 if(1<=maxpow) {
4808 if(sh<.900001) {
4809 res += 0.;
4810 }
4811 else {
4812 res += 0.;
4813 }
4814 }
4815
4816 if(2<=maxpow) {
4817 if(sh<.900001) {
4818 res += (17.902805978847187*sh*pow(-1. + sh,-3) -
4819 14.893476283684944*Li3sh*sh*pow(-1. + sh,-3) +
4820 1.861684535460618*Li2sh*(-7. + 5.*sh)*
4821 pow(-1. + sh,-3) + 1.241123023640412*sh*pow(Lsh,3)*
4822 pow(-1. + sh,-3) - 3.723369070921236*pow(Lsh,2)*
4823 pow(-1. + sh,-2) - 1.*Lsh*
4824 (-7.446738141842472*Li2sh*sh*pow(-1. + sh,-3) +
4825 1.861684535460618*pow(-1. + sh,-3)*
4826 (-5. + Lshb*(7. - 5.*sh) +
4827 sh*(3. - 2.*PI2) + pow(sh,2)
4828 )) - 0.310280755910103*pow(-1. + sh,-3)*
4829 pow(sh,-1)*(-306. +
4830 sh*(912. - 11.*PI2) +
4831 5.*(-180. + PI2)*pow(sh,2) +
4832 (294. + 4.*PI2)*pow(sh,3)))*
4833 pow(z,1);
4834 }
4835 else {
4836 res += (-101.4595749819256 - 99.28872579089392*(1. - 1.*sh) -
4837 98.33919598335144*pow(1. - 1.*sh,2) -
4838 97.78315475935152*pow(1. - 1.*sh,3) -
4839 97.41019960703451*pow(1. - 1.*sh,4))*pow(z,1);
4840 }
4841 }
4842
4843 if(3<=maxpow) {
4844 if(sh<.900001) {
4845 res += 0.;
4846 }
4847 else {
4848 res += 0.;
4849 }
4850 }
4851
4852 if(4<=maxpow) {
4853 if(sh<.900001) {
4854 res += (-1.861684535460618*Li2sh*(3. + 2.*sh)*pow(-1. + sh,-3) +
4855 1.861684535460618*pow(Lsh,2)*pow(-1. + sh,-2) +
4856 22.340214425527417*L_mu*pow(sh,-2) -
4857 1.*lz*(-13.031791748224327*Lsh*pow(-1. + sh,-3) -
4858 0.930842267730309*pow(-1. + sh,-2)*pow(sh,-2)*
4859 (193. - 393.*sh + 186.*pow(sh,2))) +
4860 0.1551403779550515*pow(-1. + sh,-3)*pow(sh,-2)*
4861 (441. - 1368.*sh +
4862 3.*(437. + 2.*PI2)*pow(sh,2) +
4863 4.*(-111. + PI2)*pow(sh,3) +
4864 24.*pow(sh,4)) -
4865 0.930842267730309*Lsh*pow(-1. + sh,-4)*pow(sh,-2)*
4866 (191. - 777.*sh + (1175. - 6.*Lshb)*pow(sh,2) +
4867 (-797. + 2.*Lshb)*pow(sh,3) +
4868 (202. + 4.*Lshb)*pow(sh,4)))*pow(z,2);
4869 }
4870 else {
4871 res += (-74.72594871501649 + 29.277574993084137*(1. - 1.*sh) +
4872 223.8210232757528*pow(1. - 1.*sh,2) +
4873 478.4917845842381*pow(1. - 1.*sh,3) +
4874 778.1470920996388*pow(1. - 1.*sh,4) +
4875 L_mu*(22.340214425527417 +
4876 44.680428851054835*(1. - 1.*sh) +
4877 67.02064327658225*pow(1. - 1.*sh,2) +
4878 89.36085770210967*pow(1. - 1.*sh,3) +
4879 111.70107212763709*pow(1. - 1.*sh,4)) +
4880 log(z)*(177.48059238057894 +
4881 356.0471674068432*(1. - 1.*sh) +
4882 535.0481354913816*pow(1. - 1.*sh,2) +
4883 714.2663001050572*pow(1. - 1.*sh,3) +
4884 893.6085770210967*pow(1. - 1.*sh,4)))*pow(z,2);
4885 }
4886 }
4887
4888 if(5<=maxpow) {
4889 if(sh<.900001) {
4890 res += 0.;
4891 }
4892 else {
4893 res += 0.;
4894 }
4895 }
4896
4897 if(6<=maxpow) {
4898 if(sh<.900001) {
4899 res += (29.786952567369887*L_mu*pow(sh,-3) +
4900 3.723369070921236*pow(Lsh,2)*pow(-1. + sh,-3)*
4901 pow(sh,-1) - 1.241123023640412*Li2sh*pow(-1. + sh,-4)*
4902 pow(sh,-1)*(3. + sh + 2.*pow(sh,2)) -
4903 0.10342691863670102*Lsh*pow(-1. + sh,-5)*pow(sh,-4)*
4904 (12. - 3754.*sh + 18707.*pow(sh,2) -
4905 1.*(37645. + 36.*Lshb)*pow(sh,3) +
4906 6.*(6335. + 4.*Lshb)*pow(sh,4) -
4907 6.*(3213. + 2.*Lshb)*pow(sh,5) +
4908 24.*(163. + Lshb)*pow(sh,6)) -
4909 1.*lz*(-1.241123023640412*Lsh*pow(-1. + sh,-4)*
4910 pow(sh,-1)*(3. + sh + 2.*pow(sh,2)) +
4911 0.10342691863670102*pow(-1. + sh,-3)*pow(sh,-4)*
4912 (-6. + 3748.*sh - 11253.*pow(sh,2) +
4913 11385.*pow(sh,3) - 3841.*pow(sh,4) +
4914 27.*pow(sh,5) + 12.*pow(sh,6))) +
4915 0.0172378197727835*pow(-1. + sh,-4)*pow(sh,-4)*
4916 (30. + 12740.*sh - 51314.*pow(sh,2) +
4917 36.*(2123. + PI2)*pow(sh,3) +
4918 (-50297. + 12.*PI2)*
4919 pow(sh,4) + 8.*(1474. +
4920 3.*PI2)*pow(sh,5) +
4921 381.*pow(sh,6) + 24.*pow(sh,7)))*pow(z,3);
4922 }
4923 else {
4924 res += (211.9165849406685 + 1019.1512736698835*(1. - 1.*sh) +
4925 2614.8727490925203*pow(1. - 1.*sh,2) +
4926 5126.049113728145*pow(1. - 1.*sh,3) +
4927 8646.890723525932*pow(1. - 1.*sh,4) +
4928 L_mu*(29.786952567369887 +
4929 89.36085770210967*(1. - 1.*sh) +
4930 178.72171540421934*pow(1. - 1.*sh,2) +
4931 297.8695256736989*pow(1. - 1.*sh,3) +
4932 446.80428851054836*pow(1. - 1.*sh,4)) +
4933 log(z)*(378.2322414544156 +
4934 1142.5157994121814*(1. - 1.*sh) +
4935 2290.864877035473*pow(1. - 1.*sh,2) +
4936 3822.6086768805603*pow(1. - 1.*sh,3) +
4937 5737.100041942259*pow(1. - 1.*sh,4)))*pow(z,3);
4938 }
4939 }
4940
4941 if(7<=maxpow) {
4942 if(sh<.900001) {
4943 res += 0.;
4944 }
4945 else {
4946 res += 0.;
4947 }
4948 }
4949
4950 if(8<=maxpow) {
4951 if(sh<.900001) {
4952 res += (67.02064327658225*L_mu*pow(sh,-4) +
4953 6.2056151182020605*Li2sh*pow(-1. + sh,-3)*pow(sh,-2) +
4954 6.2056151182020605*pow(Lsh,2)*pow(-1. + sh,-3)*
4955 pow(sh,-2) - 1.*lz*
4956 (6.2056151182020605*Lsh*pow(-1. + sh,-3)*pow(sh,-2) +
4957 0.10342691863670102*pow(-1. + sh,-2)*pow(sh,-6)*
4958 (3. + 19.*sh - 9836.*pow(sh,2) +
4959 19672.*pow(sh,3) - 9987.*pow(sh,4) +
4960 39.*pow(sh,5) + 30.*pow(sh,6))) +
4961 0.10342691863670102*Lsh*pow(-1. + sh,-6)*pow(sh,-6)*
4962 (6. + 14.*sh - 9909.*pow(sh,2) + 59043.*pow(sh,3) -
4963 3.*(49203. + 20.*Lshb)*pow(sh,4) +
4964 3.*(65783. + 60.*Lshb)*pow(sh,5) -
4965 3.*(49547. + 60.*Lshb)*pow(sh,6) +
4966 (59839. + 60.*Lshb)*pow(sh,7) - 10062.*pow(sh,8)) -
4967 0.00861890988639175*pow(-1. + sh,-5)*pow(sh,-6)*
4968 (21. - 10.*sh + 97976.*pow(sh,2) -
4969 490846.*pow(sh,3) +
4970 (981523. + 120.*PI2)*
4971 pow(sh,4) - 8.*(122341. +
4972 30.*PI2)*pow(sh,5) +
4973 2.*(242981. + 60.*PI2)*
4974 pow(sh,6) - 94596.*pow(sh,7) - 678.*pow(sh,8) -
4975 408.*pow(sh,9) + 144.*pow(sh,10)))*pow(z,4);
4976 }
4977 else {
4978 res += (818.5206340908517 + 4293.785518767847*(1. - 1.*sh) +
4979 12756.23214766427*pow(1. - 1.*sh,2) +
4980 28863.589912766278*pow(1. - 1.*sh,3) +
4981 55512.63989848175*pow(1. - 1.*sh,4) +
4982 L_mu*(67.02064327658225 +
4983 268.082573106329*(1. - 1.*sh) +
4984 670.2064327658226*pow(1. - 1.*sh,2) +
4985 1340.4128655316451*pow(1. - 1.*sh,3) +
4986 2345.722514680379*pow(1. - 1.*sh,4)) +
4987 log(z)*(997.2423494950712 +
4988 4001.6909089725987*(1. - 1.*sh) +
4989 10016.483362289946*pow(1. - 1.*sh,2) +
4990 20040.827170396282*pow(1. - 1.*sh,3) +
4991 35069.73361639894*pow(1. - 1.*sh,4)))*pow(z,4);
4992 }
4993 }
4994
4995 if(9<=maxpow) {
4996 if(sh<.900001) {
4997 res += 0.;
4998 }
4999 else {
5000 res += 0.;
5001 }
5002 }
5003
5004 if(10<=maxpow) {
5005 if(sh<.900001) {
5006 res += (178.72171540421934*L_mu*pow(sh,-5) +
5007 13.031791748224327*Li2sh*pow(-1. + sh,-3)*pow(sh,-3) +
5008 13.031791748224327*pow(Lsh,2)*pow(-1. + sh,-3)*
5009 pow(sh,-3) - 1.*lz*
5010 (13.031791748224327*Lsh*pow(-1. + sh,-3)*pow(sh,-3) +
5011 0.0103426918636701*pow(-1. + sh,-2)*pow(sh,-8)*
5012 (18. + 153.*sh + 543.*pow(sh,2) -
5013 302141.*pow(sh,3) + 603346.*pow(sh,4) -
5014 304124.*pow(sh,5) + 60.*pow(sh,6) +
5015 690.*pow(sh,7) + 195.*pow(sh,8))) -
5016 0.0103426918636701*Lsh*pow(-1. + sh,-7)*pow(sh,-8)*
5017 (36. + 126.*sh - 84.*pow(sh,2) - 303968.*pow(sh,3) +
5018 2.117159e6*pow(sh,4) -
5019 180.*(35233. + 7.*Lshb)*pow(sh,5) +
5020 2.*(5.286917e6 + 2520.*Lshb)*pow(sh,6) -
5021 56.*(189131. + 135.*Lshb)*pow(sh,7) +
5022 24.*(265547. + 210.*Lshb)*pow(sh,8) -
5023 7.*(304727. + 180.*Lshb)*pow(sh,9) +
5024 305864.*pow(sh,10)) -
5025 0.00017237819772783502*pow(-1. + sh,-6)*pow(sh,-8)*
5026 (-486. + 108.*sh + 8742.*pow(sh,2) -
5027 1.6340578e7*pow(sh,3) + 9.7955934e7*pow(sh,4) -
5028 2.44785504e8*pow(sh,5) +
5029 12600.*PI2*pow(-1. + sh,3)*
5030 pow(sh,5) + 3.26063492e8*pow(sh,6) -
5031 2.44009482e8*pow(sh,7) + 9.7070643e7*pow(sh,8) -
5032 1.5960394e7*pow(sh,9) + 92700.*pow(sh,10) -
5033 88650.*pow(sh,11) + 4275.*pow(sh,12) +
5034 5400.*pow(sh,13)))*pow(z,5);
5035 }
5036 else {
5037 res += (2736.4139567610805 + 16812.602775356263*(1. - 1.*sh) +
5038 58181.13183757553*pow(1. - 1.*sh,2) +
5039 151135.2971056933*pow(1. - 1.*sh,3) +
5040 329016.24546199996*pow(1. - 1.*sh,4) +
5041 L_mu*(178.72171540421934 +
5042 893.6085770210967*(1. - 1.*sh) +
5043 2680.8257310632903*pow(1. - 1.*sh,2) +
5044 6255.260039147677*pow(1. - 1.*sh,3) +
5045 12510.520078295354*pow(1. - 1.*sh,4)) +
5046 log(z)*(3064.787823810179 +
5047 15358.380282956916*(1. - 1.*sh) +
5048 46110.04743391064*pow(1. - 1.*sh,2) +
5049 107597.09199613279*pow(1. - 1.*sh,3) +
5050 215122.81941840626*pow(1. - 1.*sh,4)))*pow(z,5);
5051 }
5052 }
5053
5054 if(11<=maxpow) {
5055 if(sh<.900001) {
5056 res += 0.;
5057 }
5058 else {
5059 res += 0.;
5060 }
5061 }
5062
5063 if(12<=maxpow) {
5064 if(sh<.900001) {
5065 res += (521.2716699289731*L_mu*pow(sh,-6) +
5066 31.276300195738386*Li2sh*pow(-1. + sh,-3)*pow(sh,-4) +
5067 31.276300195738386*pow(Lsh,2)*pow(-1. + sh,-3)*
5068 pow(sh,-4) - 1.*lz*
5069 (31.276300195738386*Lsh*pow(-1. + sh,-3)*pow(sh,-4) +
5070 0.0020685383727340203*pow(-1. + sh,-2)*pow(sh,-10)*
5071 (60. + 636.*sh + 2976.*pow(sh,2) +
5072 7776.*pow(sh,3) - 4.948624e6*pow(sh,4) +
5073 9.874856e6*pow(sh,5) - 4.959625e6*pow(sh,6) -
5074 4665.*pow(sh,7) + 6585.*pow(sh,8) +
5075 4185.*pow(sh,9) + 720.*pow(sh,10))) -
5076 0.0020685383727340203*Lsh*pow(-1. + sh,-8)*pow(sh,-10)*
5077 (-120. - 552.*sh - 120.*pow(sh,2) + 3480.*pow(sh,3) +
5078 4.96582e6*pow(sh,4) - 3.962954e7*pow(sh,5) +
5079 (1.38486043e8 + 15120.*Lshb)*pow(sh,6) -
5080 5.*(5.5369147e7 + 15120.*Lshb)*pow(sh,7) +
5081 160.*(2.163772e6 + 945.*Lshb)*pow(sh,8) -
5082 160.*(1.733072e6 + 945.*Lshb)*pow(sh,9) +
5083 10.*(1.3891091e7 + 7560.*Lshb)*pow(sh,10) -
5084 2.*(1.9896743e7 + 7560.*Lshb)*pow(sh,11) +
5085 4.99004e6*pow(sh,12)) -
5086 0.000034475639545567*pow(-1. + sh,-7)*pow(sh,-10)*
5087 (1320. - 96.*sh - 30636.*pow(sh,2) -
5088 70896.*pow(sh,3) + 2.79790864e8*pow(sh,4) -
5089 1.954972576e9*pow(sh,5) + 5.859826086e9*pow(sh,6) +
5090 151200.*PI2*pow(-1. + sh,4)*
5091 pow(sh,6) - 9.758058674e9*pow(sh,7) +
5092 9.746085686e9*pow(sh,8) - 5.835456624e9*pow(sh,9) +
5093 1.937908841e9*pow(sh,10) - 2.7490172e8*pow(sh,11) -
5094 545670.*pow(sh,12) + 1.17158e6*pow(sh,13) -
5095 783395.*pow(sh,14) + 77910.*pow(sh,15) +
5096 33600.*pow(sh,16)))*pow(z,6);
5097 }
5098 else {
5099 res += (9385.786258697912 + 66570.34555920382*(1. - 1.*sh) +
5100 263383.6903024927*pow(1. - 1.*sh,2) +
5101 772694.2159831354*pow(1. - 1.*sh,3) +
5102 1.8782424783479243e6*pow(1. - 1.*sh,4) +
5103 L_mu*(521.2716699289731 +
5104 3127.6300195738386*(1. - 1.*sh) +
5105 10946.705068508434*pow(1. - 1.*sh,2) +
5106 29191.213516022493*pow(1. - 1.*sh,3) +
5107 65680.23041105061*pow(1. - 1.*sh,4)) +
5108 log(z)*(10043.374361135488 +
5109 60362.48367588531*(1. - 1.*sh) +
5110 211373.05579784894*pow(1. - 1.*sh,2) +
5111 563598.0400557054*pow(1. - 1.*sh,3) +
5112 1.2674832355395108e6*pow(1. - 1.*sh,4)))*pow(z,6);
5113 }
5114 }
5115
5116 if(13<=maxpow) {
5117 if(sh<.900001) {
5118 res += 0.;
5119 }
5120 else {
5121 res += 0.;
5122 }
5123 }
5124
5125 if(14<=maxpow) {
5126 if(sh<.900001) {
5127 res += (1608.495438637974*L_mu*pow(sh,-7) +
5128 81.9141195602672*Li2sh*pow(-1. + sh,-3)*pow(sh,-5) +
5129 81.9141195602672*pow(Lsh,2)*pow(-1. + sh,-3)*
5130 pow(sh,-5) - 1.*lz*
5131 (81.9141195602672*Lsh*pow(-1. + sh,-3)*pow(sh,-5) +
5132 0.0029550548181914577*pow(-1. + sh,-2)*pow(sh,-12)*
5133 (30. + 380.*sh + 2186.*pow(sh,2) +
5134 7436.*pow(sh,3) + 15906.*pow(sh,4) -
5135 1.1774748e7*pow(sh,5) + 2.3488224e7*pow(sh,6) -
5136 1.1772349e7*pow(sh,7) - 16681.*pow(sh,8) +
5137 9569.*pow(sh,9) + 8694.*pow(sh,10) +
5138 3234.*pow(sh,11) + 399.*pow(sh,12))) -
5139 0.0029550548181914577*Lsh*pow(-1. + sh,-9)*pow(sh,-12)*
5140 (60. + 340.*sh + 312.*pow(sh,2) - 1872.*pow(sh,3) -
5141 4980.*pow(sh,4) - 1.1794584e7*pow(sh,5) +
5142 1.06052526e8*pow(sh,6) -
5143 11.*(3.8516327e7 + 2520.*Lshb)*pow(sh,7) +
5144 6.*(1.64650903e8 + 27720.*Lshb)*pow(sh,8) -
5145 3.*(4.93896521e8 + 138600.*Lshb)*pow(sh,9) +
5146 (1.482302069e9 + 554400.*Lshb)*pow(sh,10) -
5147 3.*(3.29703527e8 + 138600.*Lshb)*pow(sh,11) +
5148 6.*(7.0752587e7 + 27720.*Lshb)*pow(sh,12) -
5149 2.*(5.3167621e7 + 13860.*Lshb)*pow(sh,13) +
5150 1.1839332e7*pow(sh,14)) -
5151 7.035844805217756e-6*pow(-1. + sh,-8)*pow(sh,-12)*
5152 (-3900. - 100.*sh + 116036.*pow(sh,2) +
5153 329570.*pow(sh,3) - 93490.*pow(sh,4) -
5154 4.806231988e9*pow(sh,5) +
5155 3.8385624164e10*pow(sh,6) -
5156 1.34210338702e11*pow(sh,7) +
5157 1.9404e6*PI2*pow(-1. + sh,5)*
5158 pow(sh,7) + 2.6818147667e11*pow(sh,8) -
5159 3.3489192085e11*pow(sh,9) +
5160 2.67551973133e11*pow(sh,10) -
5161 1.33499331779e11*pow(sh,11) +
5162 3.8005781539e10*pow(sh,12) -
5163 4.717142506e9*pow(sh,13) + 8.064665e6*pow(sh,14) -
5164 1.8561445e7*pow(sh,15) + 1.7389365e7*pow(sh,16) -
5165 7.700448e6*pow(sh,17) + 658266.*pow(sh,18) +
5166 264600.*pow(sh,19)))*pow(z,7);
5167 }
5168 else {
5169 res += (32964.04475533845 + 265614.39905471785*(1. - 1.*sh) +
5170 1.1828276243428339e6*pow(1. - 1.*sh,2) +
5171 3.866649964984975e6*pow(1. - 1.*sh,3) +
5172 1.0377006787766315e7*pow(1. - 1.*sh,4) +
5173 L_mu*(1608.495438637974 +
5174 11259.468070465819*(1. - 1.*sh) +
5175 45037.872281863274*pow(1. - 1.*sh,2) +
5176 135113.61684558983*pow(1. - 1.*sh,3) +
5177 337784.0421139746*pow(1. - 1.*sh,4)) +
5178 log(z)*(34149.58569205566 +
5179 239368.34385367524*(1. - 1.*sh) +
5180 957793.7506378699*pow(1. - 1.*sh,2) +
5181 2.872774404811201e6*pow(1. - 1.*sh,3) +
5182 7.177895380884164e6*pow(1. - 1.*sh,4)))*pow(z,7);
5183 }
5184 }
5185
5186 if(15<=maxpow) {
5187 if(sh<.900001) {
5188 res += 0.;
5189 }
5190 else {
5191 res += 0.;
5192 }
5193 }
5194
5195 if(16<=maxpow) {
5196 if(sh<.900001) {
5197 res += (5160.589532296834*L_mu*pow(sh,-8) +
5198 228.18933306074433*Li2sh*pow(-1. + sh,-3)*pow(sh,-6) +
5199 228.18933306074433*pow(Lsh,2)*pow(-1. + sh,-3)*
5200 pow(sh,-6) - 1.*lz*
5201 (228.18933306074433*Lsh*pow(-1. + sh,-3)*pow(sh,-6) +
5202 0.0002110753441565327*pow(-1. + sh,-2)*pow(sh,-14)*
5203 (315. + 4635.*sh + 31515.*pow(sh,2) +
5204 130299.*pow(sh,3) + 359619.*pow(sh,4) +
5205 665379.*pow(sh,5) - 5.74307971e8*pow(sh,6) +
5206 1.145449229e9*pow(sh,7) -
5207 5.73346648e8*pow(sh,8) - 941808.*pow(sh,9) +
5208 284172.*pow(sh,10) + 360612.*pow(sh,11) +
5209 176862.*pow(sh,12) + 48090.*pow(sh,13) +
5210 4620.*pow(sh,14))) -
5211 0.0004221506883130654*Lsh*pow(-1. + sh,-10)*pow(sh,-14)*
5212 (-315. - 2115.*sh - 3255.*pow(sh,2) +
5213 9681.*pow(sh,3) + 37863.*pow(sh,4) +
5214 21231.*pow(sh,5) + 2.8741643e8*pow(sh,6) -
5215 2.87288225e9*pow(sh,7) +
5216 6.*(2.152635949e9 + 90090.*Lshb)*pow(sh,8) -
5217 42.*(8.19483989e8 + 90090.*Lshb)*pow(sh,9) +
5218 84.*(7.16809256e8 + 135135.*Lshb)*pow(sh,10) -
5219 4620.*(1.5639938e7 + 4095.*Lshb)*pow(sh,11) +
5220 1050.*(5.7368567e7 + 18018.*Lshb)*pow(sh,12) -
5221 84.*(4.10079749e8 + 135135.*Lshb)*pow(sh,13) +
5222 84.*(1.53948637e8 + 45045.*Lshb)*pow(sh,14) -
5223 4.*(7.19449781e8 + 135135.*Lshb)*pow(sh,15) +
5224 2.88262142e8*pow(sh,16)) -
5225 2.5128017161491987e-7*pow(-1. + sh,-9)*pow(sh,-14)*
5226 (70875. + 6750.*sh - 2.654475e6*pow(sh,2) -
5227 9.126108e6*pow(sh,3) - 678627.*pow(sh,4) +
5228 4.643019e7*pow(sh,5) + 4.80171685205e11*pow(sh,6) -
5229 4.31617055958e12*pow(sh,7) +
5230 1.7247170032713e13*pow(sh,8) +
5231 1.513512e8*PI2*pow(-1. + sh,6)*
5232 pow(sh,8) - 4.0207542010218e13*pow(sh,9) +
5233 6.0256405965915e13*pow(sh,10) -
5234 6.019185138228e13*pow(sh,11) +
5235 4.0071063595575e13*pow(sh,12) -
5236 1.7137898822466e13*pow(sh,13) +
5237 4.270529322855e12*pow(sh,14) -
5238 4.71606339008e11*pow(sh,15) -
5239 1.14148692e9*pow(sh,16) + 2.22118512e9*pow(sh,17) -
5240 2.487344244e9*pow(sh,18) +
5241 1.56858156e9*pow(sh,19) - 5.01486552e8*pow(sh,20) +
5242 3.056844e7*pow(sh,21) + 1.397088e7*pow(sh,22)))*
5243 pow(z,8);
5244 }
5245 else {
5246 res += (117820.12630257728 + 1.064052936704897e6*(1. - 1.*sh) +
5247 5.267123900507657e6*pow(1. - 1.*sh,2) +
5248 1.8980221399425097e7*pow(1. - 1.*sh,3) +
5249 5.572450251051496e7*pow(1. - 1.*sh,4) +
5250 L_mu*(5160.589532296834 +
5251 41284.71625837467*(1. - 1.*sh) +
5252 185781.22316268602*pow(1. - 1.*sh,2) +
5253 619270.7438756201*pow(1. - 1.*sh,3) +
5254 1.702994545657955e6*pow(1. - 1.*sh,4)) +
5255 log(z)*(119002.39202187635 +
5256 953068.8159722548*(1. - 1.*sh) +
5257 4.289809675723369e6*pow(1. - 1.*sh,2) +
5258 1.4295562598631674e7*pow(1. - 1.*sh,3) +
5259 3.9289141445572205e7*pow(1. - 1.*sh,4)))*pow(z,8);
5260 }
5261 }
5262
5263 if(17<=maxpow) {
5264 if(sh<.900001) {
5265 res += 0.;
5266 }
5267 else {
5268 res += 0.;
5269 }
5270 }
5271
5272 if(18<=maxpow) {
5273 if(sh<.900001) {
5274 res += (17038.136868535577*L_mu*pow(sh,-9) +
5275 665.5522214271709*Li2sh*pow(-1. + sh,-3)*pow(sh,-7) +
5276 665.5522214271709*pow(Lsh,2)*pow(-1. + sh,-3)*
5277 pow(sh,-7) - 1.*lz*
5278 (665.5522214271709*Lsh*pow(-1. + sh,-3)*pow(sh,-7) +
5279 0.0006156364204565536*pow(-1. + sh,-2)*pow(sh,-16)*
5280 (84. + 1407.*sh + 11019.*pow(sh,2) +
5281 53355.*pow(sh,3) + 177339.*pow(sh,4) +
5282 420771.*pow(sh,5) + 695955.*pow(sh,6) -
5283 6.98315357e8*pow(sh,7) +
5284 1.392698929e9*pow(sh,8) -
5285 6.96490484e8*pow(sh,9) - 1.2204e6*pow(sh,10) +
5286 196344.*pow(sh,11) + 374004.*pow(sh,12) +
5287 218268.*pow(sh,13) + 79164.*pow(sh,14) +
5288 17172.*pow(sh,15) + 1350.*pow(sh,16))) -
5289 0.0006156364204565536*Lsh*pow(-1. + sh,-11)*pow(sh,-16)*
5290 (168. + 1302.*sh + 2760.*pow(sh,2) -
5291 4440.*pow(sh,3) - 27552.*pow(sh,4) -
5292 26796.*pow(sh,5) + 59136.*pow(sh,6) -
5293 6.98823656e8*pow(sh,7) + 7.683499582e9*pow(sh,8) -
5294 1.*(3.8389427147e10 + 1.08108e6*Lshb)*pow(sh,9) +
5295 36.*(3.197114839e9 + 240240.*Lshb)*pow(sh,10) -
5296 7920.*(2.9052853e7 + 3822.*Lshb)*pow(sh,11) +
5297 2520.*(1.27812301e8 + 24024.*Lshb)*pow(sh,12) -
5298 84.*(3.834736693e9 + 900900.*Lshb)*pow(sh,13) +
5299 240.*(9.59022487e8 + 252252.*Lshb)*pow(sh,14) -
5300 24.*(4.798056467e9 + 1.26126e6*Lshb)*pow(sh,15) +
5301 208.*(1.84702757e8 + 41580.*Lshb)*pow(sh,16) -
5302 1.*(7.692281497e9 + 1.08108e6*Lshb)*pow(sh,17) +
5303 7.0015448e8*pow(sh,18)) -
5304 4.886003336956775e-7*pow(-1. + sh,-10)*pow(sh,-16)*
5305 (-24990. - 3675.*sh + 1.155555e6*pow(sh,2) +
5306 4.697175e6*pow(sh,3) + 2.300739e6*pow(sh,4) -
5307 2.4304707e7*pow(sh,5) - 4.9414911e7*pow(sh,6) -
5308 8.93125212787e11*pow(sh,7) +
5309 8.923013880433e12*pow(sh,8) -
5310 4.0116829560699e13*pow(sh,9) +
5311 2.270268e8*PI2*pow(-1. + sh,7)*
5312 pow(sh,9) + 1.06887699006279e14*pow(sh,10) -
5313 1.86895650533025e14*pow(sh,11) +
5314 2.24067349455873e14*pow(sh,12) -
5315 1.86515351192835e14*pow(sh,13) +
5316 1.06425772402197e14*pow(sh,14) -
5317 3.9828263213811e13*pow(sh,15) +
5318 8.822814467806e12*pow(sh,16) -
5319 8.77298288866e11*pow(sh,17) +
5320 1.45210023e9*pow(sh,18) -
5321 4.602427326e9*pow(sh,19) +
5322 6.429483144e9*pow(sh,20) -
5323 5.36052951e9*pow(sh,21) + 2.64447351e9*pow(sh,22) -
5324 6.66882918e8*pow(sh,23) + 2.7794799e7*pow(sh,24) +
5325 1.513512e7*pow(sh,25)))*pow(z,9);
5326 }
5327 else {
5328 res += (426695.7585784732 + 4.271204351874848e6*(1. - 1.*sh) +
5329 2.32655866080789e7*pow(1. - 1.*sh,2) +
5330 9.160929759130552e7*pow(1. - 1.*sh,3) +
5331 2.9201125110288244e8*pow(1. - 1.*sh,4) +
5332 L_mu*(17038.136868535577 +
5333 153343.2318168202*(1. - 1.*sh) +
5334 766716.159084101*pow(1. - 1.*sh,2) +
5335 2.8112925833083703e6*pow(1. - 1.*sh,3) +
5336 8.43387774992511e6*pow(1. - 1.*sh,4)) +
5337 log(z)*(422113.76138518966 +
5338 3.8025545371882077e6*(1. - 1.*sh) +
5339 1.9015929172070913e7*pow(1. - 1.*sh,2) +
5340 6.970448898501809e7*pow(1. - 1.*sh,3) +
5341 2.0898441977024493e8*pow(1. - 1.*sh,4)))*pow(z,9);
5342 }
5343 }
5344
5345 if(19<=maxpow) {
5346 if(sh<.900001) {
5347 res += 0.;
5348 }
5349 else {
5350 res += 0.;
5351 }
5352 }
5353
5354 if(20<=maxpow) {
5355 if(sh<.900001) {
5356 res += (57503.711931307575*L_mu*pow(sh,-10) +
5357 2011.4467136465612*Li2sh*pow(-1. + sh,-3)*pow(sh,-8) +
5358 2011.4467136465612*pow(Lsh,2)*pow(-1. + sh,-3)*
5359 pow(sh,-8) - 1.*lz*
5360 (2011.4467136465612*Lsh*pow(-1. + sh,-3)*pow(sh,-8) +
5361 0.00008208485606087382*pow(-1. + sh,-2)*pow(sh,-18)*
5362 (504. + 9464.*sh + 83804.*pow(sh,2) +
5363 463964.*pow(sh,3) + 1.792004e6*pow(sh,4) +
5364 5.082116e6*pow(sh,5) + 1.0736996e7*pow(sh,6) +
5365 1.6220516e7*pow(sh,7) -
5366 1.8827468068e10*pow(sh,8) +
5367 3.7548741164e10*pow(sh,9) -
5368 1.8766552383e10*pow(sh,10) -
5369 3.3805539e7*pow(sh,11) + 2.425761e6*pow(sh,12) +
5370 8.640081e6*pow(sh,13) + 5.776731e6*pow(sh,14) +
5371 2.476035e6*pow(sh,15) + 730935.*pow(sh,16) +
5372 132615.*pow(sh,17) + 8820.*pow(sh,18))) +
5373 0.00008208485606087382*Lsh*pow(-1. + sh,-12)*
5374 pow(sh,-18)*(1008. + 8848.*sh + 23688.*pow(sh,2) -
5375 17352.*pow(sh,3) - 212592.*pow(sh,4) -
5376 311184.*pow(sh,5) + 400176.*pow(sh,6) +
5377 1.492176e6*pow(sh,7) - 1.8840602088e10*pow(sh,8) +
5378 2.25961747704e11*pow(sh,9) -
5379 3.*(4.14012625571e11 + 8.16816e6*Lshb)*pow(sh,10) +
5380 117.*(3.5366173433e10 + 1.88496e6*Lshb)*
5381 pow(sh,11) - 36.*
5382 (2.58507743869e11 + 2.450448e7*Lshb)*pow(sh,12) +
5383 1848.*(8.055409123e9 + 1.11384e6*Lshb)*pow(sh,13) -
5384 5040.*(3.445710547e9 + 612612.*Lshb)*pow(sh,14) +
5385 504.*(2.9538397129e10 + 6.12612e6*Lshb)*
5386 pow(sh,15) - 2688.*(3.462637184e9 + 765765.*Lshb)*
5387 pow(sh,16) + 1224.*(3.381399457e9 + 720720.*Lshb)*
5388 pow(sh,17) - 18.*
5389 (6.9029521727e10 + 1.225224e7*Lshb)*pow(sh,18) +
5390 (2.26114032686e11 + 2.450448e7*Lshb)*pow(sh,19) -
5391 1.8862020144e10*pow(sh,20)) -
5392 3.257335557971183e-8*pow(-1. + sh,-11)*pow(sh,-18)*
5393 (268128. + 50176.*sh - 1.5037316e7*pow(sh,2) -
5394 7.0758368e7*pow(sh,3) - 6.454424e7*pow(sh,4) +
5395 3.47363296e8*pow(sh,5) + 9.86787592e8*pow(sh,6) +
5396 3.5646688e7*pow(sh,7) +
5397 4.8969050829328e13*pow(sh,8) -
5398 5.38246850652224e14*pow(sh,9) +
5399 2.689062929610038e15*pow(sh,10) +
5400 1.02918816e10*PI2*
5401 pow(-1. + sh,8)*pow(sh,10) -
5402 8.060902410374074e15*pow(sh,11) +
5403 1.6109269666327124e16*pow(sh,12) -
5404 2.2534391970484576e16*pow(sh,13) +
5405 2.2513346650300896e16*pow(sh,14) -
5406 1.6062787755766024e16*pow(sh,15) +
5407 8.019705052502612e15*pow(sh,16) -
5408 2.667905230770352e15*pow(sh,17) +
5409 5.32021578063623e14*pow(sh,18) -
5410 4.8123135181584e13*pow(sh,19) -
5411 9.5864935068e10*pow(sh,20) +
5412 2.69818915464e11*pow(sh,21) -
5413 4.54966309854e11*pow(sh,22) +
5414 4.78236408048e11*pow(sh,23) -
5415 3.2126306742e11*pow(sh,24) +
5416 1.3173020316e11*pow(sh,25) -
5417 2.7741591765e10*pow(sh,26) +
5418 8.0713269e8*pow(sh,27) + 5.189184e8*pow(sh,28)))*
5419 pow(z,10);
5420 }
5421 else {
5422 res += (1.5612166947024823e6 + 1.7161599197470605e7*(1. - 1.*sh) +
5423 1.0201302929387844e8*pow(1. - 1.*sh,2) +
5424 4.357191898792429e8*pow(1. - 1.*sh,3) +
5425 1.4983564371913476e9*pow(1. - 1.*sh,4) +
5426 L_mu*(57503.711931307575 +
5427 575037.1193130758*(1. - 1.*sh) +
5428 3.1627041562219164e6*pow(1. - 1.*sh,2) +
5429 1.2650816624887666e7*pow(1. - 1.*sh,3) +
5430 4.1115154030884914e7*pow(1. - 1.*sh,4)) +
5431 log(z)*(1.517643412993728e6 +
5432 1.5188579863273544e7*(1. - 1.*sh) +
5433 8.354722944715922e7*pow(1. - 1.*sh,2) +
5434 3.340855718739629e8*pow(1. - 1.*sh,3) +
5435 1.0851066958008096e9*pow(1. - 1.*sh,4)))*pow(z,10);
5436 }
5437 }
5438
5439 }
5440 return res;
5441}
5442
5443
5444double delta_f_19_re(double sh, double L_mu, double z, size_t maxpow) {
5445 double lz = log(z);
5446
5447 double Lsh = log(sh);
5448 // double Lshb = log(1.-sh);
5449
5450
5451 double res=0;
5452
5453 if(sh<0.4) {
5454 res = 0.09029982363315697*(0.6666666666666666 + L_mu - 0.5*lz)*
5455 (105. + pow(sh,3)*pow(z,-3) + 4.5*pow(sh,2)*pow(z,-2) +
5456 21.*sh*pow(z,-1));
5457 }
5458 else{
5459 res += 0.;
5460
5461 if(1<=maxpow) {
5462 res += 0.;
5463 }
5464
5465 if(2<=maxpow) {
5466 res += (-37.925925925925924*pow(sh,-1) -
5467 56.888888888888886*L_mu*pow(sh,-1) +
5468 28.444444444444443*lz*pow(sh,-1))*pow(z,1);
5469 }
5470
5471 if(3<=maxpow) {
5472 res += 0.;
5473 }
5474
5475 if(4<=maxpow) {
5476 res += (-75.85185185185185*Lsh*pow(sh,-2) -
5477 113.77777777777777*L_mu*Lsh*pow(sh,-2) -
5478 56.888888888888886*pow(lz,2)*pow(sh,-2) -
5479 1.*lz*(-75.85185185185185*pow(sh,-2) -
5480 113.77777777777777*L_mu*pow(sh,-2) -
5481 56.888888888888886*Lsh*pow(sh,-2)))*pow(z,2);
5482 }
5483
5484 if(5<=maxpow) {
5485 res += 0.;
5486 }
5487
5488 if(6<=maxpow) {
5489 res += (151.7037037037037*pow(sh,-3) -
5490 151.7037037037037*Lsh*pow(sh,-3) -
5491 113.77777777777777*pow(lz,2)*pow(sh,-3) -
5492 1.*lz*(-37.925925925925924*pow(sh,-3) -
5493 227.55555555555554*L_mu*pow(sh,-3) -
5494 113.77777777777777*Lsh*pow(sh,-3)) -
5495 1.*L_mu*(-227.55555555555554*pow(sh,-3) +
5496 227.55555555555554*Lsh*pow(sh,-3)))*pow(z,3);
5497 }
5498
5499 if(7<=maxpow) {
5500 res += 0.;
5501 }
5502
5503 if(8<=maxpow) {
5504 res += (530.9629629629629*pow(sh,-4) -
5505 455.1111111111111*Lsh*pow(sh,-4) -
5506 341.3333333333333*pow(lz,2)*pow(sh,-4) -
5507 1.*lz*(-56.888888888888886*pow(sh,-4) -
5508 682.6666666666666*L_mu*pow(sh,-4) -
5509 341.3333333333333*Lsh*pow(sh,-4)) -
5510 1.*L_mu*(-796.4444444444445*pow(sh,-4) +
5511 682.6666666666666*Lsh*pow(sh,-4)))*pow(z,4);
5512 }
5513
5514 if(9<=maxpow) {
5515 res += 0.;
5516 }
5517
5518 if(10<=maxpow) {
5519 res += (1871.0123456790122*pow(sh,-5) -
5520 1517.037037037037*Lsh*pow(sh,-5) -
5521 1137.7777777777778*pow(lz,2)*pow(sh,-5) -
5522 1.*lz*(-113.77777777777777*pow(sh,-5) -
5523 2275.5555555555557*L_mu*pow(sh,-5) -
5524 1137.7777777777778*Lsh*pow(sh,-5)) -
5525 1.*L_mu*(-2806.5185185185187*pow(sh,-5) +
5526 2275.5555555555557*Lsh*pow(sh,-5)))*pow(z,5);
5527 }
5528
5529 if(11<=maxpow) {
5530 res += 0.;
5531 }
5532
5533 if(12<=maxpow) {
5534 res += (6738.172839506173*pow(sh,-6) -
5535 5309.62962962963*Lsh*pow(sh,-6) -
5536 3982.222222222222*pow(lz,2)*pow(sh,-6) -
5537 1.*lz*(-256.*pow(sh,-6) -
5538 7964.444444444444*L_mu*pow(sh,-6) -
5539 3982.222222222222*Lsh*pow(sh,-6)) -
5540 1.*L_mu*(-10107.25925925926*pow(sh,-6) +
5541 7964.444444444444*Lsh*pow(sh,-6)))*pow(z,6);
5542 }
5543
5544 if(13<=maxpow) {
5545 res += 0.;
5546 }
5547
5548 if(14<=maxpow) {
5549 res += (24682.192592592593*pow(sh,-7) -
5550 19114.666666666668*Lsh*pow(sh,-7) -
5551 14336.*pow(lz,2)*pow(sh,-7) -
5552 1.*lz*(-603.0222222222222*pow(sh,-7) -
5553 28672.*L_mu*pow(sh,-7) - 14336.*Lsh*pow(sh,-7)) -
5554 1.*L_mu*(-37023.28888888889*pow(sh,-7) +
5555 28672.*Lsh*pow(sh,-7)))*pow(z,7);
5556 }
5557
5558 if(15<=maxpow) {
5559 res += 0.;
5560 }
5561
5562 if(16<=maxpow) {
5563 res += (91563.2987654321*pow(sh,-8) -
5564 70087.11111111111*Lsh*pow(sh,-8) -
5565 52565.333333333336*pow(lz,2)*pow(sh,-8) -
5566 1.*lz*(-1414.637037037037*pow(sh,-8) -
5567 105130.66666666667*L_mu*pow(sh,-8) -
5568 52565.333333333336*Lsh*pow(sh,-8)) -
5569 1.*L_mu*(-137344.94814814813*pow(sh,-8) +
5570 105130.66666666667*Lsh*pow(sh,-8)))*pow(z,8);
5571 }
5572
5573 if(17<=maxpow) {
5574 res += 0.;
5575 }
5576
5577 if(18<=maxpow) {
5578 res += (342952.95097001764*pow(sh,-9) -
5579 260323.55555555556*Lsh*pow(sh,-9) -
5580 195242.66666666666*pow(lz,2)*pow(sh,-9) -
5581 1.*lz*(-3108.842328042328*pow(sh,-9) -
5582 390485.3333333333*L_mu*pow(sh,-9) -
5583 195242.66666666666*Lsh*pow(sh,-9)) -
5584 1.*L_mu*(-514429.42645502643*pow(sh,-9) +
5585 390485.3333333333*Lsh*pow(sh,-9)))*pow(z,9);
5586 }
5587
5588 if(19<=maxpow) {
5589 res += 0.;
5590 }
5591
5592 if(20<=maxpow) {
5593 res += (1.2942086772486772e6*pow(sh,-10) -
5594 976213.3333333334*Lsh*pow(sh,-10) -
5595 732160.*pow(lz,2)*pow(sh,-10) -
5596 1.*lz*(-5556.825396825397*pow(sh,-10) -
5597 1.46432e6*L_mu*pow(sh,-10) - 732160.*Lsh*pow(sh,-10))
5598 - 1.*L_mu*(-1.9413130158730159e6*pow(sh,-10) +
5599 1.46432e6*Lsh*pow(sh,-10)))*pow(z,10);
5600 }
5601
5602 }
5603 return res;
5604}
5605
5606
5607double delta_f_19_im(double sh, double L_mu, double z, size_t maxpow) {
5608 double lz = log(z);
5609
5610 // double Lsh = log(sh);
5611 // double Lshb = log(1.-sh);
5612
5613
5614 double res=0;
5615
5616 if(sh<0.4) {
5617 res = 0.;
5618 }
5619 else{
5620 res += 0.;
5621
5622 if(1<=maxpow){
5623 res += 0.;
5624 }
5625
5626 if(2<=maxpow) {
5627 res += 0.;
5628 }
5629
5630 if(3<=maxpow) {
5631 res += 0.;
5632 }
5633
5634 if(4<=maxpow) {
5635 res += (238.2956205389591*pow(sh,-2) +
5636 357.4434308084387*L_mu*pow(sh,-2) -
5637 178.72171540421934*lz*pow(sh,-2))*pow(z,2);
5638 }
5639
5640 if(5<=maxpow) {
5641 res += 0.;
5642 }
5643
5644 if(6<=maxpow) {
5645 res += (476.5912410779182*pow(sh,-3) +
5646 714.8868616168774*L_mu*pow(sh,-3) -
5647 357.4434308084387*lz*pow(sh,-3))*pow(z,3);
5648 }
5649
5650 if(7<=maxpow) {
5651 res += 0.;
5652 }
5653
5654 if(8<=maxpow) {
5655 res += (1429.7737232337547*pow(sh,-4) +
5656 2144.660584850632*L_mu*pow(sh,-4) -
5657 1072.330292425316*lz*pow(sh,-4))*pow(z,4);
5658 }
5659
5660 if(9<=maxpow) {
5661 res += 0.;
5662 }
5663
5664 if(10<=maxpow) {
5665 res += (4765.912410779182*pow(sh,-5) +
5666 7148.868616168774*L_mu*pow(sh,-5) -
5667 3574.434308084387*lz*pow(sh,-5))*pow(z,5);
5668 }
5669
5670 if(11<=maxpow) {
5671 res += 0.;
5672 }
5673
5674 if(12<=maxpow) {
5675 res += (16680.69343772714*pow(sh,-6) +
5676 25021.04015659071*L_mu*pow(sh,-6) -
5677 12510.520078295354*lz*pow(sh,-6))*pow(z,6);
5678 }
5679
5680 if(13<=maxpow) {
5681 res += 0.;
5682 }
5683
5684 if(14<=maxpow) {
5685 res += (60050.496375817704*pow(sh,-7) +
5686 90075.74456372655*L_mu*pow(sh,-7) -
5687 45037.872281863274*lz*pow(sh,-7))*pow(z,7);
5688 }
5689
5690 if(15<=maxpow) {
5691 res += 0.;
5692 }
5693
5694 if(16<=maxpow) {
5695 res += (220185.1533779982*pow(sh,-8) +
5696 330277.73006699735*L_mu*pow(sh,-8) -
5697 165138.86503349867*lz*pow(sh,-8))*pow(z,8);
5698 }
5699
5700 if(17<=maxpow) {
5701 res += 0.;
5702 }
5703
5704 if(18<=maxpow) {
5705 res += (817830.5696897077*pow(sh,-9) +
5706 1.2267458545345615e6*L_mu*pow(sh,-9) -
5707 613372.9272672808*lz*pow(sh,-9))*pow(z,9);
5708 }
5709
5710 if(19<=maxpow) {
5711 res += 0.;
5712 }
5713
5714 if(20<=maxpow) {
5715 res += (3.066864636336404e6*pow(sh,-10) +
5716 4.600296954504606e6*L_mu*pow(sh,-10) -
5717 2.300148477252303e6*lz*pow(sh,-10))*pow(z,10);
5718 }
5719
5720 }
5721 return res;
5722}
5723
5724double f_27_re(double sh, double L_mu, double z, size_t maxpow) {
5725 double lz = log(z);
5726
5727 double Lsh = log(sh);
5728 double Lshb = log(1.-sh);
5729 double Li2sh = real(CLi2(sh));
5730 double Li3sh = real(CLi3(sh));
5731 double Li3shb = real(CLi3(1.-sh));
5732 double Li4sh = real(CLi4(sh));
5733 double sqrtsh = sqrt(sh);
5734 double sqrt4sh = sqrt(4.-sh);
5735 double ash = asin(sqrtsh/2.);
5736 double cl2 = Cl2(2.*ash);
5737 double cl3 = Cl3(2.*ash);
5738
5739
5740 double res=0;
5741
5742 if(sh<0.4) {
5743 res = 6.85597 + 5.135802469135802*L_mu + 12.4502*sh +
5744 0.0987654*Lsh*sh + 1.333335*lz*sh + 13.2214*z +
5745 15.6523*lz*z + 155.555*sh*z - 6.22222*Lsh*sh*z +
5746 10.20305*lz*sh*z - 1.77778*Lsh*lz*sh*z -
5747 0.88889*z*pow(lz,2) + 6.73755*sh*z*pow(lz,2) -
5748 0.29629625*z*pow(lz,3) - 0.29629625*sh*z*pow(lz,3) +
5749 0.148148125*sh*z*pow(lz,4) + 116.815*pow(sh,2) +
5750 0.0987654*Lsh*pow(sh,2) + 35.03385*lz*pow(sh,2) +
5751 542.972*z*pow(sh,2) - 14.2222*Lsh*z*pow(sh,2) -
5752 44.79855*lz*z*pow(sh,2) - 3.555555*Lsh*lz*z*pow(sh,2) +
5753 4.44445*pow(lz,2)*pow(sh,2) +
5754 36.657*z*pow(lz,2)*pow(sh,2) +
5755 0.29629625*pow(lz,3)*pow(sh,2) -
5756 0.88888875*z*pow(lz,3)*pow(sh,2) +
5757 0.444444375*z*pow(lz,4)*pow(sh,2) + 251.971*pow(sh,3) +
5758 0.0987654*Lsh*pow(sh,3) + 90.6275*lz*pow(sh,3) +
5759 1136.13*z*pow(sh,3) - 23.1111*Lsh*z*pow(sh,3) -
5760 127.97*lz*z*pow(sh,3) - 5.33335*Lsh*lz*z*pow(sh,3) +
5761 9.333325*pow(lz,2)*pow(sh,3) +
5762 86.6475*z*pow(lz,2)*pow(sh,3) +
5763 0.88888875*pow(lz,3)*pow(sh,3) -
5764 2.074075*z*pow(lz,3)*pow(sh,3) +
5765 0.8888875*z*pow(lz,4)*pow(sh,3) +
5766 0.000646678*pow(sh,3)*pow(z,-2) -
5767 0.0333333*pow(sh,2)*pow(z,-1) -
5768 5.68087*pow(sh,3)*pow(z,-1) -
5769 1.466665*lz*pow(sh,3)*pow(z,-1) -
5770 0.14814825*pow(lz,2)*pow(sh,3)*pow(z,-1) +
5771 pow(sh,3)*(23.3946*pow(z,-0.5) - 959.179*pow(z,0.5)) -
5772 70.1839*sh*pow(z,0.5) - 421.103*pow(sh,2)*pow(z,0.5) -
5773 11.6973*pow(z,1.5) - 11.182*pow(z,2) +
5774 13.9904*lz*pow(z,2) - 68.5374*sh*pow(z,2) +
5775 27.9808*Lsh*sh*pow(z,2) + 102.242*lz*sh*pow(z,2) -
5776 15.55555*sh*pow(lz,2)*pow(z,2) -
5777 3.55555*Lsh*sh*pow(lz,2)*pow(z,2) -
5778 0.29629625*pow(lz,3)*pow(z,2) -
5779 1.777775*sh*pow(lz,3)*pow(z,2) -
5780 143.29*pow(sh,2)*pow(z,2) +
5781 83.9424*Lsh*pow(sh,2)*pow(z,2) +
5782 248.3745*lz*pow(sh,2)*pow(z,2) -
5783 7.1111*Lsh*lz*pow(sh,2)*pow(z,2) -
5784 48.4445*pow(lz,2)*pow(sh,2)*pow(z,2) -
5785 10.666675*Lsh*pow(lz,2)*pow(sh,2)*pow(z,2) -
5786 4.44445*pow(lz,3)*pow(sh,2)*pow(z,2) -
5787 271.07*pow(sh,3)*pow(z,2) +
5788 164.329*Lsh*pow(sh,3)*pow(z,2) +
5789 435.5445*lz*pow(sh,3)*pow(z,2) -
5790 24.8889*Lsh*lz*pow(sh,3)*pow(z,2) -
5791 106.37025*pow(lz,2)*pow(sh,3)*pow(z,2) -
5792 21.333325*Lsh*pow(lz,2)*pow(sh,3)*pow(z,2) -
5793 8.2963*pow(lz,3)*pow(sh,3)*pow(z,2) + 7.26787*pow(z,3) -
5794 8.98765*lz*pow(z,3) - 70.5057*sh*pow(z,3) -
5795 40.4253*Lsh*sh*pow(z,3) - 56.869*lz*sh*pow(z,3) -
5796 3.555555*Lsh*lz*sh*pow(z,3) +
5797 6.222225*pow(lz,2)*pow(z,3) +
5798 21.925925*sh*pow(lz,2)*pow(z,3) +
5799 3.55555*Lsh*sh*pow(lz,2)*pow(z,3) -
5800 228.849*pow(sh,2)*pow(z,3) -
5801 165.257*Lsh*pow(sh,2)*pow(z,3) -
5802 115.931*lz*pow(sh,2)*pow(z,3) -
5803 7.1111*Lsh*lz*pow(sh,2)*pow(z,3) +
5804 62.37025*pow(lz,2)*pow(sh,2)*pow(z,3) +
5805 14.222225*Lsh*pow(lz,2)*pow(sh,2)*pow(z,3) -
5806 464.161*pow(sh,3)*pow(z,3) -
5807 416.697*Lsh*pow(sh,3)*pow(z,3) -
5808 175.3475*lz*pow(sh,3)*pow(z,3) -
5809 3.555555*Lsh*lz*pow(sh,3)*pow(z,3) +
5810 144.14825*pow(lz,2)*pow(sh,3)*pow(z,3) +
5811 35.5555*Lsh*pow(lz,2)*pow(sh,3)*pow(z,3);
5812 }
5813 else{
5814 if(sh<.900001) {
5815 res += (5.135802469135802*L_mu +
5816 1.7777777777777777*sh*pow(ash,2)*pow(-1. + sh,-4) -
5817 0.04938271604938271*Lsh*sh*
5818 (-29. + 18.*Lshb*(-1. + sh) + 47.*sh)*pow(-1. + sh,-2)\
5819 - 0.8888888888888888*Li2sh*sh*pow(-1. + sh,-1) +
5820 0.4444444444444444*pow(Lsh,2)*pow(-1. + sh,-3)*
5821 pow(sh,3) + 0.09876543209876543*ash*sqrt4sh*sqrtsh*
5822 pow(-1. + sh,-3)*pow(sh,-1)*
5823 (-4. + 9.*sh - 15.*pow(sh,2) + 4.*pow(sh,3)) +
5824 0.00823045267489712*pow(-1. + sh,-4)*
5825 (pow(-1. + sh,2)*(785. - 1600.*sh + 833.*pow(sh,2)) +
5826 6.*sh*PI2*
5827 (-4. + 9.*sh - 9.*pow(sh,2) + 3.*pow(sh,3))))*
5828 1.;
5829 }
5830 else {
5831 res += (4.505947183821596 + 1.3035683102929574*(1. - 1.*sh) +
5832 5.135802469135802*L_mu +
5833 0.39579451138872057*pow(1. - 1.*sh,2) +
5834 0.18777843689890833*pow(1. - 1.*sh,3) +
5835 0.10631777305882502*pow(1. - 1.*sh,4))*1.;
5836 }
5837
5838
5839 if(1<=maxpow) {
5840 if(sh<.900001) {
5841 res += 0.;
5842 }
5843 else {
5844 res += 0.;
5845 }
5846 }
5847
5848 if(2<=maxpow) {
5849 if(sh<.900001) {
5850 res += (5.333333333333333*ash*(1. + sh)*sqrt4sh*sqrtsh*
5851 pow(-1. + sh,-3) - 0.2962962962962963*sh*pow(Lsh,4)*
5852 pow(-1. + sh,-3) + 1.7777777777777777*Li2sh*
5853 (-1. + 4.*sh)*pow(-1. + sh,-2) -
5854 0.5925925925925926*(-3. + sh)*pow(Lsh,3)*
5855 pow(-1. + sh,-2) - 1.*lz*
5856 (16.*pow(Lsh,2)*pow(9 - 9*sh,-1) +
5857 1.7777777777777777*Lsh*
5858 (2. + 2.*Lshb*(-1. + sh) + sh)*pow(-1. + sh,-2) +
5859 3.5555555555555554*Li2sh*pow(-1. + sh,-1) -
5860 0.5925925925925926*(9. + PI2)*
5861 pow(-1. + sh,-1)) -
5862 1.7777777777777777*Li3sh*pow(-1. + sh,-3)*
5863 (1. + 5.*sh - 4.*pow(sh,2)) +
5864 2.1369900500615007*pow(-1. + sh,-3)*
5865 (-5. + 5.*sh + 2.*pow(sh,2)) -
5866 1.*pow(Lsh,2)*(3.5555555555555554*Li2sh*sh*
5867 pow(-1. + sh,-3) +
5868 0.2962962962962963*pow(-1. + sh,-3)*
5869 (12. + 3.*Lshb*(-5. + 3.*sh) +
5870 sh*(-15. + 2.*PI2) +
5871 6.*pow(sh,2))) -
5872 1.*Lsh*(17.095920400492005*sh*pow(-1. + sh,-3) -
5873 14.222222222222221*Li3sh*sh*pow(-1. + sh,-3) +
5874 1.7777777777777777*Li2sh*pow(-1. + sh,-3)*
5875 (-3. - 1.*sh + 2.*pow(sh,2)) -
5876 0.2962962962962963*pow(-1. + sh,-3)*
5877 (12. + 21.*sh +
5878 (-5. + 3.*sh)*PI2 -
5879 33.*pow(sh,2) +
5880 6.*Lshb*(1. - 5.*sh + 4.*pow(sh,2)))) +
5881 10.666666666666666*pow(ash,2)*pow(-1. + sh,-4)*
5882 (-1. - 3.*pow(sh,2) + pow(sh,3)) -
5883 0.05925925925925926*pow(-1. + sh,-4)*
5884 (-4.*(-1. + sh)*sh*pow(3.141592653589793,4) -
5885 15.*(-1. + sh)*(10. - 1.*(17. + 24.*Li4sh)*sh +
5886 7.*pow(sh,2)) +
5887 5.*PI2*
5888 (-6. + 16.*sh - 20.*pow(sh,2) + 7.*pow(sh,3))))*
5889 pow(z,1);
5890 }
5891 else {
5892 res += (9.093880269665448 + 0.4118591346297644*(1. - 1.*sh) -
5893 1.1764123627041028*pow(1. - 1.*sh,2) -
5894 1.9623078784430308*pow(1. - 1.*sh,3) +
5895 log(z)*(-2.6666666666666665 -
5896 1.7777777777777777*(1. - 1.*sh) -
5897 1.4320987654320987*pow(1. - 1.*sh,2) -
5898 1.2296296296296296*pow(1. - 1.*sh,3) -
5899 1.0903703703703704*pow(1. - 1.*sh,4)) -
5900 2.3203834816527733*pow(1. - 1.*sh,4))*pow(z,1);
5901 }
5902 }
5903
5904 if(3<=maxpow) {
5905 if(sh<.900001) {
5906 res += -1.1851851851851851*(2. + sh)*PI2*
5907 pow(sh,-1)*pow(z,1.5);
5908 }
5909 else {
5910 res += (-35.09192675942883 - 23.39461783961922*(1. - 1.*sh) -
5911 23.39461783961922*pow(1. - 1.*sh,2) -
5912 23.39461783961922*pow(1. - 1.*sh,3) -
5913 23.39461783961922*pow(1. - 1.*sh,4))*pow(z,1.5);
5914 }
5915 }
5916
5917 if(4<=maxpow) {
5918 if(sh<.900001) {
5919 res += (1.7777777777777777*Li3sh*(5. + 3.*sh)*pow(-1. + sh,-3) -
5920 1.7777777777777777*Li3shb*(1. + 6.*sh)*
5921 pow(-1. + sh,-3) - 0.8888888888888888*pow(Lsh,3)*
5922 pow(-1. + sh,-3) + 5.333333333333333*ash*(-3. + sh)*
5923 sqrt4sh*sqrtsh*pow(-1. + sh,-3)*pow(sh,2) -
5924 2.1369900500615007*pow(-1. + sh,-4)*
5925 (-5. + 8.*sh + 3.*pow(sh,2)) -
5926 1.7777777777777777*Li2sh*pow(-1. + sh,-3)*pow(sh,-1)*
5927 (3. - 10.*sh + 8.*pow(sh,2)) +
5928 5.333333333333333*pow(ash,2)*pow(-1. + sh,-4)*pow(sh,2)*
5929 (2. + 9.*sh - 6.*pow(sh,2) + pow(sh,3)) -
5930 1.7777777777777777*cl2*sqrt4sh*sqrtsh*pow(-1. + sh,-3)*
5931 (-4. - 3.*pow(sh,2) + pow(sh,3)) -
5932 1.*Lsh*(32.*sh*pow(ash,2)*pow(-1. + sh,-4) +
5933 1.7777777777777777*Li2sh*(4. + sh)*
5934 pow(-1. + sh,-3) +
5935 1.7777777777777777*ash*sqrt4sh*sqrtsh*
5936 pow(-1. + sh,-3)*(-4. - 3.*pow(sh,2) + pow(sh,3)) +
5937 0.14814814814814814*pow(-1. + sh,-3)*pow(sh,-2)*
5938 (-18. + (57. + 36.*Lshb)*sh -
5939 6.*(5. + 20.*Lshb + PI2)*
5940 pow(sh,2) + (-93. + 96.*Lshb +
5941 50.*PI2)*pow(sh,3))) +
5942 0.4444444444444444*pow(Lsh,2)*pow(-1. + sh,-4)*
5943 pow(sh,-2)*(-4. + 7.*sh + (5. + 6.*Lshb)*pow(sh,2) -
5944 1.*(25. + 8.*Lshb)*pow(sh,3) +
5945 (11. + 2.*Lshb)*pow(sh,4)) -
5946 1.*pow(lz,2)*(-0.8888888888888888*Lsh*(1. + 6.*sh)*
5947 pow(-1. + sh,-3) +
5948 0.4444444444444444*pow(-1. + sh,-2)*pow(sh,-2)*
5949 (1. - 2.*sh + 8.*pow(sh,2) + 10.*pow(sh,3) -
5950 4.*pow(sh,4) + pow(sh,5))) -
5951 1.*lz*(64.*sh*pow(ash,2)*pow(-1. + sh,-4) +
5952 1.7777777777777777*Li2sh*(1. + 6.*sh)*
5953 pow(-1. + sh,-3) +
5954 0.8888888888888888*pow(Lsh,2)*pow(-1. + sh,-2) +
5955 3.5555555555555554*ash*sqrt4sh*sqrtsh*
5956 pow(-1. + sh,-3)*(-4. - 3.*pow(sh,2) + pow(sh,3)) +
5957 0.8888888888888888*Lsh*pow(-1. + sh,-3)*pow(sh,-2)*
5958 (2. - 3.*sh + 2.*(1. + Lshb)*pow(sh,2) +
5959 3.*(-1. + 4.*Lshb)*pow(sh,3)) -
5960 0.14814814814814814*pow(-1. + sh,-4)*pow(sh,-2)*
5961 (2.*PI2*pow(sh,2)*
5962 (-1. + sh + 6.*pow(sh,2)) +
5963 3.*pow(-1. + sh,2)*
5964 (3. - 8.*sh + 8.*pow(sh,2) + 20.*pow(sh,3) -
5965 14.*pow(sh,4) + 3.*pow(sh,5)))) -
5966 0.07407407407407407*pow(-1. + sh,-4)*pow(sh,-2)*
5967 (-432.*cl3*pow(sh,3) +
5968 3.*pow(-1. + sh,2)*
5969 (7. - 64.*sh + 108.*pow(sh,2) + 64.*pow(sh,3) -
5970 42.*pow(sh,4) + 7.*pow(sh,5)) +
5971 2.*PI2*
5972 (-6. + 45.*sh - 133.*pow(sh,2) + 157.*pow(sh,3) -
5973 59.*pow(sh,4) + 12.*pow(sh,5) - 12.*pow(sh,6) +
5974 2.*pow(sh,7))))*pow(z,2);
5975 }
5976 else {
5977 res += pow(z,2)*(3.8858229319704556 +
5978 5.647852916167452*(1. - 1.*sh) +
5979 5.03115350102676*pow(1. - 1.*sh,2) +
5980 6.6118231676761265*pow(1. - 1.*sh,3) +
5981 log(z)*(-10.515810650303592 -
5982 3.3659736724084177*(1. - 1.*sh) -
5983 7.052871337161167*pow(1. - 1.*sh,2) -
5984 9.929763758132738*pow(1. - 1.*sh,3) -
5985 12.684606769216838*pow(1. - 1.*sh,4)) +
5986 9.708947367679775*pow(1. - 1.*sh,4) +
5987 (-0.5925925925925926 -
5988 0.6666666666666666*(1. - 1.*sh) -
5989 1.4222222222222223*pow(1. - 1.*sh,2) -
5990 1.8074074074074074*pow(1. - 1.*sh,3) -
5991 2.2222222222222223*pow(1. - 1.*sh,4))*pow(log(z),2));
5992 }
5993 }
5994
5995 if(5<=maxpow) {
5996 if(sh<.900001) {
5997 res += -0.1580246913580247*PI2*pow(sh,-3)*
5998 (3. + 14.*sh + 3.*pow(sh,2))*pow(z,2.5);
5999 }
6000 else {
6001 res += (-31.192823786158957 - 62.385647572317914*(1. - 1.*sh) -
6002 98.25739492640072*pow(1. - 1.*sh,2) -
6003 138.80806584840735*pow(1. - 1.*sh,3) -
6004 184.03766033833784*pow(1. - 1.*sh,4))*pow(z,2.5);
6005 }
6006 }
6007
6008 if(6<=maxpow) {
6009 if(sh<.900001) {
6010 res += (-7.111111111111111*Li3shb*sh*pow(-1. + sh,-4) +
6011 3.5555555555555554*Li3sh*pow(-1. + sh,-3)*pow(sh,-1) -
6012 1.1851851851851851*pow(Lsh,3)*pow(-1. + sh,-3)*
6013 pow(sh,-1) + 4.273980100123001*pow(-1. + sh,-4)*
6014 pow(sh,-1)*(1. - 1.*sh + 2.*pow(sh,2)) +
6015 1.7777777777777777*Li2sh*pow(-1. + sh,-4)*pow(sh,-2)*
6016 (4. - 14.*sh + 18.*pow(sh,2) - 11.*pow(sh,3) +
6017 pow(sh,4)) + 1.1851851851851851*cl2*sh*sqrt4sh*
6018 sqrtsh*pow(-1. + sh,-3)*
6019 (-9. - 1.*sh + 9.*pow(sh,2) - 6.*pow(sh,3) +
6020 pow(sh,4)) + 0.3950617283950617*ash*sh*sqrt4sh*
6021 sqrtsh*pow(-1. + sh,-3)*
6022 (27. - 1.*sh + 9.*pow(sh,2) - 6.*pow(sh,3) +
6023 pow(sh,4)) - 3.5555555555555554*sh*pow(ash,2)*
6024 pow(-1. + sh,-4)*(-6. + 27.*sh - 30.*pow(sh,3) +
6025 27.*pow(sh,4) - 9.*pow(sh,5) + pow(sh,6)) -
6026 1.*Lsh*(-21.333333333333332*sh*pow(ash,2)*
6027 pow(-1. + sh,-4) +
6028 3.5555555555555554*Li2sh*pow(-1. + sh,-3)*
6029 pow(sh,-1) - 1.1851851851851851*ash*sh*sqrt4sh*
6030 sqrtsh*pow(-1. + sh,-3)*
6031 (-9. - 1.*sh + 9.*pow(sh,2) - 6.*pow(sh,3) +
6032 pow(sh,4)) - 0.04938271604938271*pow(-1. + sh,-4)*
6033 pow(sh,-4)*(-10. + 10.*sh +
6034 6.*(23. + 24.*Lshb)*pow(sh,2) -
6035 2.*(67. + 252.*Lshb +
6036 30.*PI2)*pow(sh,3) +
6037 (-163. + 648.*Lshb +
6038 60.*PI2)*pow(sh,4) -
6039 12.*(-5. + 33.*Lshb +
6040 6.*PI2)*pow(sh,5) +
6041 9.*(-5. + 4.*Lshb)*pow(sh,6))) -
6042 0.14814814814814814*pow(Lsh,2)*pow(-1. + sh,-5)*
6043 pow(sh,-4)*(-4. - 4.*sh + 47.*pow(sh,2) +
6044 (-47. + 12.*Lshb)*pow(sh,3) -
6045 2.*(13. + 12.*Lshb)*pow(sh,4) +
6046 4.*(19. + 3.*Lshb)*pow(sh,5) - 36.*pow(sh,6) +
6047 6.*pow(sh,7)) - 1.*pow(lz,2)*
6048 (-3.5555555555555554*Lsh*sh*pow(-1. + sh,-4) -
6049 0.14814814814814814*pow(-1. + sh,-3)*pow(sh,-4)*
6050 (1. + 3.*sh - 18.*pow(sh,2) + 25.*pow(sh,3) -
6051 36.*pow(sh,4) + 26.*pow(sh,5) - 27.*pow(sh,6) -
6052 22.*pow(sh,7) + 38.*pow(sh,8) - 16.*pow(sh,9) +
6053 2.*pow(sh,10))) -
6054 1.*lz*(7.111111111111111*Li2sh*sh*pow(-1. + sh,-4) -
6055 42.666666666666664*sh*pow(ash,2)*pow(-1. + sh,-4) -
6056 1.7777777777777777*pow(Lsh,2)*pow(-1. + sh,-3)*
6057 pow(sh,-1) - 2.3703703703703702*ash*sh*sqrt4sh*
6058 sqrtsh*pow(-1. + sh,-3)*
6059 (-9. - 1.*sh + 9.*pow(sh,2) - 6.*pow(sh,3) +
6060 pow(sh,4)) - 0.2962962962962963*Lsh*
6061 pow(-1. + sh,-4)*pow(sh,-4)*
6062 (2. + 4.*sh - 27.*pow(sh,2) + 22.*pow(sh,3) +
6063 14.*pow(sh,4) - 12.*(1. + 2.*Lshb)*pow(sh,5) +
6064 9.*pow(sh,6)) -
6065 0.04938271604938271*pow(-1. + sh,-3)*pow(sh,-4)*
6066 (-5. + 57.*pow(sh,2) - 46.*pow(sh,3) -
6067 85.*pow(sh,4) + 164.*pow(sh,5) - 73.*pow(sh,6) +
6068 102.*pow(sh,7) - 40.*pow(sh,8) - 4.*pow(sh,9) +
6069 2.*pow(sh,10))) +
6070 0.00823045267489712*pow(-1. + sh,-4)*pow(sh,-4)*
6071 (-19. + 46.*sh + 1365.*pow(sh,2) - 4435.*pow(sh,3) +
6072 3757.*pow(sh,4) + (610. - 2592.*cl3)*pow(sh,5) -
6073 3103.*pow(sh,6) + 2113.*pow(sh,7) +
6074 594.*pow(sh,8) - 1548.*pow(sh,9) +
6075 714.*pow(sh,10) - 94.*pow(sh,11) +
6076 6.*PI2*
6077 (6. + 12.*sh - 195.*pow(sh,2) + 442.*pow(sh,3) -
6078 434.*pow(sh,4) + 124.*pow(sh,5) +
6079 137.*pow(sh,6) - 16.*pow(sh,7) -
6080 120.*pow(sh,8) + 108.*pow(sh,9) -
6081 36.*pow(sh,10) + 4.*pow(sh,11))))*pow(z,3);
6082 }
6083 else {
6084 res += pow(z,3)*(-12.335307775922313 +
6085 30.140289422045853*(1. - 1.*sh) +
6086 46.569840149902745*pow(1. - 1.*sh,2) +
6087 80.11596831781813*pow(1. - 1.*sh,3) +
6088 log(z)*(-16.636559572212125 +
6089 1.4762567309815953*(1. - 1.*sh) -
6090 23.052042837781816*pow(1. - 1.*sh,2) -
6091 49.522893482074544*pow(1. - 1.*sh,3) -
6092 78.97537511261919*pow(1. - 1.*sh,4)) +
6093 147.9535188895975*pow(1. - 1.*sh,4) +
6094 (1.3333333333333333 -
6095 0.26666666666666666*(1. - 1.*sh) -
6096 5.807407407407408*pow(1. - 1.*sh,2) -
6097 10.137566137566138*pow(1. - 1.*sh,3) -
6098 16.084656084656086*pow(1. - 1.*sh,4))*pow(log(z),2));
6099 }
6100 }
6101
6102 if(7<=maxpow) {
6103 if(sh<.900001) {
6104 res += -0.013544973544973546*PI2*pow(sh,-5)*
6105 (15. + 108.*sh + 314.*pow(sh,2) + 108.*pow(sh,3) +
6106 15.*pow(sh,4))*pow(z,3.5);
6107 }
6108 else {
6109 res += (-74.8627770867815 - 224.58833126034452*(1. - 1.*sh) -
6110 471.6354956467235*pow(1. - 1.*sh,2) -
6111 838.4631033719528*pow(1. - 1.*sh,3) -
6112 1349.5352405197486*pow(1. - 1.*sh,4))*pow(z,3.5);
6113 }
6114 }
6115
6116 if(8<=maxpow) {
6117 if(sh<.900001) {
6118 res += (-7.123300166871669*pow(-1. + sh,-3)*pow(sh,-2) +
6119 5.925925925925926*Li3sh*pow(-1. + sh,-3)*pow(sh,-2) -
6120 1.9753086419753085*pow(Lsh,3)*pow(-1. + sh,-3)*
6121 pow(sh,-2) - 1.7777777777777777*cl2*sh*sqrt4sh*sqrtsh*
6122 (8. + 6.*sh - 6.*pow(sh,2) + pow(sh,3)) +
6123 0.2962962962962963*Li2sh*pow(-1. + sh,-5)*pow(sh,-3)*
6124 (-50. + 230.*sh - 420.*pow(sh,2) + 380.*pow(sh,3) -
6125 146.*pow(sh,4) + 15.*pow(sh,5)) -
6126 0.2962962962962963*ash*sh*sqrt4sh*sqrtsh*
6127 pow(-1. + sh,-3)*(16. + 72.*sh + 18.*pow(sh,2) -
6128 203.*pow(sh,3) + 189.*pow(sh,4) - 63.*pow(sh,5) +
6129 7.*pow(sh,6)) + 5.333333333333333*pow(ash,2)*
6130 pow(-1. + sh,-4)*pow(sh,2)*
6131 (36. - 60.*sh + 99.*pow(sh,3) - 112.*pow(sh,4) +
6132 54.*pow(sh,5) - 12.*pow(sh,6) + pow(sh,7)) -
6133 1.*Lsh*(5.925925925925926*Li2sh*pow(-1. + sh,-3)*
6134 pow(sh,-2) + 1.7777777777777777*ash*sh*sqrt4sh*
6135 sqrtsh*(8. + 6.*sh - 6.*pow(sh,2) + pow(sh,3)) -
6136 0.00823045267489712*pow(-1. + sh,-5)*pow(sh,-6)*
6137 (21. - 10.*sh - 307.*pow(sh,2) -
6138 1.*(283. + 1800.*Lshb)*pow(sh,3) +
6139 5.*(437. + 1656.*Lshb +
6140 120.*PI2)*pow(sh,4) -
6141 2.*(1081. + 7560.*Lshb +
6142 600.*PI2)*pow(sh,5) +
6143 (253. + 13680.*Lshb +
6144 600.*PI2)*pow(sh,6) +
6145 (861. - 5256.*Lshb)*pow(sh,7) +
6146 6.*(49. + 90.*Lshb)*pow(sh,8) - 78.*pow(sh,9)))\
6147 - 0.04938271604938271*pow(Lsh,2)*pow(-1. + sh,-6)*
6148 pow(sh,-6)*(6. + 14.*sh - 30.*pow(sh,2) -
6149 255.*pow(sh,3) + 729.*pow(sh,4) +
6150 60.*Lshb*pow(-1. + sh,3)*pow(sh,4) -
6151 585.*pow(sh,5) - 165.*pow(sh,6) + 541.*pow(sh,7) -
6152 270.*pow(sh,8) + 45.*pow(sh,9)) -
6153 0.024691358024691357*pow(lz,2)*pow(sh,-6)*
6154 (3. + 25.*sh + 90.*pow(sh,2) - 60.*pow(sh,3) +
6155 5.*pow(sh,4) - 3.*pow(sh,5) - 144.*pow(sh,6) -
6156 252.*pow(sh,7) + 72.*pow(sh,8) + 288.*pow(sh,9) -
6157 144.*pow(sh,10) + 18.*pow(sh,11)) -
6158 1.*lz*(-2.962962962962963*pow(Lsh,2)*pow(-1. + sh,-3)*
6159 pow(sh,-2) + 3.5555555555555554*ash*sh*sqrt4sh*
6160 sqrtsh*(8. + 6.*sh - 6.*pow(sh,2) + pow(sh,3)) -
6161 0.09876543209876543*Lsh*pow(-1. + sh,-5)*pow(sh,-6)*
6162 (-3. - 10.*sh + 5.*pow(sh,2) + 185.*pow(sh,3) -
6163 425.*pow(sh,4) + 343.*pow(sh,5) -
6164 125.*pow(sh,6) + 3.*pow(sh,7) - 15.*pow(sh,8) +
6165 15.*pow(sh,9)) -
6166 0.0008230452674897119*pow(-1. + sh,-4)*pow(sh,-6)*
6167 (105. + 55.*sh - 1480.*pow(sh,2) + 90.*pow(sh,3) +
6168 10470.*pow(sh,4) - 25782.*pow(sh,5) +
6169 43242.*pow(sh,6) - 52678.*pow(sh,7) +
6170 52987.*pow(sh,8) - 14283.*pow(sh,9) -
6171 23976.*pow(sh,10) + 3240.*pow(sh,11) +
6172 28080.*pow(sh,12) - 22680.*pow(sh,13) +
6173 6480.*pow(sh,14) - 630.*pow(sh,15))) -
6174 0.000013717421124828532*pow(-1. + sh,-5)*pow(sh,-6)*
6175 (-2775. + 5550.*sh + 34425.*pow(sh,2) +
6176 1.48905e6*pow(sh,3) - 7.4002e6*pow(sh,4) +
6177 1.4083748e7*pow(sh,5) - 1.4200216e7*pow(sh,6) +
6178 9.34426e6*pow(sh,7) - 5.568515e6*pow(sh,8) +
6179 141850.*pow(sh,9) + 4.948647e6*pow(sh,10) -
6180 27324.*pow(sh,11) - 8.9613e6*pow(sh,12) +
6181 9.8388e6*pow(sh,13) - 4.6764e6*pow(sh,14) +
6182 1.03725e6*pow(sh,15) - 86850.*pow(sh,16) +
6183 1200.*PI2*
6184 (9. + 30.*sh - 15.*pow(sh,2) - 1245.*pow(sh,3) +
6185 4325.*pow(sh,4) - 6463.*pow(sh,5) +
6186 5357.*pow(sh,6) - 2657.*pow(sh,7) +
6187 295.*pow(sh,8) + 1405.*pow(sh,9) -
6188 1014.*pow(sh,10) - 1782.*pow(sh,11) +
6189 3798.*pow(sh,12) - 2988.*pow(sh,13) +
6190 1188.*pow(sh,14) - 234.*pow(sh,15) +
6191 18.*pow(sh,16))))*pow(z,4);
6192 }
6193 else {
6194 res += pow(z,4)*(-24.99645604544183 +
6195 176.89749924459056*(1. - 1.*sh) +
6196 310.586379087356*pow(1. - 1.*sh,2) +
6197 603.5051355323303*pow(1. - 1.*sh,3) +
6198 log(z)*(-36.21914373721251 +
6199 37.13272398412609*(1. - 1.*sh) -
6200 85.48808015010837*pow(1. - 1.*sh,2) -
6201 255.76022141568095*pow(1. - 1.*sh,3) -
6202 462.83148077351*pow(1. - 1.*sh,4)) +
6203 1307.9886664553635*pow(1. - 1.*sh,4) +
6204 (2.5185185185185186 -
6205 1.4814814814814814*(1. - 1.*sh) -
6206 30.666666666666668*pow(1. - 1.*sh,2) -
6207 58.46913580246913*pow(1. - 1.*sh,3) -
6208 107.30864197530865*pow(1. - 1.*sh,4))*pow(log(z),2));
6209 }
6210 }
6211
6212 if(9<=maxpow) {
6213 if(sh<.900001) {
6214 res += -0.0032249937011841773*PI2*pow(sh,-7)*
6215 (35. + 330.*sh + 1389.*pow(sh,2) + 3212.*pow(sh,3) +
6216 1389.*pow(sh,4) + 330.*pow(sh,5) + 35.*pow(sh,6))*
6217 pow(z,4.5);
6218 }
6219 else {
6220 res += (-213.8936488193757 - 855.5745952775028*(1. - 1.*sh) -
6221 2235.1886301624763*pow(1. - 1.*sh,2) -
6222 4759.133686231109*pow(1. - 1.*sh,3) -
6223 8947.24772070335*pow(1. - 1.*sh,4))*pow(z,4.5);
6224 }
6225 }
6226
6227 if(10<=maxpow) {
6228 if(sh<.900001) {
6229 res += (-14.958930350430506*pow(-1. + sh,-3)*pow(sh,-3) +
6230 12.444444444444445*Li3sh*pow(-1. + sh,-3)*pow(sh,-3) -
6231 4.148148148148148*pow(Lsh,3)*pow(-1. + sh,-3)*
6232 pow(sh,-3) + 3.5555555555555554*cl2*sqrt4sh*sqrtsh*
6233 pow(sh,2)*(-20. - 11.*sh + 24.*pow(sh,2) -
6234 9.*pow(sh,3) + pow(sh,4)) +
6235 0.11851851851851852*ash*sqrt4sh*sqrtsh*pow(-1. + sh,-3)*
6236 pow(sh,2)*(630. - 1853.*sh - 99.*pow(sh,2) +
6237 4458.*pow(sh,3) - 5217.*pow(sh,4) +
6238 2538.*pow(sh,5) - 564.*pow(sh,6) + 47.*pow(sh,7)) -
6239 0.5925925925925926*Li2sh*pow(-1. + sh,-6)*pow(sh,-4)*
6240 (-63. + 355.*sh - 826.*pow(sh,2) + 1008.*pow(sh,3) -
6241 665.*pow(sh,4) + 213.*pow(sh,5) - 7.*pow(sh,7) +
6242 pow(sh,8)) - 10.666666666666666*pow(ash,2)*
6243 pow(-1. + sh,-4)*pow(sh,2)*
6244 (10. - 90.*sh + 165.*pow(sh,2) - 333.*pow(sh,4) +
6245 445.*pow(sh,5) - 275.*pow(sh,6) + 90.*pow(sh,7) -
6246 15.*pow(sh,8) + pow(sh,9)) -
6247 1.*Lsh*(12.444444444444445*Li2sh*pow(-1. + sh,-3)*
6248 pow(sh,-3) - 3.5555555555555554*ash*sqrt4sh*sqrtsh*
6249 pow(sh,2)*(-20. - 11.*sh + 24.*pow(sh,2) -
6250 9.*pow(sh,3) + pow(sh,4)) -
6251 0.0004938271604938272*pow(-1. + sh,-6)*pow(sh,-8)*
6252 (-162. + 36.*sh + 2914.*pow(sh,2) +
6253 5862.*pow(sh,3) +
6254 30.*(-767. + 2520.*Lshb)*pow(sh,4) -
6255 8.*(2131. + 53250.*Lshb +
6256 2625.*PI2)*pow(sh,5) +
6257 8.*(12113. + 123900.*Lshb +
6258 7875.*PI2)*pow(sh,6) -
6259 18.*(5693. + 67200.*Lshb +
6260 3500.*PI2)*pow(sh,7) +
6261 3.*(15101. + 266000.*Lshb +
6262 7000.*PI2)*pow(sh,8) -
6263 50.*(259. + 5112.*Lshb)*pow(sh,9) +
6264 9600.*pow(sh,10) +
6265 150.*(11. + 56.*Lshb)*pow(sh,11) -
6266 25.*(25. + 48.*Lshb)*pow(sh,12))) -
6267 0.014814814814814815*pow(Lsh,2)*pow(-1. + sh,-7)*
6268 pow(sh,-8)*(-12. - 42.*sh + 28.*pow(sh,2) +
6269 308.*pow(sh,3) + 1533.*pow(sh,4) -
6270 8318.*pow(sh,5) +
6271 420.*Lshb*pow(-1. + sh,4)*pow(sh,5) +
6272 13422.*pow(sh,6) - 8008.*pow(sh,7) -
6273 1788.*pow(sh,8) + 4507.*pow(sh,9) -
6274 1540.*pow(sh,10) - 140.*pow(sh,11) +
6275 160.*pow(sh,12) - 20.*pow(sh,13)) -
6276 0.007407407407407408*pow(lz,2)*pow(sh,-8)*
6277 (6. + 63.*sh + 301.*pow(sh,2) + 840.*pow(sh,3) -
6278 630.*pow(sh,4) + 99.*pow(sh,5) - 153.*pow(sh,6) -
6279 6.*pow(sh,7) - 1200.*pow(sh,8) - 1440.*pow(sh,9) -
6280 3360.*pow(sh,10) + 2400.*pow(sh,11) +
6281 5400.*pow(sh,12) - 4800.*pow(sh,13) +
6282 1320.*pow(sh,14) - 120.*pow(sh,15)) -
6283 1.*lz*(-6.222222222222222*pow(Lsh,2)*pow(-1. + sh,-3)*
6284 pow(sh,-3) - 7.111111111111111*ash*sqrt4sh*sqrtsh*
6285 pow(sh,2)*(-20. - 11.*sh + 24.*pow(sh,2) -
6286 9.*pow(sh,3) + pow(sh,4)) -
6287 0.02962962962962963*Lsh*pow(-1. + sh,-6)*pow(sh,-8)*
6288 (6. + 27.*sh + 13.*pow(sh,2) - 141.*pow(sh,3) -
6289 1380.*pow(sh,4) + 5549.*pow(sh,5) -
6290 8207.*pow(sh,6) + 6207.*pow(sh,7) -
6291 2809.*pow(sh,8) + 1080.*pow(sh,9) -
6292 30.*pow(sh,10) - 30.*pow(sh,11) + 35.*pow(sh,12))
6293 + 0.00007054673721340387*pow(-1. + sh,-5)*
6294 pow(sh,-8)*(567. + 441.*sh - 9758.*pow(sh,2) -
6295 30275.*pow(sh,3) + 166495.*pow(sh,4) -
6296 20923.*pow(sh,5) - 866054.*pow(sh,6) +
6297 1.788427e6*pow(sh,7) - 1.255755e6*pow(sh,8) -
6298 458890.*pow(sh,9) + 1.258076e6*pow(sh,10) -
6299 55832.*pow(sh,11) + 524481.*pow(sh,12) -
6300 2.826e6*pow(sh,13) + 901320.*pow(sh,14) +
6301 5.25168e6*pow(sh,15) - 7.8771e6*pow(sh,16) +
6302 5.0799e6*pow(sh,17) - 1.7073e6*pow(sh,18) +
6303 290640.*pow(sh,19) - 19740.*pow(sh,20))) -
6304 8.398421096833795e-8*pow(-1. + sh,-6)*pow(sh,-8)*
6305 (161406. - 318843.*sh - 1.910657e6*pow(sh,2) +
6306 738969.*pow(sh,3) - 6.33135615e8*pow(sh,4) +
6307 3.654733992e9*pow(sh,5) - 8.580730746e9*pow(sh,6) +
6308 1.0387902666e10*pow(sh,7) -
6309 6.272402572e9*pow(sh,8) + 4.35513965e8*pow(sh,9) +
6310 2.310469467e9*pow(sh,10) -
6311 2.213537811e9*pow(sh,11) +
6312 4.191847021e9*pow(sh,12) -
6313 8.659496442e9*pow(sh,13) +
6314 5.00515056e9*pow(sh,14) +
6315 1.057709688e10*pow(sh,15) -
6316 2.294859924e10*pow(sh,16) +
6317 2.03364504e10*pow(sh,17) -
6318 1.00250472e10*pow(sh,18) +
6319 2.83732932e9*pow(sh,19) - 4.2896364e8*pow(sh,20) +
6320 2.674812e7*pow(sh,21) -
6321 58800.*PI2*
6322 (18. + 81.*sh + 39.*pow(sh,2) - 423.*pow(sh,3) -
6323 9810.*pow(sh,4) + 47729.*pow(sh,5) -
6324 95467.*pow(sh,6) + 103887.*pow(sh,7) -
6325 63289.*pow(sh,8) + 15730.*pow(sh,9) +
6326 8388.*pow(sh,10) - 21404.*pow(sh,11) +
6327 46029.*pow(sh,12) - 50988.*pow(sh,13) -
6328 20160.*pow(sh,14) + 133320.*pow(sh,15) -
6329 179760.*pow(sh,16) + 130200.*pow(sh,17) -
6330 56400.*pow(sh,18) + 14520.*pow(sh,19) -
6331 2040.*pow(sh,20) + 120.*pow(sh,21))))*pow(z,5);
6332 }
6333 else {
6334 res += pow(z,5)*(-56.97595269013286 +
6335 864.4668402137501*(1. - 1.*sh) +
6336 1722.9691178723424*pow(1. - 1.*sh,2) +
6337 3775.432090316476*pow(1. - 1.*sh,3) +
6338 log(z)*(-109.64319713305599 +
6339 219.04552007798918*(1. - 1.*sh) -
6340 343.43648455706074*pow(1. - 1.*sh,2) -
6341 1304.051993190421*pow(1. - 1.*sh,3) -
6342 2520.1905777627526*pow(1. - 1.*sh,4)) +
6343 9467.150417064422*pow(1. - 1.*sh,4) +
6344 (9.481481481481481 - 1.7777777777777777*(1. - 1.*sh) -
6345 150.*pow(1. - 1.*sh,2) -
6346 309.9259259259259*pow(1. - 1.*sh,3) -
6347 648.8888888888889*pow(1. - 1.*sh,4))*pow(log(z),2));
6348 }
6349 }
6350
6351 if(11<=maxpow) {
6352 if(sh<.900001) {
6353 res += -0.0002280298576594873*PI2*pow(sh,-9)*
6354 (315. + 3640.*sh + 19380.*pow(sh,2) + 62088.*pow(sh,3) +
6355 124834.*pow(sh,4) + 62088.*pow(sh,5) +
6356 19380.*pow(sh,6) + 3640.*pow(sh,7) + 315.*pow(sh,8))*
6357 pow(z,5.5);
6358 }
6359 else {
6360 res += (-665.4469074380578 - 3327.234537190289*(1. - 1.*sh) -
6361 10380.971756033703*pow(1. - 1.*sh,2) -
6362 25686.25062710903*pow(1. - 1.*sh,3) -
6363 55072.86137879326*pow(1. - 1.*sh,4))*pow(z,5.5);
6364 }
6365 }
6366
6367 if(12<=maxpow) {
6368 if(sh<.900001) {
6369 res += (-35.90143284103321*pow(-1. + sh,-3)*pow(sh,-4) +
6370 29.866666666666667*Li3sh*pow(-1. + sh,-3)*pow(sh,-4) -
6371 9.955555555555556*pow(Lsh,3)*pow(-1. + sh,-3)*
6372 pow(sh,-4) - 4.148148148148148*cl2*sqrt4sh*sqrtsh*
6373 pow(sh,2)*(-8. + 102.*sh + 39.*pow(sh,2) -
6374 168.*pow(sh,3) + 102.*pow(sh,4) - 24.*pow(sh,5) +
6375 2.*pow(sh,6)) - 0.03950617283950617*ash*sqrt4sh*
6376 sqrtsh*pow(-1. + sh,-3)*pow(sh,2)*
6377 (1236. - 20412.*sh + 48897.*pow(sh,2) -
6378 963.*pow(sh,3) - 119097.*pow(sh,4) +
6379 165591.*pow(sh,5) - 103846.*pow(sh,6) +
6380 34110.*pow(sh,7) - 5685.*pow(sh,8) + 379.*pow(sh,9))
6381 + 12.444444444444445*pow(ash,2)*pow(-1. + sh,-4)*
6382 pow(sh,3)*(-90. + 560.*sh - 999.*pow(sh,2) +
6383 2278.*pow(sh,4) - 3456.*pow(sh,5) +
6384 2565.*pow(sh,6) - 1092.*pow(sh,7) +
6385 270.*pow(sh,8) - 36.*pow(sh,9) + 2.*pow(sh,10)) -
6386 0.02962962962962963*Li2sh*pow(-1. + sh,-7)*pow(sh,-5)*
6387 (3528. - 23478.*sh + 66420.*pow(sh,2) -
6388 102960.*pow(sh,3) + 93240.*pow(sh,4) -
6389 47628.*pow(sh,5) + 10808.*pow(sh,6) -
6390 135.*pow(sh,9) + 30.*pow(sh,10)) -
6391 1.*Lsh*(29.866666666666667*Li2sh*pow(-1. + sh,-3)*
6392 pow(sh,-4) + 4.148148148148148*ash*sqrt4sh*sqrtsh*
6393 pow(sh,2)*(-8. + 102.*sh + 39.*pow(sh,2) -
6394 168.*pow(sh,3) + 102.*pow(sh,4) -
6395 24.*pow(sh,5) + 2.*pow(sh,6)) +
6396 0.00009876543209876543*pow(-1. + sh,-7)*pow(sh,-10)*
6397 (-440. + 32.*sh + 10212.*pow(sh,2) +
6398 23632.*pow(sh,3) - 7888.*pow(sh,4) +
6399 168.*(-2921. + 6300.*Lshb)*pow(sh,5) -
6400 18.*(-60791. + 391300.*Lshb +
6401 14000.*PI2)*pow(sh,6) +
6402 6.*(-91207. + 3.321e6*Lshb +
6403 168000.*PI2)*pow(sh,7) -
6404 216.*(3607. + 143000.*Lshb +
6405 7000.*PI2)*pow(sh,8) +
6406 6.*(202093. + 4.662e6*Lshb +
6407 168000.*PI2)*pow(sh,9) -
6408 6.*(113557. + 2.3814e6*Lshb +
6409 42000.*PI2)*pow(sh,10) +
6410 15.*(16441. + 216160.*Lshb)*pow(sh,11) -
6411 20060.*pow(sh,12) - 42310.*pow(sh,13) -
6412 45.*(23. + 900.*Lshb)*pow(sh,14) +
6413 45.*(41. + 200.*Lshb)*pow(sh,15))) -
6414 0.002962962962962963*pow(Lsh,2)*pow(-1. + sh,-8)*
6415 pow(sh,-10)*(40. + 184.*sh + 40.*pow(sh,2) -
6416 1160.*pow(sh,3) - 2240.*pow(sh,4) -
6417 16100.*pow(sh,5) + 134784.*pow(sh,6) +
6418 5040.*Lshb*pow(-1. + sh,5)*pow(sh,6) -
6419 321315.*pow(sh,7) + 355935.*pow(sh,8) -
6420 160960.*pow(sh,9) - 34360.*pow(sh,10) +
6421 63842.*pow(sh,11) - 18270.*pow(sh,12) -
6422 675.*pow(sh,14) + 825.*pow(sh,15) - 150.*pow(sh,16))
6423 - 0.002962962962962963*pow(lz,2)*pow(sh,-10)*
6424 (10. + 126.*sh + 738.*pow(sh,2) + 2646.*pow(sh,3) +
6425 6300.*pow(sh,4) - 5040.*pow(sh,5) +
6426 1194.*pow(sh,6) - 873.*pow(sh,7) -
6427 1791.*pow(sh,8) - 10.*pow(sh,9) -
6428 8400.*pow(sh,10) - 9100.*pow(sh,11) -
6429 11200.*pow(sh,12) - 46900.*pow(sh,13) +
6430 47600.*pow(sh,14) + 86450.*pow(sh,15) -
6431 116200.*pow(sh,16) + 51100.*pow(sh,17) -
6432 9800.*pow(sh,18) + 700.*pow(sh,19)) -
6433 1.*lz*(-14.933333333333334*pow(Lsh,2)*pow(-1. + sh,-3)*
6434 pow(sh,-4) + 8.296296296296296*ash*sqrt4sh*sqrtsh*
6435 pow(sh,2)*(-8. + 102.*sh + 39.*pow(sh,2) -
6436 168.*pow(sh,3) + 102.*pow(sh,4) -
6437 24.*pow(sh,5) + 2.*pow(sh,6)) -
6438 0.005925925925925926*Lsh*pow(-1. + sh,-7)*
6439 pow(sh,-10)*(-20. - 112.*sh - 132.*pow(sh,2) +
6440 448.*pow(sh,3) + 1568.*pow(sh,4) +
6441 16548.*pow(sh,5) - 99448.*pow(sh,6) +
6442 212137.*pow(sh,7) - 240168.*pow(sh,8) +
6443 162112.*pow(sh,9) - 68488.*pow(sh,10) +
6444 15610.*pow(sh,11) - 980.*pow(sh,12) +
6445 20.*pow(sh,13) - 105.*pow(sh,14) +
6446 135.*pow(sh,15)) +
6447 4.703115814226925e-6*pow(-1. + sh,-6)*pow(sh,-10)*
6448 (-4620. - 4284.*sh + 102942.*pow(sh,2) +
6449 351078.*pow(sh,3) + 268254.*pow(sh,4) -
6450 1.062621e7*pow(sh,5) + 2.1816102e7*pow(sh,6) +
6451 1.1713284e7*pow(sh,7) - 9.2176614e7*pow(sh,8) +
6452 1.30993468e8*pow(sh,9) -
6453 9.7705975e7*pow(sh,10) +
6454 8.3020137e7*pow(sh,11) -
6455 1.22513471e8*pow(sh,12) +
6456 1.48849691e8*pow(sh,13) -
6457 1.22190192e8*pow(sh,14) -
6458 1.1648879e8*pow(sh,15) + 5.630639e8*pow(sh,16) -
6459 4.247208e8*pow(sh,17) - 8.672076e8*pow(sh,18) +
6460 2.255526e9*pow(sh,19) - 2.3724372e9*pow(sh,20) +
6461 1.4385273e9*pow(sh,21) - 5.355966e8*pow(sh,22) +
6462 1.205778e8*pow(sh,23) - 1.5036e7*pow(sh,24) +
6463 795900.*pow(sh,25))) +
6464 3.732631598592798e-9*pow(-1. + sh,-7)*pow(sh,-10)*
6465 (1.60524e6 - 3.372768e6*sh - 2.1255318e7*pow(sh,2) +
6466 5.1364152e7*pow(sh,3) + 1.37438532e8*pow(sh,4) -
6467 4.2259525308e10*pow(sh,5) +
6468 2.74794978024e11*pow(sh,6) -
6469 7.61157740601e11*pow(sh,7) +
6470 1.144773779814e12*pow(sh,8) -
6471 9.93234387676e11*pow(sh,9) +
6472 5.07224614904e11*pow(sh,10) -
6473 2.38950893986e11*pow(sh,11) +
6474 2.88773890244e11*pow(sh,12) -
6475 3.74015495266e11*pow(sh,13) +
6476 2.45587937594e11*pow(sh,14) +
6477 5.02610946089e11*pow(sh,15) -
6478 1.90653668497e12*pow(sh,16) +
6479 2.1081380789e12*pow(sh,17) +
6480 1.1357177076e12*pow(sh,18) -
6481 6.24126592845e12*pow(sh,19) +
6482 8.68889605815e12*pow(sh,20) -
6483 6.88407273225e12*pow(sh,21) +
6484 3.47059394955e12*pow(sh,22) -
6485 1.1307208248e12*pow(sh,23) +
6486 2.301705126e11*pow(sh,24) -
6487 2.65567113e10*pow(sh,25) + 1.3226913e9*pow(sh,26) -
6488 264600.*PI2*
6489 (60. + 336.*sh + 396.*pow(sh,2) -
6490 1344.*pow(sh,3) - 4704.*pow(sh,4) -
6491 127764.*pow(sh,5) + 807808.*pow(sh,6) -
6492 2.054287e6*pow(sh,7) + 2.890968e6*pow(sh,8) -
6493 2.434312e6*pow(sh,9) + 1.206688e6*pow(sh,10) -
6494 345954.*pow(sh,11) + 158816.*pow(sh,12) -
6495 132224.*pow(sh,13) - 435459.*pow(sh,14) +
6496 2.009791e6*pow(sh,15) - 3.32854e6*pow(sh,16) +
6497 895300.*pow(sh,17) + 6.5037e6*pow(sh,18) -
6498 1.38369e7*pow(sh,19) + 1.50031e7*pow(sh,20) -
6499 1.02879e7*pow(sh,21) + 4.6809e6*pow(sh,22) -
6500 1.4084e6*pow(sh,23) + 268800.*pow(sh,24) -
6501 29400.*pow(sh,25) + 1400.*pow(sh,26))))*pow(z,6);
6502 }
6503 else {
6504 res += pow(z,6)*(-148.4028349176458 +
6505 3950.7161319928528*(1. - 1.*sh) +
6506 8850.818659636407*pow(1. - 1.*sh,2) +
6507 21640.381586260777*pow(1. - 1.*sh,3) +
6508 log(z)*(-362.06949684400286 +
6509 1092.1268744485408*(1. - 1.*sh) -
6510 1419.5191669853152*pow(1. - 1.*sh,2) -
6511 6512.814281606066*pow(1. - 1.*sh,3) -
6512 12931.837463384778*pow(1. - 1.*sh,4)) +
6513 61716.884755626575*pow(1. - 1.*sh,4) +
6514 (36.888888888888886 + 6.*(1. - 1.*sh) -
6515 722.9481481481481*pow(1. - 1.*sh,2) -
6516 1587.2296296296297*pow(1. - 1.*sh,3) -
6517 3724.4444444444443*pow(1. - 1.*sh,4))*pow(log(z),2));
6518 }
6519 }
6520
6521 if(13<=maxpow) {
6522 if(sh<.900001) {
6523 res += -0.00007175764751522327*PI2*
6524 pow(sh,-11)*(693. + 9450.*sh + 60305.*pow(sh,2) +
6525 238200.*pow(sh,3) + 642234.*pow(sh,4) +
6526 1.173308e6*pow(sh,5) + 642234.*pow(sh,6) +
6527 238200.*pow(sh,7) + 60305.*pow(sh,8) +
6528 9450.*pow(sh,9) + 693.*pow(sh,10))*pow(z,6.5);
6529 }
6530 else {
6531 res += (-2177.8262425245525 - 13066.957455147318*(1. - 1.*sh) -
6532 47367.72077490902*pow(1. - 1.*sh,2) -
6533 133391.85735462885*pow(1. - 1.*sh,3) -
6534 320723.8039660712*pow(1. - 1.*sh,4))*pow(z,6.5);
6535 }
6536 }
6537
6538 if(14<=maxpow) {
6539 if(sh<.900001) {
6540 res += (-94.02756220270605*pow(-1. + sh,-3)*pow(sh,-5) +
6541 78.22222222222223*Li3sh*pow(-1. + sh,-3)*pow(sh,-5) -
6542 26.074074074074073*pow(Lsh,3)*pow(-1. + sh,-3)*
6543 pow(sh,-5) + 2.1333333333333333*cl2*sqrt4sh*sqrtsh*
6544 pow(sh,3)*(252. - 1383.*sh - 342.*pow(sh,2) +
6545 2808.*pow(sh,3) - 2380.*pow(sh,4) +
6546 870.*pow(sh,5) - 150.*pow(sh,6) + 10.*pow(sh,7)) +
6547 0.033862433862433865*ash*sqrt4sh*sqrtsh*
6548 pow(-1. + sh,-3)*pow(sh,3)*
6549 (-28035. + 242727.*sh - 521748.*pow(sh,2) +
6550 32319.*pow(sh,3) + 1.309096e6*pow(sh,4) -
6551 2.07882e6*pow(sh,5) + 1.572282e6*pow(sh,6) -
6552 674165.*pow(sh,7) + 166995.*pow(sh,8) -
6553 22266.*pow(sh,9) + 1237.*pow(sh,10)) -
6554 0.35555555555555557*Li2sh*pow(-1. + sh,-8)*pow(sh,-6)*
6555 (-880. + 6748.*sh - 22484.*pow(sh,2) +
6556 42350.*pow(sh,3) - 48950.*pow(sh,4) +
6557 34980.*pow(sh,5) - 14476.*pow(sh,6) +
6558 2770.*pow(sh,7) - 11.*pow(sh,11) + 3.*pow(sh,12)) -
6559 6.4*pow(ash,2)*pow(-1. + sh,-4)*pow(sh,3)*
6560 (-70. + 1890.*sh - 9345.*pow(sh,2) +
6561 15946.*pow(sh,3) - 39510.*pow(sh,5) +
6562 66255.*pow(sh,6) - 56700.*pow(sh,7) +
6563 29358.*pow(sh,8) - 9520.*pow(sh,9) +
6564 1890.*pow(sh,10) - 210.*pow(sh,11) + 10.*pow(sh,12))
6565 - 0.0014109347442680777*pow(Lsh,2)*pow(-1. + sh,-9)*
6566 pow(sh,-12)*(-60. - 340.*sh - 312.*pow(sh,2) +
6567 1872.*pow(sh,3) + 4980.*pow(sh,4) +
6568 1620.*pow(sh,5) + 92970.*pow(sh,6) -
6569 934391.*pow(sh,7) +
6570 27720.*Lshb*pow(-1. + sh,6)*pow(sh,7) +
6571 2.91171e6*pow(sh,8) - 4.537599e6*pow(sh,9) +
6572 3.782335e6*pow(sh,10) - 1.339005e6*pow(sh,11) -
6573 291378.*pow(sh,12) + 408230.*pow(sh,13) -
6574 99792.*pow(sh,14) - 1386.*pow(sh,17) +
6575 1764.*pow(sh,18) - 378.*pow(sh,19)) -
6576 1.*Lsh*(78.22222222222223*Li2sh*pow(-1. + sh,-3)*
6577 pow(sh,-5) - 2.1333333333333333*ash*sqrt4sh*sqrtsh*
6578 pow(sh,3)*(252. - 1383.*sh - 342.*pow(sh,2) +
6579 2808.*pow(sh,3) - 2380.*pow(sh,4) +
6580 870.*pow(sh,5) - 150.*pow(sh,6) + 10.*pow(sh,7))\
6581 + 6.718736877467037e-6*pow(-1. + sh,-9)*pow(sh,-12)*
6582 (-3900. + 3800.*sh + 116136.*pow(sh,2) +
6583 213534.*pow(sh,3) - 423060.*pow(sh,4) -
6584 1.26873e6*pow(sh,5) - 2.15436e7*pow(sh,6) +
6585 1.26680142e8*pow(sh,7) -
6586 9.702e6*PI2*pow(-1. + sh,6)*
6587 pow(sh,7) - 2.855415e8*pow(sh,8) +
6588 3.38516298e8*pow(sh,9) -
6589 2.13687865e8*pow(sh,10) +
6590 4.999881e7*pow(sh,11) + 1.8377766e7*pow(sh,12) +
6591 52920.*Lshb*(-1. + sh)*pow(sh,6)*
6592 (-880. + 6748.*sh - 22484.*pow(sh,2) +
6593 42350.*pow(sh,3) - 48950.*pow(sh,4) +
6594 34980.*pow(sh,5) - 14476.*pow(sh,6) +
6595 2770.*pow(sh,7) - 11.*pow(sh,11) +
6596 3.*pow(sh,12)) - 1.1952947e7*pow(sh,13) -
6597 421029.*pow(sh,14) + 1.28772e6*pow(sh,15) +
6598 235690.*pow(sh,16) - 631953.*pow(sh,17) +
6599 26754.*pow(sh,18) + 17934.*pow(sh,19))) +
6600 0.0014109347442680777*pow(lz,2)*pow(sh,-12)*
6601 (-15. - 220.*sh - 1518.*pow(sh,2) - 6534.*pow(sh,3) -
6602 19503.*pow(sh,4) - 41580.*pow(sh,5) +
6603 34650.*pow(sh,6) - 11094.*pow(sh,7) +
6604 2061.*pow(sh,8) + 13740.*pow(sh,9) +
6605 12253.*pow(sh,10) + 15.*pow(sh,11) +
6606 52920.*pow(sh,12) + 55188.*pow(sh,13) +
6607 61992.*pow(sh,14) + 49140.*pow(sh,15) +
6608 706860.*pow(sh,16) - 807030.*pow(sh,17) -
6609 1.307124e6*pow(sh,18) + 2.391984e6*pow(sh,19) -
6610 1.45908e6*pow(sh,20) + 434700.*pow(sh,21) -
6611 64260.*pow(sh,22) + 3780.*pow(sh,23)) -
6612 1.*lz*(-39.111111111111114*pow(Lsh,2)*pow(-1. + sh,-3)*
6613 pow(sh,-5) - 4.266666666666667*ash*sqrt4sh*sqrtsh*
6614 pow(sh,3)*(252. - 1383.*sh - 342.*pow(sh,2) +
6615 2808.*pow(sh,3) - 2380.*pow(sh,4) +
6616 870.*pow(sh,5) - 150.*pow(sh,6) + 10.*pow(sh,7))\
6617 - 0.0028218694885361554*Lsh*pow(-1. + sh,-8)*
6618 pow(sh,-12)*(30. + 200.*sh + 356.*pow(sh,2) -
6619 580.*pow(sh,3) - 3070.*pow(sh,4) -
6620 3880.*pow(sh,5) - 95410.*pow(sh,6) +
6621 738379.*pow(sh,7) - 2.056331e6*pow(sh,8) +
6622 3.10735e6*pow(sh,9) - 2.878135e6*pow(sh,10) +
6623 1.70477e6*pow(sh,11) - 636256.*pow(sh,12) +
6624 132944.*pow(sh,13) - 2380.*pow(sh,14) -
6625 2065.*pow(sh,15) + 315.*pow(sh,16) -
6626 168.*pow(sh,17) + 231.*pow(sh,18)) -
6627 2.035980871959708e-7*pow(-1. + sh,-7)*pow(sh,-12)*
6628 (-64350. - 66000.*sh + 1.848594e6*pow(sh,2) +
6629 7.286499e6*pow(sh,3) + 5.743914e6*pow(sh,4) -
6630 1.6732716e7*pow(sh,5) - 8.36674146e8*pow(sh,6) +
6631 3.086059581e9*pow(sh,7) -
6632 2.920757103e9*pow(sh,8) -
6633 4.213007403e9*pow(sh,9) +
6634 1.3030540952e10*pow(sh,10) -
6635 1.3445244908e10*pow(sh,11) +
6636 5.400217599e9*pow(sh,12) +
6637 4.838723267e9*pow(sh,13) -
6638 1.4220596345e10*pow(sh,14) +
6639 1.7384453508e10*pow(sh,15) -
6640 7.769749144e9*pow(sh,16) -
6641 1.428417884e9*pow(sh,17) -
6642 4.8744289353e10*pow(sh,18) +
6643 1.85048020584e11*pow(sh,19) -
6644 2.17589171184e11*pow(sh,20) -
6645 1.46917624392e11*pow(sh,21) +
6646 8.1335313675e11*pow(sh,22) -
6647 1.2454621641e12*pow(sh,23) +
6648 1.1155514832e12*pow(sh,24) -
6649 6.5679027876e11*pow(sh,25) +
6650 2.615261418e11*pow(sh,26) -
6651 6.977252898e10*pow(sh,27) +
6652 1.19369943e10*pow(sh,28) -
6653 1.18203624e9*pow(sh,29) + 5.143446e7*pow(sh,30)))
6654 + 1.4689616680805973e-11*pow(-1. + sh,-8)*pow(sh,-12)*
6655 (-2.074545e8 + 4.76982e8*sh +
6656 3.223561968e9*pow(sh,2) -
6657 1.2229671465e10*pow(sh,3) -
6658 5.5118379195e10*pow(sh,4) +
6659 5.758493697e10*pow(sh,5) +
6660 3.34335296988e13*pow(sh,6) -
6661 2.46183339844728e14*pow(sh,7) +
6662 7.88493088730853e14*pow(sh,8) -
6663 1.41978242154342e15*pow(sh,9) +
6664 1.554606048182275e15*pow(sh,10) -
6665 1.04527795567331e15*pow(sh,11) +
6666 4.00804930228849e14*pow(sh,12) +
6667 4.89753913432e12*pow(sh,13) -
6668 2.6147112177326e14*pow(sh,14) +
6669 4.2032307297505e14*pow(sh,15) -
6670 3.35740716930395e14*pow(sh,16) +
6671 2.57962579027846e14*pow(sh,17) -
6672 1.575614131965377e15*pow(sh,18) +
6673 5.472481687455111e15*pow(sh,19) -
6674 8.337459144709044e15*pow(sh,20) +
6675 1.620077584398966e15*pow(sh,21) +
6676 1.7052028891101666e16*pow(sh,22) -
6677 3.5835539060836744e16*pow(sh,23) +
6678 4.028199224768888e16*pow(sh,24) -
6679 2.974451143108045e16*pow(sh,25) +
6680 1.5207708416925024e16*pow(sh,26) -
6681 5.427604622626956e15*pow(sh,27) +
6682 1.32696547935336e15*pow(sh,28) -
6683 2.1153689203878e14*pow(sh,29) +
6684 1.97724893751e13*pow(sh,30) -
6685 8.2047522942e11*pow(sh,31) +
6686 3.20166e7*PI2*
6687 (90. + 600.*sh + 1068.*pow(sh,2) -
6688 1740.*pow(sh,3) - 9210.*pow(sh,4) -
6689 11640.*pow(sh,5) - 771330.*pow(sh,6) +
6690 5.877289e6*pow(sh,7) - 1.8209993e7*pow(sh,8) +
6691 3.175429e7*pow(sh,9) - 3.4335085e7*pow(sh,10) +
6692 2.335241e7*pow(sh,11) - 9.338992e6*pow(sh,12) +
6693 1.311716e6*pow(sh,13) + 1.360208e6*pow(sh,14) -
6694 2.228227e6*pow(sh,15) + 3.717793e6*pow(sh,16) -
6695 1.4308436e7*pow(sh,17) +
6696 4.9487425e7*pow(sh,18) -
6697 9.6430764e7*pow(sh,19) +
6698 7.2149616e7*pow(sh,20) +
6699 1.14281496e8*pow(sh,21) -
6700 4.10382504e8*pow(sh,22) +
6701 6.13666368e8*pow(sh,23) -
6702 5.83391592e8*pow(sh,24) +
6703 3.84934788e8*pow(sh,25) -
6704 1.80700632e8*pow(sh,26) +
6705 6.0198768e7*pow(sh,27) - 1.389528e7*pow(sh,28) +
6706 2.10924e6*pow(sh,29) - 189000.*pow(sh,30) +
6707 7560.*pow(sh,31))))*pow(z,7);
6708 }
6709 else {
6710 res += pow(z,7)*(-430.12069962932856 +
6711 17443.091811249233*(1. - 1.*sh) +
6712 43453.89662587411*pow(1. - 1.*sh,2) +
6713 117398.73976032245*pow(1. - 1.*sh,3) +
6714 log(z)*(-1257.7516577920273 +
6715 5061.433581940173*(1. - 1.*sh) -
6716 6031.581645793054*pow(1. - 1.*sh,2) -
6717 32080.9522764348*pow(1. - 1.*sh,3) -
6718 63495.86311123482*pow(1. - 1.*sh,4)) +
6719 375562.95132859563*pow(1. - 1.*sh,4) +
6720 (142.96296296296296 + 62.19259259259259*(1. - 1.*sh) -
6721 3445.866666666667*pow(1. - 1.*sh,2) -
6722 7951.792592592593*pow(1. - 1.*sh,3) -
6723 20635.85185185185*pow(1. - 1.*sh,4))*pow(log(z),2));
6724 }
6725 }
6726
6727 if(15<=maxpow) {
6728 if(sh<.900001) {
6729 res += -0.000012143601887191631*PI2*
6730 pow(sh,-13)*(3003. + 47124.*sh + 349398.*pow(sh,2) +
6731 1.62554e6*pow(sh,3) + 5.297685e6*pow(sh,4) +
6732 1.265412e7*pow(sh,5) + 2.15477e7*pow(sh,6) +
6733 1.265412e7*pow(sh,7) + 5.297685e6*pow(sh,8) +
6734 1.62554e6*pow(sh,9) + 349398.*pow(sh,10) +
6735 47124.*pow(sh,11) + 3003.*pow(sh,12))*pow(z,7.5);}
6736 else {
6737 res += (-7371.104205467717 - 51597.729438274015*(1. - 1.*sh) -
6738 213024.91153801704*pow(1. - 1.*sh,2) -
6739 672244.7035386559*pow(1. - 1.*sh,3) -
6740 1.789717263773643e6*pow(1. - 1.*sh,4))*pow(z,7.5);
6741 }
6742 }
6743
6744 if(16<=maxpow) {
6745 if(sh<.900001) {
6746 res += (-261.9339232789668*pow(-1. + sh,-3)*pow(sh,-6) +
6747 217.9047619047619*Li3sh*pow(-1. + sh,-3)*pow(sh,-6) -
6748 72.63492063492063*pow(Lsh,3)*pow(-1. + sh,-3)*
6749 pow(sh,-6) - 11.733333333333333*cl2*sqrt4sh*sqrtsh*
6750 pow(sh,3)*(16. - 564.*sh + 2004.*pow(sh,2) +
6751 294.*pow(sh,3) - 4650.*pow(sh,4) +
6752 5035.*pow(sh,5) - 2500.*pow(sh,6) +
6753 660.*pow(sh,7) - 90.*pow(sh,8) + 5.*pow(sh,9)) -
6754 0.004232804232804233*ash*sqrt4sh*sqrtsh*
6755 pow(-1. + sh,-3)*pow(sh,3)*
6756 (-85472. + 3.302568e6*sh - 2.0385756e7*pow(sh,2) +
6757 4.0397342e7*pow(sh,3) - 3.614472e6*pow(sh,4) -
6758 1.04197295e8*pow(sh,5) + 1.83802625e8*pow(sh,6) -
6759 1.60798287e8*pow(sh,7) + 8.4097289e7*pow(sh,8) -
6760 2.7378339e7*pow(sh,9) + 5.441121e6*pow(sh,10) -
6761 604569.*pow(sh,11) + 28789.*pow(sh,12)) +
6762 35.2*pow(ash,2)*pow(-1. + sh,-4)*pow(sh,4)*
6763 (280. - 3850.*sh + 16128.*pow(sh,2) -
6764 26340.*pow(sh,3) + 69345.*pow(sh,5) -
6765 126120.*pow(sh,6) + 121044.*pow(sh,7) -
6766 73080.*pow(sh,8) + 29050.*pow(sh,9) -
6767 7600.*pow(sh,10) + 1260.*pow(sh,11) -
6768 120.*pow(sh,12) + 5.*pow(sh,13)) -
6769 0.008465608465608466*Li2sh*pow(-1. + sh,-9)*pow(sh,-7)*
6770 (115830. - 1.00518e6*sh + 3.85476e6*pow(sh,2) -
6771 8.55036e6*pow(sh,3) + 1.203202e7*pow(sh,4) -
6772 1.104103e7*pow(sh,5) + 6.48648e6*pow(sh,6) -
6773 2.24796e6*pow(sh,7) + 352374.*pow(sh,8) -
6774 455.*pow(sh,13) + 140.*pow(sh,14)) -
6775 0.0006046863189720333*pow(Lsh,2)*pow(-1. + sh,-10)*
6776 pow(sh,-14)*(105. + 705.*sh + 1085.*pow(sh,2) -
6777 3227.*pow(sh,3) - 12621.*pow(sh,4) -
6778 7077.*pow(sh,5) + 23415.*pow(sh,6) -
6779 716940.*pow(sh,7) + 7.485607e6*pow(sh,8) +
6780 180180.*Lshb*pow(-1. + sh,7)*pow(sh,8) -
6781 2.8239694e7*pow(sh,9) + 5.5987932e7*pow(sh,10) -
6782 6.48795e7*pow(sh,11) + 4.3001735e7*pow(sh,12) -
6783 1.2259058e7*pow(sh,13) - 2.773834e6*pow(sh,14) +
6784 3.038902e6*pow(sh,15) - 645645.*pow(sh,16) -
6785 3185.*pow(sh,20) + 4165.*pow(sh,21) -
6786 980.*pow(sh,22)) -
6787 1.*Lsh*(217.9047619047619*Li2sh*pow(-1. + sh,-3)*
6788 pow(sh,-6) + 11.733333333333333*ash*sqrt4sh*sqrtsh*
6789 pow(sh,3)*(16. - 564.*sh + 2004.*pow(sh,2) +
6790 294.*pow(sh,3) - 4650.*pow(sh,4) +
6791 5035.*pow(sh,5) - 2500.*pow(sh,6) +
6792 660.*pow(sh,7) - 90.*pow(sh,8) + 5.*pow(sh,9)) +
6793 7.198646654428967e-7*pow(-1. + sh,-10)*pow(sh,-14)*
6794 (23625. - 21375.*sh - 887075.*pow(sh,2) -
6795 2.157211e6*pow(sh,3) + 2.815827e6*pow(sh,4) +
6796 1.5702939e7*pow(sh,5) + 1.968855e6*pow(sh,6) +
6797 6.76166505e8*pow(sh,7) -
6798 5.205552799e9*pow(sh,8) -
6799 2.52252e8*PI2*
6800 pow(-1. + sh,7)*pow(sh,8) +
6801 1.6194341023e10*pow(sh,9) -
6802 2.8421717709e10*pow(sh,10) +
6803 3.1333900255e10*pow(sh,11) -
6804 2.2556366595e10*pow(sh,12) +
6805 1.0744617653e10*pow(sh,13) -
6806 3.487224951e9*pow(sh,14) +
6807 11760.*Lshb*(-1. + sh)*pow(sh,7)*
6808 (115830. - 1.00518e6*sh + 3.85476e6*pow(sh,2) -
6809 8.55036e6*pow(sh,3) + 1.203202e7*pow(sh,4) -
6810 1.104103e7*pow(sh,5) + 6.48648e6*pow(sh,6) -
6811 2.24796e6*pow(sh,7) + 352374.*pow(sh,8) -
6812 455.*pow(sh,13) + 140.*pow(sh,14)) +
6813 8.24604343e8*pow(sh,15) -
6814 1.3509349e8*pow(sh,16) + 4.36884e6*pow(sh,17) +
6815 1.4825832e7*pow(sh,18) + 986076.*pow(sh,19) -
6816 6.077568e6*pow(sh,20) + 658000.*pow(sh,21) +
6817 119000.*pow(sh,22))) -
6818 0.0001511715797430083*pow(lz,2)*pow(sh,-14)*
6819 (105. + 1755.*sh + 13910.*pow(sh,2) +
6820 69498.*pow(sh,3) + 244959.*pow(sh,4) +
6821 642213.*pow(sh,5) + 1.26126e6*pow(sh,6) -
6822 1.08108e6*pow(sh,7) + 433071.*pow(sh,8) +
6823 67773.*pow(sh,9) - 377694.*pow(sh,10) -
6824 501530.*pow(sh,11) - 344895.*pow(sh,12) -
6825 105.*pow(sh,13) - 1.55232e6*pow(sh,14) -
6826 1.591128e6*pow(sh,15) - 1.707552e6*pow(sh,16) -
6827 1.9404e6*pow(sh,17) + 3.10464e6*pow(sh,18) -
6828 5.588352e7*pow(sh,19) + 6.4731744e7*pow(sh,20) +
6829 9.7485696e7*pow(sh,21) - 2.250864e8*pow(sh,22) +
6830 1.751211e8*pow(sh,23) - 7.101864e7*pow(sh,24) +
6831 1.610532e7*pow(sh,25) - 1.9404e6*pow(sh,26) +
6832 97020.*pow(sh,27)) -
6833 1.*lz*(-108.95238095238095*pow(Lsh,2)*pow(-1. + sh,-3)*
6834 pow(sh,-6) + 23.466666666666665*ash*sqrt4sh*sqrtsh*
6835 pow(sh,3)*(16. - 564.*sh + 2004.*pow(sh,2) +
6836 294.*pow(sh,3) - 4650.*pow(sh,4) +
6837 5035.*pow(sh,5) - 2500.*pow(sh,6) +
6838 660.*pow(sh,7) - 90.*pow(sh,8) + 5.*pow(sh,9)) -
6839 0.0006046863189720333*Lsh*pow(-1. + sh,-9)*
6840 pow(sh,-14)*(-105. - 810.*sh - 1895.*pow(sh,2) +
6841 1332.*pow(sh,3) + 13953.*pow(sh,4) +
6842 21030.*pow(sh,5) - 2385.*pow(sh,6) +
6843 1.39023e6*pow(sh,7) - 1.2340463e7*pow(sh,8) +
6844 4.2069858e7*pow(sh,9) - 7.9546665e7*pow(sh,10) +
6845 9.44649e7*pow(sh,11) - 7.3941065e7*pow(sh,12) +
6846 3.83046e7*pow(sh,13) - 1.2446415e7*pow(sh,14) +
6847 1.976646e6*pow(sh,15) + 12600.*pow(sh,16) -
6848 15820.*pow(sh,17) - 9744.*pow(sh,18) +
6849 2604.*pow(sh,19) - 630.*pow(sh,20) +
6850 910.*pow(sh,21)) +
6851 8.390031065768027e-10*pow(-1. + sh,-8)*pow(sh,-14)*
6852 (-1.0135125e7 - 1.1100375e7*sh +
6853 3.6848955e8*pow(sh,2) +
6854 1.673522994e9*pow(sh,3) +
6855 1.770566655e9*pow(sh,4) -
6856 4.868950515e9*pow(sh,5) -
6857 1.235310648e10*pow(sh,6) -
6858 6.7286773554e11*pow(sh,7) +
6859 3.536335413468e12*pow(sh,8) -
6860 6.50817484746e12*pow(sh,9) +
6861 2.54454845502e12*pow(sh,10) +
6862 9.21737859458e12*pow(sh,11) -
6863 1.734525157846e13*pow(sh,12) +
6864 1.3825678158092e13*pow(sh,13) -
6865 6.1111523809e12*pow(sh,14) +
6866 5.967579184772e12*pow(sh,15) -
6867 1.5549203270443e13*pow(sh,16) +
6868 2.5319186594687e13*pow(sh,17) -
6869 2.6298770135182e13*pow(sh,18) +
6870 2.5191363944162e13*pow(sh,19) -
6871 5.842005220263e12*pow(sh,20) -
6872 1.75096058403693e14*pow(sh,21) +
6873 6.63423072171552e14*pow(sh,22) -
6874 1.020989867585688e15*pow(sh,23) +
6875 8.1473828147712e13*pow(sh,24) +
6876 2.68267039048008e15*pow(sh,25) -
6877 5.80722293943792e15*pow(sh,26) +
6878 7.01674940414448e15*pow(sh,27) -
6879 5.70997655452224e15*pow(sh,28) +
6880 3.30275638300608e15*pow(sh,29) -
6881 1.37813214547008e15*pow(sh,30) +
6882 4.1220913139406e14*pow(sh,31) -
6883 8.614194412824e13*pow(sh,32) +
6884 1.192739023476e13*pow(sh,33) -
6885 9.8172946872e11*pow(sh,34) +
6886 3.631041414e10*pow(sh,35))) -
6887 2.3282359489865765e-15*pow(-1. + sh,-9)*pow(sh,-14)*
6888 (-7.34806697625e11 + 1.86465740175e12*sh +
6889 1.3539275231625e13*pow(sh,2) -
6890 6.7027116030732e13*pow(sh,3) -
6891 3.63276406618983e14*pow(sh,4) -
6892 7.707518005473e13*pow(sh,5) +
6893 2.669628886797015e15*pow(sh,6) +
6894 6.770358403959922e17*pow(sh,7) -
6895 5.635158490072595e18*pow(sh,8) +
6896 2.0599256704963682e19*pow(sh,9) -
6897 4.3339042510046585e19*pow(sh,10) +
6898 5.744182115659437e19*pow(sh,11) -
6899 4.931522650068433e19*pow(sh,12) +
6900 2.7187236012238836e19*pow(sh,13) -
6901 9.574972725219654e18*pow(sh,14) +
6902 3.9829978513193257e18*pow(sh,15) -
6903 7.101765583473753e18*pow(sh,16) +
6904 1.3106460108909054e19*pow(sh,17) -
6905 1.6417164883861897e19*pow(sh,18) +
6906 1.614980340692014e19*pow(sh,19) -
6907 1.6686933598961236e18*pow(sh,20) -
6908 1.0406361743628665e20*pow(sh,21) +
6909 4.1780318877359584e20*pow(sh,22) -
6910 7.917494561077571e20*pow(sh,23) +
6911 5.495025478671567e20*pow(sh,24) +
6912 9.680750952822325e20*pow(sh,25) -
6913 3.329447282273382e21*pow(sh,26) +
6914 5.025975451497482e21*pow(sh,27) -
6915 4.956441109581607e21*pow(sh,28) +
6916 3.485807792682049e21*pow(sh,29) -
6917 1.7988128583543858e21*pow(sh,30) +
6918 6.841200805238499e20*pow(sh,31) -
6919 1.8949802366821115e20*pow(sh,32) +
6920 3.71347919316412e19*pow(sh,33) -
6921 4.870681746866896e18*pow(sh,34) +
6922 3.8293915404046304e17*pow(sh,35) -
6923 1.362249094884678e16*pow(sh,36) +
6924 4.32864432e10*PI2*
6925 (315. + 2430.*sh + 5685.*pow(sh,2) -
6926 3996.*pow(sh,3) - 41859.*pow(sh,4) -
6927 63090.*pow(sh,5) + 7155.*pow(sh,6) -
6928 1.119771e7*pow(sh,7) + 9.7239319e7*pow(sh,8) -
6929 3.54595974e8*pow(sh,9) +
6930 7.40399865e8*pow(sh,10) -
6931 9.8372572e8*pow(sh,11) +
6932 8.60053945e8*pow(sh,12) -
6933 4.8766596e8*pow(sh,13) +
6934 1.66863615e8*pow(sh,14) -
6935 3.4122042e7*pow(sh,15) + 2.632797e7*pow(sh,16) -
6936 5.075218e7*pow(sh,17) + 5.5929402e7*pow(sh,18) +
6937 5.4364188e7*pow(sh,19) -
6938 7.17712236e8*pow(sh,20) +
6939 2.87081535e9*pow(sh,21) -
6940 6.45842757e9*pow(sh,22) +
6941 7.27388046e9*pow(sh,23) +
6942 2.42462682e9*pow(sh,24) -
6943 2.5172149464e10*pow(sh,25) +
6944 5.057866044e10*pow(sh,26) -
6945 6.234146226e10*pow(sh,27) +
6946 5.421545514e10*pow(sh,28) -
6947 3.47700276e10*pow(sh,29) +
6948 1.6675099056e10*pow(sh,30) -
6949 5.96740914e9*pow(sh,31) +
6950 1.5692985e9*pow(sh,32) - 2.939706e8*pow(sh,33) +
6951 3.706164e7*pow(sh,34) - 2.81358e6*pow(sh,35) +
6952 97020.*pow(sh,36))))*pow(z,8);
6953 }
6954 else {
6955 res += pow(z,8)*(-1367.476272678532 +
6956 75386.10953505589*(1. - 1.*sh) +
6957 206788.6029072873*pow(1. - 1.*sh,2) +
6958 612243.1048388471*pow(1. - 1.*sh,3) +
6959 log(z)*(-4510.122303044576 +
6960 22547.161714277718*(1. - 1.*sh) -
6961 26241.580654085326*pow(1. - 1.*sh,2) -
6962 156447.1717665157*pow(1. - 1.*sh,3) -
6963 301356.1551343778*pow(1. - 1.*sh,4)) +
6964 2.1731813355501974e6*pow(1. - 1.*sh,4) +
6965 (551.1111111111111 + 358.4888888888889*(1. - 1.*sh) -
6966 16247.2*pow(1. - 1.*sh,2) -
6967 39192.26666666667*pow(1. - 1.*sh,3) -
6968 111361.85396825397*pow(1. - 1.*sh,4))*pow(log(z),2));
6969 }
6970 }
6971
6972 if(17<=maxpow) {
6973 if(sh<.900001) {
6974 res += -4.333599104840935e-6*PI2*pow(sh,-15)*
6975 (6435. + 114114.*sh + 962577.*pow(sh,2) +
6976 5.137524e6*pow(sh,3) + 1.9445755e7*pow(sh,4) +
6977 5.526435e7*pow(sh,5) + 1.20557265e8*pow(sh,6) +
6978 1.9446652e8*pow(sh,7) + 1.20557265e8*pow(sh,8) +
6979 5.526435e7*pow(sh,9) + 1.9445755e7*pow(sh,10) +
6980 5.137524e6*pow(sh,11) + 962577.*pow(sh,12) +
6981 114114.*pow(sh,13) + 6435.*pow(sh,14))*pow(z,8.5);
6982 }
6983 else {
6984 res += (-25553.161245621417 - 204425.28996497134*(1. - 1.*sh) -
6985 946744.6241502736*pow(1. - 1.*sh,2) -
6986 3.307856723245693e6*pow(1. - 1.*sh,3) -
6987 9.654303733111342e6*pow(1. - 1.*sh,4))*pow(z,8.5);
6988 }
6989 }
6990
6991 if(18<=maxpow) {
6992 if(sh<.900001) {
6993 res += (-763.9739428969865*pow(-1. + sh,-3)*pow(sh,-7) +
6994 635.5555555555555*Li3sh*pow(-1. + sh,-3)*pow(sh,-7) -
6995 211.85185185185185*pow(Lsh,3)*pow(-1. + sh,-3)*
6996 pow(sh,-7) + 24.211640211640212*cl2*sqrt4sh*sqrtsh*
6997 pow(sh,4)*(-216. + 3134.*sh - 8598.*pow(sh,2) -
6998 651.*pow(sh,3) + 21696.*pow(sh,4) -
6999 28281.*pow(sh,5) + 17655.*pow(sh,6) -
7000 6279.*pow(sh,7) + 1302.*pow(sh,8) -
7001 147.*pow(sh,9) + 7.*pow(sh,10)) +
7002 0.0009406231628453851*ash*sqrt4sh*sqrtsh*
7003 pow(-1. + sh,-3)*pow(sh,4)*
7004 (1.1439036e7 - 2.01476662e8*sh +
7005 9.97505748e8*pow(sh,2) - 1.852234251e9*pow(sh,3) +
7006 2.01151369e8*pow(sh,4) + 4.889181924e9*pow(sh,5) -
7007 9.389910087e9*pow(sh,6) + 9.234375093e9*pow(sh,7) -
7008 5.644419255e9*pow(sh,8) + 2.256993135e9*pow(sh,9) -
7009 5.91888983e8*pow(sh,10) + 9.8193564e7*pow(sh,11) -
7010 9.351768e6*pow(sh,12) + 389657.*pow(sh,13)) -
7011 72.63492063492063*pow(ash,2)*pow(-1. + sh,-4)*pow(sh,4)*
7012 (42. - 2268.*sh + 21546.*pow(sh,2) -
7013 79506.*pow(sh,3) + 124821.*pow(sh,4) -
7014 344253.*pow(sh,6) + 669627.*pow(sh,7) -
7015 706482.*pow(sh,8) + 483252.*pow(sh,9) -
7016 225666.*pow(sh,10) + 72738.*pow(sh,11) -
7017 15939.*pow(sh,12) + 2268.*pow(sh,13) -
7018 189.*pow(sh,14) + 7.*pow(sh,15)) -
7019 0.12698412698412698*Li2sh*pow(-1. + sh,-10)*pow(sh,-8)*
7020 (-25025. + 242385.*sh - 1.05138e6*pow(sh,2) +
7021 2.68422e6*pow(sh,3) - 4.45263e6*pow(sh,4) +
7022 4.98771e6*pow(sh,5) - 3.78378e6*pow(sh,6) +
7023 1.88188e6*pow(sh,7) - 559845.*pow(sh,8) +
7024 77077.*pow(sh,9) - 30.*pow(sh,15) + 10.*pow(sh,16))\
7025 - 1.*pow(Lsh,2)*(317.77777777777777*Lshb*
7026 pow(-1. + sh,-3)*pow(sh,-7) -
7027 0.0008818342151675485*pow(-1. + sh,-11)*pow(sh,-16)*
7028 (56. + 434.*sh + 920.*pow(sh,2) -
7029 1480.*pow(sh,3) - 9184.*pow(sh,4) -
7030 8932.*pow(sh,5) + 19712.*pow(sh,6) +
7031 36344.*pow(sh,7) - 1.69477e6*pow(sh,8) +
7032 1.8252907e7*pow(sh,9) - 7.946714e7*pow(sh,10) +
7033 1.8952648e8*pow(sh,11) -
7034 2.77202072e8*pow(sh,12) +
7035 2.5518346e8*pow(sh,13) -
7036 1.39581344e8*pow(sh,14) +
7037 3.2774056e7*pow(sh,15) + 7.750744e6*pow(sh,16) -
7038 6.868451e6*pow(sh,17) + 1.287e6*pow(sh,18) +
7039 2160.*pow(sh,23) - 2880.*pow(sh,24) +
7040 720.*pow(sh,25))) -
7041 1.*Lsh*(635.5555555555555*Li2sh*pow(-1. + sh,-3)*
7042 pow(sh,-7) - 24.211640211640212*ash*sqrt4sh*sqrtsh*
7043 pow(sh,4)*(-216. + 3134.*sh - 8598.*pow(sh,2) -
7044 651.*pow(sh,3) + 21696.*pow(sh,4) -
7045 28281.*pow(sh,5) + 17655.*pow(sh,6) -
7046 6279.*pow(sh,7) + 1302.*pow(sh,8) -
7047 147.*pow(sh,9) + 7.*pow(sh,10)) +
7048 1.3997368494722993e-6*pow(-1. + sh,-11)*pow(sh,-16)*
7049 (-8330. + 7105.*sh + 386410.*pow(sh,2) +
7050 1.18054e6*pow(sh,3) - 798812.*pow(sh,4) -
7051 8.868482e6*pow(sh,5) - 8.370068e6*pow(sh,6) +
7052 3.0826012e7*pow(sh,7) - 1.26704984e9*pow(sh,8) +
7053 1.111592408e10*pow(sh,9) -
7054 3.78378e8*PI2*
7055 pow(-1. + sh,8)*pow(sh,9) -
7056 4.2458337922e10*pow(sh,10) +
7057 9.4156125152e10*pow(sh,11) -
7058 1.3584221371e11*pow(sh,12) +
7059 1.3440382928e11*pow(sh,13) -
7060 9.3541794472e10*pow(sh,14) +
7061 4.634995316e10*pow(sh,15) -
7062 1.6372744375e10*pow(sh,16) +
7063 90720.*Lshb*(-1. + sh)*pow(sh,8)*
7064 (-25025. + 242385.*sh - 1.05138e6*pow(sh,2) +
7065 2.68422e6*pow(sh,3) - 4.45263e6*pow(sh,4) +
7066 4.98771e6*pow(sh,5) - 3.78378e6*pow(sh,6) +
7067 1.88188e6*pow(sh,7) - 559845.*pow(sh,8) +
7068 77077.*pow(sh,9) - 30.*pow(sh,15) +
7069 10.*pow(sh,16)) + 4.01052785e9*pow(sh,17) -
7070 5.55450048e8*pow(sh,18) -
7071 2.6939556e7*pow(sh,19) + 8.322174e6*pow(sh,20) +
7072 8.304786e6*pow(sh,21) - 145404.*pow(sh,22) -
7073 3.19446e6*pow(sh,23) + 483165.*pow(sh,24) +
7074 45765.*pow(sh,25))) -
7075 0.0004409171075837742*pow(lz,2)*pow(sh,-16)*
7076 (28. + 525.*sh + 4695.*pow(sh,2) + 26650.*pow(sh,3) +
7077 107718.*pow(sh,4) + 329043.*pow(sh,5) +
7078 782353.*pow(sh,6) + 1.44144e6*pow(sh,7) -
7079 1.26126e6*pow(sh,8) + 599831.*pow(sh,9) +
7080 230937.*pow(sh,10) - 340854.*pow(sh,11) -
7081 604990.*pow(sh,12) - 577095.*pow(sh,13) -
7082 354945.*pow(sh,14) - 28.*pow(sh,15) -
7083 1.729728e6*pow(sh,16) - 1.757184e6*pow(sh,17) -
7084 1.839552e6*pow(sh,18) - 2.004288e6*pow(sh,19) -
7085 2.855424e6*pow(sh,20) + 2.6138112e7*pow(sh,21) -
7086 1.80276096e8*pow(sh,22) + 2.04107904e8*pow(sh,23) +
7087 2.91953376e8*pow(sh,24) - 8.04076416e8*pow(sh,25) +
7088 7.54586976e8*pow(sh,26) - 3.86127456e8*pow(sh,27) +
7089 1.18294176e8*pow(sh,28) - 2.1717696e7*pow(sh,29) +
7090 2.210208e6*pow(sh,30) - 96096.*pow(sh,31)) -
7091 1.*lz*(-317.77777777777777*pow(Lsh,2)*pow(-1. + sh,-3)*
7092 pow(sh,-7) - 48.423280423280424*ash*sqrt4sh*sqrtsh*
7093 pow(sh,4)*(-216. + 3134.*sh - 8598.*pow(sh,2) -
7094 651.*pow(sh,3) + 21696.*pow(sh,4) -
7095 28281.*pow(sh,5) + 17655.*pow(sh,6) -
7096 6279.*pow(sh,7) + 1302.*pow(sh,8) -
7097 147.*pow(sh,9) + 7.*pow(sh,10)) -
7098 0.001763668430335097*Lsh*pow(-1. + sh,-10)*
7099 pow(sh,-16)*(28. + 245.*sh + 705.*pow(sh,2) -
7100 35.*pow(sh,3) - 4627.*pow(sh,4) -
7101 9093.*pow(sh,5) + 763.*pow(sh,6) +
7102 18935.*pow(sh,7) - 1.594215e6*pow(sh,8) +
7103 1.5443423e7*pow(sh,9) - 6.1656473e7*pow(sh,10) +
7104 1.39716843e8*pow(sh,11) -
7105 2.03006125e8*pow(sh,12) +
7106 1.99413865e8*pow(sh,13) -
7107 1.34518335e8*pow(sh,14) +
7108 6.1151573e7*pow(sh,15) -
7109 1.7326475e7*pow(sh,16) + 2.392884e6*pow(sh,17) +
7110 25200.*pow(sh,18) + 3024.*pow(sh,19) -
7111 7560.*pow(sh,20) - 3276.*pow(sh,21) +
7112 1260.*pow(sh,22) - 180.*pow(sh,23) +
7113 270.*pow(sh,24)) +
7114 4.894184788364682e-9*pow(-1. + sh,-9)*pow(sh,-16)*
7115 (1.19119e6 + 1.366365e6*sh -
7116 5.371509e7*pow(sh,2) - 2.77613765e8*pow(sh,3) -
7117 3.87282324e8*pow(sh,4) +
7118 7.71242043e8*pow(sh,5) +
7119 3.126686134e9*pow(sh,6) +
7120 1.074010509e9*pow(sh,7) +
7121 3.93846095214e11*pow(sh,8) -
7122 2.613136199245e12*pow(sh,9) +
7123 6.74269843533e12*pow(sh,10) -
7124 7.676937500739e12*pow(sh,11) +
7125 1.9905569996e10*pow(sh,12) +
7126 1.1323630699581e13*pow(sh,13) -
7127 1.5234053867994e13*pow(sh,14) +
7128 9.845078305115e12*pow(sh,15) -
7129 2.700610570998e12*pow(sh,16) -
7130 3.170609780136e12*pow(sh,17) +
7131 1.1930111549088e13*pow(sh,18) -
7132 2.3203039225488e13*pow(sh,19) +
7133 2.8131676788624e13*pow(sh,20) -
7134 1.8366269990976e13*pow(sh,21) -
7135 5.86498925406e12*pow(sh,22) -
7136 2.8811545081488e13*pow(sh,23) +
7137 4.5661550453265e14*pow(sh,24) -
7138 1.732122473878368e15*pow(sh,25) +
7139 3.197952696667872e15*pow(sh,26) -
7140 1.902641717625792e15*pow(sh,27) -
7141 5.333806838035104e15*pow(sh,28) +
7142 1.7146879255828608e16*pow(sh,29) -
7143 2.675706192884525e16*pow(sh,30) +
7144 2.8039050515059584e16*pow(sh,31) -
7145 2.1385006944917616e16*pow(sh,32) +
7146 1.2221439347413296e16*pow(sh,33) -
7147 5.277310784521776e15*pow(sh,34) +
7148 1.713784020076128e15*pow(sh,35) -
7149 4.11671384988864e14*pow(sh,36) +
7150 7.0855642249392e13*pow(sh,37) -
7151 8.252635735344e12*pow(sh,38) +
7152 5.81797087872e11*pow(sh,39) -
7153 1.8722239536e10*pow(sh,40))) +
7154 6.7906881845441814e-15*pow(-1. + sh,-10)*pow(sh,-16)*
7155 (-1.522039519e11 + 4.26276275425e11*sh +
7156 3.315607505925e12*pow(sh,2) -
7157 1.9935815474575e13*pow(sh,3) -
7158 1.24680380503679e14*pow(sh,4) -
7159 9.4734104241777e13*pow(sh,5) +
7160 6.72219759402191e14*pow(sh,6) +
7161 2.120473984303675e15*pow(sh,7) +
7162 7.662945656754339e17*pow(sh,8) -
7163 7.132526555906264e18*pow(sh,9) +
7164 2.9416202534538686e19*pow(sh,10) -
7165 7.102049557437948e19*pow(sh,11) +
7166 1.107461387150374e20*pow(sh,12) -
7167 1.1592296841795374e20*pow(sh,13) +
7168 8.202599046107015e19*pow(sh,14) -
7169 3.867573016059e19*pow(sh,15) +
7170 1.1583790708091849e19*pow(sh,16) +
7171 5.455110631455277e16*pow(sh,17) -
7172 9.021690519674575e18*pow(sh,18) +
7173 2.0989006324251304e19*pow(sh,19) -
7174 3.024958551383288e19*pow(sh,20) +
7175 2.6235194397528736e19*pow(sh,21) -
7176 4.751003778396708e18*pow(sh,22) +
7177 3.1013412939244257e19*pow(sh,23) -
7178 4.4030880872708604e20*pow(sh,24) +
7179 1.8521539756313275e21*pow(sh,25) -
7180 4.09723866666257e21*pow(sh,26) +
7181 4.4398535867110675e21*pow(sh,27) +
7182 1.6558648776187506e21*pow(sh,28) -
7183 1.5447456223820402e22*pow(sh,29) +
7184 3.0926810843136838e22*pow(sh,30) -
7185 3.877106240961276e22*pow(sh,31) +
7186 3.495116951810053e22*pow(sh,32) -
7187 2.3715466598184745e22*pow(sh,33) +
7188 1.231700538915695e22*pow(sh,34) -
7189 4.908204594473572e21*pow(sh,35) +
7190 1.4885933408647808e21*pow(sh,36) -
7191 3.372012167296045e20*pow(sh,37) +
7192 5.517431714182939e19*pow(sh,38) -
7193 6.150944761142205e18*pow(sh,39) +
7194 4.174745980836151e17*pow(sh,40) -
7195 1.2998152420597344e16*pow(sh,41) +
7196 4.32864432e10*PI2*
7197 (84. + 735.*sh + 2115.*pow(sh,2) -
7198 105.*pow(sh,3) - 13881.*pow(sh,4) -
7199 27279.*pow(sh,5) + 2289.*pow(sh,6) +
7200 56805.*pow(sh,7) - 1.2530385e7*pow(sh,8) +
7201 1.20589919e8*pow(sh,9) -
7202 5.04052193e8*pow(sh,10) +
7203 1.226945139e9*pow(sh,11) -
7204 1.939059325e9*pow(sh,12) +
7205 2.078426665e9*pow(sh,13) -
7206 1.520105055e9*pow(sh,14) +
7207 7.36103333e8*pow(sh,15) -
7208 2.14713611e8*pow(sh,16) +
7209 1.9961346e7*pow(sh,17) +
7210 3.7191526e7*pow(sh,18) -
7211 8.4336034e7*pow(sh,19) +
7212 1.23678654e8*pow(sh,20) -
7213 1.54538642e8*pow(sh,21) +
7214 5.6921303e8*pow(sh,22) -
7215 3.377351682e9*pow(sh,23) +
7216 1.3338367312e10*pow(sh,24) -
7217 3.3040152232e10*pow(sh,25) +
7218 4.7430542016e10*pow(sh,26) -
7219 1.4900494752e10*pow(sh,27) -
7220 1.03195325376e11*pow(sh,28) +
7221 2.85860573856e11*pow(sh,29) -
7222 4.41409041216e11*pow(sh,30) +
7223 4.79314177056e11*pow(sh,31) -
7224 3.90721421376e11*pow(sh,32) +
7225 2.45176465248e11*pow(sh,33) -
7226 1.19414737728e11*pow(sh,34) +
7227 4.5058851552e10*pow(sh,35) -
7228 1.3033582848e10*pow(sh,36) +
7229 2.831770656e9*pow(sh,37) -
7230 4.46462016e8*pow(sh,38) +
7231 4.8144096e7*pow(sh,39) - 3.171168e6*pow(sh,40) +
7232 96096.*pow(sh,41))))*pow(z,9);
7233 }
7234 else {
7235 res += pow(z,9)*(-4690.616436608783 +
7236 321124.035320987*(1. - 1.*sh) +
7237 961535.3725143364*pow(1. - 1.*sh,2) +
7238 3.097773872353616e6*pow(1. - 1.*sh,3) +
7239 log(z)*(-16520.037265205938 +
7240 98045.98792298837*(1. - 1.*sh) -
7241 116206.46863444796*pow(1. - 1.*sh,2) -
7242 756704.7491730026*pow(1. - 1.*sh,3) -
7243 1.3920173353150578e6*pow(1. - 1.*sh,4)) +
7244 1.2094091231182646e7*pow(1. - 1.*sh,4) +
7245 (2118.6666666666665 + 1750.*(1. - 1.*sh) -
7246 75789.11111111111*pow(1. - 1.*sh,2) -
7247 190615.42857142858*pow(1. - 1.*sh,3) -
7248 588434.7301587302*pow(1. - 1.*sh,4))*pow(log(z),2));
7249 }
7250 }
7251
7252 if(19<=maxpow) {
7253 if(sh<.900001) {
7254 res += -2.0125073242295363e-7*PI2*pow(sh,-17)*
7255 (109395. + 2.16216e6*sh + 2.0430696e7*pow(sh,2) +
7256 1.22866128e8*pow(sh,3) + 5.27900436e8*pow(sh,4) +
7257 1.72236568e9*pow(sh,5) + 4.41295356e9*pow(sh,6) +
7258 8.96714376e9*pow(sh,7) + 1.385377093e10*pow(sh,8) +
7259 8.96714376e9*pow(sh,9) + 4.41295356e9*pow(sh,10) +
7260 1.72236568e9*pow(sh,11) + 5.27900436e8*pow(sh,12) +
7261 1.22866128e8*pow(sh,13) + 2.0430696e7*pow(sh,14) +
7262 2.16216e6*pow(sh,15) + 109395.*pow(sh,16))*pow(z,9.5);
7263 }
7264 else {
7265 res += (-90187.62792572267 - 811688.6513315039*(1. - 1.*sh) -
7266 4.166668410168387e6*pow(1. - 1.*sh,2) -
7267 1.596321014285291e7*pow(1. - 1.*sh,3) -
7268 5.066289998727471e7*pow(1. - 1.*sh,4))*pow(z,9.5);
7269 }
7270 }
7271
7272 if(20<=maxpow) {
7273 if(sh<.900001) {
7274 res += (-2308.8990274220037*pow(-1. + sh,-3)*pow(sh,-8) +
7275 1920.79012345679*Li3sh*pow(-1. + sh,-3)*pow(sh,-8) -
7276 640.2633744855967*pow(Lsh,3)*pow(-1. + sh,-3)*
7277 pow(sh,-8) - 18.158730158730158*cl2*sqrt4sh*sqrtsh*
7278 pow(sh,4)*(-80. + 5340.*sh - 47370.*pow(sh,2) +
7279 109970.*pow(sh,3) + 2889.*pow(sh,4) -
7280 292716.*pow(sh,5) + 440556.*pow(sh,6) -
7281 328734.*pow(sh,7) + 146475.*pow(sh,8) -
7282 40768.*pow(sh,9) + 6972.*pow(sh,10) -
7283 672.*pow(sh,11) + 28.*pow(sh,12)) -
7284 0.0028218694885361554*ash*sqrt4sh*sqrtsh*
7285 pow(-1. + sh,-3)*pow(sh,4)*
7286 (1.1035e6 - 7.72587e7*sh + 8.84076615e8*pow(sh,2) -
7287 3.732489695e9*pow(sh,3) + 6.571169658e9*pow(sh,4) -
7288 8.05040586e8*pow(sh,5) -
7289 1.7678698868e10*pow(sh,6) +
7290 3.6419080572e10*pow(sh,7) -
7291 3.9440395638e10*pow(sh,8) +
7292 2.7362254298e10*pow(sh,9) -
7293 1.2874702995e10*pow(sh,10) +
7294 4.165441731e9*pow(sh,11) -
7295 9.14198644e8*pow(sh,12) + 1.30140756e8*pow(sh,13) -
7296 1.0845063e7*pow(sh,14) + 401669.*pow(sh,15)) +
7297 54.476190476190474*pow(ash,2)*pow(-1. + sh,-4)*
7298 pow(sh,5)*(-1890. + 45864.*sh - 340200.*pow(sh,2) +
7299 1.13508e6*pow(sh,3) - 1.721265e6*pow(sh,4) +
7300 4.925592e6*pow(sh,6) - 1.01388e7*pow(sh,7) +
7301 1.158381e7*pow(sh,8) - 8.79228e6*pow(sh,9) +
7302 4.68432e6*pow(sh,10) - 1.782648e6*pow(sh,11) +
7303 482895.*pow(sh,12) - 91000.*pow(sh,13) +
7304 11340.*pow(sh,14) - 840.*pow(sh,15) + 28.*pow(sh,16)
7305 ) - 0.003527336860670194*Li2sh*pow(-1. + sh,-11)*
7306 pow(sh,-9)*(2.994992e6 - 3.202199e7*sh +
7307 1.54990836e8*pow(sh,2) - 4.47615168e8*pow(sh,3) +
7308 8.5514352e8*pow(sh,4) - 1.130787504e9*pow(sh,5) +
7309 1.04997984e9*pow(sh,6) - 6.77511744e8*pow(sh,7) +
7310 2.91603312e8*pow(sh,8) - 7.589582e7*pow(sh,9) +
7311 9.069632e6*pow(sh,10) - 1071.*pow(sh,17) +
7312 378.*pow(sh,18)) -
7313 0.00003919263178522438*pow(Lsh,2)*pow(-1. + sh,-12)*
7314 pow(sh,-18)*(1008. + 8848.*sh + 23688.*pow(sh,2) -
7315 17352.*pow(sh,3) - 212592.*pow(sh,4) -
7316 311184.*pow(sh,5) + 400176.*pow(sh,6) +
7317 1.492176e6*pow(sh,7) - 255024.*pow(sh,8) -
7318 1.29624264e8*pow(sh,9) + 1.494083496e9*pow(sh,10) +
7319 2.450448e7*Lshb*pow(-1. + sh,9)*pow(sh,10) -
7320 7.309557639e9*pow(sh,11) +
7321 2.0237476311e10*pow(sh,12) -
7322 3.5492453304e10*pow(sh,13) +
7323 4.1152337856e10*pow(sh,14) -
7324 3.1358059992e10*pow(sh,15) +
7325 1.4540248968e10*pow(sh,16) -
7326 2.862291672e9*pow(sh,17) -
7327 7.07775372e8*pow(sh,18) + 5.21810798e8*pow(sh,19) -
7328 8.729721e7*pow(sh,20) - 48195.*pow(sh,26) +
7329 65205.*pow(sh,27) - 17010.*pow(sh,28)) -
7330 1.*Lsh*(1920.79012345679*Li2sh*pow(-1. + sh,-3)*
7331 pow(sh,-8) + 18.158730158730158*ash*sqrt4sh*sqrtsh*
7332 pow(sh,4)*(-80. + 5340.*sh - 47370.*pow(sh,2) +
7333 109970.*pow(sh,3) + 2889.*pow(sh,4) -
7334 292716.*pow(sh,5) + 440556.*pow(sh,6) -
7335 328734.*pow(sh,7) + 146475.*pow(sh,8) -
7336 40768.*pow(sh,9) + 6972.*pow(sh,10) -
7337 672.*pow(sh,11) + 28.*pow(sh,12)) +
7338 3.110526332160665e-8*pow(-1. + sh,-12)*pow(sh,-18)*
7339 (268128. - 217952.*sh - 1.5087492e7*pow(sh,2) -
7340 5.5721052e7*pow(sh,3) + 6.214128e6*pow(sh,4) +
7341 4.11907536e8*pow(sh,5) +
7342 6.39424296e8*pow(sh,6) -
7343 9.51140904e8*pow(sh,7) -
7344 4.300216704e9*pow(sh,8) +
7345 2.10516991776e11*pow(sh,9) -
7346 2.032987285082e12*pow(sh,10) -
7347 5.1459408e10*PI2*
7348 pow(-1. + sh,9)*pow(sh,10) +
7349 9.023354904168e12*pow(sh,11) -
7350 2.3780297815902e13*pow(sh,12) +
7351 4.1583846173268e13*pow(sh,13) -
7352 5.1006645964512e13*pow(sh,14) +
7353 4.5153977310666e13*pow(sh,15) -
7354 2.9201144245014e13*pow(sh,16) +
7355 1.3766871963636e13*pow(sh,17) -
7356 4.614035001354e12*pow(sh,18) +
7357 113400.*Lshb*(-1. + sh)*pow(sh,9)*
7358 (2.994992e6 - 3.202199e7*sh +
7359 1.54990836e8*pow(sh,2) -
7360 4.47615168e8*pow(sh,3) +
7361 8.5514352e8*pow(sh,4) -
7362 1.130787504e9*pow(sh,5) +
7363 1.04997984e9*pow(sh,6) -
7364 6.77511744e8*pow(sh,7) +
7365 2.91603312e8*pow(sh,8) -
7366 7.589582e7*pow(sh,9) +
7367 9.069632e6*pow(sh,10) - 1071.*pow(sh,17) +
7368 378.*pow(sh,18)) +
7369 1.002872187451e12*pow(sh,19) -
7370 9.8190802773e10*pow(sh,20) -
7371 3.808374948e9*pow(sh,21) -
7372 9.21449088e8*pow(sh,22) +
7373 6.24678642e8*pow(sh,23) +
7374 3.85332282e8*pow(sh,24) - 3.60261e7*pow(sh,25) -
7375 1.46109825e8*pow(sh,26) + 2.65041e7*pow(sh,27) +
7376 1.598625e6*pow(sh,28))) -
7377 0.00003919263178522438*pow(lz,2)*pow(sh,-18)*
7378 (252. + 5236.*sh + 52122.*pow(sh,2) +
7379 330990.*pow(sh,3) + 1.50586e6*pow(sh,4) +
7380 5.221788e6*pow(sh,5) + 1.4306214e7*pow(sh,6) +
7381 3.1500898e7*pow(sh,7) + 5.513508e7*pow(sh,8) -
7382 4.900896e7*pow(sh,9) + 2.668511e7*pow(sh,10) +
7383 1.4613135e7*pow(sh,11) - 8.763045e6*pow(sh,12) -
7384 2.218345e7*pow(sh,13) - 2.506596e7*pow(sh,14) -
7385 2.0910477e7*pow(sh,15) - 1.2190381e7*pow(sh,16) -
7386 252.*pow(sh,17) - 6.48648e7*pow(sh,18) -
7387 6.555978e7*pow(sh,19) - 6.764472e7*pow(sh,20) -
7388 7.18146e7*pow(sh,21) - 7.87644e7*pow(sh,22) -
7389 3.081078e8*pow(sh,23) + 4.33296864e9*pow(sh,24) -
7390 2.046808764e10*pow(sh,25) +
7391 2.24524872e10*pow(sh,26) +
7392 3.088433205e10*pow(sh,27) -
7393 9.73829142e10*pow(sh,28) +
7394 1.059717087e11*pow(sh,29) -
7395 6.5108043e10*pow(sh,30) +
7396 2.507429925e10*pow(sh,31) -
7397 6.1945884e9*pow(sh,32) + 9.567558e8*pow(sh,33) -
7398 8.432424e7*pow(sh,34) + 3.24324e6*pow(sh,35)) -
7399 1.*lz*(-960.395061728395*pow(Lsh,2)*pow(-1. + sh,-3)*
7400 pow(sh,-8) + 36.317460317460316*ash*sqrt4sh*sqrtsh*
7401 pow(sh,4)*(-80. + 5340.*sh - 47370.*pow(sh,2) +
7402 109970.*pow(sh,3) + 2889.*pow(sh,4) -
7403 292716.*pow(sh,5) + 440556.*pow(sh,6) -
7404 328734.*pow(sh,7) + 146475.*pow(sh,8) -
7405 40768.*pow(sh,9) + 6972.*pow(sh,10) -
7406 672.*pow(sh,11) + 28.*pow(sh,12)) -
7407 0.00007838526357044875*Lsh*pow(-1. + sh,-11)*
7408 pow(sh,-18)*(-504. - 4928.*sh - 16772.*pow(sh,2) -
7409 8096.*pow(sh,3) + 98200.*pow(sh,4) +
7410 253792.*pow(sh,5) + 53704.*pow(sh,6) -
7411 692384.*pow(sh,7) - 564872.*pow(sh,8) +
7412 1.224454e8*pow(sh,9) -
7413 1.288450948e9*pow(sh,10) +
7414 5.852563529e9*pow(sh,11) -
7415 1.5415053304e10*pow(sh,12) +
7416 2.6502321608e10*pow(sh,13) -
7417 3.144127168e10*pow(sh,14) +
7418 2.6331569936e10*pow(sh,15) -
7419 1.5529376128e10*pow(sh,16) +
7420 6.238441328e9*pow(sh,17) -
7421 1.555660876e9*pow(sh,18) +
7422 1.7969985e8*pow(sh,19) + 864864.*pow(sh,20) +
7423 769608.*pow(sh,21) - 13608.*pow(sh,22) -
7424 222264.*pow(sh,23) - 69120.*pow(sh,24) +
7425 36360.*pow(sh,25) - 3465.*pow(sh,26) +
7426 5355.*pow(sh,27)) +
7427 1.2795254348665836e-11*pow(-1. + sh,-10)*pow(sh,-18)*
7428 (-3.25909584e8 - 3.86898512e8*sh +
7429 1.7890959086e10*pow(sh,2) +
7430 1.0389775539e11*pow(sh,3) +
7431 1.8235127911e11*pow(sh,4) -
7432 2.39868807178e11*pow(sh,5) -
7433 1.439309125254e12*pow(sh,6) -
7434 1.482637674518e12*pow(sh,7) +
7435 3.70094717993e12*pow(sh,8) -
7436 5.3120395014687e14*pow(sh,9) +
7437 4.14643042172931e15*pow(sh,10) -
7438 1.345200523191798e16*pow(sh,11) +
7439 2.254936255887042e16*pow(sh,12) -
7440 1.699263013683648e16*pow(sh,13) -
7441 6.14963216664132e15*pow(sh,14) +
7442 2.740944223315607e16*pow(sh,15) -
7443 2.8637380687636936e16*pow(sh,16) +
7444 1.5526446414793194e16*pow(sh,17) -
7445 4.836946771691055e15*pow(sh,18) +
7446 5.380798436415755e15*pow(sh,19) -
7447 1.974903378165775e16*pow(sh,20) +
7448 4.525406630722413e16*pow(sh,21) -
7449 6.653785922015247e16*pow(sh,22) +
7450 6.66839502419495e16*pow(sh,23) -
7451 6.049729378013662e16*pow(sh,24) +
7452 7.411696572018171e16*pow(sh,25) +
7453 2.463627215549949e17*pow(sh,26) -
7454 2.690872861043421e18*pow(sh,27) +
7455 1.035946806297679e19*pow(sh,28) -
7456 2.182665348950866e19*pow(sh,29) +
7457 2.151768755011101e19*pow(sh,30) +
7458 1.6939887428138682e19*pow(sh,31) -
7459 1.0333267615804637e20*pow(sh,32) +
7460 2.0555129789476546e20*pow(sh,33) -
7461 2.6641684480745528e20*pow(sh,34) +
7462 2.5331099541938533e20*pow(sh,35) -
7463 1.8430954123554472e20*pow(sh,36) +
7464 1.0440880163165341e20*pow(sh,37) -
7465 4.6274661819032445e19*pow(sh,38) +
7466 1.5988086524017488e19*pow(sh,39) -
7467 4.2570217606020905e18*pow(sh,40) +
7468 8.554234587216317e17*pow(sh,41) -
7469 1.252838056241772e17*pow(sh,42) +
7470 1.26021689978184e16*pow(sh,43) -
7471 7.7738941071792e14*pow(sh,44) +
7472 2.214605244852e13*pow(sh,45))) -
7473 2.088639195553766e-18*pow(-1. + sh,-11)*pow(sh,-18)*
7474 (-3.16414088198208e14 + 9.74539823921664e14*sh +
7475 8.087033764735926e15*pow(sh,2) -
7476 5.684694862939435e16*pow(sh,3) -
7477 4.0319420043801754e17*pow(sh,4) -
7478 4.882604186351892e17*pow(sh,5) +
7479 1.9325128069129482e18*pow(sh,6) +
7480 6.292691026868566e18*pow(sh,7) +
7481 6.880478820028293e18*pow(sh,8) +
7482 8.434058124662613e21*pow(sh,9) -
7483 8.666666875206849e22*pow(sh,10) +
7484 3.988848694569122e23*pow(sh,11) -
7485 1.0892247798831997e24*pow(sh,12) +
7486 1.956951254970254e24*pow(sh,13) -
7487 2.420742712936919e24*pow(sh,14) +
7488 2.0958116597163414e24*pow(sh,15) -
7489 1.2670164385119088e24*pow(sh,16) +
7490 5.268571590407634e23*pow(sh,17) -
7491 1.5075131737158982e23*pow(sh,18) +
7492 5.5099869108338715e22*pow(sh,19) -
7493 1.2335610340065616e23*pow(sh,20) +
7494 3.125948051315389e23*pow(sh,21) -
7495 5.329144661412522e23*pow(sh,22) +
7496 6.337672351589234e23*pow(sh,23) -
7497 6.415906398957901e23*pow(sh,24) +
7498 7.960742052832872e23*pow(sh,25) +
7499 1.0407339222184654e24*pow(sh,26) -
7500 1.8365456331044262e25*pow(sh,27) +
7501 8.185263022637105e25*pow(sh,28) -
7502 2.0381593674174775e26*pow(sh,29) +
7503 2.86653881719294e26*pow(sh,30) -
7504 8.60180283451487e25*pow(sh,31) -
7505 6.102598804051836e26*pow(sh,32) +
7506 1.677905797647036e27*pow(sh,33) -
7507 2.6085143775451684e27*pow(sh,34) +
7508 2.8903964656452616e27*pow(sh,35) -
7509 2.4393048290135273e27*pow(sh,36) +
7510 1.610228894638015e27*pow(sh,37) -
7511 8.401871973947814e26*pow(sh,38) +
7512 3.469550828380025e26*pow(sh,39) -
7513 1.1272782566287204e26*pow(sh,40) +
7514 2.8443789274384395e25*pow(sh,41) -
7515 5.451981703535345e24*pow(sh,42) +
7516 7.659728477371017e23*pow(sh,43) -
7517 7.427478422398451e22*pow(sh,44) +
7518 4.435813069347255e21*pow(sh,45) -
7519 1.2279937968685318e20*pow(sh,46) +
7520 6.2548910424e12*PI2*
7521 (1512. + 14784.*sh + 50316.*pow(sh,2) +
7522 24288.*pow(sh,3) - 294600.*pow(sh,4) -
7523 761376.*pow(sh,5) - 161112.*pow(sh,6) +
7524 2.077152e6*pow(sh,7) + 1.694616e6*pow(sh,8) -
7525 9.4319148e8*pow(sh,9) +
7526 9.967342612e9*pow(sh,10) -
7527 4.6850139311e10*pow(sh,11) +
7528 1.30210149496e11*pow(sh,12) -
7529 2.38833139832e11*pow(sh,13) +
7530 3.0372906844e11*pow(sh,14) -
7531 2.72391022736e11*pow(sh,15) +
7532 1.70802069088e11*pow(sh,16) -
7533 7.1983905728e10*pow(sh,17) +
7534 1.8589933516e10*pow(sh,18) -
7535 2.99998765e9*pow(sh,19) +
7536 3.44063258e9*pow(sh,20) -
7537 8.9705161e9*pow(sh,21) +
7538 1.535557394e10*pow(sh,22) -
7539 1.759879618e10*pow(sh,23) +
7540 1.0323785e9*pow(sh,24) +
7541 1.54134820988e11*pow(sh,25) -
7542 1.050042005659e12*pow(sh,26) +
7543 4.280975184059e12*pow(sh,27) -
7544 1.1452618278108e13*pow(sh,28) +
7545 1.942055517402e13*pow(sh,29) -
7546 1.455317517654e13*pow(sh,30) -
7547 2.304660776418e13*pow(sh,31) +
7548 9.97892002107e13*pow(sh,32) -
7549 1.907859269745e14*pow(sh,33) +
7550 2.504750279031e14*pow(sh,34) -
7551 2.483138624967e14*pow(sh,35) +
7552 1.926820640745e14*pow(sh,36) -
7553 1.188407379159e14*pow(sh,37) +
7554 5.85603387369e13*pow(sh,38) -
7555 2.301507374166e13*pow(sh,39) +
7556 7.15907863242e12*pow(sh,40) -
7557 1.73763555966e12*pow(sh,41) +
7558 3.216402189e11*pow(sh,42) -
7559 4.378374e10*pow(sh,43) +
7560 4.12540128e9*pow(sh,44) -
7561 2.3999976e8*pow(sh,45) + 6.48648e6*pow(sh,46))))*
7562 pow(z,10);
7563 }
7564 else {
7565 res += pow(z,10)*(-17049.22407154544 +
7566 1.353794886924289e6*(1. - 1.*sh) +
7567 4.391392784391852e6*pow(1. - 1.*sh,2) +
7568 1.5300364856715955e7*pow(1. - 1.*sh,3) +
7569 log(z)*(-61419.777963609034 +
7570 419629.83709526435*(1. - 1.*sh) -
7571 520544.42467293935*pow(1. - 1.*sh,2) -
7572 3.6331088115191273e6*pow(1. - 1.*sh,3) -
7573 6.288069761175393e6*pow(1. - 1.*sh,4)) +
7574 6.5229455380236745e7*pow(1. - 1.*sh,4) +
7575 (8139.7037037037035 + 7919.111111111111*(1. - 1.*sh) -
7576 349917.4222222222*pow(1. - 1.*sh,2) -
7577 916483.2649029982*pow(1. - 1.*sh,3) -
7578 3.054749884303351e6*pow(1. - 1.*sh,4))*pow(log(z),2)
7579 );
7580 }
7581 }
7582
7583 }
7584 return res;
7585}
7586
7587
7588double f_27_im(double sh, double z, size_t maxpow) {
7589 double lz = log(z);
7590
7591 double Lsh = log(sh);
7592 double Lshb = log(1.-sh);
7593 double Li2sh = real(CLi2(sh));
7594 double Li3sh = real(CLi3(sh));
7595 // double Li3shb = real(CLi3(1.-sh));
7596 // double Li4sh = real(CLi4(sh));
7597 // double sqrtsh = sqrt(sh);
7598 // double sqrt4sh = sqrt(4.-sh);
7599 // double ash = asin(sqrtsh/2.);
7600 // double cl2 = Cl2(2.*ash);
7601 // double cl3 = Cl3(2.*ash);
7602
7603
7604 double res=0;
7605
7606 if(sh<0.4) {
7607 res = 3.10281 - 8.37758*sh - 2.792525*lz*sh - 9.55118*z -
7608 5.58505*lz*z - 34.6839*sh*z - 5.58505*Lsh*sh*z -
7609 39.0954*lz*sh*z - 5.58505*z*pow(lz,2) -
7610 5.58505*sh*z*pow(lz,2) - 9.54113*pow(sh,2) -
7611 2.792525*lz*pow(sh,2) - 88.6728*z*pow(sh,2) -
7612 11.1701*Lsh*z*pow(sh,2) - 67.0205*lz*z*pow(sh,2) -
7613 5.58505*z*pow(lz,2)*pow(sh,2) - 9.82039*pow(sh,3) -
7614 2.792525*lz*pow(sh,3) - 154.918*z*pow(sh,3) -
7615 16.7552*Lsh*z*pow(sh,3) - 93.084*lz*z*pow(sh,3) -
7616 5.58505*z*pow(lz,2)*pow(sh,3) -
7617 0.015514*pow(sh,3)*pow(z,-2) +
7618 0.15514*pow(sh,3)*pow(z,-1) + 18.3741*pow(z,2) +
7619 91.4251*sh*pow(z,2) - 33.5103*lz*sh*pow(z,2) -
7620 22.3402*Lsh*lz*sh*pow(z,2) -
7621 5.58505*pow(lz,2)*pow(z,2) -
7622 27.92525*sh*pow(lz,2)*pow(z,2) +
7623 196.813*pow(sh,2)*pow(z,2) -
7624 22.3402*Lsh*pow(sh,2)*pow(z,2) -
7625 117.286*lz*pow(sh,2)*pow(z,2) -
7626 67.0205*Lsh*lz*pow(sh,2)*pow(z,2) -
7627 67.02075*pow(lz,2)*pow(sh,2)*pow(z,2) +
7628 314.524*pow(sh,3)*pow(z,2) -
7629 78.1908*Lsh*pow(sh,3)*pow(z,2) -
7630 266.221*lz*pow(sh,3)*pow(z,2) -
7631 134.0415*Lsh*lz*pow(sh,3)*pow(z,2) -
7632 122.87125*pow(lz,2)*pow(sh,3)*pow(z,2) -
7633 17.3757*pow(z,3) + 7.44675*lz*pow(z,3) -
7634 94.1903*sh*pow(z,3) - 11.1701*Lsh*sh*pow(z,3) +
7635 74.4675*lz*sh*pow(z,3) + 22.3402*Lsh*lz*sh*pow(z,3) -
7636 209.21*pow(sh,2)*pow(z,3) -
7637 22.3402*Lsh*pow(sh,2)*pow(z,3) +
7638 242.019*lz*pow(sh,2)*pow(z,3) +
7639 89.361*Lsh*lz*pow(sh,2)*pow(z,3) -
7640 325.499*pow(sh,3)*pow(z,3) -
7641 11.1701*Lsh*pow(sh,3)*pow(z,3) +
7642 554.78*lz*pow(sh,3)*pow(z,3) +
7643 223.402*Lsh*lz*pow(sh,3)*pow(z,3);
7644 }
7645 else{
7646 if(sh<.900001) {
7647 res += (-2.792526803190927*Lsh*sh*(-1. + 2.*sh)*pow(-1. + sh,-3) +
7648 0.1551403779550515*pow(-1. + sh,-2)*
7649 (20. - 49.*sh + 47.*pow(sh,2)))*1.;
7650 }
7651 else {
7652 res += (4.964492094561648 - 0.6981317007977318*(1. - 1.*sh) -
7653 0.32579479370560815*pow(1. - 1.*sh,2) -
7654 0.18616845354606182*pow(1. - 1.*sh,3) -
7655 0.11967972013675403*pow(1. - 1.*sh,4))*1.;
7656 }
7657
7658 if(1<=maxpow) {
7659 if(sh<.900001) {
7660 res += 0.;
7661 }
7662 else {
7663 res += 0.;
7664 }
7665 }
7666
7667 if(2<=maxpow) {
7668 if(sh<.900001) {
7669 res += (53.70841793654156*sh*pow(-1. + sh,-3) -
7670 44.680428851054835*Li3sh*sh*pow(-1. + sh,-3) +
7671 5.585053606381854*Li2sh*(-5. + 3.*sh)*
7672 pow(-1. + sh,-3) + 3.723369070921236*sh*pow(Lsh,3)*
7673 pow(-1. + sh,-3) - 11.170107212763709*pow(Lsh,2)*
7674 pow(-1. + sh,-2) - 1.*Lsh*
7675 (-22.340214425527417*Li2sh*sh*pow(-1. + sh,-3) -
7676 5.585053606381854*pow(-1. + sh,-3)*
7677 (3. + Lshb*(-5. + 3.*sh) +
7678 2.*sh*PI2 - 2.*pow(sh,2)))\
7679 - 0.930842267730309*pow(-1. + sh,-3)*
7680 (-6.*(2. - 5.*sh + 3.*pow(sh,2)) +
7681 PI2*
7682 (-9. + 3.*sh + 4.*pow(sh,2))))*pow(z,1);
7683 }
7684 else {
7685 res += (-25.126044626684017 - 16.441531762218297*(1. - 1.*sh) -
7686 12.739670260838084*pow(1. - 1.*sh,2) -
7687 10.578200186941283*pow(1. - 1.*sh,3) -
7688 9.130437128725532*pow(1. - 1.*sh,4))*pow(z,1);
7689 }
7690 }
7691
7692 if(3<=maxpow) {
7693 if(sh<.900001) {
7694 res += 0.;
7695 }
7696 else {
7697 res += 0.;
7698 }
7699 }
7700
7701 if(4<=maxpow) {
7702 if(sh<.900001) {
7703 res += (-5.585053606381854*Li2sh*(-2. + 7.*sh)*pow(-1. + sh,-3) -
7704 5.585053606381854*pow(Lsh,2)*pow(-1. + sh,-2) -
7705 1.*lz*(-39.09537524467298*Lsh*sh*pow(-1. + sh,-3) +
7706 2.792526803190927*pow(-1. + sh,-2)*pow(sh,-2)*
7707 (2. - 7.*sh + 15.*pow(sh,2) + 4.*pow(sh,3))) +
7708 0.4654211338651545*pow(-1. + sh,-3)*pow(sh,-2)*
7709 (-18. + 63.*sh - 2.*
7710 (63. + 2.*PI2)*pow(sh,2) +
7711 (9. + 14.*PI2)*pow(sh,3) +
7712 36.*pow(sh,4)) -
7713 2.792526803190927*Lsh*pow(-1. + sh,-4)*pow(sh,-2)*
7714 (-4. + 13.*sh + (-21. + 4.*Lshb)*pow(sh,2) +
7715 (11. - 18.*Lshb)*pow(sh,3) +
7716 (-5. + 14.*Lshb)*pow(sh,4)))*pow(z,2);
7717 }
7718 else {
7719 res += (-9.153282299348039 - 18.43843391995787*(1. - 1.*sh) -
7720 29.484428830357537*pow(1. - 1.*sh,2) -
7721 43.167588536881716*pow(1. - 1.*sh,3) +
7722 log(z)*(-3.723369070921236 -
7723 6.050474740247009*(1. - 1.*sh) -
7724 10.332349171806431*pow(1. - 1.*sh,2) -
7725 15.265813190777068*pow(1. - 1.*sh,3) -
7726 20.4785298900668*pow(1. - 1.*sh,4)) -
7727 59.199668549550246*pow(1. - 1.*sh,4))*pow(z,2);
7728 }
7729 }
7730
7731 if(5<=maxpow) {
7732 if(sh<.900001) {
7733 res += 0.;}
7734 else {
7735 res += 0.;
7736 }
7737 }
7738
7739 if(6<=maxpow) {
7740 if(sh<.900001) {
7741 res += (11.170107212763709*pow(Lsh,2)*pow(-1. + sh,-3)*pow(sh,-1) -
7742 11.170107212763709*Li2sh*pow(-1. + sh,-4)*pow(sh,-1)*
7743 (1. - 1.*sh + 2.*pow(sh,2)) -
7744 0.930842267730309*Lsh*pow(-1. + sh,-5)*pow(sh,-4)*
7745 (4. + 4.*sh - 71.*pow(sh,2) +
7746 (155. - 12.*Lshb)*pow(sh,3) +
7747 2.*(-83. + 12.*Lshb)*pow(sh,4) +
7748 (98. - 36.*Lshb)*pow(sh,5) +
7749 12.*(-3. + 2.*Lshb)*pow(sh,6)) -
7750 1.*lz*(-11.170107212763709*Lsh*pow(-1. + sh,-4)*
7751 pow(sh,-1)*(1. - 1.*sh + 2.*pow(sh,2)) -
7752 0.930842267730309*pow(-1. + sh,-3)*pow(sh,-4)*
7753 (2. + 6.*sh - 45.*pow(sh,2) + 61.*pow(sh,3) -
7754 41.*pow(sh,4) - 11.*pow(sh,5) + 4.*pow(sh,6))) -
7755 0.1551403779550515*pow(-1. + sh,-4)*pow(sh,-4)*
7756 (-10. + 10.*sh + 54.*pow(sh,2) +
7757 (46. - 12.*PI2)*pow(sh,3) +
7758 3.*(-53. + 4.*PI2)*pow(sh,4) -
7759 24.*(-10. + PI2)*pow(sh,5) -
7760 141.*pow(sh,6) + 32.*pow(sh,7)))*pow(z,3);
7761 }
7762 else {
7763 res += (-13.97814805375014 - 45.88121537642694*(1. - 1.*sh) -
7764 113.65495437342528*pow(1. - 1.*sh,2) -
7765 229.22586075329383*pow(1. - 1.*sh,3) +
7766 log(z)*(-0.930842267730309 -
7767 18.430676901060117*(1. - 1.*sh) -
7768 51.75483008580519*pow(1. - 1.*sh,2) -
7769 103.16391875788196*pow(1. - 1.*sh,3) -
7770 174.70579590629714*pow(1. - 1.*sh,4)) -
7771 403.9971955539516*pow(1. - 1.*sh,4))*pow(z,3);
7772 }
7773 }
7774
7775 if(7<=maxpow) {
7776 if(sh<.900001) {
7777 res += 0.;
7778 }
7779 else {
7780 res += 0.;
7781 }
7782 }
7783
7784 if(8<=maxpow) {
7785 if(sh<.900001) {
7786 res += (18.61684535460618*Li2sh*pow(-1. + sh,-3)*pow(sh,-2) +
7787 18.61684535460618*pow(Lsh,2)*pow(-1. + sh,-3)*
7788 pow(sh,-2) - 1.*lz*
7789 (18.61684535460618*Lsh*pow(-1. + sh,-3)*pow(sh,-2) +
7790 0.310280755910103*pow(-1. + sh,-2)*pow(sh,-6)*
7791 (3. + 19.*sh + 43.*pow(sh,2) - 260.*pow(sh,3) +
7792 225.*pow(sh,4) - 105.*pow(sh,5) + 15.*pow(sh,6)))
7793 + 0.310280755910103*Lsh*pow(-1. + sh,-6)*pow(sh,-6)*
7794 (6. + 14.*sh - 30.*pow(sh,2) - 405.*pow(sh,3) +
7795 (1569. - 60.*Lshb)*pow(sh,4) +
7796 15.*(-169. + 12.*Lshb)*pow(sh,5) +
7797 (2235. - 180.*Lshb)*pow(sh,6) +
7798 (-1037. + 60.*Lshb)*pow(sh,7) + 213.*pow(sh,8)) -
7799 0.025856729659175254*pow(-1. + sh,-5)*pow(sh,-6)*
7800 (21. - 10.*sh - 307.*pow(sh,2) + 1247.*pow(sh,3) +
7801 (-3143. + 120.*PI2)*
7802 pow(sh,4) + (3526. -
7803 240.*PI2)*pow(sh,5) +
7804 (397. + 120.*PI2)*pow(sh,6) -
7805 2577.*pow(sh,7) + 1140.*pow(sh,8) +
7806 138.*pow(sh,9) - 72.*pow(sh,10)))*pow(z,4);
7807 }
7808 else {
7809 res += (-17.996283842785974 - 135.35554718355516*(1. - 1.*sh) -
7810 472.35812505085903*pow(1. - 1.*sh,2) -
7811 1200.9383413133833*pow(1. - 1.*sh,3) +
7812 log(z)*(-14.893476283684944 -
7813 84.70664636345812*(1. - 1.*sh) -
7814 265.29004630313807*pow(1. - 1.*sh,2) -
7815 624.2848808911273*pow(1. - 1.*sh,3) -
7816 1241.9208884413238*pow(1. - 1.*sh,4)) -
7817 2545.7015752257666*pow(1. - 1.*sh,4))*pow(z,4);
7818 }
7819 }
7820
7821 if(9<=maxpow) {
7822 if(sh<.900001) {
7823 res += 0.;
7824 }
7825 else {
7826 res += 0.;
7827 }
7828 }
7829
7830 if(10<=maxpow) {
7831 if(sh<.900001) {
7832 res += (39.09537524467298*Li2sh*pow(-1. + sh,-3)*pow(sh,-3) +
7833 39.09537524467298*pow(Lsh,2)*pow(-1. + sh,-3)*
7834 pow(sh,-3) - 1.*lz*
7835 (39.09537524467298*Lsh*pow(-1. + sh,-3)*pow(sh,-3) +
7836 0.09308422677303091*pow(-1. + sh,-2)*pow(sh,-8)*
7837 (6. + 51.*sh + 181.*pow(sh,2) + 301.*pow(sh,3) -
7838 2324.*pow(sh,4) + 2220.*pow(sh,5) -
7839 880.*pow(sh,6) - 70.*pow(sh,7) + 95.*pow(sh,8)))\
7840 + 0.09308422677303091*Lsh*pow(-1. + sh,-7)*pow(sh,-8)*
7841 (-12. - 42.*sh + 28.*pow(sh,2) + 308.*pow(sh,3) +
7842 2793.*pow(sh,4) +
7843 2.*(-8339. + 210.*Lshb)*pow(sh,5) +
7844 (37042. - 1680.*Lshb)*pow(sh,6) +
7845 168.*(-266. + 15.*Lshb)*pow(sh,7) -
7846 8.*(-3959. + 210.*Lshb)*pow(sh,8) +
7847 3.*(-4351. + 140.*Lshb)*pow(sh,9) + 2720.*pow(sh,10)
7848 ) - 0.001551403779550515*pow(-1. + sh,-6)*pow(sh,-8)*
7849 (-162. + 36.*sh + 2914.*pow(sh,2) + 5862.*pow(sh,3) -
7850 97530.*pow(sh,4) + 329152.*pow(sh,5) +
7851 4200.*PI2*pow(-1. + sh,3)*
7852 pow(sh,5) - 497696.*pow(sh,6) +
7853 286926.*pow(sh,7) + 114303.*pow(sh,8) -
7854 259230.*pow(sh,9) + 141000.*pow(sh,10) -
7855 22550.*pow(sh,11) + 2975.*pow(sh,12) -
7856 600.*pow(sh,13)))*pow(z,5);
7857 }
7858 else {
7859 res += (-45.438400411920945 - 460.45774991614974*(1. - 1.*sh) -
7860 2000.8969832546916*pow(1. - 1.*sh,2) -
7861 6063.926888543121*pow(1. - 1.*sh,3) +
7862 log(z)*(-57.71222059927916 -
7863 352.7892194697871*(1. - 1.*sh) -
7864 1274.7884856566582*pow(1. - 1.*sh,2) -
7865 3472.041658634053*pow(1. - 1.*sh,3) -
7866 7917.744329314009*pow(1. - 1.*sh,4)) -
7867 14922.183969640308*pow(1. - 1.*sh,4))*pow(z,5);
7868 }
7869 }
7870
7871 if(11<=maxpow) {
7872 if(sh<.900001) {
7873 res += 0.;
7874 }
7875 else {
7876 res += 0.;
7877 }
7878 }
7879
7880 if(12<=maxpow) {
7881 if(sh<.900001) {
7882 res += (93.82890058721516*Li2sh*pow(-1. + sh,-3)*pow(sh,-4) +
7883 93.82890058721516*pow(Lsh,2)*pow(-1. + sh,-3)*
7884 pow(sh,-4) - 1.*lz*
7885 (93.82890058721516*Lsh*pow(-1. + sh,-3)*pow(sh,-4) +
7886 0.01861684535460618*pow(-1. + sh,-2)*pow(sh,-10)*
7887 (20. + 212.*sh + 992.*pow(sh,2) +
7888 2592.*pow(sh,3) + 3492.*pow(sh,4) -
7889 33768.*pow(sh,5) + 34250.*pow(sh,6) -
7890 12355.*pow(sh,7) - 1855.*pow(sh,8) +
7891 795.*pow(sh,9) + 585.*pow(sh,10))) +
7892 0.01861684535460618*Lsh*pow(-1. + sh,-8)*pow(sh,-10)*
7893 (40. + 184.*sh + 40.*pow(sh,2) - 1160.*pow(sh,3) -
7894 2240.*pow(sh,4) - 33740.*pow(sh,5) -
7895 6.*(-44969. + 840.*Lshb)*pow(sh,6) +
7896 315.*(-2447. + 80.*Lshb)*pow(sh,7) -
7897 15.*(-80189. + 3360.*Lshb)*pow(sh,8) +
7898 40.*(-28549. + 1260.*Lshb)*pow(sh,9) +
7899 (669980. - 25200.*Lshb)*pow(sh,10) +
7900 (-228338. + 5040.*Lshb)*pow(sh,11) +
7901 35770.*pow(sh,12)) +
7902 0.00031028075591010303*pow(-1. + sh,-7)*pow(sh,-10)*
7903 (-440. + 32.*sh + 10212.*pow(sh,2) +
7904 23632.*pow(sh,3) - 7888.*pow(sh,4) -
7905 1.620528e6*pow(sh,5) + 7.571238e6*pow(sh,6) -
7906 50400.*PI2*pow(-1. + sh,4)*
7907 pow(sh,6) - 1.5372042e7*pow(sh,7) +
7908 1.5504288e7*pow(sh,8) - 5.560242e6*pow(sh,9) -
7909 3.213542e6*pow(sh,10) + 3.254015e6*pow(sh,11) -
7910 18260.*pow(sh,12) - 907710.*pow(sh,13) +
7911 366640.*pow(sh,14) - 57405.*pow(sh,15) +
7912 2800.*pow(sh,16)))*pow(z,6);
7913 }
7914 else {
7915 res += (-136.29525461574005 - 1645.5778674786802*(1. - 1.*sh) -
7916 8473.793189820017*pow(1. - 1.*sh,2) -
7917 29701.229294840534*pow(1. - 1.*sh,3) +
7918 log(z)*(-214.0937215779711 -
7919 1463.749466005911*(1. - 1.*sh) -
7920 5989.876908617766*pow(1. - 1.*sh,2) -
7921 18449.107577961182*pow(1. - 1.*sh,3) -
7922 47241.17592958092*pow(1. - 1.*sh,4)) -
7923 83004.51592284124*pow(1. - 1.*sh,4))*pow(z,6);
7924 }
7925 }
7926
7927 if(13<=maxpow) {
7928 if(sh<.900001) {
7929 res += 0.;
7930 }
7931 else {
7932 res += 0.;
7933 }
7934 }
7935
7936 if(14<=maxpow) {
7937 if(sh<.900001) {
7938 res += (245.7423586808016*Li2sh*pow(-1. + sh,-3)*pow(sh,-5) +
7939 245.7423586808016*pow(Lsh,2)*pow(-1. + sh,-3)*
7940 pow(sh,-5) - 1.*lz*
7941 (245.7423586808016*Lsh*pow(-1. + sh,-3)*pow(sh,-5) +
7942 0.008865164454574373*pow(-1. + sh,-2)*pow(sh,-12)*
7943 (30. + 380.*sh + 2186.*pow(sh,2) +
7944 7436.*pow(sh,3) + 15906.*pow(sh,4) +
7945 18216.*pow(sh,5) - 217404.*pow(sh,6) +
7946 230279.*pow(sh,7) - 78421.*pow(sh,8) -
7947 14581.*pow(sh,9) + 3024.*pow(sh,10) +
7948 3864.*pow(sh,11) + 1365.*pow(sh,12))) +
7949 0.008865164454574373*Lsh*pow(-1. + sh,-9)*pow(sh,-12)*
7950 (-60. - 340.*sh - 312.*pow(sh,2) + 1872.*pow(sh,3) +
7951 4980.*pow(sh,4) + 1620.*pow(sh,5) +
7952 203850.*pow(sh,6) +
7953 (-1.895519e6 + 27720.*Lshb)*pow(sh,7) +
7954 (6.594942e6 - 166320.*Lshb)*pow(sh,8) +
7955 33.*(-385051. + 12600.*Lshb)*pow(sh,9) +
7956 (1.5286135e7 - 554400.*Lshb)*pow(sh,10) +
7957 15.*(-794279. + 27720.*Lshb)*pow(sh,11) -
7958 6.*(-990013. + 27720.*Lshb)*pow(sh,12) +
7959 2.*(-882383. + 13860.*Lshb)*pow(sh,13) +
7960 249228.*pow(sh,14)) +
7961 0.000021107534415653267*pow(-1. + sh,-8)*pow(sh,-12)*
7962 (3900. + 100.*sh - 116036.*pow(sh,2) -
7963 329570.*pow(sh,3) + 93490.*pow(sh,4) +
7964 1.36222e6*pow(sh,5) + 7.515214e7*pow(sh,6) -
7965 4.58367722e8*pow(sh,7) -
7966 1.9404e6*PI2*pow(-1. + sh,5)*
7967 pow(sh,7) + 1.185571378e9*pow(sh,8) -
7968 1.64901962e9*pow(sh,9) + 1.210803485e9*pow(sh,10) -
7969 2.77663825e8*pow(sh,11) - 2.28715591e8*pow(sh,12) +
7970 1.81552504e8*pow(sh,13) - 5.1683975e7*pow(sh,14) +
7971 3.0412585e7*pow(sh,15) - 3.0028425e7*pow(sh,16) +
7972 1.2629064e7*pow(sh,17) - 2.061822e6*pow(sh,18) +
7973 52920.*pow(sh,19)))*pow(z,7);}
7974 else {
7975 res += (-456.36056641072724 - 6103.669051411126*(1. - 1.*sh) -
7976 35945.35613138051*pow(1. - 1.*sh,2) -
7977 142439.61797330706*pow(1. - 1.*sh,3) +
7978 log(z)*(-790.9056468148526 -
7979 6067.540181822064*(1. - 1.*sh) -
7980 27711.918984145486*pow(1. - 1.*sh,2) -
7981 94930.08698994012*pow(1. - 1.*sh,3) -
7982 268847.72545040335*pow(1. - 1.*sh,4)) -
7983 444531.89353893884*pow(1. - 1.*sh,4))*pow(z,7);
7984 }
7985 }
7986
7987 if(15<=maxpow) {
7988 if(sh<.900001) {
7989 res += 0.;
7990 }
7991 else {
7992 res += 0.;
7993 }
7994 }
7995
7996 if(16<=maxpow) {
7997 if(sh<.900001) {
7998 res += (684.5679991822329*Li2sh*pow(-1. + sh,-3)*pow(sh,-6) +
7999 684.5679991822329*pow(Lsh,2)*pow(-1. + sh,-3)*
8000 pow(sh,-6) - 1.*lz*
8001 (684.5679991822329*Lsh*pow(-1. + sh,-3)*pow(sh,-6) +
8002 0.001899678097408794*pow(-1. + sh,-2)*pow(sh,-14)*
8003 (105. + 1545.*sh + 10505.*pow(sh,2) +
8004 43433.*pow(sh,3) + 119873.*pow(sh,4) +
8005 221793.*pow(sh,5) + 221793.*pow(sh,6) -
8006 3.231657e6*pow(sh,7) + 3.541034e6*pow(sh,8) -
8007 1.160656e6*pow(sh,9) - 243376.*pow(sh,10) +
8008 26124.*pow(sh,11) + 54544.*pow(sh,12) +
8009 27790.*pow(sh,13) + 6790.*pow(sh,14))) +
8010 0.003799356194817588*Lsh*pow(-1. + sh,-10)*pow(sh,-14)*
8011 (105. + 705.*sh + 1085.*pow(sh,2) - 3227.*pow(sh,3) -
8012 12621.*pow(sh,4) - 7077.*pow(sh,5) +
8013 23415.*pow(sh,6) - 1.52775e6*pow(sh,7) +
8014 (1.5332677e7 - 180180.*Lshb)*pow(sh,8) +
8015 154.*(-404281. + 8190.*Lshb)*pow(sh,9) -
8016 3276.*(-43597. + 1155.*Lshb)*pow(sh,10) +
8017 140.*(-1.492544e6 + 45045.*Lshb)*pow(sh,11) -
8018 35.*(-5.843231e6 + 180180.*Lshb)*pow(sh,12) +
8019 84.*(-1.606567e6 + 45045.*Lshb)*pow(sh,13) -
8020 14.*(-4.169089e6 + 90090.*Lshb)*pow(sh,14) +
8021 4.*(-3.790859e6 + 45045.*Lshb)*pow(sh,15) +
8022 1.820973e6*pow(sh,16)) -
8023 2.2615215445342784e-6*pow(-1. + sh,-9)*pow(sh,-14)*
8024 (23625. + 2250.*sh - 884825.*pow(sh,2) -
8025 3.042036e6*pow(sh,3) - 226209.*pow(sh,4) +
8026 1.547673e7*pow(sh,5) + 1.7445585e7*pow(sh,6) +
8027 2.27462355e9*pow(sh,7) -
8028 1.6881630069e10*pow(sh,8) +
8029 5.04504e7*PI2*pow(-1. + sh,6)*
8030 pow(sh,8) + 5.3231013434e10*pow(sh,9) -
8031 9.3745467315e10*pow(sh,10) +
8032 9.75051387e10*pow(sh,11) -
8033 5.4985329535e10*pow(sh,12) +
8034 7.700748318e9*pow(sh,13) +
8035 9.422168487e9*pow(sh,14) -
8036 5.032015758e9*pow(sh,15) - 1.2563586e8*pow(sh,16) +
8037 1.23426506e9*pow(sh,17) -
8038 1.153426148e9*pow(sh,18) +
8039 7.67036928e8*pow(sh,19) - 2.79185592e8*pow(sh,20) +
8040 4.285204e7*pow(sh,21) - 776160.*pow(sh,22)))*
8041 pow(z,8);
8042 }
8043 else {
8044 res += (-1629.163092036405 - 23281.294285910375*(1. - 1.*sh) -
8045 152825.6982845202*pow(1. - 1.*sh,2) -
8046 672700.699177929*pow(1. - 1.*sh,3) +
8047 log(z)*(-2934.014827885934 -
8048 25115.05522563147*(1. - 1.*sh) -
8049 126608.1387084309*pow(1. - 1.*sh,2) -
8050 476515.47051732504*pow(1. - 1.*sh,3) -
8051 1.475709220012137e6*pow(1. - 1.*sh,4)) -
8052 2.313374280493185e6*pow(1. - 1.*sh,4))*pow(z,8);
8053 }
8054 }
8055
8056 if(17<=maxpow) {
8057 if(sh<.900001) {
8058 res += 0.;
8059 }
8060 else {
8061 res += 0.;
8062 }
8063 }
8064
8065 if(18<=maxpow) {
8066 if(sh<.900001) {
8067 res += (1996.656664281513*Li2sh*pow(-1. + sh,-3)*pow(sh,-7) +
8068 1996.656664281513*pow(Lsh,2)*pow(-1. + sh,-3)*
8069 pow(sh,-7) - 1.*lz*
8070 (1996.656664281513*Lsh*pow(-1. + sh,-3)*pow(sh,-7) +
8071 0.005540727784108982*pow(-1. + sh,-2)*pow(sh,-16)*
8072 (28. + 469.*sh + 3673.*pow(sh,2) +
8073 17785.*pow(sh,3) + 59113.*pow(sh,4) +
8074 140257.*pow(sh,5) + 231985.*pow(sh,6) +
8075 205777.*pow(sh,7) - 3.632057e6*pow(sh,8) +
8076 4.091364e6*pow(sh,9) - 1.304928e6*pow(sh,10) -
8077 297432.*pow(sh,11) + 14292.*pow(sh,12) +
8078 58644.*pow(sh,13) + 35460.*pow(sh,14) +
8079 12780.*pow(sh,15) + 2430.*pow(sh,16))) -
8080 0.005540727784108982*Lsh*pow(-1. + sh,-11)*pow(sh,-16)*
8081 (56. + 434.*sh + 920.*pow(sh,2) - 1480.*pow(sh,3) -
8082 9184.*pow(sh,4) - 8932.*pow(sh,5) +
8083 19712.*pow(sh,6) + 36344.*pow(sh,7) -
8084 3.49657e6*pow(sh,8) -
8085 7.*(-5.358061e6 + 51480.*Lshb)*pow(sh,9) +
8086 20.*(-8.630911e6 + 144144.*Lshb)*pow(sh,10) -
8087 880.*(-521011. + 11466.*Lshb)*pow(sh,11) +
8088 56.*(-1.4125987e7 + 360360.*Lshb)*pow(sh,12) -
8089 140.*(-6.677771e6 + 180180.*Lshb)*pow(sh,13) +
8090 112.*(-6.885077e6 + 180180.*Lshb)*pow(sh,14) -
8091 56.*(-7.869671e6 + 180180.*Lshb)*pow(sh,15) +
8092 16.*(-1.0503341e7 + 180180.*Lshb)*pow(sh,16) +
8093 (3.8989933e7 - 360360.*Lshb)*pow(sh,17) -
8094 4.262544e6*pow(sh,18)) +
8095 4.3974030032610975e-6*pow(-1. + sh,-10)*pow(sh,-16)*
8096 (8330. + 1225.*sh - 385185.*pow(sh,2) -
8097 1.565725e6*pow(sh,3) - 766913.*pow(sh,4) +
8098 8.101569e6*pow(sh,5) + 1.6471637e7*pow(sh,6) -
8099 1.4354375e7*pow(sh,7) + 3.953480265e9*pow(sh,8) -
8100 3.3767434535e10*pow(sh,9) -
8101 7.56756e7*PI2*pow(-1. + sh,7)*
8102 pow(sh,9) + 1.25322516107e11*pow(sh,10) -
8103 2.66443744245e11*pow(sh,11) +
8104 3.52730324065e11*pow(sh,12) -
8105 2.89748672815e11*pow(sh,13) +
8106 1.29737902497e11*pow(sh,14) -
8107 9.132479783e9*pow(sh,15) -
8108 2.0967436048e10*pow(sh,16) +
8109 9.674219718e9*pow(sh,17) -
8110 2.08073817e9*pow(sh,18) +
8111 2.119593546e9*pow(sh,19) -
8112 2.784214188e9*pow(sh,20) +
8113 2.248987986e9*pow(sh,21) -
8114 1.186673418e9*pow(sh,22) + 3.6469845e8*pow(sh,23) -
8115 5.0148315e7*pow(sh,24) + 720720.*pow(sh,25)))*
8116 pow(z,9);
8117 }
8118 else {
8119 res += (-6036.39383687799 - 90657.25321279526*(1. - 1.*sh) -
8120 651118.7801087499*pow(1. - 1.*sh,2) -
8121 3.139904668840056e6*pow(1. - 1.*sh,3) +
8122 log(z)*(-10946.705068508434 -
8123 103756.33337255889*(1. - 1.*sh) -
8124 572261.3476707039*pow(1. - 1.*sh,2) -
8125 2.3444993879405814e6*pow(1. - 1.*sh,3) -
8126 7.869957280883137e6*pow(1. - 1.*sh,4)) -
8127 1.1770925711253678e7*pow(1. - 1.*sh,4))*pow(z,9);
8128 }
8129 }
8130
8131 if(19<=maxpow) {
8132 if(sh<.900001){
8133 res += 0.;}
8134 else {
8135 res += 0.;
8136 }
8137 }
8138
8139 if(20<=maxpow) {
8140 if(sh<.900001) {
8141 res += (6034.340140939684*Li2sh*pow(-1. + sh,-3)*pow(sh,-8) +
8142 6034.340140939684*pow(Lsh,2)*pow(-1. + sh,-3)*
8143 pow(sh,-8) - 1.*lz*
8144 (6034.340140939684*Lsh*pow(-1. + sh,-3)*pow(sh,-8) +
8145 0.00024625456818262145*pow(-1. + sh,-2)*pow(sh,-18)*
8146 (504. + 9464.*sh + 83804.*pow(sh,2) +
8147 463964.*pow(sh,3) + 1.792004e6*pow(sh,4) +
8148 5.082116e6*pow(sh,5) + 1.0736996e7*pow(sh,6) +
8149 1.6220516e7*pow(sh,7) + 1.2878996e7*pow(sh,8) -
8150 2.73934804e8*pow(sh,9) +
8151 3.15821466e8*pow(sh,10) -
8152 9.8670339e7*pow(sh,11) -
8153 2.3977539e7*pow(sh,12) + 157761.*pow(sh,13) +
8154 4.274181e6*pow(sh,14) + 2.899395e6*pow(sh,15) +
8155 1.241235e6*pow(sh,16) + 359415.*pow(sh,17) +
8156 56385.*pow(sh,18))) +
8157 0.00024625456818262145*Lsh*pow(-1. + sh,-12)*
8158 pow(sh,-18)*(1008. + 8848.*sh + 23688.*pow(sh,2) -
8159 17352.*pow(sh,3) - 212592.*pow(sh,4) -
8160 311184.*pow(sh,5) + 400176.*pow(sh,6) +
8161 1.492176e6*pow(sh,7) - 255024.*pow(sh,8) -
8162 2.64398904e8*pow(sh,9) -
8163 6.*(-5.11641281e8 + 4.08408e6*Lshb)*pow(sh,10) +
8164 9.*(-1.747237201e9 + 2.450448e7*Lshb)*pow(sh,11) -
8165 1989.*(-2.3808319e7 + 443520.*Lshb)*pow(sh,12) +
8166 1848.*(-5.0928893e7 + 1.11384e6*Lshb)*pow(sh,13) -
8167 13104.*(-9.960259e6 + 235620.*Lshb)*pow(sh,14) +
8168 3528.*(-3.6704249e7 + 875160.*Lshb)*pow(sh,15) -
8169 168.*(-5.49270061e8 + 1.225224e7*Lshb)*pow(sh,16) +
8170 72.*(-6.45450961e8 + 1.225224e7*Lshb)*pow(sh,17) -
8171 288.*(-5.4964186e7 + 765765.*Lshb)*pow(sh,18) +
8172 (-3.301634542e9 + 2.450448e7*Lshb)*pow(sh,19) +
8173 3.2083623e8*pow(sh,20)) -
8174 9.77200667391355e-8*pow(-1. + sh,-11)*pow(sh,-18)*
8175 (268128. + 50176.*sh - 1.5037316e7*pow(sh,2) -
8176 7.0758368e7*pow(sh,3) - 6.454424e7*pow(sh,4) +
8177 3.47363296e8*pow(sh,5) + 9.86787592e8*pow(sh,6) +
8178 3.5646688e7*pow(sh,7) - 4.264570016e9*pow(sh,8) +
8179 6.1791288328e11*pow(sh,9) -
8180 5.890389956722e12*pow(sh,10) +
8181 1.02918816e10*PI2*
8182 pow(-1. + sh,8)*pow(sh,10) +
8183 2.5054270208126e13*pow(sh,11) -
8184 6.2290275001696e13*pow(sh,12) +
8185 9.9547394852612e13*pow(sh,13) -
8186 1.0492568190538e14*pow(sh,14) +
8187 7.0557905411966e13*pow(sh,15) -
8188 2.5585687891288e13*pow(sh,16) +
8189 2.41116416108e11*pow(sh,17) +
8190 4.002654161834e12*pow(sh,18) -
8191 1.418993445915e12*pow(sh,19) -
8192 5.1123112488e10*pow(sh,20) +
8193 3.91122982404e11*pow(sh,21) -
8194 5.60776090644e11*pow(sh,22) +
8195 5.66827442118e11*pow(sh,23) -
8196 3.8373727824e11*pow(sh,24) +
8197 1.699988427e11*pow(sh,25) -
8198 4.480654338e10*pow(sh,26) +
8199 5.447537865e9*pow(sh,27) - 6.48648e7*pow(sh,28)))*
8200 pow(z,10);
8201 }
8202 else {
8203 res += (-22861.233438269435 - 358348.4866943795*(1. - 1.*sh) -
8204 2.7784028263374018e6*pow(1. - 1.*sh,2) -
8205 1.4518829460769238e7*pow(1. - 1.*sh,3) +
8206 log(z)*(-41067.519729237596 -
8207 427724.1939873684*(1. - 1.*sh) -
8208 2.5624965034840526e6*pow(1. - 1.*sh,2) -
8209 1.1344087093543807e7*pow(1. - 1.*sh,3) -
8210 4.098677600641895e7*pow(1. - 1.*sh,4)) -
8211 5.88118166357725e7*pow(1. - 1.*sh,4))*pow(z,10);
8212 }
8213 }
8214
8215 }
8216 return res;
8217}
8218
8219
8220double f_29_re(double sh, double L_mu, double z, size_t maxpow) {
8221 double lz = log(z);
8222
8223 double Lsh = log(sh);
8224 double Lshb = log(1.-sh);
8225 double Li2sh = real(CLi2(sh));
8226 double Li3sh = real(CLi3(sh));
8227 double Li3shb = real(CLi3(1.-sh));
8228 double Li4sh = real(CLi4(sh));
8229 double sqrtsh = sqrt(sh);
8230 double sqrt4sh = sqrt(4.-sh);
8231 double ash = asin(sqrtsh/2.);
8232 double cl2 = Cl2(2.*ash);
8233 double cl3 = Cl3(2.*ash);
8234
8235
8236 double res=0;
8237
8238 if(sh<0.4) {
8239 res = -24.2913 + 0.296296*Lsh + 0.3950617283950617*L_mu*Lsh +
8240 L_mu*(1.0534979423868314 - 7.111111111111111*lz) -
8241 11.55555*lz - 26.8464*sh - 4.444445*lz*sh - 86.7723*z +
8242 3.55556*Lsh*z - 28.77965*lz*z - 428.313*sh*z +
8243 16.*Lsh*sh*z - 25.4303*lz*sh*z + 3.555555*Lsh*lz*sh*z +
8244 6.320987654320987*pow(L_mu,2) + 1.7777775*z*pow(lz,2) -
8245 18.808425*sh*z*pow(lz,2) + 0.5925925*z*pow(lz,3) +
8246 0.5925925*sh*z*pow(lz,3) - 0.29629625*sh*z*pow(lz,4) -
8247 222.769*pow(sh,2) - 0.0987654*Lsh*pow(sh,2) -
8248 66.186*lz*pow(sh,2) - 1276.44*z*pow(sh,2) +
8249 32.*Lsh*z*pow(sh,2) + 65.7645*lz*z*pow(sh,2) +
8250 7.1111*Lsh*lz*z*pow(sh,2) - 8.*pow(lz,2)*pow(sh,2) -
8251 85.7585*z*pow(lz,2)*pow(sh,2) -
8252 0.5925925*pow(lz,3)*pow(sh,2) +
8253 1.777775*z*pow(lz,3)*pow(sh,2) -
8254 0.8888875*z*pow(lz,4)*pow(sh,2) - 478.485*pow(sh,3) -
8255 0.131687*Lsh*pow(sh,3) - 171.951*lz*pow(sh,3) -
8256 2553.47*z*pow(sh,3) + 49.7778*Lsh*z*pow(sh,3) +
8257 206.4045*lz*z*pow(sh,3) + 10.66665*Lsh*lz*z*pow(sh,3) -
8258 16.8889*pow(lz,2)*pow(sh,3) -
8259 194.03575*z*pow(lz,2)*pow(sh,3) -
8260 1.777775*pow(lz,3)*pow(sh,3) +
8261 4.14815*z*pow(lz,3)*pow(sh,3) -
8262 1.777775*z*pow(lz,4)*pow(sh,3) +
8263 L_mu*pow(sh,3)*(-0.00125416421712718 +
8264 0.022574955908289243*pow(z,-3)) -
8265 0.0142243*pow(sh,3)*pow(z,-3) +
8266 L_mu*pow(sh,2)*(-0.008465608465608466 +
8267 0.1523809523809524*pow(z,-2)) -
8268 0.0132191*pow(sh,2)*pow(z,-2) +
8269 0.0288536*pow(sh,3)*pow(z,-2) + 0.8462*sh*pow(z,-1) +
8270 0.367901*pow(sh,2)*pow(z,-1) +
8271 10.8601*pow(sh,3)*pow(z,-1) +
8272 2.758375*lz*pow(sh,3)*pow(z,-1) +
8273 0.2962975*pow(lz,2)*pow(sh,3)*pow(z,-1) +
8274 L_mu*sh*(-0.07901234567901234 +
8275 1.4222222222222223*pow(z,-1)) +
8276 140.368*sh*pow(z,0.5) + 842.206*pow(sh,2)*pow(z,0.5) +
8277 pow(sh,3)*(-46.7892*pow(z,-0.5) + 1918.36*pow(z,0.5)) -
8278 23.3946*pow(z,1.5) + 96.5187*pow(z,2) -
8279 29.7586*Lsh*pow(z,2) - 162.7315*lz*pow(z,2) +
8280 3.555555*Lsh*lz*pow(z,2) + 108.781*sh*pow(z,2) -
8281 111.923*Lsh*sh*pow(z,2) - 448.7875*lz*sh*pow(z,2) +
8282 14.2222*Lsh*lz*sh*pow(z,2) +
8283 23.1111*pow(lz,2)*pow(z,2) +
8284 3.55555*Lsh*pow(lz,2)*pow(z,2) +
8285 73.77775*sh*pow(lz,2)*pow(z,2) +
8286 14.222225*Lsh*sh*pow(lz,2)*pow(z,2) +
8287 2.9629625*pow(lz,3)*pow(z,2) +
8288 8.2963*sh*pow(lz,3)*pow(z,2) +
8289 268.098*pow(sh,2)*pow(z,2) -
8290 244.716*Lsh*pow(sh,2)*pow(z,2) -
8291 816.045*lz*pow(sh,2)*pow(z,2) +
8292 42.66665*Lsh*lz*pow(sh,2)*pow(z,2) +
8293 178.66675*pow(lz,2)*pow(sh,2)*pow(z,2) +
8294 32.*Lsh*pow(lz,2)*pow(sh,2)*pow(z,2) +
8295 16.*pow(lz,3)*pow(sh,2)*pow(z,2) +
8296 527.368*pow(sh,3)*pow(z,2) -
8297 421.619*Lsh*pow(sh,3)*pow(z,2) -
8298 1252.835*lz*pow(sh,3)*pow(z,2) +
8299 94.815*Lsh*lz*pow(sh,3)*pow(z,2) +
8300 340.74*pow(lz,2)*pow(sh,3)*pow(z,2) +
8301 56.889*Lsh*pow(lz,2)*pow(sh,3)*pow(z,2) +
8302 26.074125*pow(lz,3)*pow(sh,3)*pow(z,2) +
8303 88.3801*pow(z,3) + 55.2172*Lsh*pow(z,3) +
8304 85.7285*lz*pow(z,3) + 3.160495*Lsh*lz*pow(z,3) +
8305 437.34*sh*pow(z,3) + 249.663*Lsh*sh*pow(z,3) +
8306 204.405*lz*sh*pow(z,3) + 7.1111*Lsh*lz*sh*pow(z,3) -
8307 30.22225*pow(lz,2)*pow(z,3) -
8308 4.74075*Lsh*pow(lz,2)*pow(z,3) -
8309 95.4075*sh*pow(lz,2)*pow(z,3) -
8310 21.333325*Lsh*sh*pow(lz,2)*pow(z,3) +
8311 823.218*pow(sh,2)*pow(z,3) +
8312 668.137*Lsh*pow(sh,2)*pow(z,3) +
8313 298.311*lz*pow(sh,2)*pow(z,3) -
8314 253.3325*pow(lz,2)*pow(sh,2)*pow(z,3) -
8315 56.889*Lsh*pow(lz,2)*pow(sh,2)*pow(z,3) +
8316 1675.61*pow(sh,3)*pow(z,3) +
8317 1391.36*Lsh*pow(sh,3)*pow(z,3) +
8318 440.5585*lz*pow(sh,3)*pow(z,3) -
8319 35.55555*Lsh*lz*pow(sh,3)*pow(z,3) -
8320 496.89*pow(lz,2)*pow(sh,3)*pow(z,3) -
8321 118.5185*Lsh*pow(lz,2)*pow(sh,3)*pow(z,3);
8322 }
8323 else{
8324 if(sh<.900001) {
8325 res += (8.547960200246003 + 6.320987654320987*pow(L_mu,2) +
8326 0.19753086419753085*Li2sh*(-8. + 17.*sh)*
8327 pow(-1. + sh,-1) + 0.19753086419753085*cl2*(2. + sh)*
8328 sqrt4sh*sqrtsh*pow(sh,-2) -
8329 1.*L_mu*(6.716049382716049*Lsh -
8330 0.7901234567901234*ash*(2. + sh)*sqrt4sh*sqrtsh*
8331 pow(sh,-2) + 0.3950617283950617*(4. - 31.*sh)*
8332 pow(sh,-1)) - 0.8888888888888888*pow(Lsh,2)*
8333 pow(-1. + sh,-3)*pow(sh,2) -
8334 1.*Lsh*(-0.19753086419753085*ash*(2. + sh)*sqrt4sh*
8335 sqrtsh*pow(sh,-2) -
8336 0.09876543209876543*pow(-1. + sh,-2)*
8337 (-114. + 199.*sh - 67.*pow(sh,2) +
8338 2.*Lshb*(8. - 25.*sh + 17.*pow(sh,2)))) +
8339 0.19753086419753085*ash*sqrt4sh*sqrtsh*pow(-1. + sh,-3)*
8340 pow(sh,-2)*(-4. + 3.*sh + 18.*pow(sh,2) -
8341 16.*pow(sh,3) + 5.*pow(sh,4)) +
8342 0.5925925925925926*pow(ash,2)*pow(-1. + sh,-4)*
8343 pow(sh,-1)*(12. - 33.*sh + 18.*pow(sh,2) -
8344 4.*pow(sh,4) + pow(sh,5)) -
8345 0.0054869684499314125*pow(-1. + sh,-4)*pow(sh,-1)*
8346 (288. + 5.*sh*(79. + 60.*PI2) -
8347 2.*(2257. + 618.*PI2)*
8348 pow(sh,2) + 6.*(1391. +
8349 306.*PI2)*pow(sh,3) -
8350 10.*(617. + 123.*PI2)*
8351 pow(sh,4) + (1655. +
8352 312.*PI2)*pow(sh,5)))*
8353 1.;
8354 }
8355 else {
8356 res += 1.*(-4.256813794434612 +
8357 6.247387287113509*(1. - 1.*sh) +
8358 4.358260258488125*pow(1. - 1.*sh,2) +
8359 3.2040567770853476*pow(1. - 1.*sh,3) +
8360 2.512816857053804*pow(1. - 1.*sh,4) +
8361 L_mu*(12.81635480205537 +
8362 6.816868131135554*(1. - 1.*sh) +
8363 3.34395932171576*pow(1. - 1.*sh,2) +
8364 2.241420882666335*pow(1. - 1.*sh,3) +
8365 1.6783963168171898*pow(1. - 1.*sh,4)) +
8366 6.320987654320987*pow(L_mu,2));
8367 }
8368
8369 if(1<=maxpow) {
8370 if(sh<.900001) {
8371 res += 0.;
8372 }
8373 else {
8374 res += 0.;
8375 }
8376 }
8377
8378 if(2<=maxpow) {
8379 if(sh<.900001) {
8380 res += (0.5925925925925926*sh*pow(Lsh,4)*pow(-1. + sh,-3) -
8381 3.5555555555555554*Li2sh*(1. + 2.*sh)*
8382 pow(-1. + sh,-2) + 1.1851851851851851*(-3. + sh)*
8383 pow(Lsh,3)*pow(-1. + sh,-2) +
8384 42.666666666666664*L_mu*pow(sh,-1) -
8385 1.*lz*(64.*Li2sh*pow(9 - 9*sh,-1) -
8386 3.5555555555555554*Lsh*
8387 (2. + 2.*Lshb*(-1. + sh) + sh)*pow(-1. + sh,-2) +
8388 3.5555555555555554*pow(Lsh,2)*pow(-1. + sh,-1) +
8389 1.1851851851851851*
8390 (-18. + sh*(27. + PI2))*
8391 pow(-1. + sh,-1)*pow(sh,-1)) -
8392 4.273980100123001*pow(-1. + sh,-3)*
8393 (-3. + 3.*sh + 2.*pow(sh,2)) +
8394 3.5555555555555554*ash*sqrt4sh*sqrtsh*pow(-1. + sh,-3)*
8395 pow(sh,-1)*(2. - 11.*sh + 3.*pow(sh,2)) -
8396 3.5555555555555554*Li3sh*pow(-1. + sh,-3)*
8397 (-3. - 3.*sh + 4.*pow(sh,2)) -
8398 1.*pow(Lsh,2)*(-7.111111111111111*Li2sh*sh*
8399 pow(-1. + sh,-3) -
8400 0.5925925925925926*pow(-1. + sh,-3)*
8401 (12. + 3.*Lshb*(-7. + 5.*sh) +
8402 2.*sh*(-6. + PI2) +
8403 3.*pow(sh,2))) +
8404 21.333333333333332*pow(ash,2)*pow(-1. + sh,-4)*
8405 (-1. + 8.*sh - 5.*pow(sh,2) + pow(sh,3)) -
8406 1.*Lsh*(-34.19184080098401*sh*pow(-1. + sh,-3) +
8407 28.444444444444443*Li3sh*sh*pow(-1. + sh,-3) -
8408 3.5555555555555554*Li2sh*pow(-1. + sh,-3)*
8409 (-5. + sh + 2.*pow(sh,2)) +
8410 0.5925925925925926*pow(-1. + sh,-3)*pow(sh,-1)*
8411 (36. - 1.*sh*(66. + 6.*Lshb +
8412 7.*PI2) +
8413 (69. - 6.*Lshb + 5.*PI2)*
8414 pow(sh,2) + 3.*(-13. + 4.*Lshb)*pow(sh,3))) +
8415 0.11851851851851852*pow(-1. + sh,-4)*pow(sh,-1)*
8416 (-4.*(-1. + sh)*pow(3.141592653589793,4)*pow(sh,2) +
8417 15.*(-1. + sh)*(-56. + 156.*sh +
8418 3.*(-49. + 8.*Li4sh)*pow(sh,2) + 47.*pow(sh,3))\
8419 + 5.*PI2*
8420 (-3. + 8.*sh - 10.*pow(sh,2) + 2.*pow(sh,4))))*
8421 pow(z,1);
8422 }
8423 else {
8424 res += (67.82325420628487 + 57.04716984919418*(1. - 1.*sh) +
8425 51.233916954097545*pow(1. - 1.*sh,2) +
8426 45.87999913302814*pow(1. - 1.*sh,3) +
8427 log(z)*(-16. - 17.77777777777778*(1. - 1.*sh) -
8428 18.469135802469136*pow(1. - 1.*sh,2) -
8429 18.874074074074073*pow(1. - 1.*sh,3) -
8430 19.152592592592594*pow(1. - 1.*sh,4)) +
8431 41.468913753494085*pow(1. - 1.*sh,4) +
8432 L_mu*(42.666666666666664 +
8433 42.666666666666664*(1. - 1.*sh) +
8434 42.666666666666664*pow(1. - 1.*sh,2) +
8435 42.666666666666664*pow(1. - 1.*sh,3) +
8436 42.666666666666664*pow(1. - 1.*sh,4)))*pow(z,1);
8437 }
8438 }
8439
8440 if(3<=maxpow) {
8441 if(sh<.900001) {
8442 res += -2.3703703703703702*(-2. + sh)*PI2*
8443 pow(sh,-1)*pow(z,1.5);
8444 }
8445 else {
8446 res += (23.39461783961922 + 46.78923567923844*(1. - 1.*sh) +
8447 46.78923567923844*pow(1. - 1.*sh,2) +
8448 46.78923567923844*pow(1. - 1.*sh,3) +
8449 46.78923567923844*pow(1. - 1.*sh,4))*pow(z,1.5);
8450 }
8451 }
8452
8453 if(4<=maxpow) {
8454 if(sh<.900001) {
8455 res += (3.5555555555555554*Li3shb*(6. + sh)*pow(-1. + sh,-3) +
8456 3.5555555555555554*Li3sh*(-11. + 3.*sh)*
8457 pow(-1. + sh,-3) + 0.5925925925925926*(2. + sh)*
8458 pow(Lsh,3)*pow(-1. + sh,-3) -
8459 1.*L_mu*(-21.333333333333332*pow(sh,-2) -
8460 42.666666666666664*Lsh*pow(sh,-2)) -
8461 3.5555555555555554*Li2sh*pow(-1. + sh,-3)*pow(sh,-2)*
8462 (-3. + 10.*sh - 9.*pow(sh,2) + pow(sh,3)) -
8463 3.5555555555555554*cl2*sqrt4sh*sqrtsh*pow(-1. + sh,-3)*
8464 pow(sh,-1)*(2. + 8.*pow(sh,2) - 5.*pow(sh,3) +
8465 pow(sh,4)) + 3.5555555555555554*ash*sqrt4sh*sqrtsh*
8466 pow(-1. + sh,-3)*pow(sh,-1)*
8467 (-2. - 4.*sh + 24.*pow(sh,2) - 15.*pow(sh,3) +
8468 3.*pow(sh,4)) - 4.273980100123001*pow(-1. + sh,-4)*
8469 pow(sh,-2)*(8. - 32.*sh + 57.*pow(sh,2) -
8470 52.*pow(sh,3) + 13.*pow(sh,4)) -
8471 0.8888888888888888*pow(Lsh,2)*pow(-1. + sh,-4)*
8472 pow(sh,-2)*(-31. + 113.*sh +
8473 3.*(-53. + 2.*Lshb)*pow(sh,2) +
8474 (87. - 8.*Lshb)*pow(sh,3) +
8475 2.*(-8. + Lshb)*pow(sh,4)) -
8476 1.*Lsh*(3.5555555555555554*Li2sh*(-7. + 2.*sh)*
8477 pow(-1. + sh,-3) +
8478 21.333333333333332*pow(ash,2)*pow(-1. + sh,-4)*
8479 (-1. - 3.*sh + pow(sh,2)) +
8480 0.2962962962962963*pow(-1. + sh,-3)*pow(sh,-2)*
8481 (333. - 1032.*sh +
8482 (1089. - 46.*PI2)*
8483 pow(sh,2) + 2.*
8484 (-153. + PI2)*pow(sh,3) +
8485 12.*Lshb*(-3. + 10.*sh - 9.*pow(sh,2) +
8486 pow(sh,3))) +
8487 3.5555555555555554*ash*sqrt4sh*sqrtsh*
8488 pow(-1. + sh,-3)*pow(sh,-1)*
8489 (2. + 8.*pow(sh,2) - 5.*pow(sh,3) + pow(sh,4))) +
8490 10.666666666666666*pow(ash,2)*pow(-1. + sh,-4)*
8491 (4. - 2.*sh - 24.*pow(sh,2) + 23.*pow(sh,3) -
8492 8.*pow(sh,4) + pow(sh,5)) -
8493 1.*pow(lz,2)*(1.7777777777777777*Lsh*(6. + sh)*
8494 pow(-1. + sh,-3) +
8495 0.8888888888888888*pow(-1. + sh,-2)*pow(sh,-2)*
8496 (-28. + 54.*sh - 47.*pow(sh,2) + 12.*pow(sh,3) -
8497 6.*pow(sh,4) + pow(sh,5))) -
8498 1.*lz*(-3.5555555555555554*Li2sh*(6. + sh)*
8499 pow(-1. + sh,-3) +
8500 1.7777777777777777*pow(Lsh,2)*pow(-1. + sh,-2) +
8501 42.666666666666664*L_mu*pow(sh,-2) +
8502 42.666666666666664*pow(ash,2)*pow(-1. + sh,-4)*
8503 (-1. - 3.*sh + pow(sh,2)) -
8504 1.7777777777777777*Lsh*pow(-1. + sh,-3)*pow(sh,-2)*
8505 (29. - 82.*sh + 3.*(25. + 4.*Lshb)*pow(sh,2) +
8506 2.*(-12. + Lshb)*pow(sh,3)) +
8507 7.111111111111111*ash*sqrt4sh*sqrtsh*
8508 pow(-1. + sh,-3)*pow(sh,-1)*
8509 (2. + 8.*pow(sh,2) - 5.*pow(sh,3) + pow(sh,4)) -
8510 0.2962962962962963*pow(-1. + sh,-4)*pow(sh,-2)*
8511 (2.*PI2*pow(sh,2)*
8512 (4. - 11.*sh + pow(sh,2)) +
8513 3.*pow(-1. + sh,2)*
8514 (-108. + 216.*sh - 135.*pow(sh,2) +
8515 32.*pow(sh,3) - 20.*pow(sh,4) + 3.*pow(sh,5)))
8516 ) - 0.14814814814814814*pow(-1. + sh,-4)*
8517 (-144.*cl3*(-1. - 3.*sh + pow(sh,2)) +
8518 pow(sh,-2)*(pow(-1. + sh,2)*
8519 (-232. + 560.*sh - 757.*pow(sh,2) +
8520 336.*pow(sh,3) - 168.*pow(sh,4) +
8521 21.*pow(sh,5)) +
8522 2.*PI2*
8523 (45. - 151.*sh + 211.*pow(sh,2) -
8524 135.*pow(sh,3) - 14.*pow(sh,4) +
8525 52.*pow(sh,5) - 16.*pow(sh,6) + 2.*pow(sh,7)))
8526 ))*pow(z,2);
8527 }
8528 else {
8529 res += pow(z,2)*(-165.12748700917908 -
8530 411.3508120821892*(1. - 1.*sh) -
8531 670.1268907046218*pow(1. - 1.*sh,2) -
8532 925.5677817546755*pow(1. - 1.*sh,3) +
8533 L_mu*(21.333333333333332 -
8534 42.666666666666664*pow(1. - 1.*sh,2) -
8535 99.55555555555556*pow(1. - 1.*sh,3) -
8536 167.11111111111111*pow(1. - 1.*sh,4)) +
8537 log(z)*(-92.67670236481818 -
8538 123.95171074367174*(1. - 1.*sh) -
8539 143.75841383606902*pow(1. - 1.*sh,2) -
8540 143.67298964675717*pow(1. - 1.*sh,3) +
8541 L_mu*(-42.666666666666664 -
8542 85.33333333333333*(1. - 1.*sh) -
8543 128.*pow(1. - 1.*sh,2) -
8544 170.66666666666666*pow(1. - 1.*sh,3) -
8545 213.33333333333334*pow(1. - 1.*sh,4)) -
8546 130.3275572508033*pow(1. - 1.*sh,4)) -
8547 1177.4249452560534*pow(1. - 1.*sh,4) +
8548 (26.074074074074073 +
8549 49.925925925925924*(1. - 1.*sh) +
8550 74.4*pow(1. - 1.*sh,2) +
8551 99.61481481481482*pow(1. - 1.*sh,3) +
8552 124.74074074074075*pow(1. - 1.*sh,4))*pow(log(z),2));
8553 }
8554 }
8555
8556 if(5<=maxpow) {
8557 if(sh<.900001) {
8558 res += 0.3160493827160494*PI2*pow(sh,-3)*
8559 (3. + 14.*sh + 3.*pow(sh,2))*pow(z,2.5);
8560 }
8561 else {
8562 res += (62.385647572317914 + 124.77129514463583*(1. - 1.*sh) +
8563 196.51478985280144*pow(1. - 1.*sh,2) +
8564 277.6161316968147*pow(1. - 1.*sh,3) +
8565 368.0753206766757*pow(1. - 1.*sh,4))*pow(z,2.5);
8566 }
8567 }
8568
8569 if(6<=maxpow) {
8570 if(sh<.900001) {
8571 res += (4.7407407407407405*Li3shb*(2. + sh)*pow(-1. + sh,-4) -
8572 1.*L_mu*(37.925925925925924*pow(sh,-3) -
8573 56.888888888888886*Lsh*pow(sh,-3)) -
8574 7.111111111111111*Li3sh*pow(-1. + sh,-3)*pow(sh,-1) +
8575 2.3703703703703702*pow(Lsh,3)*pow(-1. + sh,-3)*
8576 pow(sh,-1) - 2.8493200667486676*pow(-1. + sh,-4)*
8577 pow(sh,-1)*(3. + sh + 2.*pow(sh,2)) +
8578 2.3703703703703702*cl2*sqrt4sh*sqrtsh*pow(-1. + sh,-3)*
8579 (4. + 15.*sh - 29.*pow(sh,2) + 23.*pow(sh,3) -
8580 8.*pow(sh,4) + pow(sh,5)) +
8581 0.7901234567901234*ash*sqrt4sh*sqrtsh*pow(-1. + sh,-3)*
8582 (-8. - 21.*sh - 17.*pow(sh,2) + 23.*pow(sh,3) -
8583 8.*pow(sh,4) + pow(sh,5)) +
8584 0.3950617283950617*Li2sh*pow(-1. + sh,-4)*pow(sh,-3)*
8585 (-36. + 144.*sh - 234.*pow(sh,2) + 208.*pow(sh,3) -
8586 73.*pow(sh,4) + 9.*pow(sh,5)) -
8587 1.*Lsh*(14.222222222222221*(2. + sh)*pow(ash,2)*
8588 pow(-1. + sh,-4) -
8589 7.111111111111111*Li2sh*pow(-1. + sh,-3)*
8590 pow(sh,-1) - 2.3703703703703702*ash*sqrt4sh*sqrtsh*
8591 pow(-1. + sh,-3)*
8592 (4. + 15.*sh - 29.*pow(sh,2) + 23.*pow(sh,3) -
8593 8.*pow(sh,4) + pow(sh,5)) -
8594 0.03292181069958848*pow(-1. + sh,-4)*pow(sh,-4)*
8595 (30. + (1508. - 432.*Lshb)*sh +
8596 2.*(-3427. + 864.*Lshb)*pow(sh,2) +
8597 36.*(296. - 78.*Lshb +
8598 5.*PI2)*pow(sh,3) +
8599 (-6541. + 2496.*Lshb -
8600 36.*PI2)*pow(sh,4) +
8601 (1552. - 876.*Lshb +
8602 72.*PI2)*pow(sh,5) +
8603 27.*(3. + 4.*Lshb)*pow(sh,6))) -
8604 2.3703703703703702*pow(ash,2)*pow(-1. + sh,-4)*
8605 (16. - 22.*sh - 171.*pow(sh,2) + 336.*pow(sh,3) -
8606 300.*pow(sh,4) + 141.*pow(sh,5) - 33.*pow(sh,6) +
8607 3.*pow(sh,7)) - 0.09876543209876543*pow(Lsh,2)*
8608 pow(-1. + sh,-5)*pow(sh,-4)*
8609 (12. + 494.*sh - 2533.*pow(sh,2) +
8610 (4871. - 36.*Lshb)*pow(sh,3) +
8611 (-4634. + 72.*Lshb)*pow(sh,4) -
8612 4.*(-541. + 9.*Lshb)*pow(sh,5) - 428.*pow(sh,6) +
8613 18.*pow(sh,7)) -
8614 1.*pow(lz,2)*(2.3703703703703702*Lsh*(2. + sh)*
8615 pow(-1. + sh,-4) -
8616 0.09876543209876543*pow(-1. + sh,-3)*pow(sh,-4)*
8617 (-3. - 491.*sh + 1482.*pow(sh,2) -
8618 1467.*pow(sh,3) + 572.*pow(sh,4) -
8619 132.*pow(sh,5) + 321.*pow(sh,6) -
8620 378.*pow(sh,7) + 222.*pow(sh,8) -
8621 60.*pow(sh,9) + 6.*pow(sh,10))) -
8622 1.*lz*(-4.7407407407407405*Li2sh*(2. + sh)*
8623 pow(-1. + sh,-4) +
8624 28.444444444444443*(2. + sh)*pow(ash,2)*
8625 pow(-1. + sh,-4) +
8626 56.888888888888886*L_mu*pow(sh,-3) +
8627 3.5555555555555554*pow(Lsh,2)*pow(-1. + sh,-3)*
8628 pow(sh,-1) - 4.7407407407407405*ash*sqrt4sh*sqrtsh*
8629 pow(-1. + sh,-3)*
8630 (4. + 15.*sh - 29.*pow(sh,2) + 23.*pow(sh,3) -
8631 8.*pow(sh,4) + pow(sh,5)) +
8632 0.19753086419753085*Lsh*pow(-1. + sh,-4)*pow(sh,-4)*
8633 (6. + 494.*sh - 1991.*pow(sh,2) +
8634 2886.*pow(sh,3) -
8635 6.*(293. + 8.*Lshb)*pow(sh,4) -
8636 6.*(-65. + 4.*Lshb)*pow(sh,5) + 9.*pow(sh,6)) -
8637 0.03292181069958848*pow(-1. + sh,-3)*pow(sh,-4)*
8638 (15. + 1538.*sh - 4641.*pow(sh,2) +
8639 4446.*pow(sh,3) - 1361.*pow(sh,4) +
8640 498.*pow(sh,5) - 1215.*pow(sh,6) +
8641 606.*pow(sh,7) - 84.*pow(sh,8) - 24.*pow(sh,9) +
8642 6.*pow(sh,10))) +
8643 0.01646090534979424*pow(-1. + sh,-4)*pow(sh,-4)*
8644 (19. - 7836.*sh + 30701.*pow(sh,2) -
8645 45359.*pow(sh,3) + (31147. + 1728.*cl3)*pow(sh,4) +
8646 12.*(-701. + 72.*cl3)*pow(sh,5) - 343.*pow(sh,6) -
8647 2371.*pow(sh,7) + 4810.*pow(sh,8) -
8648 3164.*pow(sh,9) + 902.*pow(sh,10) -
8649 94.*pow(sh,11) +
8650 6.*PI2*
8651 (-6. - 338.*sh + 1349.*pow(sh,2) -
8652 1798.*pow(sh,3) + 914.*pow(sh,4) -
8653 42.*pow(sh,5) - 299.*pow(sh,6) +
8654 440.*pow(sh,7) - 400.*pow(sh,8) +
8655 188.*pow(sh,9) - 44.*pow(sh,10) + 4.*pow(sh,11)))
8656 )*pow(z,3);
8657 }
8658 else {
8659 res += pow(z,3)*(-563.8946426367565 -
8660 1680.2345038491285*(1. - 1.*sh) -
8661 3329.6412593857735*pow(1. - 1.*sh,2) -
8662 5423.45927216734*pow(1. - 1.*sh,3) +
8663 L_mu*(-37.925925925925924 -
8664 170.66666666666666*(1. - 1.*sh) -
8665 426.6666666666667*pow(1. - 1.*sh,2) -
8666 824.8888888888889*pow(1. - 1.*sh,3) -
8667 1379.5555555555557*pow(1. - 1.*sh,4)) -
8668 7956.241038705334*pow(1. - 1.*sh,4) +
8669 log(z)*(-34.97995438478488 -
8670 30.044118068027284*(1. - 1.*sh) +
8671 62.84401734242212*pow(1. - 1.*sh,2) +
8672 320.43564180164736*pow(1. - 1.*sh,3) +
8673 L_mu*(-56.888888888888886 -
8674 170.66666666666666*(1. - 1.*sh) -
8675 341.3333333333333*pow(1. - 1.*sh,2) -
8676 568.8888888888889*pow(1. - 1.*sh,3) -
8677 853.3333333333334*pow(1. - 1.*sh,4)) +
8678 749.5923384459219*pow(1. - 1.*sh,4)) +
8679 (54.22222222222222 + 150.45925925925926*(1. - 1.*sh) +
8680 299.97037037037035*pow(1. - 1.*sh,2) +
8681 503.0405643738977*pow(1. - 1.*sh,3) +
8682 755.8095238095239*pow(1. - 1.*sh,4))*pow(log(z),2));
8683 }
8684 }
8685
8686 if(7<=maxpow) {
8687 if(sh<.900001) {
8688 res += 0.02708994708994709*PI2*pow(sh,-5)*
8689 (15. + 108.*sh + 314.*pow(sh,2) + 108.*pow(sh,3) +
8690 15.*pow(sh,4))*pow(z,3.5);
8691 }
8692 else {
8693 res += (149.725554173563 + 449.17666252068904*(1. - 1.*sh) +
8694 943.270991293447*pow(1. - 1.*sh,2) +
8695 1676.9262067439056*pow(1. - 1.*sh,3) +
8696 2699.0704810394973*pow(1. - 1.*sh,4))*pow(z,3.5);
8697 }
8698 }
8699
8700 if(8<=maxpow) {
8701 if(sh<.900001) {
8702 res += (-1.*L_mu*(117.33333333333333*pow(sh,-4) -
8703 128.*Lsh*pow(sh,-4)) +
8704 14.246600333743338*pow(-1. + sh,-3)*pow(sh,-2) -
8705 11.851851851851851*Li3sh*pow(-1. + sh,-3)*pow(sh,-2) +
8706 3.950617283950617*pow(Lsh,3)*pow(-1. + sh,-3)*
8707 pow(sh,-2) - 3.5555555555555554*cl2*sqrt4sh*sqrtsh*
8708 (-6. - 13.*sh + 20.*pow(sh,2) - 8.*pow(sh,3) +
8709 pow(sh,4)) + 0.5925925925925926*Li2sh*
8710 pow(-1. + sh,-5)*pow(sh,-4)*
8711 (54. - 268.*sh + 544.*pow(sh,2) - 570.*pow(sh,3) +
8712 292.*pow(sh,4) - 58.*pow(sh,5) - 6.*pow(sh,6) +
8713 3.*pow(sh,7)) - 0.5925925925925926*ash*sqrt4sh*
8714 sqrtsh*pow(-1. + sh,-3)*
8715 (-6. - 41.*sh - 239.*pow(sh,2) + 671.*pow(sh,3) -
8716 680.*pow(sh,4) + 329.*pow(sh,5) - 77.*pow(sh,6) +
8717 7.*pow(sh,7)) + 10.666666666666666*sh*pow(ash,2)*
8718 pow(-1. + sh,-4)*(-24. - 3.*sh + 174.*pow(sh,2) -
8719 390.*pow(sh,3) + 411.*pow(sh,4) - 241.*pow(sh,5) +
8720 80.*pow(sh,6) - 14.*pow(sh,7) + pow(sh,8)) -
8721 1.*Lsh*(-11.851851851851851*Li2sh*pow(-1. + sh,-3)*
8722 pow(sh,-2) + 3.5555555555555554*ash*sqrt4sh*sqrtsh*
8723 (-6. - 13.*sh + 20.*pow(sh,2) - 8.*pow(sh,3) +
8724 pow(sh,4)) - 0.01646090534979424*pow(-1. + sh,-5)*
8725 pow(sh,-6)*(-21. + 10.*sh +
8726 2.*(-847. + 972.*Lshb)*pow(sh,2) +
8727 (11470. - 9648.*Lshb)*pow(sh,3) +
8728 (-27667. + 19584.*Lshb -
8729 600.*PI2)*pow(sh,4) +
8730 8.*(3982. - 2565.*Lshb +
8731 150.*PI2)*pow(sh,5) +
8732 2.*(-9179. + 5256.*Lshb -
8733 300.*PI2)*pow(sh,6) -
8734 6.*(-607. + 348.*Lshb)*pow(sh,7) -
8735 6.*(7. + 36.*Lshb)*pow(sh,8) +
8736 6.*(5. + 18.*Lshb)*pow(sh,9))) -
8737 0.09876543209876543*pow(Lsh,2)*pow(-1. + sh,-6)*
8738 pow(sh,-6)*(-6. - 14.*sh - 1215.*pow(sh,2) +
8739 7695.*pow(sh,3) - 19257.*pow(sh,4) -
8740 60.*Lshb*pow(-1. + sh,3)*pow(sh,4) +
8741 25233.*pow(sh,5) - 18375.*pow(sh,6) +
8742 6983.*pow(sh,7) - 1056.*pow(sh,8) - 27.*pow(sh,9) +
8743 9.*pow(sh,10)) -
8744 0.04938271604938271*pow(lz,2)*pow(sh,-6)*
8745 (-3. - 25.*sh - 2580.*pow(sh,2) + 73.*pow(sh,4) +
8746 3.*pow(sh,5) + 180.*pow(sh,6) + 36.*pow(sh,7) -
8747 738.*pow(sh,8) + 612.*pow(sh,9) - 180.*pow(sh,10) +
8748 18.*pow(sh,11)) -
8749 1.*lz*(128.*L_mu*pow(sh,-4) +
8750 5.925925925925926*pow(Lsh,2)*pow(-1. + sh,-3)*
8751 pow(sh,-2) + 7.111111111111111*ash*sqrt4sh*sqrtsh*
8752 (-6. - 13.*sh + 20.*pow(sh,2) - 8.*pow(sh,3) +
8753 pow(sh,4)) + 0.19753086419753085*Lsh*
8754 pow(-1. + sh,-5)*pow(sh,-6)*
8755 (-3. - 10.*sh - 1240.*pow(sh,2) +
8756 6380.*pow(sh,3) - 12722.*pow(sh,4) +
8757 12478.*pow(sh,5) - 6074.*pow(sh,6) +
8758 1158.*pow(sh,7) + 3.*pow(sh,8) + 3.*pow(sh,9)) +
8759 0.0016460905349794238*pow(-1. + sh,-4)*pow(sh,-6)*
8760 (105. + 55.*sh + 18530.*pow(sh,2) -
8761 72330.*pow(sh,3) + 91890.*pow(sh,4) -
8762 26202.*pow(sh,5) - 21156.*pow(sh,6) +
8763 1154.*pow(sh,7) + 54349.*pow(sh,8) -
8764 76131.*pow(sh,9) + 4716.*pow(sh,10) +
8765 82440.*pow(sh,11) - 83970.*pow(sh,12) +
8766 36900.*pow(sh,13) - 7740.*pow(sh,14) +
8767 630.*pow(sh,15))) -
8768 0.000027434842249657064*pow(-1. + sh,-5)*pow(sh,-6)*
8769 (2775. - 5550.*sh - 9.841575e6*pow(sh,2) +
8770 4.85214e7*pow(sh,3) - 9.54242e7*pow(sh,4) +
8771 9.3237052e7*pow(sh,5) - 4.3743086e7*pow(sh,6) +
8772 4.46555e6*pow(sh,7) + 7.670645e6*pow(sh,8) -
8773 4.88458e6*pow(sh,9) - 1.3483707e7*pow(sh,10) +
8774 3.4549776e7*pow(sh,11) - 3.627225e7*pow(sh,12) +
8775 2.100825e7*pow(sh,13) - 6.9246e6*pow(sh,14) +
8776 1.21095e6*pow(sh,15) - 86850.*pow(sh,16) +
8777 1200.*PI2*
8778 (-9. - 30.*sh - 2694.*pow(sh,2) +
8779 13896.*pow(sh,3) - 27086.*pow(sh,4) +
8780 25318.*pow(sh,5) - 11444.*pow(sh,6) +
8781 2810.*pow(sh,7) - 1033.*pow(sh,8) -
8782 2857.*pow(sh,9) + 10122.*pow(sh,10) -
8783 14418.*pow(sh,11) + 11736.*pow(sh,12) -
8784 5778.*pow(sh,13) + 1692.*pow(sh,14) -
8785 270.*pow(sh,15) + 18.*pow(sh,16))))*pow(z,4);
8786 }
8787 else {
8788 res += pow(z,4)*(-1424.5308091578474 -
8789 5728.7251525464435*(1. - 1.*sh) -
8790 14040.07057463595*pow(1. - 1.*sh,2) -
8791 27178.850860660903*pow(1. - 1.*sh,3) +
8792 L_mu*(-117.33333333333333 -
8793 597.3333333333334*(1. - 1.*sh) -
8794 1749.3333333333333*pow(1. - 1.*sh,2) -
8795 3925.3333333333335*pow(1. - 1.*sh,3) -
8796 7509.333333333333*pow(1. - 1.*sh,4)) -
8797 46368.872894680535*pow(1. - 1.*sh,4) +
8798 log(z)*(34.25652635469211 +
8799 169.5621944588141*(1. - 1.*sh) +
8800 865.728317571408*pow(1. - 1.*sh,2) +
8801 2770.286236159471*pow(1. - 1.*sh,3) +
8802 L_mu*(-128. - 512.*(1. - 1.*sh) -
8803 1280.*pow(1. - 1.*sh,2) -
8804 2560.*pow(1. - 1.*sh,3) - 4480.*pow(1. - 1.*sh,4)
8805 ) + 6293.656266280077*pow(1. - 1.*sh,4)) +
8806 (128.59259259259258 +
8807 497.77777777777777*(1. - 1.*sh) +
8808 1274.962962962963*pow(1. - 1.*sh,2) +
8809 2588.641975308642*pow(1. - 1.*sh,3) +
8810 4550.617283950617*pow(1. - 1.*sh,4))*pow(log(z),2));
8811 }
8812 }
8813
8814 if(9<=maxpow) {
8815 if(sh<.900001) {
8816 res += 0.006449987402368355*PI2*pow(sh,-7)*
8817 (35. + 330.*sh + 1389.*pow(sh,2) + 3212.*pow(sh,3) +
8818 1389.*pow(sh,4) + 330.*pow(sh,5) + 35.*pow(sh,6))*
8819 pow(z,4.5);
8820 }
8821 else {
8822 res += (427.7872976387514 + 1711.1491905550056*(1. - 1.*sh) +
8823 4470.377260324953*pow(1. - 1.*sh,2) +
8824 9518.267372462218*pow(1. - 1.*sh,3) +
8825 17894.4954414067*pow(1. - 1.*sh,4))*pow(z,4.5);
8826 }
8827 }
8828
8829 if(10<=maxpow) {
8830 if(sh<.900001) {
8831 res += (-1.*L_mu*(352.7111111111111*pow(sh,-5) -
8832 341.3333333333333*Lsh*pow(sh,-5)) +
8833 29.917860700861013*pow(-1. + sh,-3)*pow(sh,-3) -
8834 24.88888888888889*Li3sh*pow(-1. + sh,-3)*pow(sh,-3) +
8835 8.296296296296296*pow(Lsh,3)*pow(-1. + sh,-3)*
8836 pow(sh,-3) + 2.3703703703703702*cl2*sh*sqrt4sh*sqrtsh*
8837 (44. + 108.*sh - 221.*pow(sh,2) + 132.*pow(sh,3) -
8838 33.*pow(sh,4) + 3.*pow(sh,5)) +
8839 0.23703703703703705*ash*sh*sqrt4sh*sqrtsh*
8840 pow(-1. + sh,-3)*(-496. + 326.*sh + 6147.*pow(sh,2) -
8841 16495.*pow(sh,3) + 18680.*pow(sh,4) -
8842 11251.*pow(sh,5) + 3760.*pow(sh,6) -
8843 658.*pow(sh,7) + 47.*pow(sh,8)) +
8844 1.1851851851851851*Li2sh*pow(-1. + sh,-6)*pow(sh,-5)*
8845 (-72. + 429.*sh - 1073.*pow(sh,2) + 1442.*pow(sh,3) -
8846 1092.*pow(sh,4) + 435.*pow(sh,5) - 47.*pow(sh,6) -
8847 6.*pow(sh,7) - 1.*pow(sh,8) + pow(sh,9)) -
8848 7.111111111111111*sh*pow(ash,2)*pow(-1. + sh,-4)*
8849 (-24. + 162.*sh + 114.*pow(sh,2) - 1809.*pow(sh,3) +
8850 4224.*pow(sh,4) - 4957.*pow(sh,5) +
8851 3423.*pow(sh,6) - 1445.*pow(sh,7) +
8852 366.*pow(sh,8) - 51.*pow(sh,9) + 3.*pow(sh,10)) -
8853 1.*Lsh*(-24.88888888888889*Li2sh*pow(-1. + sh,-3)*
8854 pow(sh,-3) - 2.3703703703703702*ash*sh*sqrt4sh*
8855 sqrtsh*(44. + 108.*sh - 221.*pow(sh,2) +
8856 132.*pow(sh,3) - 33.*pow(sh,4) + 3.*pow(sh,5)) +
8857 0.0003292181069958848*pow(-1. + sh,-7)*pow(sh,-8)*
8858 (486. - 594.*sh - 8634.*pow(sh,2) -
8859 132632.*pow(sh,3) + 806792.*pow(sh,4) -
8860 1.649394e6*pow(sh,5) +
8861 63000.*PI2*pow(-1. + sh,4)*
8862 pow(sh,5) + 1.299724e6*pow(sh,6) +
8863 289454.*pow(sh,7) - 1.252893e6*pow(sh,8) +
8864 839053.*pow(sh,9) -
8865 3600.*Lshb*(-1. + sh)*pow(sh,3)*
8866 (-72. + 429.*sh - 1073.*pow(sh,2) +
8867 1442.*pow(sh,3) - 1092.*pow(sh,4) +
8868 435.*pow(sh,5) - 47.*pow(sh,6) -
8869 6.*pow(sh,7) - 1.*pow(sh,8) + pow(sh,9)) -
8870 206662.*pow(sh,10) + 15750.*pow(sh,11) +
8871 75.*pow(sh,12) - 525.*pow(sh,13))) -
8872 0.009876543209876543*pow(Lsh,2)*pow(-1. + sh,-7)*
8873 pow(sh,-8)*(36. + 126.*sh - 84.*pow(sh,2) +
8874 37024.*pow(sh,3) - 269605.*pow(sh,4) +
8875 818292.*pow(sh,5) -
8876 1260.*Lshb*pow(-1. + sh,4)*pow(sh,5) -
8877 1.360586e6*pow(sh,6) + 1.344224e6*pow(sh,7) -
8878 788604.*pow(sh,8) + 252535.*pow(sh,9) -
8879 33268.*pow(sh,10) - 300.*pow(sh,11) -
8880 120.*pow(sh,12) + 60.*pow(sh,13)) +
8881 0.0049382716049382715*pow(lz,2)*pow(sh,-8)*
8882 (18. + 189.*sh + 903.*pow(sh,2) + 78416.*pow(sh,3) -
8883 630.*pow(sh,4) - 1383.*pow(sh,5) -
8884 1839.*pow(sh,6) - 18.*pow(sh,7) - 3120.*pow(sh,8) -
8885 8160.*pow(sh,9) - 1440.*pow(sh,10) +
8886 46560.*pow(sh,11) - 51720.*pow(sh,12) +
8887 23040.*pow(sh,13) - 4680.*pow(sh,14) +
8888 360.*pow(sh,15)) -
8889 1.*lz*(341.3333333333333*L_mu*pow(sh,-5) +
8890 12.444444444444445*pow(Lsh,2)*pow(-1. + sh,-3)*
8891 pow(sh,-3) - 4.7407407407407405*ash*sh*sqrt4sh*
8892 sqrtsh*(44. + 108.*sh - 221.*pow(sh,2) +
8893 132.*pow(sh,3) - 33.*pow(sh,4) + 3.*pow(sh,5)) +
8894 0.019753086419753086*Lsh*pow(-1. + sh,-6)*pow(sh,-8)*
8895 (18. + 81.*sh + 39.*pow(sh,2) + 37525.*pow(sh,3) -
8896 231198.*pow(sh,4) + 582087.*pow(sh,5) -
8897 774221.*pow(sh,6) + 575781.*pow(sh,7) -
8898 227535.*pow(sh,8) + 38728.*pow(sh,9) -
8899 450.*pow(sh,10) + 90.*pow(sh,11) + 15.*pow(sh,12)
8900 ) - 0.000047031158142269256*pow(-1. + sh,-5)*
8901 pow(sh,-8)*(1701. + 1323.*sh - 29274.*pow(sh,2) -
8902 957341.*pow(sh,3) + 5.622085e6*pow(sh,4) -
8903 1.3372289e7*pow(sh,5) + 1.7244458e7*pow(sh,6) -
8904 1.2810919e7*pow(sh,7) + 6.090011e6*pow(sh,8) -
8905 4.03983e6*pow(sh,9) + 4.371768e6*pow(sh,10) +
8906 4.551324e6*pow(sh,11) - 1.1897697e7*pow(sh,12) -
8907 1.323264e7*pow(sh,13) + 6.277908e7*pow(sh,14) -
8908 8.508528e7*pow(sh,15) + 6.212682e7*pow(sh,16) -
8909 2.701314e7*pow(sh,17) + 6.98418e6*pow(sh,18) -
8910 990360.*pow(sh,19) + 59220.*pow(sh,20))) -
8911 1.679684219366759e-7*pow(-1. + sh,-6)*pow(sh,-8)*
8912 (-161406. + 318843.*sh + 1.910657e6*pow(sh,2) +
8913 3.755399935e9*pow(sh,3) -
8914 2.2256359629e10*pow(sh,4) +
8915 5.4715328248e10*pow(sh,5) -
8916 7.1399970054e10*pow(sh,6) +
8917 5.2256870574e10*pow(sh,7) -
8918 2.1211105332e10*pow(sh,8) +
8919 5.981785659e9*pow(sh,9) -
8920 2.944201467e9*pow(sh,10) -
8921 1.246759469e9*pow(sh,11) +
8922 2.466843039e9*pow(sh,12) +
8923 1.8171607842e10*pow(sh,13) -
8924 6.053910752e10*pow(sh,14) +
8925 8.996385496e10*pow(sh,15) -
8926 7.96292826e10*pow(sh,16) +
8927 4.509057616e10*pow(sh,17) -
8928 1.647058952e10*pow(sh,18) +
8929 3.74875284e9*pow(sh,19) - 4.8245988e8*pow(sh,20) +
8930 2.674812e7*pow(sh,21) -
8931 58800.*PI2*
8932 (-18. - 81.*sh - 39.*pow(sh,2) -
8933 28525.*pow(sh,3) + 176088.*pow(sh,4) -
8934 439209.*pow(sh,5) + 573427.*pow(sh,6) -
8935 414687.*pow(sh,7) + 157597.*pow(sh,8) -
8936 24058.*pow(sh,9) + 3132.*pow(sh,10) -
8937 3736.*pow(sh,11) - 77479.*pow(sh,12) +
8938 318588.*pow(sh,13) - 608560.*pow(sh,14) +
8939 702440.*pow(sh,15) - 529920.*pow(sh,16) +
8940 267160.*pow(sh,17) - 89120.*pow(sh,18) +
8941 18840.*pow(sh,19) - 2280.*pow(sh,20) +
8942 120.*pow(sh,21))))*pow(z,5);
8943 }
8944 else {
8945 res += pow(z,5)*(-4202.986795121401 -
8946 21563.981801901395*(1. - 1.*sh) -
8947 63115.765734768596*pow(1. - 1.*sh,2) -
8948 142119.7662710934*pow(1. - 1.*sh,3) +
8949 L_mu*(-352.7111111111111 -
8950 2104.8888888888887*(1. - 1.*sh) -
8951 7168.*pow(1. - 1.*sh,2) -
8952 18432.*pow(1. - 1.*sh,3) -
8953 39850.666666666664*pow(1. - 1.*sh,4)) -
8954 277830.4069154384*pow(1. - 1.*sh,4) +
8955 log(z)*(251.91238577751216 +
8956 956.915478778669*(1. - 1.*sh) +
8957 4881.515489147685*pow(1. - 1.*sh,2) +
8958 16699.40413911222*pow(1. - 1.*sh,3) +
8959 L_mu*(-341.3333333333333 -
8960 1706.6666666666667*(1. - 1.*sh) -
8961 5120.*pow(1. - 1.*sh,2) -
8962 11946.666666666666*pow(1. - 1.*sh,3) -
8963 23893.333333333332*pow(1. - 1.*sh,4)) +
8964 41147.84749220197*pow(1. - 1.*sh,4)) +
8965 (377.758024691358 + 1862.716049382716*(1. - 1.*sh) +
8966 5810.814814814815*pow(1. - 1.*sh,2) +
8967 13779.160493827161*pow(1. - 1.*sh,3) +
8968 27666.172839506173*pow(1. - 1.*sh,4))*pow(log(z),2));
8969 }
8970 }
8971
8972 if(11<=maxpow) {
8973 if(sh<.900001) {
8974 res += 0.0004560597153189746*PI2*pow(sh,-9)*
8975 (315. + 3640.*sh + 19380.*pow(sh,2) + 62088.*pow(sh,3) +
8976 124834.*pow(sh,4) + 62088.*pow(sh,5) +
8977 19380.*pow(sh,6) + 3640.*pow(sh,7) + 315.*pow(sh,8))*
8978 pow(z,5.5);
8979 }
8980 else {
8981 res += (1330.8938148761156 + 6654.469074380578*(1. - 1.*sh) +
8982 20761.943512067406*pow(1. - 1.*sh,2) +
8983 51372.50125421806*pow(1. - 1.*sh,3) +
8984 110145.72275758653*pow(1. - 1.*sh,4))*pow(z,5.5);
8985 }
8986 }
8987
8988 if(12<=maxpow) {
8989 if(sh<.900001) {
8990 res += (-1.*L_mu*(1097.4814814814815*pow(sh,-6) -
8991 995.5555555555555*Lsh*pow(sh,-6)) +
8992 71.80286568206643*pow(-1. + sh,-3)*pow(sh,-4) -
8993 59.733333333333334*Li3sh*pow(-1. + sh,-3)*pow(sh,-4) +
8994 19.91111111111111*pow(Lsh,3)*pow(-1. + sh,-3)*
8995 pow(sh,-4) - 2.765432098765432*cl2*sh*sqrt4sh*sqrtsh*
8996 (20. - 194.*sh - 657.*pow(sh,2) + 1581.*pow(sh,3) -
8997 1239.*pow(sh,4) + 462.*pow(sh,5) - 84.*pow(sh,6) +
8998 6.*pow(sh,7)) - 0.02633744855967078*ash*sh*sqrt4sh*
8999 sqrtsh*pow(-1. + sh,-3)*
9000 (-3230. + 42428.*sh + 5415.*pow(sh,2) -
9001 547510.*pow(sh,3) + 1.454143e6*pow(sh,4) -
9002 1.806873e6*pow(sh,5) + 1.280646e6*pow(sh,6) -
9003 546171.*pow(sh,7) + 138714.*pow(sh,8) -
9004 19329.*pow(sh,9) + 1137.*pow(sh,10)) +
9005 8.296296296296296*pow(ash,2)*pow(-1. + sh,-4)*pow(sh,2)*
9006 (210. - 870.*sh - 1395.*pow(sh,2) +
9007 13113.*pow(sh,3) - 31009.*pow(sh,4) +
9008 39370.*pow(sh,5) - 30843.*pow(sh,6) +
9009 15585.*pow(sh,7) - 5091.*pow(sh,8) +
9010 1038.*pow(sh,9) - 120.*pow(sh,10) + 6.*pow(sh,11))\
9011 + 0.019753086419753086*Li2sh*pow(-1. + sh,-7)*
9012 pow(sh,-6)*(12600. - 87696.*sh + 262296.*pow(sh,2) -
9013 436590.*pow(sh,3) + 435240.*pow(sh,4) -
9014 257040.*pow(sh,5) + 79436.*pow(sh,6) -
9015 8456.*pow(sh,7) - 360.*pow(sh,9) + 45.*pow(sh,11))\
9016 - 1.*Lsh*(-59.733333333333334*Li2sh*pow(-1. + sh,-3)*
9017 pow(sh,-4) + 2.765432098765432*ash*sh*sqrt4sh*
9018 sqrtsh*(20. - 194.*sh - 657.*pow(sh,2) +
9019 1581.*pow(sh,3) - 1239.*pow(sh,4) +
9020 462.*pow(sh,5) - 84.*pow(sh,6) + 6.*pow(sh,7)) +
9021 0.00006584362139917696*pow(-1. + sh,-8)*pow(sh,-10)*
9022 (-1320. + 1416.*sh + 30540.*pow(sh,2) +
9023 40260.*pow(sh,3) + 6.70004e6*pow(sh,4) -
9024 5.379436e7*pow(sh,5) + 1.79724938e8*pow(sh,6) +
9025 756000.*PI2*pow(-1. + sh,5)*
9026 pow(sh,6) - 3.3536944e8*pow(sh,7) +
9027 3.8325104e8*pow(sh,8) - 2.7317989e8*pow(sh,9) +
9028 1.17246435e8*pow(sh,10) -
9029 2.7037239e7*pow(sh,11) -
9030 300.*Lshb*(-1. + sh)*pow(sh,4)*
9031 (12600. - 87696.*sh + 262296.*pow(sh,2) -
9032 436590.*pow(sh,3) + 435240.*pow(sh,4) -
9033 257040.*pow(sh,5) + 79436.*pow(sh,6) -
9034 8456.*pow(sh,7) - 360.*pow(sh,9) +
9035 45.*pow(sh,11)) + 2.36385e6*pow(sh,12) -
9036 31650.*pow(sh,13) + 60375.*pow(sh,14) -
9037 3780.*pow(sh,15) - 1215.*pow(sh,16))) -
9038 0.0019753086419753087*pow(Lsh,2)*pow(-1. + sh,-8)*
9039 pow(sh,-10)*(-120. - 552.*sh - 120.*pow(sh,2) +
9040 3480.*pow(sh,3) - 612380.*pow(sh,4) +
9041 4.99354e6*pow(sh,5) - 1.7689517e7*pow(sh,6) -
9042 15120.*Lshb*pow(-1. + sh,5)*pow(sh,6) +
9043 3.5499895e7*pow(sh,7) - 4.421963e7*pow(sh,8) +
9044 3.502108e7*pow(sh,9) - 1.719707e7*pow(sh,10) +
9045 4.767574e6*pow(sh,11) - 567440.*pow(sh,12) +
9046 1800.*pow(sh,13) - 1800.*pow(sh,14) -
9047 225.*pow(sh,15) + 225.*pow(sh,16)) -
9048 0.0019753086419753087*pow(lz,2)*pow(sh,-10)*
9049 (-30. - 378.*sh - 2214.*pow(sh,2) - 7938.*pow(sh,3) -
9050 638000.*pow(sh,4) + 7560.*pow(sh,5) +
9051 6273.*pow(sh,6) + 13689.*pow(sh,7) +
9052 10908.*pow(sh,8) + 30.*pow(sh,9) +
9053 20300.*pow(sh,10) + 27300.*pow(sh,11) +
9054 113400.*pow(sh,12) + 49700.*pow(sh,13) -
9055 880950.*pow(sh,14) + 1.19385e6*pow(sh,15) -
9056 706650.*pow(sh,16) + 216300.*pow(sh,17) -
9057 33600.*pow(sh,18) + 2100.*pow(sh,19)) -
9058 1.*lz*(995.5555555555555*L_mu*pow(sh,-6) +
9059 29.866666666666667*pow(Lsh,2)*pow(-1. + sh,-3)*
9060 pow(sh,-4) + 5.530864197530864*ash*sh*sqrt4sh*
9061 sqrtsh*(20. - 194.*sh - 657.*pow(sh,2) +
9062 1581.*pow(sh,3) - 1239.*pow(sh,4) +
9063 462.*pow(sh,5) - 84.*pow(sh,6) + 6.*pow(sh,7)) +
9064 0.003950617283950617*Lsh*pow(-1. + sh,-7)*
9065 pow(sh,-10)*(-60. - 336.*sh - 396.*pow(sh,2) +
9066 1344.*pow(sh,3) - 614396.*pow(sh,4) +
9067 4.375784e6*pow(sh,5) - 1.3247019e7*pow(sh,6) +
9068 2.2150786e7*pow(sh,7) - 2.2142404e7*pow(sh,8) +
9069 1.3260636e7*pow(sh,9) - 4.429894e6*pow(sh,10) +
9070 647380.*pow(sh,11) - 2940.*pow(sh,12) -
9071 1740.*pow(sh,13) + 585.*pow(sh,14) +
9072 45.*pow(sh,15)) +
9073 9.40623162845385e-6*pow(-1. + sh,-6)*pow(sh,-10)*
9074 (4620. + 4284.*sh - 102942.*pow(sh,2) -
9075 351078.*pow(sh,3) - 4.7830454e7*pow(sh,4) +
9076 3.0838269e8*pow(sh,5) - 8.19066822e8*pow(sh,6) +
9077 1.178613196e9*pow(sh,7) -
9078 9.89156856e8*pow(sh,8) +
9079 4.74656612e8*pow(sh,9) - 9.292233e7*pow(sh,10) -
9080 5.9056617e7*pow(sh,11) +
9081 8.9385341e7*pow(sh,12) -
9082 1.01542571e8*pow(sh,13) +
9083 3.36952887e8*pow(sh,14) -
9084 4.6151941e8*pow(sh,15) -
9085 1.1490745e9*pow(sh,16) +
9086 5.1849126e9*pow(sh,17) -
9087 8.94761595e9*pow(sh,18) +
9088 9.1281316e9*pow(sh,19) -
9089 6.0729627e9*pow(sh,20) +
9090 2.7087795e9*pow(sh,21) - 8.039283e8*pow(sh,22) +
9091 1.522416e8*pow(sh,23) - 1.66278e7*pow(sh,24) +
9092 795900.*pow(sh,25))) -
9093 7.465263197185596e-9*pow(-1. + sh,-7)*pow(sh,-10)*
9094 (1.60524e6 - 3.372768e6*sh - 2.1255318e7*pow(sh,2) +
9095 5.1364152e7*pow(sh,3) -
9096 2.17838821368e11*pow(sh,4) +
9097 1.503468880032e12*pow(sh,5) -
9098 4.435848139401e12*pow(sh,6) +
9099 7.250465882724e12*pow(sh,7) -
9100 7.100583095886e12*pow(sh,8) +
9101 4.194932382824e12*pow(sh,9) -
9102 1.400004505326e12*pow(sh,10) +
9103 1.30381507564e11*pow(sh,11) +
9104 2.09548894394e11*pow(sh,12) -
9105 3.42677229216e11*pow(sh,13) +
9106 7.84252942969e11*pow(sh,14) -
9107 7.91328639346e11*pow(sh,15) -
9108 3.49537340577e12*pow(sh,16) +
9109 1.51956042427e13*pow(sh,17) -
9110 2.91706462341e13*pow(sh,18) +
9111 3.468763704735e13*pow(sh,19) -
9112 2.790223133985e13*pow(sh,20) +
9113 1.564098014115e13*pow(sh,21) -
9114 6.1223554161e12*pow(sh,22) +
9115 1.63963647855e12*pow(sh,23) -
9116 2.859293178e11*pow(sh,24) +
9117 2.92020939e10*pow(sh,25) - 1.3226913e9*pow(sh,26) +
9118 88200.*PI2*
9119 (-180. - 1008.*sh - 1188.*pow(sh,2) +
9120 4032.*pow(sh,3) - 1.452588e6*pow(sh,4) +
9121 1.0340232e7*pow(sh,5) - 3.1138149e7*pow(sh,6) +
9122 5.1560286e7*pow(sh,7) - 5.0820204e7*pow(sh,8) +
9123 2.9901036e7*pow(sh,9) - 9.847894e6*pow(sh,10) +
9124 1.626412e6*pow(sh,11) - 564648.*pow(sh,12) +
9125 1.515872e6*pow(sh,13) - 1.613573e6*pow(sh,14) -
9126 1.0017483e7*pow(sh,15) + 5.154742e7*pow(sh,16) -
9127 1.211917e8*pow(sh,17) + 1.785651e8*pow(sh,18) -
9128 1.800631e8*pow(sh,19) + 1.286215e8*pow(sh,20) -
9129 6.57363e7*pow(sh,21) + 2.38644e7*pow(sh,22) -
9130 5.9997e6*pow(sh,23) + 991200.*pow(sh,24) -
9131 96600.*pow(sh,25) + 4200.*pow(sh,26))))*pow(z,6);
9132 }
9133 else {
9134 res += pow(z,6)*(-13382.609103673856 -
9135 83909.57333198964*(1. - 1.*sh) -
9136 285314.7964864959*pow(1. - 1.*sh,2) -
9137 733141.6984787509*pow(1. - 1.*sh,3) +
9138 L_mu*(-1097.4814814814815 -
9139 7580.444444444444*(1. - 1.*sh) -
9140 29518.222222222223*pow(1. - 1.*sh,2) -
9141 85684.14814814815*pow(1. - 1.*sh,3) -
9142 206727.11111111112*pow(1. - 1.*sh,4)) -
9143 1.6179936283094224e6*pow(1. - 1.*sh,4) +
9144 log(z)*(1155.1126760626482 +
9145 4506.419624502263*(1. - 1.*sh) +
9146 25308.484542876675*pow(1. - 1.*sh,2) +
9147 94030.12199742932*pow(1. - 1.*sh,3) +
9148 L_mu*(-995.5555555555555 -
9149 5973.333333333333*(1. - 1.*sh) -
9150 20906.666666666668*pow(1. - 1.*sh,2) -
9151 55751.11111111111*pow(1. - 1.*sh,3) -
9152 125440.*pow(1. - 1.*sh,4)) +
9153 250854.98047286444*pow(1. - 1.*sh,4)) +
9154 (1201.679012345679 + 7214.074074074074*(1. - 1.*sh) +
9155 26538.192592592593*pow(1. - 1.*sh,2) +
9156 71813.39259259259*pow(1. - 1.*sh,3) +
9157 162002.66666666666*pow(1. - 1.*sh,4))*pow(log(z),2));
9158 }
9159 }
9160
9161 if(13<=maxpow) {
9162 if(sh<.900001) {
9163 res += 0.00014351529503044654*PI2*pow(sh,-11)*
9164 (693. + 9450.*sh + 60305.*pow(sh,2) +
9165 238200.*pow(sh,3) + 642234.*pow(sh,4) +
9166 1.173308e6*pow(sh,5) + 642234.*pow(sh,6) +
9167 238200.*pow(sh,7) + 60305.*pow(sh,8) +
9168 9450.*pow(sh,9) + 693.*pow(sh,10))*pow(z,6.5);
9169 }
9170 else {
9171 res += (4355.652485049105 + 26133.914910294636*(1. - 1.*sh) +
9172 94735.44154981805*pow(1. - 1.*sh,2) +
9173 266783.7147092577*pow(1. - 1.*sh,3) +
9174 641447.6079321424*pow(1. - 1.*sh,4))*pow(z,6.5);
9175 }
9176 }
9177
9178 if(14<=maxpow) {
9179 if(sh<.900001) {
9180 res += (-1.*L_mu*(3527.9238095238097*pow(sh,-7) -
9181 3072.*Lsh*pow(sh,-7)) +
9182 188.0551244054121*pow(-1. + sh,-3)*pow(sh,-5) -
9183 156.44444444444446*Li3sh*pow(-1. + sh,-3)*pow(sh,-5) +
9184 52.148148148148145*pow(Lsh,3)*pow(-1. + sh,-3)*
9185 pow(sh,-5) + 4.266666666666667*cl2*sqrt4sh*sqrtsh*
9186 pow(sh,2)*(-204. + 654.*sh + 3621.*pow(sh,2) -
9187 9390.*pow(sh,3) + 8928.*pow(sh,4) -
9188 4384.*pow(sh,5) + 1190.*pow(sh,6) -
9189 170.*pow(sh,7) + 10.*pow(sh,8)) +
9190 0.06772486772486773*ash*sqrt4sh*sqrtsh*pow(-1. + sh,-3)*
9191 pow(sh,2)*(23244. - 145995.*sh - 135165.*pow(sh,2) +
9192 2.214474e6*pow(sh,3) - 5.812671e6*pow(sh,4) +
9193 7.761562e6*pow(sh,5) - 6.239858e6*pow(sh,6) +
9194 3.192422e6*pow(sh,7) - 1.048133e6*pow(sh,8) +
9195 214001.*pow(sh,9) - 24740.*pow(sh,10) +
9196 1237.*pow(sh,11)) +
9197 0.7111111111111111*Li2sh*pow(-1. + sh,-8)*pow(sh,-7)*
9198 (-1080. + 8600.*sh - 29988.*pow(sh,2) +
9199 59752.*pow(sh,3) - 74250.*pow(sh,4) +
9200 58630.*pow(sh,5) - 28380.*pow(sh,6) +
9201 7472.*pow(sh,7) - 698.*pow(sh,8) - 10.*pow(sh,11) +
9202 pow(sh,12) + pow(sh,13)) -
9203 12.8*pow(ash,2)*pow(-1. + sh,-4)*pow(sh,2)*
9204 (60. - 1390.*sh + 3920.*pow(sh,2) +
9205 11563.*pow(sh,3) - 80966.*pow(sh,4) +
9206 191832.*pow(sh,5) - 258720.*pow(sh,6) +
9207 224115.*pow(sh,7) - 130416.*pow(sh,8) +
9208 51582.*pow(sh,9) - 13684.*pow(sh,10) +
9209 2330.*pow(sh,11) - 230.*pow(sh,12) + 10.*pow(sh,13))
9210 - 1.*Lsh*(-156.44444444444446*Li2sh*pow(-1. + sh,-3)*
9211 pow(sh,-5) - 4.266666666666667*ash*sqrt4sh*sqrtsh*
9212 pow(sh,2)*(-204. + 654.*sh + 3621.*pow(sh,2) -
9213 9390.*pow(sh,3) + 8928.*pow(sh,4) -
9214 4384.*pow(sh,5) + 1190.*pow(sh,6) -
9215 170.*pow(sh,7) + 10.*pow(sh,8)) +
9216 0.000013437473754934073*pow(-1. + sh,-9)*pow(sh,-12)*
9217 (3900. - 3800.*sh - 116136.*pow(sh,2) -
9218 213534.*pow(sh,3) + 423060.*pow(sh,4) -
9219 1.71541326e8*pow(sh,5) +
9220 1.547854104e9*pow(sh,6) -
9221 6.099085398e9*pow(sh,7) +
9222 9.702e6*PI2*pow(-1. + sh,6)*
9223 pow(sh,7) + 1.3863208764e10*pow(sh,8) -
9224 2.0080171644e10*pow(sh,9) +
9225 1.9223278801e10*pow(sh,10) -
9226 1.2149332644e10*pow(sh,11) +
9227 4.878367842e9*pow(sh,12) -
9228 1.128611791e9*pow(sh,13) -
9229 52920.*Lshb*(-1. + sh)*pow(sh,5)*
9230 (-1080. + 8600.*sh - 29988.*pow(sh,2) +
9231 59752.*pow(sh,3) - 74250.*pow(sh,4) +
9232 58630.*pow(sh,5) - 28380.*pow(sh,6) +
9233 7472.*pow(sh,7) - 698.*pow(sh,8) -
9234 10.*pow(sh,11) + pow(sh,12) + pow(sh,13)) +
9235 1.16995017e8*pow(sh,14) - 1.22745e6*pow(sh,15) -
9236 53410.*pow(sh,16) + 252693.*pow(sh,17) -
9237 23814.*pow(sh,18) - 3234.*pow(sh,19))) -
9238 0.0028218694885361554*pow(Lsh,2)*pow(-1. + sh,-9)*
9239 pow(sh,-12)*(60. + 340.*sh + 312.*pow(sh,2) -
9240 1872.*pow(sh,3) - 4980.*pow(sh,4) +
9241 1.468248e6*pow(sh,5) - 1.3307922e7*pow(sh,6) +
9242 5.3745563e7*pow(sh,7) -
9243 27720.*Lshb*pow(-1. + sh,6)*pow(sh,7) -
9244 1.2604899e8*pow(sh,8) + 1.89165441e8*pow(sh,9) -
9245 1.88411563e8*pow(sh,10) + 1.24499847e8*pow(sh,11) -
9246 5.2564902e7*pow(sh,12) + 1.2834946e7*pow(sh,13) -
9247 1.375368e6*pow(sh,14) + 1260.*pow(sh,16) -
9248 1386.*pow(sh,17) + 126.*pow(sh,19)) +
9249 0.0028218694885361554*pow(lz,2)*pow(sh,-12)*
9250 (15. + 220.*sh + 1518.*pow(sh,2) + 6534.*pow(sh,3) +
9251 19503.*pow(sh,4) + 1.511448e6*pow(sh,5) -
9252 20790.*pow(sh,6) - 6546.*pow(sh,7) -
9253 24741.*pow(sh,8) - 29490.*pow(sh,9) -
9254 19183.*pow(sh,10) - 15.*pow(sh,11) -
9255 42336.*pow(sh,12) - 50652.*pow(sh,13) -
9256 42336.*pow(sh,14) - 522396.*pow(sh,15) -
9257 514080.*pow(sh,16) + 5.330178e6*pow(sh,17) -
9258 8.247204e6*pow(sh,18) + 6.008688e6*pow(sh,19) -
9259 2.443392e6*pow(sh,20) + 570780.*pow(sh,21) -
9260 71820.*pow(sh,22) + 3780.*pow(sh,23)) -
9261 1.*lz*(3072.*L_mu*pow(sh,-7) +
9262 78.22222222222223*pow(Lsh,2)*pow(-1. + sh,-3)*
9263 pow(sh,-5) - 8.533333333333333*ash*sqrt4sh*sqrtsh*
9264 pow(sh,2)*(-204. + 654.*sh + 3621.*pow(sh,2) -
9265 9390.*pow(sh,3) + 8928.*pow(sh,4) -
9266 4384.*pow(sh,5) + 1190.*pow(sh,6) -
9267 170.*pow(sh,7) + 10.*pow(sh,8)) +
9268 0.005643738977072311*Lsh*pow(-1. + sh,-8)*
9269 pow(sh,-12)*(30. + 200.*sh + 356.*pow(sh,2) -
9270 580.*pow(sh,3) - 3070.*pow(sh,4) +
9271 1.465988e6*pow(sh,5) - 1.1840494e7*pow(sh,6) +
9272 4.1785315e7*pow(sh,7) - 8.3994971e7*pow(sh,8) +
9273 1.0527886e8*pow(sh,9) - 8.4349693e7*pow(sh,10) +
9274 4.2263834e7*pow(sh,11) -
9275 1.2154288e7*pow(sh,12) + 1.55972e6*pow(sh,13) -
9276 2380.*pow(sh,14) - 2065.*pow(sh,15) -
9277 945.*pow(sh,16) + 462.*pow(sh,17) +
9278 21.*pow(sh,18)) -
9279 4.071961743919416e-7*pow(-1. + sh,-7)*pow(sh,-12)*
9280 (64350. + 66000.*sh - 1.848594e6*pow(sh,2) -
9281 7.286499e6*pow(sh,3) - 5.743914e6*pow(sh,4) -
9282 5.685999132e9*pow(sh,5) +
9283 4.1685525882e10*pow(sh,6) -
9284 1.30007412909e11*pow(sh,7) +
9285 2.26326493503e11*pow(sh,8) -
9286 2.39590844427e11*pow(sh,9) +
9287 1.56064921276e11*pow(sh,10) -
9288 5.9156118388e10*pow(sh,11) +
9289 1.1660658501e10*pow(sh,12) -
9290 5.482108499e9*pow(sh,13) +
9291 1.2697937753e10*pow(sh,14) -
9292 1.820498844e10*pow(sh,15) +
9293 4.184087512e9*pow(sh,16) +
9294 6.5568484406e10*pow(sh,17) -
9295 9.5193663855e10*pow(sh,18) -
9296 3.83610629052e11*pow(sh,19) +
9297 1.851933873636e12*pow(sh,20) -
9298 3.850977196836e12*pow(sh,21) +
9299 4.997388254166e12*pow(sh,22) -
9300 4.45400972478e12*pow(sh,23) +
9301 2.82695858676e12*pow(sh,24) -
9302 1.2912095196e12*pow(sh,25) +
9303 4.2141221892e11*pow(sh,26) -
9304 9.582123474e10*pow(sh,27) +
9305 1.44039357e10*pow(sh,28) -
9306 1.28490516e9*pow(sh,29) + 5.143446e7*pow(sh,30)))
9307 + 2.9379233361611947e-11*pow(-1. + sh,-8)*pow(sh,-12)*
9308 (2.074545e8 - 4.76982e8*sh -
9309 3.223561968e9*pow(sh,2) +
9310 1.2229671465e10*pow(sh,3) +
9311 5.5118379195e10*pow(sh,4) -
9312 1.50774673843134e14*pow(sh,5) +
9313 1.186047300987252e15*pow(sh,6) -
9314 4.079182881529008e15*pow(sh,7) +
9315 8.005291590723075e15*pow(sh,8) -
9316 9.81400671207825e15*pow(sh,9) +
9317 7.724627706932279e15*pow(sh,10) -
9318 3.853787364524662e15*pow(sh,11) +
9319 1.164725088632579e15*pow(sh,12) -
9320 2.634808520857e14*pow(sh,13) +
9321 2.5170701729432e14*pow(sh,14) -
9322 4.0013657985217e14*pow(sh,15) +
9323 1.47801666642455e14*pow(sh,16) +
9324 1.2877818678578e15*pow(sh,17) -
9325 2.076397177767913e15*pow(sh,18) -
9326 8.385630050032431e15*pow(sh,19) +
9327 4.538622316201646e16*pow(sh,20) -
9328 1.061838620189715e17*pow(sh,21) +
9329 1.575009771316346e17*pow(sh,22) -
9330 1.6342684496066314e17*pow(sh,23) +
9331 1.2333678370646925e17*pow(sh,24) -
9332 6.8698738259084936e16*pow(sh,25) +
9333 2.8233898574272776e16*pow(sh,26) -
9334 8.447633225048556e15*pow(sh,27) +
9335 1.786675943700648e15*pow(sh,28) -
9336 2.5272282124782e14*pow(sh,29) +
9337 2.141343983394e13*pow(sh,30) -
9338 8.2047522942e11*pow(sh,31) +
9339 3.20166e7*PI2*
9340 (-90. - 600.*sh - 1068.*pow(sh,2) +
9341 1740.*pow(sh,3) + 9210.*pow(sh,4) -
9342 3.558804e6*pow(sh,5) + 2.8685982e7*pow(sh,6) -
9343 1.00848529e8*pow(sh,7) +
9344 2.01465905e8*pow(sh,8) - 2.5035526e8*pow(sh,9) +
9345 1.98432319e8*pow(sh,10) -
9346 9.8218082e7*pow(sh,11) +
9347 2.7878488e7*pow(sh,12) - 3.151676e6*pow(sh,13) -
9348 1.140968e6*pow(sh,14) + 600307.*pow(sh,15) +
9349 5.766227e6*pow(sh,16) - 8.667286e6*pow(sh,17) -
9350 7.4435635e7*pow(sh,18) +
9351 4.29448764e8*pow(sh,19) -
9352 1.174957056e9*pow(sh,20) +
9353 2.075532984e9*pow(sh,21) -
9354 2.59118244e9*pow(sh,22) +
9355 2.377353888e9*pow(sh,23) -
9356 1.631212128e9*pow(sh,24) +
9357 8.40926772e8*pow(sh,25) -
9358 3.23868888e8*pow(sh,26) +
9359 9.1648368e7*pow(sh,27) -
9360 1.8464544e7*pow(sh,28) + 2.50236e6*pow(sh,29) -
9361 204120.*pow(sh,30) + 7560.*pow(sh,31))))*pow(z,7);
9362 }
9363 else {
9364 res += pow(z,7)*(-44491.606444877616 -
9365 330794.4598052619*(1. - 1.*sh) -
9366 1.2804206866827896e6*pow(1. - 1.*sh,2) -
9367 3.6984879243897516e6*pow(1. - 1.*sh,3) +
9368 L_mu*(-3527.9238095238097 -
9369 27767.466666666667*(1. - 1.*sh) -
9370 121821.86666666667*pow(1. - 1.*sh,2) -
9371 394137.6*pow(1. - 1.*sh,3) -
9372 1.049856e6*pow(1. - 1.*sh,4)) -
9373 9.101629224853888e6*pow(1. - 1.*sh,4) +
9374 log(z)*(4793.772650900163 +
9375 20076.271464118738*(1. - 1.*sh) +
9376 125799.80299624978*pow(1. - 1.*sh,2) +
9377 506715.246202913*pow(1. - 1.*sh,3) +
9378 L_mu*(-3072. - 21504.*(1. - 1.*sh) -
9379 86016.*pow(1. - 1.*sh,2) -
9380 258048.*pow(1. - 1.*sh,3) -
9381 645120.*pow(1. - 1.*sh,4)) +
9382 1.4556579496221067e6*pow(1. - 1.*sh,4)) +
9383 (4000.5164021164023 +
9384 28350.044444444444*(1. - 1.*sh) +
9385 120184.65185185186*pow(1. - 1.*sh,2) +
9386 364920.47407407407*pow(1. - 1.*sh,3) +
9387 913431.7037037037*pow(1. - 1.*sh,4))*pow(log(z),2));
9388 }
9389 }
9390
9391 if(15<=maxpow) {
9392 if(sh<.900001) {
9393 res += 0.000024287203774383262*PI2*
9394 pow(sh,-13)*(3003. + 47124.*sh + 349398.*pow(sh,2) +
9395 1.62554e6*pow(sh,3) + 5.297685e6*pow(sh,4) +
9396 1.265412e7*pow(sh,5) + 2.15477e7*pow(sh,6) +
9397 1.265412e7*pow(sh,7) + 5.297685e6*pow(sh,8) +
9398 1.62554e6*pow(sh,9) + 349398.*pow(sh,10) +
9399 47124.*pow(sh,11) + 3003.*pow(sh,12))*pow(z,7.5);
9400 }
9401 else {
9402 res += (14742.208410935435 + 103195.45887654803*(1. - 1.*sh) +
9403 426049.8230760341*pow(1. - 1.*sh,2) +
9404 1.3444894070773118e6*pow(1. - 1.*sh,3) +
9405 3.579434527547286e6*pow(1. - 1.*sh,4))*pow(z,7.5);
9406 }
9407 }
9408
9409 if(16<=maxpow) {
9410 if(sh<.900001) {
9411 res += (-1.*L_mu*(11644.08888888889*pow(sh,-8) -
9412 9856.*Lsh*pow(sh,-8)) +
9413 523.8678465579336*pow(-1. + sh,-3)*pow(sh,-6) -
9414 435.8095238095238*Li3sh*pow(-1. + sh,-3)*pow(sh,-6) +
9415 145.26984126984127*pow(Lsh,3)*pow(-1. + sh,-3)*
9416 pow(sh,-6) - 7.822222222222222*cl2*sqrt4sh*sqrtsh*
9417 pow(sh,2)*(-42. + 1287.*sh - 1614.*pow(sh,2) -
9418 19017.*pow(sh,3) + 50556.*pow(sh,4) -
9419 55330.*pow(sh,5) + 33315.*pow(sh,6) -
9420 11945.*pow(sh,7) + 2550.*pow(sh,8) -
9421 300.*pow(sh,9) + 15.*pow(sh,10)) -
9422 0.0028218694885361554*ash*sqrt4sh*sqrtsh*
9423 pow(-1. + sh,-3)*pow(sh,2)*
9424 (228522. - 7.741593e6*sh + 3.0723729e7*pow(sh,2) +
9425 6.0003996e7*pow(sh,3) - 5.8092981e8*pow(sh,4) +
9426 1.504380659e9*pow(sh,5) - 2.124842634e9*pow(sh,6) +
9427 1.888618168e9*pow(sh,7) - 1.114436468e9*pow(sh,8) +
9428 4.4384322e8*pow(sh,9) - 1.18087858e8*pow(sh,10) +
9429 2.0123511e7*pow(sh,11) - 1.986441e6*pow(sh,12) +
9430 86367.*pow(sh,13)) +
9431 23.466666666666665*pow(ash,2)*pow(-1. + sh,-4)*
9432 pow(sh,3)*(-700. + 7875.*sh - 14966.*pow(sh,2) -
9433 79023.*pow(sh,3) + 455850.*pow(sh,4) -
9434 1.077135e6*pow(sh,5) + 1.523775e6*pow(sh,6) -
9435 1.432728e6*pow(sh,7) + 934836.*pow(sh,8) -
9436 430150.*pow(sh,9) + 139230.*pow(sh,10) -
9437 31025.*pow(sh,11) + 4530.*pow(sh,12) -
9438 390.*pow(sh,13) + 15.*pow(sh,14)) +
9439 0.016931216931216932*Li2sh*pow(-1. + sh,-9)*pow(sh,-8)*
9440 (145530. - 1.30482e6*sh + 5.20032e6*pow(sh,2) -
9441 1.208298e7*pow(sh,3) + 1.801254e7*pow(sh,4) -
9442 1.78178e7*pow(sh,5) + 1.163162e7*pow(sh,6) -
9443 4.77477e6*pow(sh,7) + 1.082136e6*pow(sh,8) -
9444 94842.*pow(sh,9) - 420.*pow(sh,13) +
9445 70.*pow(sh,14) + 35.*pow(sh,15)) -
9446 1.*Lsh*(-435.8095238095238*Li2sh*pow(-1. + sh,-3)*
9447 pow(sh,-6) + 7.822222222222222*ash*sqrt4sh*sqrtsh*
9448 pow(sh,2)*(-42. + 1287.*sh - 1614.*pow(sh,2) -
9449 19017.*pow(sh,3) + 50556.*pow(sh,4) -
9450 55330.*pow(sh,5) + 33315.*pow(sh,6) -
9451 11945.*pow(sh,7) + 2550.*pow(sh,8) -
9452 300.*pow(sh,9) + 15.*pow(sh,10)) +
9453 4.799097769619311e-7*pow(-1. + sh,-10)*pow(sh,-14)*
9454 (-70875. + 64125.*sh + 2.661225e6*pow(sh,2) +
9455 6.471633e6*pow(sh,3) - 8.447481e6*pow(sh,4) -
9456 4.7108817e7*pow(sh,5) +
9457 2.1458196025e10*pow(sh,6) -
9458 2.14166617315e11*pow(sh,7) +
9459 9.57541423647e11*pow(sh,8) +
9460 7.56756e8*PI2*
9461 pow(-1. + sh,7)*pow(sh,8) -
9462 2.521983619869e12*pow(sh,9) +
9463 4.337037789987e12*pow(sh,10) -
9464 5.090519317485e12*pow(sh,11) +
9465 4.129949513865e12*pow(sh,12) -
9466 2.286556939359e12*pow(sh,13) +
9467 8.27081528763e11*pow(sh,14) -
9468 1.76924790709e11*pow(sh,15) -
9469 35280.*Lshb*(-1. + sh)*pow(sh,6)*
9470 (145530. - 1.30482e6*sh + 5.20032e6*pow(sh,2) -
9471 1.208298e7*pow(sh,3) + 1.801254e7*pow(sh,4) -
9472 1.78178e7*pow(sh,5) + 1.163162e7*pow(sh,6) -
9473 4.77477e6*pow(sh,7) + 1.082136e6*pow(sh,8) -
9474 94842.*pow(sh,9) - 420.*pow(sh,13) +
9475 70.*pow(sh,14) + 35.*pow(sh,15)) +
9476 1.717636396e10*pow(sh,16) -
9477 1.22598e7*pow(sh,17) - 4.2757596e7*pow(sh,18) +
9478 2.333772e6*pow(sh,19) + 6.325704e6*pow(sh,20) -
9479 688800.*pow(sh,21) - 54600.*pow(sh,22))) -
9480 0.00040312421264802217*pow(Lsh,2)*pow(-1. + sh,-10)*
9481 pow(sh,-14)*(-315. - 2115.*sh - 3255.*pow(sh,2) +
9482 9681.*pow(sh,3) + 37863.*pow(sh,4) +
9483 21231.*pow(sh,5) - 3.5869645e7*pow(sh,6) +
9484 3.5987455e8*pow(sh,7) - 1.631139771e9*pow(sh,8) -
9485 540540.*Lshb*pow(-1. + sh,7)*pow(sh,8) +
9486 4.372215162e9*pow(sh,9) -
9487 7.668316866e9*pow(sh,10) +
9488 9.19386972e9*pow(sh,11) - 7.62973092e9*pow(sh,12) +
9489 4.325428674e9*pow(sh,13) -
9490 1.601657043e9*pow(sh,14) +
9491 3.49216864e8*pow(sh,15) - 3.3959485e7*pow(sh,16) +
9492 8820.*pow(sh,19) - 10290.*pow(sh,20) +
9493 735.*pow(sh,21) + 735.*pow(sh,22)) -
9494 0.00010078105316200554*pow(lz,2)*pow(sh,-14)*
9495 (-315. - 5265.*sh - 41730.*pow(sh,2) -
9496 208494.*pow(sh,3) - 734877.*pow(sh,4) -
9497 1.926639e6*pow(sh,5) - 1.4698138e8*pow(sh,6) +
9498 2.16216e6*pow(sh,7) + 48987.*pow(sh,8) +
9499 1.669041e6*pow(sh,9) + 2.629962e6*pow(sh,10) +
9500 2.41431e6*pow(sh,11) + 1.436625e6*pow(sh,12) +
9501 315.*pow(sh,13) + 3.764376e6*pow(sh,14) +
9502 4.230072e6*pow(sh,15) + 5.006232e6*pow(sh,16) -
9503 7.37352e6*pow(sh,17) + 1.0643094e8*pow(sh,18) +
9504 1.95359472e8*pow(sh,19) -
9505 1.425010356e9*pow(sh,20) +
9506 2.406212424e9*pow(sh,21) -
9507 2.05080876e9*pow(sh,22) + 1.03141962e9*pow(sh,23) -
9508 3.2026302e8*pow(sh,24) + 6.054048e7*pow(sh,25) -
9509 6.40332e6*pow(sh,26) + 291060.*pow(sh,27)) -
9510 1.*lz*(9856.*L_mu*pow(sh,-8) +
9511 217.9047619047619*pow(Lsh,2)*pow(-1. + sh,-3)*
9512 pow(sh,-6) + 15.644444444444444*ash*sqrt4sh*sqrtsh*
9513 pow(sh,2)*(-42. + 1287.*sh - 1614.*pow(sh,2) -
9514 19017.*pow(sh,3) + 50556.*pow(sh,4) -
9515 55330.*pow(sh,5) + 33315.*pow(sh,6) -
9516 11945.*pow(sh,7) + 2550.*pow(sh,8) -
9517 300.*pow(sh,9) + 15.*pow(sh,10)) +
9518 0.00040312421264802217*Lsh*pow(-1. + sh,-9)*
9519 pow(sh,-14)*(-315. - 2430.*sh - 5685.*pow(sh,2) +
9520 3996.*pow(sh,3) + 41859.*pow(sh,4) +
9521 63090.*pow(sh,5) - 7.1605955e7*pow(sh,6) +
9522 6.4801935e8*pow(sh,7) -
9523 2.609788929e9*pow(sh,8) +
9524 6.121801554e9*pow(sh,9) -
9525 9.217982115e9*pow(sh,10) +
9526 9.24507918e9*pow(sh,11) -
9527 6.181354605e9*pow(sh,12) +
9528 2.66089059e9*pow(sh,13) -
9529 6.71469273e8*pow(sh,14) +
9530 7.6209266e7*pow(sh,15) + 37800.*pow(sh,16) -
9531 47460.*pow(sh,17) - 29232.*pow(sh,18) -
9532 9828.*pow(sh,19) + 6930.*pow(sh,20) +
9533 210.*pow(sh,21)) -
9534 1.6780062131536054e-9*pow(-1. + sh,-8)*pow(sh,-14)*
9535 (-1.0135125e7 - 1.1100375e7*sh +
9536 3.6848955e8*pow(sh,2) +
9537 1.673522994e9*pow(sh,3) +
9538 1.770566655e9*pow(sh,4) -
9539 4.868950515e9*pow(sh,5) +
9540 6.12638023426e12*pow(sh,6) -
9541 5.053531208726e13*pow(sh,7) +
9542 1.81942427597788e14*pow(sh,8) -
9543 3.7509726864038e14*pow(sh,9) +
9544 4.863909914149e14*pow(sh,10) -
9545 4.0837905886362e14*pow(sh,11) +
9546 2.185978661919e14*pow(sh,12) -
9547 6.9223437871788e13*pow(sh,13) +
9548 9.478097027448e12*pow(sh,14) +
9549 4.822522515092e12*pow(sh,15) -
9550 1.3702469432263e13*pow(sh,16) +
9551 2.0211432885167e13*pow(sh,17) -
9552 1.5340657706842e13*pow(sh,18) +
9553 3.8517131981282e13*pow(sh,19) -
9554 1.98231128437323e14*pow(sh,20) +
9555 2.48611036890867e14*pow(sh,21) +
9556 1.312843416208632e15*pow(sh,22) -
9557 6.858549767677608e15*pow(sh,23) +
9558 1.6510967898168744e16*pow(sh,24) -
9559 2.57336419311972e16*pow(sh,25) +
9560 2.851348331813982e16*pow(sh,26) -
9561 2.336070503975208e16*pow(sh,27) +
9562 1.439716999494774e16*pow(sh,28) -
9563 6.70336841266092e15*pow(sh,29) +
9564 2.34397396677444e15*pow(sh,30) -
9565 6.0527470649646e14*pow(sh,31) +
9566 1.1182510300962e14*pow(sh,32) -
9567 1.396347000048e13*pow(sh,33) +
9568 1.054350297e12*pow(sh,34) -
9569 3.631041414e10*pow(sh,35))) -
9570 4.656471897973153e-15*pow(-1. + sh,-9)*pow(sh,-14)*
9571 (7.34806697625e11 - 1.86465740175e12*sh -
9572 1.3539275231625e13*pow(sh,2) +
9573 6.7027116030732e13*pow(sh,3) +
9574 3.63276406618983e14*pow(sh,4) +
9575 7.707518005473e13*pow(sh,5) -
9576 2.670939112625576e18*pow(sh,6) +
9577 2.358705949072117e19*pow(sh,7) -
9578 9.25798205589377e19*pow(sh,8) +
9579 2.1183909722959626e20*pow(sh,9) -
9580 3.1161735718840415e20*pow(sh,10) +
9581 3.06304944728649e20*pow(sh,11) -
9582 2.023336897561395e20*pow(sh,12) +
9583 8.778312486562154e19*pow(sh,13) -
9584 2.3206885685742117e19*pow(sh,14) +
9585 1.3935768215051139e18*pow(sh,15) +
9586 5.883932779473471e18*pow(sh,16) -
9587 1.0545119614382879e19*pow(sh,17) +
9588 1.1056449646096937e19*pow(sh,18) -
9589 2.3434959475666616e19*pow(sh,19) +
9590 1.0419598368525897e20*pow(sh,20) -
9591 1.688591180885733e20*pow(sh,21) -
9592 5.308738122339353e20*pow(sh,22) +
9593 3.5306726064196524e21*pow(sh,23) -
9594 9.689077766441178e21*pow(sh,24) +
9595 1.7097533811227756e22*pow(sh,25) -
9596 2.1588630869532427e22*pow(sh,26) +
9597 2.038422378040867e22*pow(sh,27) -
9598 1.4690695476739364e22*pow(sh,28) +
9599 8.14476034656345e21*pow(sh,29) -
9600 3.4697517653715583e21*pow(sh,30) +
9601 1.1250567404926722e21*pow(sh,31) -
9602 2.7233981875541377e20*pow(sh,32) +
9603 4.759269487750347e19*pow(sh,33) -
9604 5.663805036845516e18*pow(sh,34) +
9605 4.101841359381566e17*pow(sh,35) -
9606 1.362249094884678e16*pow(sh,36) +
9607 4.32864432e10*PI2*
9608 (-315. - 2430.*sh - 5685.*pow(sh,2) +
9609 3996.*pow(sh,3) + 41859.*pow(sh,4) +
9610 63090.*pow(sh,5) - 5.9090375e7*pow(sh,6) +
9611 5.3345259e8*pow(sh,7) -
9612 2.141709439e9*pow(sh,8) +
9613 5.001401214e9*pow(sh,9) -
9614 7.486485645e9*pow(sh,10) +
9615 7.45371022e9*pow(sh,11) -
9616 4.941375175e9*pow(sh,12) +
9617 2.10797493e9*pow(sh,13) -
9618 5.28751827e8*pow(sh,14) +
9619 6.6874034e7*pow(sh,15) - 2.302929e7*pow(sh,16) +
9620 4.790626e7*pow(sh,17) -
9621 1.24781262e8*pow(sh,18) +
9622 4.35359256e8*pow(sh,19) -
9623 5.45760408e8*pow(sh,20) -
9624 3.99911175e9*pow(sh,21) +
9625 2.559251793e10*pow(sh,22) -
9626 7.87509723e10*pow(sh,23) +
9627 1.60158041736e11*pow(sh,24) -
9628 2.35861111332e11*pow(sh,25) +
9629 2.6202440418e11*pow(sh,26) -
9630 2.2419142284e11*pow(sh,27) +
9631 1.491808626e11*pow(sh,28) -
9632 7.7359627884e10*pow(sh,29) +
9633 3.1118686368e10*pow(sh,30) -
9634 9.59731542e9*pow(sh,31) +
9635 2.22259884e9*pow(sh,32) -
9636 3.733653e8*pow(sh,33) + 4.288284e7*pow(sh,34) -
9637 3.00762e6*pow(sh,35) + 97020.*pow(sh,36))))*
9638 pow(z,8);
9639 }
9640 else {
9641 res += pow(z,8)*(-152175.3347907426 -
9642 1.3121004907612824e6*(1. - 1.*sh) -
9643 5.692547653098881e6*pow(1. - 1.*sh,2) -
9644 1.8262414685026634e7*pow(1. - 1.*sh,3) +
9645 L_mu*(-11644.08888888889 -
9646 103008.71111111112*(1. - 1.*sh) -
9647 502963.2*pow(1. - 1.*sh,2) -
9648 1.794816e6*pow(1. - 1.*sh,3) -
9649 5.231424e6*pow(1. - 1.*sh,4)) -
9650 4.9606666429006e7*pow(1. - 1.*sh,4) +
9651 log(z)*(19181.53823244784 +
9652 86972.5498690609*(1. - 1.*sh) +
9653 607120.085934602*pow(1. - 1.*sh,2) +
9654 2.6398902680343925e6*pow(1. - 1.*sh,3) +
9655 L_mu*(-9856. - 78848.*(1. - 1.*sh) -
9656 354816.*pow(1. - 1.*sh,2) -
9657 1.18272e6*pow(1. - 1.*sh,3) -
9658 3.25248e6*pow(1. - 1.*sh,4)) +
9659 8.124517405933031e6*pow(1. - 1.*sh,4)) +
9660 (13720.493827160493 +
9661 112232.75061728395*(1. - 1.*sh) +
9662 538923.3777777777*pow(1. - 1.*sh,2) +
9663 1.8125184592592593e6*pow(1. - 1.*sh,3) +
9664 4.984340004232804e6*pow(1. - 1.*sh,4))*pow(log(z),2)
9665 );
9666 }
9667 }
9668
9669 if(17<=maxpow) {
9670 if(sh<.900001) {
9671 res += 8.66719820968187e-6*PI2*pow(sh,-15)*
9672 (6435. + 114114.*sh + 962577.*pow(sh,2) +
9673 5.137524e6*pow(sh,3) + 1.9445755e7*pow(sh,4) +
9674 5.526435e7*pow(sh,5) + 1.20557265e8*pow(sh,6) +
9675 1.9446652e8*pow(sh,7) + 1.20557265e8*pow(sh,8) +
9676 5.526435e7*pow(sh,9) + 1.9445755e7*pow(sh,10) +
9677 5.137524e6*pow(sh,11) + 962577.*pow(sh,12) +
9678 114114.*pow(sh,13) + 6435.*pow(sh,14))*pow(z,8.5);
9679 }
9680 else {
9681 res += (51106.322491242834 + 408850.5799299427*(1. - 1.*sh) +
9682 1.8934892483005472e6*pow(1. - 1.*sh,2) +
9683 6.615713446491386e6*pow(1. - 1.*sh,3) +
9684 1.9308607466222685e7*pow(1. - 1.*sh,4))*pow(z,8.5);
9685 }
9686 }
9687
9688 if(18<=maxpow) {
9689 if(sh<.900001) {
9690 res += (-1.*L_mu*(39253.5139329806*pow(sh,-9) -
9691 32540.444444444445*Lsh*pow(sh,-9)) +
9692 1527.947885793973*pow(-1. + sh,-3)*pow(sh,-7) -
9693 1271.111111111111*Li3sh*pow(-1. + sh,-3)*pow(sh,-7) +
9694 423.7037037037037*pow(Lsh,3)*pow(-1. + sh,-3)*
9695 pow(sh,-7) + 16.141093474426807*cl2*sqrt4sh*sqrtsh*
9696 pow(sh,3)*(552. - 6504.*sh + 954.*pow(sh,2) +
9697 96534.*pow(sh,3) - 256765.*pow(sh,4) +
9698 311884.*pow(sh,5) - 219753.*pow(sh,6) +
9699 97149.*pow(sh,7) - 27453.*pow(sh,8) +
9700 4830.*pow(sh,9) - 483.*pow(sh,10) + 21.*pow(sh,11))\
9701 + 0.00062708210856359*ash*sqrt4sh*sqrtsh*
9702 pow(-1. + sh,-3)*pow(sh,3)*
9703 (-2.9602032e7 + 4.3918554e8*sh -
9704 1.183665042e9*pow(sh,2) - 4.124801388e9*pow(sh,3) +
9705 2.9786749451e10*pow(sh,4) -
9706 7.6073083277e10*pow(sh,5) +
9707 1.12343648214e11*pow(sh,6) -
9708 1.08358670795e11*pow(sh,7) +
9709 7.1769426953e10*pow(sh,8) -
9710 3.3301199019e10*pow(sh,9) +
9711 1.0824913791e10*pow(sh,10) -
9712 2.416552923e9*pow(sh,11) +
9713 3.53029242e8*pow(sh,12) - 3.0393246e7*pow(sh,13) +
9714 1.168971e6*pow(sh,14)) -
9715 48.423280423280424*pow(ash,2)*pow(-1. + sh,-4)*
9716 pow(sh,3)*(-112. + 5446.*sh - 40068.*pow(sh,2) +
9717 45402.*pow(sh,3) + 481386.*pow(sh,4) -
9718 2.416545e6*pow(sh,5) + 5.68308e6*pow(sh,6) -
9719 8.356089e6*pow(sh,7) + 8.410689e6*pow(sh,8) -
9720 6.034798e6*pow(sh,9) + 3.142636e6*pow(sh,10) -
9721 1.191618e6*pow(sh,11) + 325686.*pow(sh,12) -
9722 62481.*pow(sh,13) + 7980.*pow(sh,14) -
9723 609.*pow(sh,15) + 21.*pow(sh,16)) +
9724 0.02821869488536155*Li2sh*pow(-1. + sh,-10)*pow(sh,-9)*
9725 (-288288. + 2.873871e6*sh - 1.2889503e7*pow(sh,2) +
9726 3.423222e7*pow(sh,3) - 5.956146e7*pow(sh,4) +
9727 7.0825482e7*pow(sh,5) - 5.8121154e7*pow(sh,6) +
9728 3.2324292e7*pow(sh,7) - 1.153152e7*pow(sh,8) +
9729 2.327611e6*pow(sh,9) - 186043.*pow(sh,10) -
9730 252.*pow(sh,15) + 54.*pow(sh,16) + 18.*pow(sh,17))\
9731 - 1.*Lsh*(-1271.111111111111*Li2sh*pow(-1. + sh,-3)*
9732 pow(sh,-7) - 16.141093474426807*ash*sqrt4sh*sqrtsh*
9733 pow(sh,3)*(552. - 6504.*sh + 954.*pow(sh,2) +
9734 96534.*pow(sh,3) - 256765.*pow(sh,4) +
9735 311884.*pow(sh,5) - 219753.*pow(sh,6) +
9736 97149.*pow(sh,7) - 27453.*pow(sh,8) +
9737 4830.*pow(sh,9) - 483.*pow(sh,10) +
9738 21.*pow(sh,11)) +
9739 9.331578996481995e-7*pow(-1. + sh,-11)*pow(sh,-16)*
9740 (24990. - 21315.*sh - 1.15923e6*pow(sh,2) -
9741 3.54162e6*pow(sh,3) + 2.396436e6*pow(sh,4) +
9742 2.6605446e7*pow(sh,5) + 2.5110204e7*pow(sh,6) -
9743 4.6121470412e10*pow(sh,7) +
9744 5.06007096796e11*pow(sh,8) -
9745 2.5214921261e12*pow(sh,9) +
9746 1.135134e9*PI2*
9747 pow(-1. + sh,8)*pow(sh,9) +
9748 7.515033973326e12*pow(sh,10) -
9749 1.4885226217656e13*pow(sh,11) +
9750 2.0578551617862e13*pow(sh,12) -
9751 2.0264715219756e13*pow(sh,13) +
9752 1.4215757817264e13*pow(sh,14) -
9753 6.963287491704e12*pow(sh,15) +
9754 2.269595684207e12*pow(sh,16) -
9755 4.4385323008e11*pow(sh,17) -
9756 30240.*Lshb*(-1. + sh)*pow(sh,7)*
9757 (-288288. + 2.873871e6*sh -
9758 1.2889503e7*pow(sh,2) +
9759 3.423222e7*pow(sh,3) - 5.956146e7*pow(sh,4) +
9760 7.0825482e7*pow(sh,5) -
9761 5.8121154e7*pow(sh,6) +
9762 3.2324292e7*pow(sh,7) -
9763 1.153152e7*pow(sh,8) + 2.327611e6*pow(sh,9) -
9764 186043.*pow(sh,10) - 252.*pow(sh,15) +
9765 54.*pow(sh,16) + 18.*pow(sh,17)) +
9766 3.9661774136e10*pow(sh,18) +
9767 8.107722e7*pow(sh,19) - 2.4528798e7*pow(sh,20) -
9768 2.4018498e7*pow(sh,21) + 3.225852e6*pow(sh,22) +
9769 2.9835e6*pow(sh,23) - 343845.*pow(sh,24) -
9770 18225.*pow(sh,25))) -
9771 0.0005878894767783657*pow(Lsh,2)*pow(-1. + sh,-11)*
9772 pow(sh,-16)*(168. + 1302.*sh + 2760.*pow(sh,2) -
9773 4440.*pow(sh,3) - 27552.*pow(sh,4) -
9774 26796.*pow(sh,5) + 59136.*pow(sh,6) +
9775 8.709724e7*pow(sh,7) - 9.61414058e8*pow(sh,8) +
9776 4.834002949e9*pow(sh,9) -
9777 1.08108e6*Lshb*pow(-1. + sh,8)*pow(sh,9) -
9778 1.4570114508e10*pow(sh,10) +
9779 2.922310728e10*pow(sh,11) -
9780 4.0941204696e10*pow(sh,12) +
9781 4.087575366e10*pow(sh,13) -
9782 2.9075948544e10*pow(sh,14) +
9783 1.443451164e10*pow(sh,15) -
9784 4.759554808e9*pow(sh,16) +
9785 9.37068023e8*pow(sh,17) - 8.3312536e7*pow(sh,18) +
9786 6048.*pow(sh,22) - 7344.*pow(sh,23) +
9787 864.*pow(sh,24) + 432.*pow(sh,25)) -
9788 0.00029394473838918284*pow(lz,2)*pow(sh,-16)*
9789 (-84. - 1575.*sh - 14085.*pow(sh,2) -
9790 79950.*pow(sh,3) - 323154.*pow(sh,4) -
9791 987129.*pow(sh,5) - 2.347059e6*pow(sh,6) -
9792 1.78300736e8*pow(sh,7) + 2.7027e6*pow(sh,8) -
9793 473685.*pow(sh,9) + 1.243629e6*pow(sh,10) +
9794 2.698722e6*pow(sh,11) + 2.985906e6*pow(sh,12) +
9795 2.433285e6*pow(sh,13) + 1.388619e6*pow(sh,14) +
9796 84.*pow(sh,15) + 4.25568e6*pow(sh,16) +
9797 4.612608e6*pow(sh,17) + 5.189184e6*pow(sh,18) +
9798 7.605312e6*pow(sh,19) - 6.1281792e7*pow(sh,20) +
9799 2.75438592e8*pow(sh,21) + 8.71398528e8*pow(sh,22) -
9800 5.028236928e9*pow(sh,23) +
9801 8.99602704e9*pow(sh,24) -
9802 8.653636992e9*pow(sh,25) +
9803 5.137333344e9*pow(sh,26) -
9804 1.978438176e9*pow(sh,27) +
9805 4.97379168e8*pow(sh,28) - 7.8990912e7*pow(sh,29) +
9806 7.2072e6*pow(sh,30) - 288288.*pow(sh,31)) -
9807 1.*lz*(32540.444444444445*L_mu*pow(sh,-9) +
9808 635.5555555555555*pow(Lsh,2)*pow(-1. + sh,-3)*
9809 pow(sh,-7) - 32.282186948853614*ash*sqrt4sh*sqrtsh*
9810 pow(sh,3)*(552. - 6504.*sh + 954.*pow(sh,2) +
9811 96534.*pow(sh,3) - 256765.*pow(sh,4) +
9812 311884.*pow(sh,5) - 219753.*pow(sh,6) +
9813 97149.*pow(sh,7) - 27453.*pow(sh,8) +
9814 4830.*pow(sh,9) - 483.*pow(sh,10) +
9815 21.*pow(sh,11)) +
9816 0.0011757789535567313*Lsh*pow(-1. + sh,-10)*
9817 pow(sh,-16)*(84. + 735.*sh + 2115.*pow(sh,2) -
9818 105.*pow(sh,3) - 13881.*pow(sh,4) -
9819 27279.*pow(sh,5) + 2289.*pow(sh,6) +
9820 8.7045013e7*pow(sh,7) - 8.74124185e8*pow(sh,8) +
9821 3.955482141e9*pow(sh,9) -
9822 1.0600174539e10*pow(sh,10) +
9823 1.8626345409e10*pow(sh,11) -
9824 2.2429329447e10*pow(sh,12) +
9825 1.8752939835e10*pow(sh,13) -
9826 1.0757383293e10*pow(sh,14) +
9827 4.056843039e9*pow(sh,15) -
9828 9.10168681e8*pow(sh,16) +
9829 9.2636188e7*pow(sh,17) + 75600.*pow(sh,18) +
9830 9072.*pow(sh,19) - 22680.*pow(sh,20) -
9831 9828.*pow(sh,21) - 2268.*pow(sh,22) +
9832 2484.*pow(sh,23) + 54.*pow(sh,24)) +
9833 3.2627898589097882e-9*pow(-1. + sh,-9)*pow(sh,-16)*
9834 (-3.57357e6 - 4.099095e6*sh +
9835 1.6114527e8*pow(sh,2) + 8.32841295e8*pow(sh,3) +
9836 1.161846972e9*pow(sh,4) -
9837 2.313726129e9*pow(sh,5) -
9838 9.380058402e9*pow(sh,6) +
9839 1.3161069788009e13*pow(sh,7) -
9840 1.20977154695826e14*pow(sh,8) +
9841 4.94447733407199e14*pow(sh,9) -
9842 1.180536055693566e15*pow(sh,10) +
9843 1.818479082421521e15*pow(sh,11) -
9844 1.879273746539124e15*pow(sh,12) +
9845 1.307997164466393e15*pow(sh,13) -
9846 5.94838522786482e14*pow(sh,14) +
9847 1.62091018204671e14*pow(sh,15) -
9848 2.194598322815e13*pow(sh,16) +
9849 9.520266140208e12*pow(sh,17) -
9850 3.1476144603672e13*pow(sh,18) +
9851 6.08108801358e13*pow(sh,19) -
9852 8.0522179628688e13*pow(sh,20) +
9853 7.1735262216768e13*pow(sh,21) +
9854 1.85972284144884e14*pow(sh,22) -
9855 1.24257330785952e15*pow(sh,23) +
9856 1.516348491395922e15*pow(sh,24) +
9857 9.623404446386016e15*pow(sh,25) -
9858 5.409785863372176e16*pow(sh,26) +
9859 1.4651551524606797e17*pow(sh,27) -
9860 2.639914855668742e17*pow(sh,28) +
9861 3.46785263569046e17*pow(sh,29) -
9862 3.4581010205224454e17*pow(sh,30) +
9863 2.67102371124581e17*pow(sh,31) -
9864 1.612804363486636e17*pow(sh,32) +
9865 7.625393556018638e16*pow(sh,33) -
9866 2.809203040360517e16*pow(sh,34) +
9867 7.968174811781184e15*pow(sh,35) -
9868 1.704011763662208e15*pow(sh,36) +
9869 2.65362784294608e14*pow(sh,37) -
9870 2.836102317048e13*pow(sh,38) +
9871 1.857724700832e12*pow(sh,39) -
9872 5.6166718608e10*pow(sh,40))) -
9873 1.3581376369088363e-14*pow(-1. + sh,-10)*pow(sh,-16)*
9874 (-1.522039519e11 + 4.26276275425e11*sh +
9875 3.315607505925e12*pow(sh,2) -
9876 1.9935815474575e13*pow(sh,3) -
9877 1.24680380503679e14*pow(sh,4) -
9878 9.4734104241777e13*pow(sh,5) +
9879 6.72219759402191e14*pow(sh,6) +
9880 2.6103747782620196e18*pow(sh,7) -
9881 2.5573475986293776e19*pow(sh,8) +
9882 1.1271511598880529e20*pow(sh,9) -
9883 2.943261559227364e20*pow(sh,10) +
9884 5.045168745362524e20*pow(sh,11) -
9885 5.941440025879828e20*pow(sh,12) +
9886 4.8854165231351536e20*pow(sh,13) -
9887 2.7897519097641733e20*pow(sh,14) +
9888 1.0745710257767067e20*pow(sh,15) -
9889 2.6239676246066704e19*pow(sh,16) +
9890 5.344996730119183e18*pow(sh,17) -
9891 8.145618788181729e18*pow(sh,18) +
9892 1.8132101139625396e19*pow(sh,19) -
9893 2.789986937416512e19*pow(sh,20) +
9894 2.916708794791665e19*pow(sh,21) +
9895 4.506612585214779e19*pow(sh,22) -
9896 3.9814881989842764e20*pow(sh,23) +
9897 7.61642854944141e20*pow(sh,24) +
9898 1.912231127650318e21*pow(sh,25) -
9899 1.5547276029752026e22*pow(sh,26) +
9900 4.875241535562659e22*pow(sh,27) -
9901 9.909337425361018e22*pow(sh,28) +
9902 1.4647795672750128e23*pow(sh,29) -
9903 1.651330016200192e23*pow(sh,30) +
9904 1.453924699389752e23*pow(sh,31) -
9905 1.011735575962528e23*pow(sh,32) +
9906 5.58883301567305e22*pow(sh,33) -
9907 2.447160559972393e22*pow(sh,34) +
9908 8.433457866753118e21*pow(sh,35) -
9909 2.2566304052798968e21*pow(sh,36) +
9910 4.585243554016694e20*pow(sh,37) -
9911 6.826335499960051e19*pow(sh,38) +
9912 7.011890262150629e18*pow(sh,39) -
9913 4.434709029248097e17*pow(sh,40) +
9914 1.2998152420597344e16*pow(sh,41) -
9915 4.32864432e10*PI2*
9916 (-84. - 735.*sh - 2115.*pow(sh,2) +
9917 105.*pow(sh,3) + 13881.*pow(sh,4) +
9918 27279.*pow(sh,5) - 2289.*pow(sh,6) -
9919 7.2918901e7*pow(sh,7) + 7.30592797e8*pow(sh,8) -
9920 3.297157631e9*pow(sh,9) +
9921 8.805108353e9*pow(sh,10) -
9922 1.5403793139e10*pow(sh,11) +
9923 1.8449564077e10*pow(sh,12) -
9924 1.5329503273e10*pow(sh,13) +
9925 8.733035583e9*pow(sh,14) -
9926 3.270393893e9*pow(sh,15) +
9927 7.28627507e8*pow(sh,16) -
9928 6.571293e7*pow(sh,17) - 3.2675014e7*pow(sh,18) +
9929 7.242013e7*pow(sh,19) - 7.6735758e7*pow(sh,20) -
9930 2.40223726e8*pow(sh,21) +
9931 1.627847962e9*pow(sh,22) -
9932 2.273776974e9*pow(sh,23) -
9933 1.712105386e10*pow(sh,24) +
9934 1.18341944808e11*pow(sh,25) -
9935 3.9995878208e11*pow(sh,26) +
9936 9.10773328608e11*pow(sh,27) -
9937 1.531097366656e12*pow(sh,28) +
9938 1.98076916752e12*pow(sh,29) -
9939 2.016366553344e12*pow(sh,30) +
9940 1.634962897568e12*pow(sh,31) -
9941 1.06202452928e12*pow(sh,32) +
9942 5.53053223008e11*pow(sh,33) -
9943 2.30009473408e11*pow(sh,34) +
9944 7.5735678304e10*pow(sh,35) -
9945 1.945628256e10*pow(sh,36) +
9946 3.810741792e9*pow(sh,37) -
9947 5.48735616e8*pow(sh,38) +
9948 5.4678624e7*pow(sh,39) - 3.36336e6*pow(sh,40) +
9949 96096.*pow(sh,41))))*pow(z,9);
9950 }
9951 else {
9952 res += pow(z,9)*(-531170.0836599696 -
9953 5.221397600319266e6*(1. - 1.*sh) -
9954 2.50820565037545e7*pow(1. - 1.*sh,2) -
9955 8.849720248983555e7*pow(1. - 1.*sh,3) +
9956 L_mu*(-39253.5139329806 -
9957 385822.06984126987*(1. - 1.*sh) -
9958 2.075542349206349e6*pow(1. - 1.*sh,2) -
9959 8.098428613756614e6*pow(1. - 1.*sh,3) -
9960 2.5637579174603175e7*pow(1. - 1.*sh,4)) -
9961 2.6309546792497513e8*pow(1. - 1.*sh,4) +
9962 log(z)*(75507.81523340371 +
9963 370284.8608070748*(1. - 1.*sh) +
9964 2.8644751808652747e6*pow(1. - 1.*sh,2) +
9965 1.3385139112281743e7*pow(1. - 1.*sh,3) +
9966 L_mu*(-32540.444444444445 -
9967 292864.*(1. - 1.*sh) -
9968 1.46432e6*pow(1. - 1.*sh,2) -
9969 5.369173333333333e6*pow(1. - 1.*sh,3) -
9970 1.610752e7*pow(1. - 1.*sh,4)) +
9971 4.39338775383846e7*pow(1. - 1.*sh,4)) +
9972 (48060.242210464436 + 446131.6613756614*(1. - 1.*sh) +
9973 2.3941590476190476e6*pow(1. - 1.*sh,2) +
9974 8.828220007054674e6*pow(1. - 1.*sh,3) +
9975 2.6455532740740743e7*pow(1. - 1.*sh,4))*
9976 pow(log(z),2));
9977 }
9978 }
9979
9980 if(19<=maxpow) {
9981 if(sh<.900001) {
9982 res += 4.0250146484590727e-7*PI2*pow(sh,-17)*
9983 (109395. + 2.16216e6*sh + 2.0430696e7*pow(sh,2) +
9984 1.22866128e8*pow(sh,3) + 5.27900436e8*pow(sh,4) +
9985 1.72236568e9*pow(sh,5) + 4.41295356e9*pow(sh,6) +
9986 8.96714376e9*pow(sh,7) + 1.385377093e10*pow(sh,8) +
9987 8.96714376e9*pow(sh,9) + 4.41295356e9*pow(sh,10) +
9988 1.72236568e9*pow(sh,11) + 5.27900436e8*pow(sh,12) +
9989 1.22866128e8*pow(sh,13) + 2.0430696e7*pow(sh,14) +
9990 2.16216e6*pow(sh,15) + 109395.*pow(sh,16))*pow(z,9.5);
9991 }
9992 else {
9993 res += (180375.25585144534 + 1.6233773026630078e6*(1. - 1.*sh) +
9994 8.333336820336774e6*pow(1. - 1.*sh,2) +
9995 3.192642028570582e7*pow(1. - 1.*sh,3) +
9996 1.0132579997454941e8*pow(1. - 1.*sh,4))*pow(z,9.5);
9997 }
9998 }
9999
10000 if(20<=maxpow) {
10001 if(sh<.900001) {
10002 res += (-1.*L_mu*(134616.0761904762*pow(sh,-10) -
10003 109824.*Lsh*pow(sh,-10)) +
10004 4617.798054844007*pow(-1. + sh,-3)*pow(sh,-8) -
10005 3841.58024691358*Li3sh*pow(-1. + sh,-3)*pow(sh,-8) +
10006 1280.5267489711935*pow(Lsh,3)*pow(-1. + sh,-3)*
10007 pow(sh,-8) - 36.317460317460316*cl2*sqrt4sh*sqrtsh*
10008 pow(sh,3)*(72. - 4364.*sh + 28750.*pow(sh,2) +
10009 23168.*pow(sh,3) - 476659.*pow(sh,4) +
10010 1.255353e6*pow(sh,5) - 1.649661e6*pow(sh,6) +
10011 1.316274e6*pow(sh,7) - 686175.*pow(sh,8) +
10012 239883.*pow(sh,9) - 55951.*pow(sh,10) +
10013 8372.*pow(sh,11) - 728.*pow(sh,12) + 28.*pow(sh,13))
10014 - 0.005643738977072311*ash*sqrt4sh*sqrtsh*
10015 pow(-1. + sh,-3)*pow(sh,3)*
10016 (-1.003446e6 + 6.399262e7*sh -
10017 5.88476654e8*pow(sh,2) + 1.052685443e9*pow(sh,3) +
10018 6.558619027e9*pow(sh,4) -
10019 3.9015984112e10*pow(sh,5) +
10020 9.831642973e10*pow(sh,6) -
10021 1.5050270954e11*pow(sh,7) +
10022 1.55340604554e11*pow(sh,8) -
10023 1.13220265218e11*pow(sh,9) +
10024 5.9521934912e10*pow(sh,10) -
10025 2.2692174847e10*pow(sh,11) +
10026 6.219574195e9*pow(sh,12) -
10027 1.194652762e9*pow(sh,13) + 1.5263422e8*pow(sh,14) -
10028 1.1648401e7*pow(sh,15) + 401669.*pow(sh,16)) +
10029 108.95238095238095*pow(ash,2)*pow(-1. + sh,-4)*
10030 pow(sh,4)*(1638. - 34902.*sh + 187614.*pow(sh,2) -
10031 73296.*pow(sh,3) - 2.717613e6*pow(sh,4) +
10032 1.2278721e7*pow(sh,5) - 2.8715127e7*pow(sh,6) +
10033 4.3584072e7*pow(sh,7) - 4.6464222e7*pow(sh,8) +
10034 3.6125334e7*pow(sh,9) - 2.0866662e7*pow(sh,10) +
10035 9.012312e6*pow(sh,11) - 2.899701e6*pow(sh,12) +
10036 684873.*pow(sh,13) - 115255.*pow(sh,14) +
10037 13076.*pow(sh,15) - 896.*pow(sh,16) + 28.*pow(sh,17)
10038 ) + 0.007054673721340388*Li2sh*pow(-1. + sh,-11)*
10039 pow(sh,-10)*(3.891888e6 - 4.2698656e7*sh +
10040 2.12860648e8*pow(sh,2) - 6.36197562e8*pow(sh,3) +
10041 1.265813472e9*pow(sh,4) - 1.758542016e9*pow(sh,5) +
10042 1.737624672e9*pow(sh,6) - 1.217575632e9*pow(sh,7) +
10043 5.89815408e8*pow(sh,8) - 1.86234048e8*pow(sh,9) +
10044 3.3715396e7*pow(sh,10) - 2.523664e6*pow(sh,11) -
10045 1008.*pow(sh,17) + 252.*pow(sh,18) + 63.*pow(sh,19))
10046 - 1.*Lsh*(-3841.58024691358*Li2sh*pow(-1. + sh,-3)*
10047 pow(sh,-8) + 36.317460317460316*ash*sqrt4sh*sqrtsh*
10048 pow(sh,3)*(72. - 4364.*sh + 28750.*pow(sh,2) +
10049 23168.*pow(sh,3) - 476659.*pow(sh,4) +
10050 1.255353e6*pow(sh,5) - 1.649661e6*pow(sh,6) +
10051 1.316274e6*pow(sh,7) - 686175.*pow(sh,8) +
10052 239883.*pow(sh,9) - 55951.*pow(sh,10) +
10053 8372.*pow(sh,11) - 728.*pow(sh,12) +
10054 28.*pow(sh,13)) +
10055 6.22105266432133e-8*pow(-1. + sh,-12)*pow(sh,-18)*
10056 (-268128. + 217952.*sh + 1.5087492e7*pow(sh,2) +
10057 5.5721052e7*pow(sh,3) - 6.214128e6*pow(sh,4) -
10058 4.11907536e8*pow(sh,5) -
10059 6.39424296e8*pow(sh,6) +
10060 9.51140904e8*pow(sh,7) +
10061 2.797636941792e12*pow(sh,8) -
10062 3.3528009426912e13*pow(sh,9) +
10063 1.8405229744577e14*pow(sh,10) +
10064 5.1459408e10*PI2*
10065 pow(-1. + sh,9)*pow(sh,10) -
10066 6.11232376478328e14*pow(sh,11) +
10067 1.367454094140762e15*pow(sh,12) -
10068 2.171310899030364e15*pow(sh,13) +
10069 2.509372042935534e15*pow(sh,14) -
10070 2.126984603171022e15*pow(sh,15) +
10071 1.312509475395804e15*pow(sh,16) -
10072 5.75196391765836e14*pow(sh,17) +
10073 1.70043077466117e14*pow(sh,18) -
10074 3.0485673234577e13*pow(sh,19) -
10075 113400.*Lshb*(-1. + sh)*pow(sh,8)*
10076 (3.891888e6 - 4.2698656e7*sh +
10077 2.12860648e8*pow(sh,2) -
10078 6.36197562e8*pow(sh,3) +
10079 1.265813472e9*pow(sh,4) -
10080 1.758542016e9*pow(sh,5) +
10081 1.737624672e9*pow(sh,6) -
10082 1.217575632e9*pow(sh,7) +
10083 5.89815408e8*pow(sh,8) -
10084 1.86234048e8*pow(sh,9) +
10085 3.3715396e7*pow(sh,10) -
10086 2.523664e6*pow(sh,11) - 1008.*pow(sh,17) +
10087 252.*pow(sh,18) + 63.*pow(sh,19)) +
10088 2.505502772136e12*pow(sh,20) +
10089 3.810922668e9*pow(sh,21) +
10090 9.25325478e8*pow(sh,22) -
10091 6.18090102e8*pow(sh,23) -
10092 3.71771532e8*pow(sh,24) + 7.86267e7*pow(sh,25) +
10093 4.1725125e7*pow(sh,26) - 4.8951e6*pow(sh,27) -
10094 187425.*pow(sh,28))) -
10095 0.00007838526357044875*pow(Lsh,2)*pow(-1. + sh,-12)*
10096 pow(sh,-18)*(-1008. - 8848.*sh - 23688.*pow(sh,2) +
10097 17352.*pow(sh,3) + 212592.*pow(sh,4) +
10098 311184.*pow(sh,5) - 400176.*pow(sh,6) -
10099 1.492176e6*pow(sh,7) - 2.343842424e9*pow(sh,8) +
10100 2.82465414e10*pow(sh,9) -
10101 1.56076722399e11*pow(sh,10) -
10102 2.450448e7*Lshb*pow(-1. + sh,9)*pow(sh,10) +
10103 5.22413429229e11*pow(sh,11) -
10104 1.178919945486e12*pow(sh,12) +
10105 1.88907310284e12*pow(sh,13) -
10106 2.203548370128e12*pow(sh,14) +
10107 1.885005025848e12*pow(sh,15) -
10108 1.173372074448e12*pow(sh,16) +
10109 5.18137391592e11*pow(sh,17) -
10110 1.53980764326e11*pow(sh,18) +
10111 2.7628439638e10*pow(sh,19) -
10112 2.260854288e9*pow(sh,20) + 45360.*pow(sh,25) -
10113 56700.*pow(sh,26) + 8505.*pow(sh,27) +
10114 2835.*pow(sh,28)) -
10115 0.00007838526357044875*pow(lz,2)*pow(sh,-18)*
10116 (-252. - 5236.*sh - 52122.*pow(sh,2) -
10117 330990.*pow(sh,3) - 1.50586e6*pow(sh,4) -
10118 5.221788e6*pow(sh,5) - 1.4306214e7*pow(sh,6) -
10119 3.1500898e7*pow(sh,7) - 2.399232528e9*pow(sh,8) +
10120 3.675672e7*pow(sh,9) - 1.1865305e7*pow(sh,10) +
10121 7.819275e6*pow(sh,11) + 2.920308e7*pow(sh,12) +
10122 3.763735e7*pow(sh,13) + 3.5618775e7*pow(sh,14) +
10123 2.7424047e7*pow(sh,15) + 1.5311086e7*pow(sh,16) +
10124 252.*pow(sh,17) + 5.397678e7*pow(sh,18) +
10125 5.722002e7*pow(sh,19) + 6.231654e7*pow(sh,20) +
10126 6.996132e7*pow(sh,21) + 2.7057888e8*pow(sh,22) -
10127 3.18810492e9*pow(sh,23) + 7.5729654e9*pow(sh,24) +
10128 4.194296964e10*pow(sh,25) -
10129 2.0547002619e11*pow(sh,26) +
10130 3.8218629735e11*pow(sh,27) -
10131 4.0430890071e11*pow(sh,28) +
10132 2.7416659842e11*pow(sh,29) -
10133 1.2521582073e11*pow(sh,30) +
10134 3.911266359e10*pow(sh,31) -
10135 8.26458633e9*pow(sh,32) + 1.13189076e9*pow(sh,33) -
10136 9.081072e7*pow(sh,34) + 3.24324e6*pow(sh,35)) -
10137 1.*lz*(109824.*L_mu*pow(sh,-10) +
10138 1920.79012345679*pow(Lsh,2)*pow(-1. + sh,-3)*
10139 pow(sh,-8) + 72.63492063492063*ash*sqrt4sh*sqrtsh*
10140 pow(sh,3)*(72. - 4364.*sh + 28750.*pow(sh,2) +
10141 23168.*pow(sh,3) - 476659.*pow(sh,4) +
10142 1.255353e6*pow(sh,5) - 1.649661e6*pow(sh,6) +
10143 1.316274e6*pow(sh,7) - 686175.*pow(sh,8) +
10144 239883.*pow(sh,9) - 55951.*pow(sh,10) +
10145 8372.*pow(sh,11) - 728.*pow(sh,12) +
10146 28.*pow(sh,13)) +
10147 0.0001567705271408975*Lsh*pow(-1. + sh,-11)*
10148 pow(sh,-18)*(-504. - 4928.*sh - 16772.*pow(sh,2) -
10149 8096.*pow(sh,3) + 98200.*pow(sh,4) +
10150 253792.*pow(sh,5) + 53704.*pow(sh,6) -
10151 692384.*pow(sh,7) - 2.34466232e9*pow(sh,8) +
10152 2.5895265088e10*pow(sh,9) -
10153 1.30081243153e11*pow(sh,10) +
10154 3.91980399854e11*pow(sh,11) -
10155 7.87080144424e11*pow(sh,12) +
10156 1.105852892984e12*pow(sh,13) -
10157 1.109622439576e12*pow(sh,14) +
10158 7.95460832936e11*pow(sh,15) -
10159 3.99495040168e11*pow(sh,16) +
10160 1.33989748088e11*pow(sh,17) -
10161 2.7053178394e10*pow(sh,18) +
10162 2.494260648e9*pow(sh,19) + 864864.*pow(sh,20) +
10163 769608.*pow(sh,21) - 13608.*pow(sh,22) -
10164 222264.*pow(sh,23) - 69120.*pow(sh,24) -
10165 9000.*pow(sh,25) + 19215.*pow(sh,26) +
10166 315.*pow(sh,27)) +
10167 2.5590508697331672e-11*pow(-1. + sh,-10)*pow(sh,-18)*
10168 (3.25909584e8 + 3.86898512e8*sh -
10169 1.7890959086e10*pow(sh,2) -
10170 1.0389775539e11*pow(sh,3) -
10171 1.8235127911e11*pow(sh,4) +
10172 2.39868807178e11*pow(sh,5) +
10173 1.439309125254e12*pow(sh,6) +
10174 1.482637674518e12*pow(sh,7) -
10175 6.794302525868858e15*pow(sh,8) +
10176 6.901772268373983e16*pow(sh,9) -
10177 3.158878275063268e17*pow(sh,10) +
10178 8.578247944222483e17*pow(sh,11) -
10179 1.5323085794390446e18*pow(sh,12) +
10180 1.8841304231440591e18*pow(sh,13) -
10181 1.6184014070975416e18*pow(sh,14) +
10182 9.617660963186045e17*pow(sh,15) -
10183 3.8015225593619155e17*pow(sh,16) +
10184 9.092524285521288e16*pow(sh,17) -
10185 9.590076560304648e15*pow(sh,18) -
10186 4.556468500926695e15*pow(sh,19) +
10187 1.7572146654042552e16*pow(sh,20) -
10188 3.9615878221273704e16*pow(sh,21) +
10189 5.638676809242492e16*pow(sh,22) -
10190 4.406121643569693e16*pow(sh,23) +
10191 3.2318412281568824e16*pow(sh,24) -
10192 4.259492022110168e17*pow(sh,25) +
10193 2.1201430825186813e18*pow(sh,26) -
10194 2.4923037486423537e18*pow(sh,27) -
10195 1.7838580318483542e19*pow(sh,28) +
10196 1.0701104247446746e20*pow(sh,29) -
10197 3.1929857696090705e20*pow(sh,30) +
10198 6.474487284281146e20*pow(sh,31) -
10199 9.760291519177703e20*pow(sh,32) +
10200 1.1392452492311442e21*pow(sh,33) -
10201 1.0520263768751638e21*pow(sh,34) +
10202 7.775724274489533e20*pow(sh,35) -
10203 4.624318941820542e20*pow(sh,36) +
10204 2.213656928475123e20*pow(sh,37) -
10205 8.494727327998501e19*pow(sh,38) +
10206 2.5900145606169035e19*pow(sh,39) -
10207 6.181939718636802e18*pow(sh,40) +
10208 1.1286121824774998e18*pow(sh,41) -
10209 1.5195925385464826e17*pow(sh,42) +
10210 1.420123992415128e16*pow(sh,43) -
10211 8.2168151561496e14*pow(sh,44) +
10212 2.214605244852e13*pow(sh,45))) -
10213 4.177278391107532e-18*pow(-1. + sh,-11)*pow(sh,-18)*
10214 (3.16414088198208e14 - 9.74539823921664e14*sh -
10215 8.087033764735926e15*pow(sh,2) +
10216 5.684694862939435e16*pow(sh,3) +
10217 4.0319420043801754e17*pow(sh,4) +
10218 4.882604186351892e17*pow(sh,5) -
10219 1.9325128069129482e18*pow(sh,6) -
10220 6.292691026868566e18*pow(sh,7) -
10221 2.4287339249894217e22*pow(sh,8) +
10222 2.612488077307783e23*pow(sh,9) -
10223 1.276336786564487e24*pow(sh,10) +
10224 3.7407720820676834e24*pow(sh,11) -
10225 7.312076867879097e24*pow(sh,12) +
10226 1.0021549960712915e25*pow(sh,13) -
10227 9.851452036875564e24*pow(sh,14) +
10228 6.978601203194415e24*pow(sh,15) -
10229 3.521127295712042e24*pow(sh,16) +
10230 1.224012074235529e24*pow(sh,17) -
10231 2.690422527577656e23*pow(sh,18) +
10232 6.92847965398663e21*pow(sh,19) +
10233 1.0487308963151102e23*pow(sh,20) -
10234 2.7045906540143195e23*pow(sh,21) +
10235 4.4609820546041925e23*pow(sh,22) -
10236 4.3341866014896366e23*pow(sh,23) +
10237 3.0284128932535685e23*pow(sh,24) -
10238 2.8502065219122033e24*pow(sh,25) +
10239 1.6744213714265902e25*pow(sh,26) -
10240 3.4546092096924117e25*pow(sh,27) -
10241 6.6958214497636675e25*pow(sh,28) +
10242 6.719624033223081e26*pow(sh,29) -
10243 2.3634332855143025e27*pow(sh,30) +
10244 5.406861258181357e27*pow(sh,31) -
10245 9.10419041097793e27*pow(sh,32) +
10246 1.1865952156817548e28*pow(sh,33) -
10247 1.2283961231268607e28*pow(sh,34) +
10248 1.0245250602869844e28*pow(sh,35) -
10249 6.935097181125567e27*pow(sh,36) +
10250 3.819594455600949e27*pow(sh,37) -
10251 1.7090015768187537e27*pow(sh,38) +
10252 6.177750381749111e26*pow(sh,39) -
10253 1.7862394817725466e26*pow(sh,40) +
10254 4.0667139734465495e25*pow(sh,41) -
10255 7.117942930727479e24*pow(sh,42) +
10256 9.229373088621336e23*pow(sh,43) -
10257 8.339200912205272e22*pow(sh,44) +
10258 4.6814118287209613e21*pow(sh,45) -
10259 1.2279937968685318e20*pow(sh,46) +
10260 6.2548910424e12*PI2*
10261 (-1512. - 14784.*sh - 50316.*pow(sh,2) -
10262 24288.*pow(sh,3) + 294600.*pow(sh,4) +
10263 761376.*pow(sh,5) + 161112.*pow(sh,6) -
10264 2.077152e6*pow(sh,7) - 5.96371776e9*pow(sh,8) +
10265 6.5734816224e10*pow(sh,9) -
10266 3.29439299647e11*pow(sh,10) +
10267 9.89864674466e11*pow(sh,11) -
10268 1.980655533976e12*pow(sh,12) +
10269 2.77128605852e12*pow(sh,13) -
10270 2.767417361128e12*pow(sh,14) +
10271 1.973276912096e12*pow(sh,15) -
10272 9.85353747448e11*pow(sh,16) +
10273 3.28634709368e11*pow(sh,17) -
10274 6.613484449e10*pow(sh,18) +
10275 6.792399064e9*pow(sh,19) -
10276 3.03847082e9*pow(sh,20) +
10277 7.83321994e9*pow(sh,21) -
10278 1.36334135e10*pow(sh,22) +
10279 2.612527414e10*pow(sh,23) -
10280 1.2043334018e11*pow(sh,24) +
10281 5.11152445252e11*pow(sh,25) -
10282 7.00772118731e11*pow(sh,26) -
10283 5.082162807869e12*pow(sh,27) +
10284 3.7496386828908e13*pow(sh,28) -
10285 1.3686666259266e14*pow(sh,29) +
10286 3.4205865415722e14*pow(sh,30) -
10287 6.4118721989322e14*pow(sh,31) +
10288 9.3979081997658e14*pow(sh,32) -
10289 1.10202690808782e15*pow(sh,33) +
10290 1.04788397968254e15*pow(sh,34) -
10291 8.141721939351e14*pow(sh,35) +
10292 5.1869434238622e14*pow(sh,36) -
10293 2.7096438795426e14*pow(sh,37) +
10294 1.1569642322238e14*pow(sh,38) -
10295 4.010774591538e13*pow(sh,39) +
10296 1.116674149734e13*pow(sh,40) -
10297 2.4564705165e12*pow(sh,41) +
10298 4.1666228604e11*pow(sh,42) -
10299 5.249021778e10*pow(sh,43) +
10300 4.61837376e9*pow(sh,44) -
10301 2.5297272e8*pow(sh,45) + 6.48648e6*pow(sh,46))))*
10302 pow(z,10);
10303 }
10304 else {
10305 res += pow(z,10)*(-1.8827679840714834e6 -
10306 2.081717517867475e7*(1. - 1.*sh) -
10307 1.0963380905010003e8*pow(1. - 1.*sh,2) -
10308 4.219709458628686e8*pow(1. - 1.*sh,3) +
10309 L_mu*(-134616.0761904762 -
10310 1.455984761904762e6*(1. - 1.*sh) -
10311 8.55703619047619e6*pow(1. - 1.*sh,2) -
10312 3.624158476190476e7*pow(1. - 1.*sh,3) -
10313 1.2382547047619048e8*pow(1. - 1.*sh,4)) -
10314 1.3631906422358756e9*pow(1. - 1.*sh,4) +
10315 log(z)*(294861.71513582155 +
10316 1.5577045832132744e6*(1. - 1.*sh) +
10317 1.3273873434568334e7*pow(1. - 1.*sh,2) +
10318 6.637266945174166e7*pow(1. - 1.*sh,3) +
10319 L_mu*(-109824. - 1.09824e6*(1. - 1.*sh) -
10320 6.04032e6*pow(1. - 1.*sh,2) -
10321 2.416128e7*pow(1. - 1.*sh,3) -
10322 7.852416e7*pow(1. - 1.*sh,4)) +
10323 2.3142944320276135e8*pow(1. - 1.*sh,4)) +
10324 (171022.4 + 1.777716148148148e6*(1. - 1.*sh) +
10325 1.0547910696296297e7*pow(1. - 1.*sh,2) +
10326 4.229024415943562e7*pow(1. - 1.*sh,3) +
10327 1.3716763538765433e8*pow(1. - 1.*sh,4))*
10328 pow(log(z),2));
10329 }
10330 }
10331
10332 }
10333 return res;
10334}
10335
10336
10337double f_29_im(double sh, double L_mu, double z, size_t maxpow) {
10338 double lz = log(z);
10339
10340 double Lsh = log(sh);
10341 double Lshb = log(1.-sh);
10342 double Li2sh = real(CLi2(sh));
10343 double Li3sh = real(CLi3(sh));
10344 // double Li3shb = real(CLi3(1.-sh));
10345 // double Li4sh = real(CLi4(sh));
10346 // double sqrtsh = sqrt(sh);
10347 // double sqrt4sh = sqrt(4.-sh);
10348 // double ash = asin(sqrtsh/2.);
10349 // double cl2 = Cl2(2.*ash);
10350 // double cl3 = Cl3(2.*ash);
10351
10352
10353 double res=0;
10354
10355 if(sh<0.4) {
10356 res = -22.0299 - 1.241123023640412*L_mu + 0.620562*Lsh -
10357 5.58505*lz + 1.86168*sh + 5.58505*lz*sh + 97.2931*z +
10358 33.5103*lz*z + 184.792*sh*z + 11.1701*Lsh*sh*z +
10359 100.531*lz*sh*z + 11.1701*z*pow(lz,2) +
10360 11.1701*sh*z*pow(lz,2) + 8.19141*pow(sh,2) +
10361 5.58505*lz*pow(sh,2) + 313.249*z*pow(sh,2) +
10362 22.3402*Lsh*z*pow(sh,2) + 156.3815*lz*z*pow(sh,2) +
10363 11.1701*z*pow(lz,2)*pow(sh,2) + 10.3323*pow(sh,3) +
10364 5.58505*lz*pow(sh,3) + 459.887*z*pow(sh,3) +
10365 33.5103*Lsh*z*pow(sh,3) + 208.5085*lz*z*pow(sh,3) +
10366 11.1701*z*pow(lz,2)*pow(sh,3) +
10367 0.0177303*pow(sh,3)*pow(z,-3) +
10368 0.11968*pow(sh,2)*pow(z,-2) -
10369 0.0221629*pow(sh,3)*pow(z,-2) + 1.11701*sh*pow(z,-1) -
10370 0.372337*pow(sh,2)*pow(z,-1) -
10371 0.523045*pow(sh,3)*pow(z,-1) - 160.51*pow(z,2) +
10372 11.1701*Lsh*pow(z,2) + 44.68045*lz*pow(z,2) +
10373 22.3402*Lsh*lz*pow(z,2) - 396.864*sh*pow(z,2) +
10374 44.6804*Lsh*sh*pow(z,2) + 201.062*lz*sh*pow(z,2) +
10375 89.361*Lsh*lz*sh*pow(z,2) + 44.6805*pow(lz,2)*pow(z,2) +
10376 122.87125*sh*pow(lz,2)*pow(z,2) -
10377 652.279*pow(sh,2)*pow(z,2) +
10378 134.041*Lsh*pow(sh,2)*pow(z,2) +
10379 491.4845*lz*pow(sh,2)*pow(z,2) +
10380 201.062*Lsh*lz*pow(sh,2)*pow(z,2) +
10381 234.57225*pow(lz,2)*pow(sh,2)*pow(z,2) -
10382 890.889*pow(sh,3)*pow(z,2) +
10383 297.87*Lsh*pow(sh,3)*pow(z,2) +
10384 934.565*lz*pow(sh,3)*pow(z,2) +
10385 357.4435*Lsh*lz*pow(sh,3)*pow(z,2) +
10386 379.7825*pow(lz,2)*pow(sh,3)*pow(z,2) +
10387 142.135*pow(z,3) + 9.92898*Lsh*pow(z,3) -
10388 104.2545*lz*pow(z,3) - 29.78695*Lsh*lz*pow(z,3) +
10389 382.697*sh*pow(z,3) + 22.3402*Lsh*sh*pow(z,3) -
10390 402.124*lz*sh*pow(z,3) - 134.0415*Lsh*lz*sh*pow(z,3) +
10391 640.989*pow(sh,2)*pow(z,3) -
10392 990.415*lz*pow(sh,2)*pow(z,3) -
10393 357.4435*Lsh*lz*pow(sh,2)*pow(z,3) +
10394 810.709*pow(sh,3)*pow(z,3) -
10395 111.701*Lsh*pow(sh,3)*pow(z,3) -
10396 1958.49*lz*pow(sh,3)*pow(z,3) -
10397 744.675*Lsh*lz*pow(sh,3)*pow(z,3);
10398 }
10399 else{
10400 if(sh<.900001) {
10401 res += (21.099091401887005*L_mu +
10402 0.310280755910103*pow(-1. + sh,-2)*
10403 (76. - 161.*sh + 67.*pow(sh,2)) -
10404 0.620561511820206*Lsh*pow(-1. + sh,-3)*
10405 (-8. + 33.*sh - 51.*pow(sh,2) + 17.*pow(sh,3)))*
10406 1.;
10407 }
10408 else {
10409 res += (17.065441575055665 + 8.22244003161773*(1. - 1.*sh) +
10410 21.099091401887005*L_mu +
10411 3.5992567685571952*pow(1. - 1.*sh,2) +
10412 2.2133360588254014*pow(1. - 1.*sh,3) +
10413 1.573566690686951*pow(1. - 1.*sh,4))*1.;
10414 }
10415
10416 if(1<=maxpow) {
10417 if(sh<.900001) {
10418 res += 0.;
10419 }
10420 else {
10421 res += 0.;
10422 }
10423 }
10424
10425 if(2<=maxpow) {
10426 if(sh<.900001) {
10427 res += (-107.41683587308312*sh*pow(-1. + sh,-3) +
10428 89.36085770210967*Li3sh*sh*pow(-1. + sh,-3) -
10429 11.170107212763709*Li2sh*(-7. + 5.*sh)*
10430 pow(-1. + sh,-3) - 7.446738141842472*sh*pow(Lsh,3)*
10431 pow(-1. + sh,-3) + 22.340214425527417*pow(Lsh,2)*
10432 pow(-1. + sh,-2) - 1.*Lsh*
10433 (44.680428851054835*Li2sh*sh*pow(-1. + sh,-3) +
10434 11.170107212763709*pow(-1. + sh,-3)*
10435 (5. + Lshb*(-7. + 5.*sh) +
10436 sh*(-3. + 2.*PI2) -
10437 1.*pow(sh,2))) +
10438 1.861684535460618*pow(-1. + sh,-3)*pow(sh,-1)*
10439 (18. - 1.*sh*(60. + 11.*PI2) +
10440 (72. + 5.*PI2)*pow(sh,2) +
10441 (-30. + 4.*PI2)*pow(sh,3)))*
10442 pow(z,1);
10443 }
10444 else {
10445 res += (5.5716604023132 - 7.453434743876799*(1. - 1.*sh) -
10446 13.15061358913166*pow(1. - 1.*sh,2) -
10447 16.48686093313114*pow(1. - 1.*sh,3) -
10448 18.724591847033217*pow(1. - 1.*sh,4))*pow(z,1);
10449 }
10450 }
10451
10452 if(3<=maxpow) {
10453 if(sh<.900001) {
10454 res += 0.;
10455 }
10456 else {
10457 res += 0.;
10458 }
10459 }
10460
10461 if(4<=maxpow) {
10462 if(sh<.900001) {
10463 res += (11.170107212763709*Li2sh*(3. + 2.*sh)*pow(-1. + sh,-3) -
10464 11.170107212763709*pow(Lsh,2)*pow(-1. + sh,-2) -
10465 134.0412865531645*L_mu*pow(sh,-2) -
10466 1.*lz*(78.19075048934596*Lsh*pow(-1. + sh,-3) -
10467 5.585053606381854*pow(-1. + sh,-2)*pow(sh,-2)*
10468 (23. - 39.*sh + 30.*pow(sh,2))) -
10469 0.930842267730309*pow(-1. + sh,-3)*pow(sh,-2)*
10470 (-315. + 900.*sh +
10471 (-957. + 6.*PI2)*pow(sh,2) +
10472 4.*(78. + PI2)*pow(sh,3) +
10473 24.*pow(sh,4)) +
10474 5.585053606381854*Lsh*pow(-1. + sh,-4)*pow(sh,-2)*
10475 (-25. + 87.*sh - 1.*(121. + 6.*Lshb)*pow(sh,2) +
10476 (67. + 2.*Lshb)*pow(sh,3) +
10477 2.*(-7. + 2.*Lshb)*pow(sh,4)))*pow(z,2);
10478 }
10479 else {
10480 res += (-255.36106211401477 - 376.7273797882516*(1. - 1.*sh) -
10481 438.1474554206565*pow(1. - 1.*sh,2) -
10482 458.2075495484674*pow(1. - 1.*sh,3) +
10483 L_mu*(-134.0412865531645 -
10484 268.082573106329*(1. - 1.*sh) -
10485 402.1238596594935*pow(1. - 1.*sh,2) -
10486 536.165146212658*pow(1. - 1.*sh,3) -
10487 670.2064327658226*pow(1. - 1.*sh,4)) -
10488 446.58202617315146*pow(1. - 1.*sh,4) +
10489 log(z)*(141.48802469500697 +
10490 276.46015351590177*(1. - 1.*sh) +
10491 408.8259239871517*pow(1. - 1.*sh,2) +
10492 539.8885152835793*pow(1. - 1.*sh,3) +
10493 670.2064327658226*pow(1. - 1.*sh,4)))*pow(z,2);
10494 }
10495 }
10496
10497 if(5<=maxpow) {
10498 if(sh<.900001) {
10499 res += 0.;
10500 }
10501 else {
10502 res += 0.;
10503 }
10504 }
10505
10506 if(6<=maxpow) {
10507 if(sh<.900001) {
10508 res += (-178.72171540421934*L_mu*pow(sh,-3) -
10509 22.340214425527417*pow(Lsh,2)*pow(-1. + sh,-3)*
10510 pow(sh,-1) + 7.446738141842472*Li2sh*pow(-1. + sh,-4)*
10511 pow(sh,-1)*(3. + sh + 2.*pow(sh,2)) +
10512 0.620561511820206*Lsh*pow(-1. + sh,-5)*pow(sh,-4)*
10513 (12. + 422.*sh - 2173.*pow(sh,2) +
10514 (4115. - 36.*Lshb)*pow(sh,3) +
10515 6.*(-625. + 4.*Lshb)*pow(sh,4) -
10516 6.*(-267. + 2.*Lshb)*pow(sh,5) +
10517 24.*(-11. + Lshb)*pow(sh,6)) -
10518 1.*lz*(7.446738141842472*Lsh*pow(-1. + sh,-4)*
10519 pow(sh,-1)*(3. + sh + 2.*pow(sh,2)) -
10520 0.620561511820206*pow(-1. + sh,-3)*pow(sh,-4)*
10521 (-6. - 428.*sh + 1275.*pow(sh,2) -
10522 1143.*pow(sh,3) + 335.*pow(sh,4) +
10523 27.*pow(sh,5) + 12.*pow(sh,6))) -
10524 0.10342691863670102*pow(-1. + sh,-4)*pow(sh,-4)*
10525 (30. + 1796.*sh - 7538.*pow(sh,2) +
10526 36.*(299. + PI2)*pow(sh,3) +
10527 (-6521. + 12.*PI2)*pow(sh,4) +
10528 8.*(106. + 3.*PI2)*pow(sh,5) +
10529 381.*pow(sh,6) + 24.*pow(sh,7)))*pow(z,3);
10530 }
10531 else {
10532 res += (-139.59531208395535 - 127.73017597795302*(1. - 1.*sh) +
10533 172.3157475693439*pow(1. - 1.*sh,2) +
10534 862.5554678942696*pow(1. - 1.*sh,3) +
10535 L_mu*(-178.72171540421934 -
10536 536.165146212658*(1. - 1.*sh) -
10537 1072.330292425316*pow(1. - 1.*sh,2) -
10538 1787.2171540421934*pow(1. - 1.*sh,3) -
10539 2680.8257310632903*pow(1. - 1.*sh,4)) +
10540 2025.5930676420699*pow(1. - 1.*sh,4) +
10541 log(z)*(322.07142463468693 +
10542 919.2998236104531*(1. - 1.*sh) +
10543 1803.5999779542467*pow(1. - 1.*sh,2) +
10544 2978.9966723284447*pow(1. - 1.*sh,3) +
10545 4449.37284876415*pow(1. - 1.*sh,4)))*pow(z,3);
10546 }
10547 }
10548
10549 if(7<=maxpow) {
10550 if(sh<.900001) {
10551 res += 0.;
10552 }
10553 else {
10554 res += 0.;
10555 }
10556 }
10557
10558 if(8<=maxpow) {
10559 if(sh<.900001) {
10560 res += (-402.1238596594935*L_mu*pow(sh,-4) -
10561 37.23369070921236*Li2sh*pow(-1. + sh,-3)*pow(sh,-2) -
10562 37.23369070921236*pow(Lsh,2)*pow(-1. + sh,-3)*
10563 pow(sh,-2) - 1.*lz*
10564 (-37.23369070921236*Lsh*pow(-1. + sh,-3)*pow(sh,-2) -
10565 0.620561511820206*pow(-1. + sh,-2)*pow(sh,-6)*
10566 (3. + 19.*sh + 1126.*pow(sh,2) - 2252.*pow(sh,3) +
10567 975.*pow(sh,4) + 39.*pow(sh,5) + 30.*pow(sh,6)))\
10568 - 0.620561511820206*Lsh*pow(-1. + sh,-6)*pow(sh,-6)*
10569 (6. + 14.*sh + 1053.*pow(sh,2) - 6729.*pow(sh,3) +
10570 (16821. - 60.*Lshb)*pow(sh,4) +
10571 3.*(-7297. + 60.*Lshb)*pow(sh,5) -
10572 3.*(-5263. + 60.*Lshb)*pow(sh,6) +
10573 (-5933. + 60.*Lshb)*pow(sh,7) + 900.*pow(sh,8)) +
10574 0.05171345931835051*pow(-1. + sh,-5)*pow(sh,-6)*
10575 (21. - 10.*sh + 3476.*pow(sh,2) - 18346.*pow(sh,3) +
10576 (36523. + 120.*PI2)*
10577 pow(sh,4) - 16.*
10578 (2108. + 15.*PI2)*pow(sh,5) +
10579 2.*(6731. + 60.*PI2)*
10580 pow(sh,6) - 96.*pow(sh,7) - 678.*pow(sh,8) -
10581 408.*pow(sh,9) + 144.*pow(sh,10)))*pow(z,4);
10582 }
10583 else {
10584 res += (-24.201898960988036 + 587.5698023025075*(1. - 1.*sh) +
10585 2943.504986434556*pow(1. - 1.*sh,2) +
10586 8455.573910153013*pow(1. - 1.*sh,3) +
10587 L_mu*(-402.1238596594935 -
10588 1608.495438637974*(1. - 1.*sh) -
10589 4021.238596594935*pow(1. - 1.*sh,2) -
10590 8042.47719318987*pow(1. - 1.*sh,3) -
10591 14074.335088082273*pow(1. - 1.*sh,4)) +
10592 18802.085498788645*pow(1. - 1.*sh,4) +
10593 log(z)*(819.141195602672 +
10594 3200.2357164568025*(1. - 1.*sh) +
10595 7927.052751991311*pow(1. - 1.*sh,2) +
10596 15806.942829084288*pow(1. - 1.*sh,3) +
10597 27672.433541664814*pow(1. - 1.*sh,4)))*pow(z,4);
10598 }
10599 }
10600
10601 if(9<=maxpow) {
10602 if(sh<.900001) {
10603 res += 0.;
10604 }
10605 else {
10606 res += 0.;
10607 }
10608 }
10609
10610 if(10<=maxpow) {
10611 if(sh<.900001) {
10612 res += (-1072.330292425316*L_mu*pow(sh,-5) -
10613 78.19075048934596*Li2sh*pow(-1. + sh,-3)*pow(sh,-3) -
10614 78.19075048934596*pow(Lsh,2)*pow(-1. + sh,-3)*
10615 pow(sh,-3) - 1.*lz*
10616 (-78.19075048934596*Lsh*pow(-1. + sh,-3)*pow(sh,-3) -
10617 0.062056151182020604*pow(-1. + sh,-2)*pow(sh,-8)*
10618 (18. + 153.*sh + 543.*pow(sh,2) +
10619 34531.*pow(sh,3) - 69998.*pow(sh,4) +
10620 32548.*pow(sh,5) + 60.*pow(sh,6) +
10621 690.*pow(sh,7) + 195.*pow(sh,8))) -
10622 0.062056151182020604*Lsh*pow(-1. + sh,-7)*pow(sh,-8)*
10623 (-36. - 126.*sh + 84.*pow(sh,2) - 32704.*pow(sh,3) +
10624 239545.*pow(sh,4) +
10625 36.*(-20227. + 35.*Lshb)*pow(sh,5) +
10626 (1.209686e6 - 5040.*Lshb)*pow(sh,6) +
10627 56.*(-21289. + 135.*Lshb)*pow(sh,7) +
10628 (696984. - 5040.*Lshb)*pow(sh,8) +
10629 35.*(-6389. + 36.*Lshb)*pow(sh,9) +
10630 30808.*pow(sh,10)) -
10631 0.0010342691863670101*pow(-1. + sh,-6)*pow(sh,-8)*
10632 (486. - 108.*sh - 8742.*pow(sh,2) +
10633 126466.*pow(sh,3) - 671262.*pow(sh,4) +
10634 1.573824e6*pow(sh,5) -
10635 12600.*PI2*pow(-1. + sh,3)*
10636 pow(sh,5) - 1.781252e6*pow(sh,6) +
10637 797802.*pow(sh,7) + 214029.*pow(sh,8) -
10638 253718.*pow(sh,9) - 92700.*pow(sh,10) +
10639 88650.*pow(sh,11) - 4275.*pow(sh,12) -
10640 5400.*pow(sh,13)))*pow(z,5);
10641 }
10642 else {
10643 res += (351.27268533709133 + 3865.7340081335415*(1. - 1.*sh) +
10644 17368.68228224328*pow(1. - 1.*sh,2) +
10645 52713.83107089804*pow(1. - 1.*sh,3) +
10646 L_mu*(-1072.330292425316 -
10647 5361.651462126581*(1. - 1.*sh) -
10648 16084.95438637974*pow(1. - 1.*sh,2) -
10649 37531.56023488606*pow(1. - 1.*sh,3) -
10650 75063.12046977213*pow(1. - 1.*sh,4)) +
10651 127763.72928220684*pow(1. - 1.*sh,4) +
10652 log(z)*(2503.8415878921674 +
10653 12312.560956024709*(1. - 1.*sh) +
10654 36728.24335783481*pow(1. - 1.*sh,2) +
10655 85657.34659956669*pow(1. - 1.*sh,3) +
10656 171742.8806422893*pow(1. - 1.*sh,4)))*pow(z,5);
10657 }
10658 }
10659
10660 if(11<=maxpow) {
10661 if(sh<.900001) {
10662 res += 0.;
10663 }
10664 else {
10665 res += 0.;
10666 }
10667 }
10668
10669 if(12<=maxpow) {
10670 if(sh<.900001) {
10671 res += (-3127.6300195738386*L_mu*pow(sh,-6) -
10672 187.65780117443032*Li2sh*pow(-1. + sh,-3)*pow(sh,-4) -
10673 187.65780117443032*pow(Lsh,2)*pow(-1. + sh,-3)*
10674 pow(sh,-4) - 1.*lz*
10675 (-187.65780117443032*Lsh*pow(-1. + sh,-3)*pow(sh,-4) -
10676 0.01241123023640412*pow(-1. + sh,-2)*pow(sh,-10)*
10677 (60. + 636.*sh + 2976.*pow(sh,2) +
10678 7776.*pow(sh,3) + 566576.*pow(sh,4) -
10679 1.155544e6*pow(sh,5) + 555575.*pow(sh,6) -
10680 4665.*pow(sh,7) + 6585.*pow(sh,8) +
10681 4185.*pow(sh,9) + 720.*pow(sh,10))) -
10682 0.01241123023640412*Lsh*pow(-1. + sh,-8)*pow(sh,-10)*
10683 (120. + 552.*sh + 120.*pow(sh,2) - 3480.*pow(sh,3) +
10684 549380.*pow(sh,4) - 4.49206e6*pow(sh,5) +
10685 (1.5939557e7 - 15120.*Lshb)*pow(sh,6) +
10686 5.*(-6.401093e6 + 15120.*Lshb)*pow(sh,7) -
10687 160.*(-249128. + 945.*Lshb)*pow(sh,8) +
10688 160.*(-197248. + 945.*Lshb)*pow(sh,9) +
10689 (1.551469e7 - 75600.*Lshb)*pow(sh,10) +
10690 14.*(-309151. + 1080.*Lshb)*pow(sh,11) +
10691 525160.*pow(sh,12)) +
10692 0.00020685383727340204*pow(-1. + sh,-7)*pow(sh,-10)*
10693 (1320. - 96.*sh - 30636.*pow(sh,2) -
10694 70896.*pow(sh,3) - 2.603936e6*pow(sh,4) +
10695 2.1791024e7*pow(sh,5) - 7.0464714e7*pow(sh,6) +
10696 151200.*PI2*pow(-1. + sh,4)*
10697 pow(sh,6) + 1.25759326e8*pow(sh,7) -
10698 1.37732314e8*pow(sh,8) + 9.4834176e7*pow(sh,9) -
10699 3.8854759e7*pow(sh,10) + 7.49308e6*pow(sh,11) -
10700 545670.*pow(sh,12) + 1.17158e6*pow(sh,13) -
10701 783395.*pow(sh,14) + 77910.*pow(sh,15) +
10702 33600.*pow(sh,16)))*pow(z,6);
10703 }
10704 else {
10705 res += (2099.7304538674402 + 19515.031680922508*(1. - 1.*sh) +
10706 91328.97681100095*pow(1. - 1.*sh,2) +
10707 300670.6061024515*pow(1. - 1.*sh,3) +
10708 L_mu*(-3127.6300195738386 -
10709 18765.78011744303*(1. - 1.*sh) -
10710 65680.23041105061*pow(1. - 1.*sh,2) -
10711 175147.28109613495*pow(1. - 1.*sh,3) -
10712 394081.38246630365*pow(1. - 1.*sh,4)) +
10713 796731.7474127222*pow(1. - 1.*sh,4) +
10714 log(z)*(8190.17083300308 +
10715 48527.5999435842*(1. - 1.*sh) +
10716 169220.42220904253*pow(1. - 1.*sh,2) +
10717 451635.111655464*pow(1. - 1.*sh,3) +
10718 1.0198531287397521e6*pow(1. - 1.*sh,4)))*pow(z,6);
10719 }
10720 }
10721
10722 if(13<=maxpow) {
10723 if(sh<.900001) {
10724 res += 0.;
10725 }
10726 else {
10727 res += 0.;
10728 }
10729 }
10730
10731 if(14<=maxpow) {
10732 if(sh<.900001) {
10733 res += (-9650.972631827844*L_mu*pow(sh,-7) -
10734 491.4847173616032*Li2sh*pow(-1. + sh,-3)*pow(sh,-5) -
10735 491.4847173616032*pow(Lsh,2)*pow(-1. + sh,-3)*
10736 pow(sh,-5) - 1.*lz*
10737 (-491.4847173616032*Lsh*pow(-1. + sh,-3)*pow(sh,-5) -
10738 0.017730328909148746*pow(-1. + sh,-2)*pow(sh,-12)*
10739 (30. + 380.*sh + 2186.*pow(sh,2) +
10740 7436.*pow(sh,3) + 15906.*pow(sh,4) +
10741 1.352004e6*pow(sh,5) - 2.76528e6*pow(sh,6) +
10742 1.354403e6*pow(sh,7) - 16681.*pow(sh,8) +
10743 9569.*pow(sh,9) + 8694.*pow(sh,10) +
10744 3234.*pow(sh,11) + 399.*pow(sh,12))) -
10745 0.017730328909148746*Lsh*pow(-1. + sh,-9)*pow(sh,-12)*
10746 (-60. - 340.*sh - 312.*pow(sh,2) + 1872.*pow(sh,3) +
10747 4980.*pow(sh,4) - 1.332168e6*pow(sh,5) +
10748 1.2088242e7*pow(sh,6) +
10749 5.*(-9.776695e6 + 5544.*Lshb)*pow(sh,7) -
10750 30.*(-3.824725e6 + 5544.*Lshb)*pow(sh,8) +
10751 3.*(-5.7427063e7 + 138600.*Lshb)*pow(sh,9) +
10752 (1.71668683e8 - 554400.*Lshb)*pow(sh,10) +
10753 3.*(-3.7845529e7 + 138600.*Lshb)*pow(sh,11) -
10754 30.*(-1.601585e6 + 5544.*Lshb)*pow(sh,12) +
10755 2.*(-5.902763e6 + 13860.*Lshb)*pow(sh,13) +
10756 1.28742e6*pow(sh,14)) +
10757 0.000042215068831306535*pow(-1. + sh,-8)*pow(sh,-12)*
10758 (-3900. - 100.*sh + 116036.*pow(sh,2) +
10759 329570.*pow(sh,3) - 93490.*pow(sh,4) +
10760 1.05811916e8*pow(sh,5) - 9.10727068e8*pow(sh,6) +
10761 3.32689061e9*pow(sh,7) +
10762 1.9404e6*PI2*pow(-1. + sh,5)*
10763 pow(sh,7) - 6.892981954e9*pow(sh,8) +
10764 8.95115243e9*pow(sh,9) - 7.522485491e9*pow(sh,10) +
10765 4.037897533e9*pow(sh,11) -
10766 1.290569693e9*pow(sh,12) +
10767 1.94901398e8*pow(sh,13) + 8.064665e6*pow(sh,14) -
10768 1.8561445e7*pow(sh,15) + 1.7389365e7*pow(sh,16) -
10769 7.700448e6*pow(sh,17) + 658266.*pow(sh,18) +
10770 264600.*pow(sh,19)))*pow(z,7);
10771 }
10772 else {
10773 res += (9578.002977728951 + 90591.13670883651*(1. - 1.*sh) +
10774 454740.084732464*pow(1. - 1.*sh,2) +
10775 1.6274729201675933e6*pow(1. - 1.*sh,3) +
10776 L_mu*(-9650.972631827844 -
10777 67556.80842279491*(1. - 1.*sh) -
10778 270227.23369117966*pow(1. - 1.*sh,2) -
10779 810681.701073539*pow(1. - 1.*sh,3) -
10780 2.0267042526838474e6*pow(1. - 1.*sh,4)) +
10781 4.693965288441072e6*pow(1. - 1.*sh,4) +
10782 log(z)*(27844.116316492098 +
10783 192981.35015973114*(1. - 1.*sh) +
10784 770003.1492999103*pow(1. - 1.*sh,2) +
10785 2.3136505305141844e6*pow(1. - 1.*sh,3) +
10786 5.808370113148497e6*pow(1. - 1.*sh,4)))*pow(z,7);
10787 }
10788 }
10789
10790 if(15<=maxpow) {
10791 if(sh<.900001) {
10792 res += 0.;
10793 }
10794 else {
10795 res += 0.;
10796 }
10797 }
10798
10799 if(16<=maxpow) {
10800 if(sh<.900001) {
10801 res += (-30963.537193781*L_mu*pow(sh,-8) -
10802 1369.1359983644659*Li2sh*pow(-1. + sh,-3)*pow(sh,-6) -
10803 1369.1359983644659*pow(Lsh,2)*pow(-1. + sh,-3)*
10804 pow(sh,-6) - 1.*lz*
10805 (-1369.1359983644659*Lsh*pow(-1. + sh,-3)*pow(sh,-6) -
10806 0.001266452064939196*pow(-1. + sh,-2)*pow(sh,-14)*
10807 (315. + 4635.*sh + 31515.*pow(sh,2) +
10808 130299.*pow(sh,3) + 359619.*pow(sh,4) +
10809 665379.*pow(sh,5) + 6.6151919e7*pow(sh,6) -
10810 1.35470551e8*pow(sh,7) + 6.7113242e7*pow(sh,8) -
10811 941808.*pow(sh,9) + 284172.*pow(sh,10) +
10812 360612.*pow(sh,11) + 176862.*pow(sh,12) +
10813 48090.*pow(sh,13) + 4620.*pow(sh,14))) -
10814 0.002532904129878392*Lsh*pow(-1. + sh,-10)*pow(sh,-14)*
10815 (315. + 2115.*sh + 3255.*pow(sh,2) -
10816 9681.*pow(sh,3) - 37863.*pow(sh,4) -
10817 21231.*pow(sh,5) + 3.2813515e7*pow(sh,6) -
10818 3.294172e8*pow(sh,7) -
10819 39.*(-3.8321329e7 + 13860.*Lshb)*pow(sh,8) +
10820 42.*(-9.5458711e7 + 90090.*Lshb)*pow(sh,9) -
10821 42.*(-1.67531213e8 + 270270.*Lshb)*pow(sh,10) +
10822 420.*(-2.0098649e7 + 45045.*Lshb)*pow(sh,11) -
10823 2100.*(-3.338711e6 + 9009.*Lshb)*pow(sh,12) +
10824 84.*(-4.7391601e7 + 135135.*Lshb)*pow(sh,13) -
10825 21.*(-7.0412477e7 + 180180.*Lshb)*pow(sh,14) +
10826 (-3.24500326e8 + 540540.*Lshb)*pow(sh,15) +
10827 3.1967803e7*pow(sh,16)) -
10828 1.507681029689519e-6*pow(-1. + sh,-9)*pow(sh,-14)*
10829 (-70875. - 6750.*sh + 2.654475e6*pow(sh,2) +
10830 9.126108e6*pow(sh,3) + 678627.*pow(sh,4) -
10831 4.643019e7*pow(sh,5) + 1.5345996055e10*pow(sh,6) -
10832 1.4348857176e11*pow(sh,7) +
10833 5.91466492647e11*pow(sh,8) -
10834 1.513512e8*PI2*pow(-1. + sh,6)*
10835 pow(sh,8) - 1.415943215622e12*pow(sh,9) +
10836 2.178821872845e12*pow(sh,10) -
10837 2.24337645648e12*pow(sh,11) +
10838 1.552421630265e12*pow(sh,12) -
10839 7.00737702894e11*pow(sh,13) +
10840 1.89129808485e11*pow(sh,14) -
10841 2.3911342252e10*pow(sh,15) +
10842 1.14148692e9*pow(sh,16) - 2.22118512e9*pow(sh,17) +
10843 2.487344244e9*pow(sh,18) -
10844 1.56858156e9*pow(sh,19) + 5.01486552e8*pow(sh,20) -
10845 3.056844e7*pow(sh,21) - 1.397088e7*pow(sh,22)))*
10846 pow(z,8);
10847 }
10848 else {
10849 res += (40161.85009597605 + 403454.99326336605*(1. - 1.*sh) +
10850 2.1866803584763454e6*pow(1. - 1.*sh,2) +
10851 8.483425144271815e6*pow(1. - 1.*sh,3) +
10852 L_mu*(-30963.537193781 -
10853 247708.297550248*(1. - 1.*sh) -
10854 1.114687338976116e6*pow(1. - 1.*sh,2) -
10855 3.71562446325372e6*pow(1. - 1.*sh,3) -
10856 1.021796727394773e7*pow(1. - 1.*sh,4)) +
10857 2.6489409680208746e7*pow(1. - 1.*sh,4) +
10858 log(z)*(97097.39806997219 +
10859 770481.1057763142*(1. - 1.*sh) +
10860 3.461164952904078e6*pow(1. - 1.*sh,2) +
10861 1.1560034432357585e7*pow(1. - 1.*sh,3) +
10862 3.1932028892972782e7*pow(1. - 1.*sh,4)))*pow(z,8);
10863 }
10864 }
10865
10866 if(17<=maxpow) {
10867 if(sh<.900001) {
10868 res += 0.;
10869 }
10870 else {
10871 res += 0.;
10872 }
10873 }
10874
10875 if(18<=maxpow) {
10876 if(sh<.900001) {
10877 res += (-102228.82121121346*L_mu*pow(sh,-9) -
10878 3993.313328563026*Li2sh*pow(-1. + sh,-3)*pow(sh,-7) -
10879 3993.313328563026*pow(Lsh,2)*pow(-1. + sh,-3)*
10880 pow(sh,-7) - 1.*lz*
10881 (-3993.313328563026*Lsh*pow(-1. + sh,-3)*pow(sh,-7) -
10882 0.0036938185227393216*pow(-1. + sh,-2)*pow(sh,-16)*
10883 (84. + 1407.*sh + 11019.*pow(sh,2) +
10884 53355.*pow(sh,3) + 177339.*pow(sh,4) +
10885 420771.*pow(sh,5) + 695955.*pow(sh,6) +
10886 8.0686627e7*pow(sh,7) - 1.65305039e8*pow(sh,8) +
10887 8.25115e7*pow(sh,9) - 1.2204e6*pow(sh,10) +
10888 196344.*pow(sh,11) + 374004.*pow(sh,12) +
10889 218268.*pow(sh,13) + 79164.*pow(sh,14) +
10890 17172.*pow(sh,15) + 1350.*pow(sh,16))) -
10891 0.0036938185227393216*Lsh*pow(-1. + sh,-11)*pow(sh,-16)*
10892 (-168. - 1302.*sh - 2760.*pow(sh,2) +
10893 4440.*pow(sh,3) + 27552.*pow(sh,4) +
10894 26796.*pow(sh,5) - 59136.*pow(sh,6) -
10895 8.0178328e7*pow(sh,7) + 8.85522242e8*pow(sh,8) +
10896 (-4.455681973e9 + 1.08108e6*Lshb)*pow(sh,9) -
10897 36.*(-3.73310921e8 + 240240.*Lshb)*pow(sh,10) +
10898 55440.*(-486509. + 546.*Lshb)*pow(sh,11) -
10899 504.*(-7.5023647e7 + 120120.*Lshb)*pow(sh,12) +
10900 84.*(-4.49774219e8 + 900900.*Lshb)*pow(sh,13) -
10901 240.*(-1.12105241e8 + 252252.*Lshb)*pow(sh,14) +
10902 24.*(-5.57582173e8 + 1.26126e6*Lshb)*pow(sh,15) +
10903 (4.426935664e9 - 8.64864e6*Lshb)*pow(sh,16) +
10904 (-8.76740327e8 + 1.08108e6*Lshb)*pow(sh,17) +
10905 7.8847504e7*pow(sh,18)) -
10906 2.9316020021740647e-6*pow(-1. + sh,-10)*pow(sh,-16)*
10907 (24990. + 3675.*sh - 1.155555e6*pow(sh,2) -
10908 4.697175e6*pow(sh,3) - 2.300739e6*pow(sh,4) +
10909 2.4304707e7*pow(sh,5) + 4.9414911e7*pow(sh,6) -
10910 3.5555744717e10*pow(sh,7) +
10911 3.63795694607e11*pow(sh,8) -
10912 1.673813526981e12*pow(sh,9) -
10913 2.270268e8*PI2*pow(-1. + sh,7)*
10914 pow(sh,9) + 4.554015894201e12*pow(sh,10) -
10915 8.127350542815e12*pow(sh,11) +
10916 9.960251835135e12*pow(sh,12) -
10917 8.507649883005e12*pow(sh,13) +
10918 5.015942498283e12*pow(sh,14) -
10919 1.962379873869e12*pow(sh,15) +
10920 4.63995107234e11*pow(sh,16) -
10921 5.1382668638e10*pow(sh,17) -
10922 1.45210023e9*pow(sh,18) +
10923 4.602427326e9*pow(sh,19) -
10924 6.429483144e9*pow(sh,20) +
10925 5.36052951e9*pow(sh,21) - 2.64447351e9*pow(sh,22) +
10926 6.66882918e8*pow(sh,23) - 2.7794799e7*pow(sh,24) -
10927 1.513512e7*pow(sh,25)))*pow(z,9);
10928 }
10929 else {
10930 res += (162348.40292881487 + 1.7529724360976778e6*(1. - 1.*sh) +
10931 1.0256186898134898e7*pow(1. - 1.*sh,2) +
10932 4.2955517822645485e7*pow(1. - 1.*sh,3) +
10933 L_mu*(-102228.82121121346 -
10934 920059.3909009212*(1. - 1.*sh) -
10935 4.600296954504606e6*pow(1. - 1.*sh,2) -
10936 1.686775549985022e7*pow(1. - 1.*sh,3) -
10937 5.060326649955066e7*pow(1. - 1.*sh,4)) +
10938 1.4446294675132388e8*pow(1. - 1.*sh,4) +
10939 log(z)*(344809.38943874295 +
10940 3.08210039661968e6*(1. - 1.*sh) +
10941 1.5391563066319158e7*pow(1. - 1.*sh,2) +
10942 5.6559239118621774e7*pow(1. - 1.*sh,3) +
10943 1.7045200046472126e8*pow(1. - 1.*sh,4)))*pow(z,9);
10944 }
10945 }
10946
10947 if(19<=maxpow) {
10948 if(sh<.900001) {
10949 res += 0.;
10950 }
10951 else {
10952 res += 0.;
10953 }
10954 }
10955
10956 if(20<=maxpow) {
10957 if(sh<.900001) {
10958 res += (-345022.27158784546*L_mu*pow(sh,-10) -
10959 12068.680281879368*Li2sh*pow(-1. + sh,-3)*pow(sh,-8) -
10960 12068.680281879368*pow(Lsh,2)*pow(-1. + sh,-3)*
10961 pow(sh,-8) - 1.*lz*
10962 (-12068.680281879368*Lsh*pow(-1. + sh,-3)*pow(sh,-8) -
10963 0.0004925091363652429*pow(-1. + sh,-2)*pow(sh,-18)*
10964 (504. + 9464.*sh + 83804.*pow(sh,2) +
10965 463964.*pow(sh,3) + 1.792004e6*pow(sh,4) +
10966 5.082116e6*pow(sh,5) + 1.0736996e7*pow(sh,6) +
10967 1.6220516e7*pow(sh,7) +
10968 2.181841484e9*pow(sh,8) -
10969 4.46987794e9*pow(sh,9) +
10970 2.242757169e9*pow(sh,10) -
10971 3.3805539e7*pow(sh,11) + 2.425761e6*pow(sh,12) +
10972 8.640081e6*pow(sh,13) + 5.776731e6*pow(sh,14) +
10973 2.476035e6*pow(sh,15) + 730935.*pow(sh,16) +
10974 132615.*pow(sh,17) + 8820.*pow(sh,18))) -
10975 0.0004925091363652429*Lsh*pow(-1. + sh,-12)*pow(sh,-18)*
10976 (1008. + 8848.*sh + 23688.*pow(sh,2) -
10977 17352.*pow(sh,3) - 212592.*pow(sh,4) -
10978 311184.*pow(sh,5) + 400176.*pow(sh,6) +
10979 1.492176e6*pow(sh,7) + 2.168707464e9*pow(sh,8) -
10980 2.614996692e10*pow(sh,9) -
10981 39.*(-3.707091121e9 + 628320.*Lshb)*pow(sh,10) +
10982 9.*(-5.3800645531e10 + 2.450448e7*Lshb)*
10983 pow(sh,11) - 36.*
10984 (-3.0370262471e10 + 2.450448e7*Lshb)*pow(sh,12) +
10985 120120.*(-1.4593549e7 + 17136.*Lshb)*pow(sh,13) -
10986 1008.*(-2.029981021e9 + 3.06306e6*Lshb)*
10987 pow(sh,14) + 504.*
10988 (-3.476232167e9 + 6.12612e6*Lshb)*pow(sh,15) -
10989 2352.*(-4.64302499e8 + 875160.*Lshb)*pow(sh,16) +
10990 72.*(-6.711321751e9 + 1.225224e7*Lshb)*pow(sh,17) -
10991 18.*(-8.004613297e9 + 1.225224e7*Lshb)*pow(sh,18) +
10992 (-2.5997681938e10 + 2.450448e7*Lshb)*pow(sh,19) +
10993 2.147289408e9*pow(sh,20)) +
10994 1.95440133478271e-7*pow(-1. + sh,-11)*pow(sh,-18)*
10995 (268128. + 50176.*sh - 1.5037316e7*pow(sh,2) -
10996 7.0758368e7*pow(sh,3) - 6.454424e7*pow(sh,4) +
10997 3.47363296e8*pow(sh,5) + 9.86787592e8*pow(sh,6) +
10998 3.5646688e7*pow(sh,7) -
10999 2.256631448624e12*pow(sh,8) +
11000 2.5235654405248e13*pow(sh,9) -
11001 1.28349595677322e14*pow(sh,10) +
11002 1.02918816e10*PI2*
11003 pow(-1. + sh,8)*pow(sh,10) +
11004 3.91335165488006e14*pow(sh,11) -
11005 7.95205485397036e14*pow(sh,12) +
11006 1.131873241929248e15*pow(sh,13) -
11007 1.152918562112926e15*pow(sh,14) +
11008 8.41687395958136e14*pow(sh,15) -
11009 4.32532523359468e14*pow(sh,16) +
11010 1.49507294517008e14*pow(sh,17) -
11011 3.1460926993849e13*pow(sh,18) +
11012 3.102547096368e12*pow(sh,19) -
11013 9.5864935068e10*pow(sh,20) +
11014 2.69818915464e11*pow(sh,21) -
11015 4.54966309854e11*pow(sh,22) +
11016 4.78236408048e11*pow(sh,23) -
11017 3.2126306742e11*pow(sh,24) +
11018 1.3173020316e11*pow(sh,25) -
11019 2.7741591765e10*pow(sh,26) +
11020 8.0713269e8*pow(sh,27) + 5.189184e8*pow(sh,28)))*
11021 pow(z,10);
11022 }
11023 else {
11024 res += (644254.0137035465 + 7.493223537446329e6*(1. - 1.*sh) +
11025 4.720371172464203e7*pow(1. - 1.*sh,2) +
11026 2.125124872327622e8*pow(1. - 1.*sh,3) +
11027 L_mu*(-345022.27158784546 -
11028 3.4502227158784545e6*(1. - 1.*sh) -
11029 1.8976224937331498e7*pow(1. - 1.*sh,2) -
11030 7.590489974932599e7*pow(1. - 1.*sh,3) -
11031 2.466909241853095e8*pow(1. - 1.*sh,4)) +
11032 7.661513926733323e8*pow(1. - 1.*sh,4) +
11033 log(z)*(1.2414164251232008e6 +
11034 1.2341289851214426e7*(1. - 1.*sh) +
11035 6.781685298675093e7*pow(1. - 1.*sh,2) +
11036 2.718874874350479e8*pow(1. - 1.*sh,3) +
11037 8.876628109013227e8*pow(1. - 1.*sh,4)))*pow(z,10);
11038 }
11039 }
11040
11041 }
11042 return res;
11043}
11044
11045
11046double delta_f_29_re(double sh, double L_mu, double z, size_t maxpow) {
11047 double lz = log(z);
11048
11049 double Lsh = log(sh);
11050 // double Lshb = log(1.-sh);
11051
11052
11053 double res=0;
11054
11055 if(sh<0.4) {
11056 res = 0.06772486772486773*(0.6666666666666666 + L_mu - 0.5*lz)*
11057 (105. + pow(sh,3)*pow(z,-3) + 4.5*pow(sh,2)*pow(z,-2) +
11058 21.*sh*pow(z,-1));
11059 }
11060 else{
11061 res += 0.;
11062
11063 if(1<=maxpow) {
11064 res += 0.;
11065 }
11066
11067 if(2<=maxpow) {
11068 res += (-28.444444444444443*pow(sh,-1) -
11069 42.666666666666664*L_mu*pow(sh,-1) +
11070 21.333333333333332*lz*pow(sh,-1))*pow(z,1);
11071 }
11072
11073 if(3<=maxpow) {
11074 res += 0.;
11075 }
11076
11077 if(4<=maxpow) {
11078 res += (-56.888888888888886*Lsh*pow(sh,-2) -
11079 85.33333333333333*L_mu*Lsh*pow(sh,-2) -
11080 42.666666666666664*pow(lz,2)*pow(sh,-2) -
11081 1.*lz*(-56.888888888888886*pow(sh,-2) -
11082 85.33333333333333*L_mu*pow(sh,-2) -
11083 42.666666666666664*Lsh*pow(sh,-2)))*pow(z,2);
11084 }
11085
11086 if(5<=maxpow) {
11087 res += 0.;
11088 }
11089
11090 if(6<=maxpow) {
11091 res += (113.77777777777777*pow(sh,-3) -
11092 113.77777777777777*Lsh*pow(sh,-3) -
11093 85.33333333333333*pow(lz,2)*pow(sh,-3) -
11094 1.*lz*(-28.444444444444443*pow(sh,-3) -
11095 170.66666666666666*L_mu*pow(sh,-3) -
11096 85.33333333333333*Lsh*pow(sh,-3)) -
11097 1.*L_mu*(-170.66666666666666*pow(sh,-3) +
11098 170.66666666666666*Lsh*pow(sh,-3)))*pow(z,3);
11099 }
11100
11101 if(7<=maxpow) {
11102 res += 0.;
11103 }
11104
11105 if(8<=maxpow) {
11106 res += (398.22222222222223*pow(sh,-4) -
11107 341.3333333333333*Lsh*pow(sh,-4) -
11108 256.*pow(lz,2)*pow(sh,-4) -
11109 1.*lz*(-42.666666666666664*pow(sh,-4) -
11110 512.*L_mu*pow(sh,-4) - 256.*Lsh*pow(sh,-4)) -
11111 1.*L_mu*(-597.3333333333334*pow(sh,-4) +
11112 512.*Lsh*pow(sh,-4)))*pow(z,4);
11113 }
11114
11115 if(9<=maxpow) {
11116 res += 0.;
11117 }
11118
11119 if(10<=maxpow) {
11120 res += (1403.2592592592594*pow(sh,-5) -
11121 1137.7777777777778*Lsh*pow(sh,-5) -
11122 853.3333333333334*pow(lz,2)*pow(sh,-5) -
11123 1.*lz*(-85.33333333333333*pow(sh,-5) -
11124 1706.6666666666667*L_mu*pow(sh,-5) -
11125 853.3333333333334*Lsh*pow(sh,-5)) -
11126 1.*L_mu*(-2104.8888888888887*pow(sh,-5) +
11127 1706.6666666666667*Lsh*pow(sh,-5)))*pow(z,5);
11128 }
11129
11130 if(11<=maxpow) {
11131 res += 0.;
11132 }
11133
11134 if(12<=maxpow) {
11135 res += (5053.62962962963*pow(sh,-6) -
11136 3982.222222222222*Lsh*pow(sh,-6) -
11137 2986.6666666666665*pow(lz,2)*pow(sh,-6) -
11138 1.*lz*(-192.*pow(sh,-6) -
11139 5973.333333333333*L_mu*pow(sh,-6) -
11140 2986.6666666666665*Lsh*pow(sh,-6)) -
11141 1.*L_mu*(-7580.444444444444*pow(sh,-6) +
11142 5973.333333333333*Lsh*pow(sh,-6)))*pow(z,6);
11143 }
11144
11145 if(13<=maxpow) {
11146 res += 0.;
11147 }
11148
11149 if(14<=maxpow) {
11150 res += (18511.644444444446*pow(sh,-7) - 14336.*Lsh*pow(sh,-7) -
11151 10752.*pow(lz,2)*pow(sh,-7) -
11152 1.*lz*(-452.26666666666665*pow(sh,-7) -
11153 21504.*L_mu*pow(sh,-7) - 10752.*Lsh*pow(sh,-7)) -
11154 1.*L_mu*(-27767.466666666667*pow(sh,-7) +
11155 21504.*Lsh*pow(sh,-7)))*pow(z,7);
11156 }
11157
11158 if(15<=maxpow) {
11159 res += 0.;
11160 }
11161
11162 if(16<=maxpow) {
11163 res += (68672.47407407407*pow(sh,-8) -
11164 52565.333333333336*Lsh*pow(sh,-8) -
11165 39424.*pow(lz,2)*pow(sh,-8) -
11166 1.*lz*(-1060.9777777777779*pow(sh,-8) -
11167 78848.*L_mu*pow(sh,-8) - 39424.*Lsh*pow(sh,-8)) -
11168 1.*L_mu*(-103008.71111111112*pow(sh,-8) +
11169 78848.*Lsh*pow(sh,-8)))*pow(z,8);
11170 }
11171
11172 if(17<=maxpow) {
11173 res += 0.;
11174 }
11175
11176 if(18<=maxpow) {
11177 res += (257214.71322751322*pow(sh,-9) -
11178 195242.66666666666*Lsh*pow(sh,-9) -
11179 146432.*pow(lz,2)*pow(sh,-9) -
11180 1.*lz*(-2331.631746031746*pow(sh,-9) -
11181 292864.*L_mu*pow(sh,-9) - 146432.*Lsh*pow(sh,-9)) -
11182 1.*L_mu*(-385822.06984126987*pow(sh,-9) +
11183 292864.*Lsh*pow(sh,-9)))*pow(z,9);
11184 }
11185
11186 if(19<=maxpow) {
11187 res += 0.;
11188 }
11189
11190 if(20<=maxpow) {
11191 res += (970656.5079365079*pow(sh,-10) - 732160.*Lsh*pow(sh,-10) -
11192 549120.*pow(lz,2)*pow(sh,-10) -
11193 1.*lz*(-4167.619047619048*pow(sh,-10) -
11194 1.09824e6*L_mu*pow(sh,-10) - 549120.*Lsh*pow(sh,-10))
11195 - 1.*L_mu*(-1.455984761904762e6*pow(sh,-10) +
11196 1.09824e6*Lsh*pow(sh,-10)))*pow(z,10);
11197 }
11198
11199 }
11200 return res;
11201}
11202
11203
11204double delta_f_29_im(double sh, double L_mu, double z, size_t maxpow) {
11205 double lz = log(z);
11206
11207 // double Lsh = log(sh);
11208 // double Lshb = log(1.-sh);
11209
11210
11211 double res=0;
11212
11213 if(sh<0.4) {
11214 res = 0.;
11215 }
11216 else{
11217 res += 0.;
11218
11219 if(1<=maxpow) {
11220 res += 0.;
11221 }
11222
11223 if(2<=maxpow) {
11224 res += 0.;
11225 }
11226
11227 if(3<=maxpow) {
11228 res += 0.;
11229 }
11230
11231 if(4<=maxpow) {
11232 res += (178.72171540421934*pow(sh,-2) +
11233 268.082573106329*L_mu*pow(sh,-2) -
11234 134.0412865531645*lz*pow(sh,-2))*pow(z,2);
11235 }
11236
11237 if(5<=maxpow) {
11238 res += 0.;
11239 }
11240
11241 if(6<=maxpow) {
11242 res += (357.4434308084387*pow(sh,-3) +
11243 536.165146212658*L_mu*pow(sh,-3) -
11244 268.082573106329*lz*pow(sh,-3))*pow(z,3);
11245 }
11246
11247 if(7<=maxpow) {
11248 res += 0.;
11249 }
11250
11251 if(8<=maxpow) {
11252 res += (1072.330292425316*pow(sh,-4) +
11253 1608.495438637974*L_mu*pow(sh,-4) -
11254 804.247719318987*lz*pow(sh,-4))*pow(z,4);
11255 }
11256
11257 if(9<=maxpow) {
11258 res += 0.;
11259 }
11260
11261 if(10<=maxpow) {
11262 res += (3574.434308084387*pow(sh,-5) +
11263 5361.651462126581*L_mu*pow(sh,-5) -
11264 2680.8257310632903*lz*pow(sh,-5))*pow(z,5);
11265 }
11266
11267 if(11<=maxpow) {
11268 res += 0.;
11269 }
11270
11271 if(12<=maxpow) {
11272 res += (12510.520078295354*pow(sh,-6) +
11273 18765.78011744303*L_mu*pow(sh,-6) -
11274 9382.890058721516*lz*pow(sh,-6))*pow(z,6);
11275 }
11276
11277 if(13<=maxpow) {
11278 res += 0.;
11279 }
11280
11281 if(14<=maxpow) {
11282 res += (45037.872281863274*pow(sh,-7) +
11283 67556.80842279491*L_mu*pow(sh,-7) -
11284 33778.40421139746*lz*pow(sh,-7))*pow(z,7);
11285 }
11286
11287 if(15<=maxpow) {
11288 res += 0.;
11289 }
11290
11291 if(16<=maxpow) {
11292 res += (165138.86503349867*pow(sh,-8) +
11293 247708.297550248*L_mu*pow(sh,-8) -
11294 123854.148775124*lz*pow(sh,-8))*pow(z,8);
11295 }
11296
11297 if(17<=maxpow) {
11298 res += 0.;
11299 }
11300
11301 if(18<=maxpow) {
11302 res += (613372.9272672808*pow(sh,-9) +
11303 920059.3909009212*L_mu*pow(sh,-9) -
11304 460029.6954504606*lz*pow(sh,-9))*pow(z,9);
11305 }
11306
11307 if(19<=maxpow) {
11308 res += 0.;
11309 }
11310
11311 if(20<=maxpow) {
11312 res += (2.300148477252303e6*pow(sh,-10) +
11313 3.4502227158784545e6*L_mu*pow(sh,-10) -
11314 1.7251113579392273e6*lz*pow(sh,-10))*pow(z,10);
11315 }
11316
11317 }
11318 return res;
11319}
11320
11321complex_t BV::A_Seidel(double s_hat, double L_b) {
11322 double z = 4./s_hat;
11323
11324 // In the limit s -> 0 limit
11325 if (fabs(s_hat) <= 1e-7) {
11326 return (1.1426611796982167 + 0.517134593183505 * I) +
11327 s_hat * ((-0.3221817635475234 - 0.23271056693257725 * I) +
11328 s_hat * ((-0.16999092571433885 + 0.23271056693257727 * I) +
11329 ((-0.13262865040070346 + 0.6981317007977318 * I) -
11330 (0.11612865336448869 - 1.1635528346628865 * I) * s_hat) * s_hat)) -
11331 0.8559670781893004 * L_b -
11332 s_hat * ((0.23868312757201646 - 0.4654211338651545 * I) +
11333 s_hat * ((-0.05761316872427984 - 0.46542113386515455 * I) +
11334 (-0.27983539094650206 - (0.4773662551440329 -
11335 0.9308422677303091 * I) * s_hat) * s_hat) +
11336 (-0.07407407407407407 - 0.22222222222222224 * s_hat) * (-s_hat * s_hat / 2));
11337 }
11338
11339 complex_t mu_b_term = -104. / 243. * 2. * L_b;
11340 if (fabs(s_hat - 1.0) < 1e-2) {
11341 const complex_t c0 = (997. + 18. * sqrt(3.) * PI) / 1458. + I * (64./243. * PI);
11342 const complex_t c1 = (215. + 9. * sqrt(3.) * PI) / 1215. + I * (-1./27. * PI);
11343 const complex_t c2 = (95. + 12. * sqrt(3.) * PI) / 2430. + I * (-7./405. * PI);
11344
11345 return mu_b_term + c0 + c1 * (1.-s_hat) + c2 * pow(1.-s_hat, 2);
11346 }
11347
11348 // MAJ : Check consistency of std::log with gsl::Li2 (see old comment below)
11349 /* In the A expression, for (CLi2(s_hat)+log(s_hat)*std::log(1.-s_hat)), the real part is calculated correctly
11350 * but the imaginary part above the branch cut is not (in principle it should get cancelled).
11351 * I fixed the CLi2 to use the same branch cut as std::log, so it can be used directly */
11352 complex_t Li2log_term = CLi2(s_hat)+std::log(s_hat)*std::log(1.-s_hat);
11353
11354 return 208./243.*L_b+4.*s_hat/27./(1.-s_hat)*Li2log_term
11355 +1./729./(1.-s_hat)/(1.-s_hat)*(6.*s_hat*(29.-47.*s_hat)*std::log(s_hat)+785.-1600.*s_hat+833.*s_hat*s_hat+6.*PI*I*(20.-49.*s_hat+47.*s_hat*s_hat))
11356 -2./243./pow(1.-s_hat,3.)*(2.*std::sqrt(z-1.)*(-4.+9.*s_hat-15.*s_hat*s_hat+4.*s_hat*s_hat*s_hat)*(PI/2.-std::atan(std::sqrt(z-1.)))+9.*s_hat*s_hat*s_hat*std::log(s_hat)*std::log(s_hat)+18.*PI*I*s_hat*(1.-2.*s_hat)*std::log(s_hat))
11357 +2.*s_hat/243./pow(1.-s_hat,4.)*(36.*std::pow(PI/2.-std::atan(std::sqrt(z-1.)),2.)+PI2*(-4.+9.*s_hat-9.*s_hat*s_hat+3.*s_hat*s_hat*s_hat));
11358}
11359
11360complex_t BV::B_Seidel(double s_hat, double L_b) {
11361 double z = 4./s_hat;
11362
11363 complex_t x1=0.5+0.5*I*std::sqrt(z-1.);
11364 complex_t x2=0.5-0.5*I*std::sqrt(z-1.);
11365 complex_t x3=0.5+0.5*I/std::sqrt(z-1.);
11366 complex_t x4=0.5-0.5*I/std::sqrt(z-1.);
11367
11368 if (fabs(s_hat - 1.0) < 1e-2) {
11369 complex_t mu_terms =
11370 8./243./s_hat * (4.-34.*s_hat-17.*PI*I*s_hat) * (-2*L_b)
11371 + 17.*s_hat * 8./243./s_hat * log(s_hat) * (-2*L_b)
11372 + (2.+s_hat) * std::sqrt(z-1.)/729./s_hat * (-48.) * (PI/2. - std::atan(std::sqrt(z-1.))) * (-2*L_b);
11373
11374 complex_t nonmu_terms = -1.2534705628994441 + 3.1545210184193809 * I +
11375 (-1.1399966466176837 - 1.3704066719362884 * I) * (s_hat - 1.0) +
11376 (0.77575942579740349 + 0.59987612809286587 * I) * pow(s_hat - 1.0, 2);
11377
11378 complex_t result = mu_terms + nonmu_terms;
11379 return result;
11380 }
11381
11382 /* In the A expression, for (CLi2(s_hat)+log(s_hat)*std::log(1.-s_hat)), the real part is calculated correctly
11383 * but the imaginary part above the branch cut is not (in principle it should get cancelled).
11384 * I fixed the CLi2 to use the same branch cut as std::log, so it can be used directly */
11385 complex_t Li2log_term = CLi2(s_hat)+std::log(s_hat)*std::log(1.-s_hat);
11386
11387 return 8./243./s_hat*((4.-34.*s_hat-17.*PI*I*s_hat)*(-2*L_b)+8.*s_hat*pow((-2*L_b),2.)+17.*s_hat*std::log(s_hat)*(-2*L_b))
11388 +(2.+s_hat)*std::sqrt(z-1.)/729./s_hat*(-48.*(-2*L_b)*(PI/2.-std::atan(std::sqrt(z-1.)))-18.*PI*std::log(z-1.)+3.*I*std::log(z-1.)*std::log(z-1.)
11389 -24.*I*CLi2(-x2/x1)-5.*PI2*I+6.*I*(-9.*std::log(x1)*std::log(x1)+std::log(x2)*std::log(x2)-2.*std::log(x4)*std::log(x4)+6.*std::log(x1)*std::log(x2)-4.*std::log(x1)*std::log(x3)+8.*std::log(x1)*std::log(x4))
11390 -12.*PI*(2.*std::log(x1)+std::log(x3)+std::log(x4)))
11391 -2./243./s_hat/(1.-s_hat)*(4.*s_hat*(-8.+17.*s_hat)*Li2log_term
11392 +3.*(2.+s_hat)*(3.-s_hat)*std::log(x2/x1)*std::log(x2/x1)+12.*PI*(-6.-s_hat+s_hat*s_hat)*(PI/2.-std::atan(std::sqrt(z-1.))))
11393 +2./2187./s_hat/(1.-s_hat)/(1.-s_hat)*(-18.*s_hat*(120.-211.*s_hat+73.*s_hat*s_hat)*std::log(s_hat)-288.-8.*s_hat+934.*s_hat*s_hat-692.*s_hat*s_hat*s_hat+18.*PI*I*s_hat*(82.-173.*s_hat+73.*s_hat*s_hat))
11394 -4./243./s_hat/pow(1.-s_hat,3.)*(-2.*std::sqrt(z-1.)*(4.-3.*s_hat-18.*s_hat*s_hat+16.*s_hat*s_hat*s_hat-5.*pow(s_hat,4.))*(PI/2.-std::atan(std::sqrt(z-1.)))-9.*s_hat*s_hat*s_hat*std::log(s_hat)*std::log(s_hat)+2.*PI*I*s_hat*(8.-33.*s_hat+51.*s_hat*s_hat-17.*s_hat*s_hat*s_hat)*std::log(s_hat))
11395 +2./729./s_hat/pow(1.-s_hat,4.)*(72.*(3.-8.*s_hat+2.*s_hat*s_hat)*std::pow(PI/2.-std::atan(std::sqrt(z-1.)),2.)-PI2*(54.-53.*s_hat-286.*s_hat*s_hat+612.*pow(s_hat,3.)-446.*pow(s_hat,4.)+113.*pow(s_hat,5.)));
11396}
11397
11398complex_t BV::C_Seidel(double s, double mu_b) {
11399 return -16./81.*std::log(s/mu_b/mu_b)+428./243.-64./27.*ZETA3+16./81.*PI*I;
11400}
11401
11402complex_t BV::f_17(double s, double L_b, double z, size_t max_pow) {
11403 return {f_17_re(s, L_b, z, max_pow), f_17_im(s, z, max_pow)};
11404}
11405
11406complex_t BV::f_27(double s, double L_b, double z, size_t max_pow) {
11407 if (fpeq(s, 0.0)) {
11408 double lz = std::log(z);
11409 double lz2 = lz * lz;
11410 double lz3 = lz2 * lz;
11411
11412 double re_f27_0 = 416. * L_b / 81. + 6.85597
11413 + z * (13.2214 + 15.6523 * lz - 0.88889 * lz2 - 0.29629625 * lz3)
11414 + std::pow(z, 1.5) * (-11.6973)
11415 + std::pow(z, 2) * (-11.182 + 13.9904 * lz - 0.29629625 * lz3)
11416 + std::pow(z, 3) * (7.26787 - 8.98765 * lz + 6.222225 * lz2);
11417
11418 double im_f27_0 = 3.10281
11419 + z * (-9.55118 - 5.58505 * lz - 5.58505 * lz2)
11420 + std::pow(z, 2) * (18.3741 - 5.58505 * lz2)
11421 + std::pow(z, 3) * (-17.3757 + 7.44675 * lz);
11422
11423 return {re_f27_0, im_f27_0};
11424 }
11425
11426 return {f_27_re(s, L_b, z, max_pow), f_27_im(s, z, max_pow)};
11427}
11428
11429complex_t BV::f_27_u(double s_hat, double L_b) {
11430 if (fpeq(s_hat, 0.0))
11431 return -416. * L_b / 81. -1666. / 243. - 80. * I * PI / 81.;
11432
11433 double z=4./s_hat;
11434 complex_t A=
11435 208./243.*L_b+4.*s_hat/27./(1.-s_hat)*(Li2(s_hat)+log(s_hat)*log(1.-s_hat))
11436 +1./729./(1.-s_hat)/(1.-s_hat)*(6.*s_hat*(29.-47.*s_hat)*log(s_hat)+785.-1600.*s_hat+833.*s_hat*s_hat+6.*PI*I*(20.-49.*s_hat+47.*s_hat*s_hat))
11437 -2./243./pow(1.-s_hat,3.)*(2.*std::sqrt(z-1.)*(-4.+9.*s_hat-15.*s_hat*s_hat+4.*s_hat*s_hat*s_hat)*(PI/2.-std::atan(std::sqrt(z-1.)))+9.*s_hat*s_hat*s_hat*log(s_hat)*log(s_hat)+18.*PI*I*s_hat*(1.-2.*s_hat)*log(s_hat))
11438 +2.*s_hat/243./pow(1.-s_hat,4.)*(36.*std::pow(PI/2.-std::atan(std::sqrt(z-1.)),2.)+PI2*(-4.+9.*s_hat-9.*s_hat*s_hat+3.*s_hat*s_hat*s_hat));
11439
11440 return -6.*A;
11441}
11442
11443complex_t BV::f_19_PS(double s, double L_b, double z, size_t max_pow) {
11444 return {f_19_re(s, L_b, z, max_pow), f_19_im(s, L_b, z, max_pow)};
11445}
11446
11447complex_t BV::f_29_PS(double s, double L_b, double z, size_t max_pow) {
11448 return {f_29_re(s, L_b, z, max_pow), f_29_im(s, L_b, z, max_pow)};
11449}
11450
11451complex_t BV::f_19_1S(double s, double L_b, double z, size_t max_pow) {
11452 return {f_19_re(s, L_b, z, max_pow) + delta_f_19_re(s, L_b, z, max_pow),
11453 f_19_im(s, L_b, z, max_pow) + delta_f_19_im(s, L_b, z, max_pow)};
11454}
11455
11456complex_t BV::f_19_u(double s_hat, double L_b) {
11457 double z=4./s_hat;
11458
11459 complex_t x1=0.5+0.5*I*std::sqrt(z-1.);
11460 complex_t x2=0.5-0.5*I*std::sqrt(z-1.);
11461 complex_t x3=0.5+0.5*I/std::sqrt(z-1.);
11462 complex_t x4=0.5-0.5*I/std::sqrt(z-1.);
11463
11464 complex_t B=
11465 8./243./s_hat*(-2.*(4.-34.*s_hat-17.*PI*I*s_hat)*L_b+8.*s_hat*pow(2.*L_b,2.)-17.*s_hat*log(s_hat)*2.*L_b)
11466 +(2.+s_hat)*std::sqrt(z-1.)/729./s_hat*(48.*2.*L_b*(PI/2.-std::atan(std::sqrt(z-1.)))-18.*PI*std::log(z-1.)+3.*I*std::log(z-1.)*std::log(z-1.)
11467 -24.*I*CLi2(-x2/x1)-5.*PI2*I+6.*I*(-9.*std::log(x1)*std::log(x1)+std::log(x2)*std::log(x2)-2.*std::log(x4)*std::log(x4)+6.*std::log(x1)*std::log(x2)-4.*std::log(x1)*std::log(x3)+8.*std::log(x1)*std::log(x4))
11468 -12.*PI*(2.*std::log(x1)+std::log(x3)+std::log(x4)))
11469 -2./243./s_hat/(1.-s_hat)*(4.*s_hat*(-8.+17.*s_hat)*(Li2(s_hat)+log(s_hat)*log(1.-s_hat))
11470 +3.*(2.+s_hat)*(3.-s_hat)*std::log(x2/x1)*std::log(x2/x1)+12.*PI*(-6.-s_hat+s_hat*s_hat)*(PI/2.-std::atan(std::sqrt(z-1.))))
11471 +2./2187./s_hat/(1.-s_hat)/(1.-s_hat)*(-18.*s_hat*(120.-211.*s_hat+73.*s_hat*s_hat)*log(s_hat)-288.-8.*s_hat+934.*s_hat*s_hat-692.*s_hat*s_hat*s_hat+18.*PI*I*s_hat*(82.-173.*s_hat+73.*s_hat*s_hat))
11472 -4./243./s_hat/pow(1.-s_hat,3.)*(-2.*std::sqrt(z-1.)*(4.-3.*s_hat-18.*s_hat*s_hat+16.*s_hat*s_hat*s_hat-5.*pow(s_hat,4.))*(PI/2.-std::atan(std::sqrt(z-1.)))-9.*s_hat*s_hat*s_hat*log(s_hat)*log(s_hat)+2.*PI*I*s_hat*(8.-33.*s_hat+51.*s_hat*s_hat-17.*s_hat*s_hat*s_hat)*log(s_hat))
11473 +2./729./s_hat/pow(1.-s_hat,4.)*(72.*(3.-8.*s_hat+2.*s_hat*s_hat)*std::pow(PI/2.-std::atan(std::sqrt(z-1.)),2.)-PI2*(54.-53.*s_hat-286.*s_hat*s_hat+612.*pow(s_hat,3.)-446.*pow(s_hat,4.)+113.*pow(s_hat,5.)));
11474
11475 complex_t C=-16./81.*(log(s_hat)-2.*L_b)+428./243.-64./27.*ZETA3+16./81.*PI*I;
11476
11477 return B+4.*C;
11478}
11479
11480complex_t BV::f_29_1S(double s, double L_b, double z, size_t max_pow) {
11481 return {f_29_re(s, L_b, z, max_pow) + delta_f_29_re(s, L_b, z, max_pow),
11482 f_29_im(s, L_b, z, max_pow) + delta_f_29_im(s, L_b, z, max_pow)};
11483}
11484
11485complex_t BV::f_29_u(double s_hat, double L_b) {
11486 double z=4./s_hat;
11487
11488 complex_t x1=0.5+0.5*I*std::sqrt(z-1.);
11489 complex_t x2=0.5-0.5*I*std::sqrt(z-1.);
11490 complex_t x3=0.5+0.5*I/std::sqrt(z-1.);
11491 complex_t x4=0.5-0.5*I/std::sqrt(z-1.);
11492
11493 complex_t B=
11494 8./243./s_hat*(-2.*(4.-34.*s_hat-17.*PI*I*s_hat)*L_b+8.*s_hat*pow(2.*L_b,2.)-17.*s_hat*log(s_hat)*2.*L_b)
11495 +(2.+s_hat)*std::sqrt(z-1.)/729./s_hat*(48.*2.*L_b*(PI/2.-std::atan(std::sqrt(z-1.)))-18.*PI*std::log(z-1.)+3.*I*std::log(z-1.)*std::log(z-1.)
11496 -24.*I*CLi2(-x2/x1)-5.*PI2*I+6.*I*(-9.*std::log(x1)*std::log(x1)+std::log(x2)*std::log(x2)-2.*std::log(x4)*std::log(x4)+6.*std::log(x1)*std::log(x2)-4.*std::log(x1)*std::log(x3)+8.*std::log(x1)*std::log(x4))
11497 -12.*PI*(2.*std::log(x1)+std::log(x3)+std::log(x4)))
11498 -2./243./s_hat/(1.-s_hat)*(4.*s_hat*(-8.+17.*s_hat)*(Li2(s_hat)+log(s_hat)*log(1.-s_hat))
11499 +3.*(2.+s_hat)*(3.-s_hat)*std::log(x2/x1)*std::log(x2/x1)+12.*PI*(-6.-s_hat+s_hat*s_hat)*(PI/2.-std::atan(std::sqrt(z-1.))))
11500 +2./2187./s_hat/(1.-s_hat)/(1.-s_hat)*(-18.*s_hat*(120.-211.*s_hat+73.*s_hat*s_hat)*log(s_hat)-288.-8.*s_hat+934.*s_hat*s_hat-692.*s_hat*s_hat*s_hat+18.*PI*I*s_hat*(82.-173.*s_hat+73.*s_hat*s_hat))
11501 -4./243./s_hat/pow(1.-s_hat,3.)*(-2.*std::sqrt(z-1.)*(4.-3.*s_hat-18.*s_hat*s_hat+16.*s_hat*s_hat*s_hat-5.*pow(s_hat,4.))*(PI/2.-std::atan(std::sqrt(z-1.)))-9.*s_hat*s_hat*s_hat*log(s_hat)*log(s_hat)+2.*PI*I*s_hat*(8.-33.*s_hat+51.*s_hat*s_hat-17.*s_hat*s_hat*s_hat)*log(s_hat))
11502 +2./729./s_hat/pow(1.-s_hat,4.)*(72.*(3.-8.*s_hat+2.*s_hat*s_hat)*std::pow(PI/2.-std::atan(std::sqrt(z-1.)),2.)-PI2*(54.-53.*s_hat-286.*s_hat*s_hat+612.*pow(s_hat,3.)-446.*pow(s_hat,4.)+113.*pow(s_hat,5.)));
11503
11504 complex_t C=-16./81.*(log(s_hat)-2.*L_b)+428./243.-64./27.*ZETA3+16./81.*PI*I;
11505 return -6.*B+3.*C;
11506}
11507
11508complex_t BV::f_87(double s, double L_b) {
11509 if (std::abs(1 - s) < 5e-3)
11510 return -32. / 9 * L_b - 94. / 27. + 148 * std::sqrt(3) * PI / 405 + s * (1 - 58 * std::sqrt(3) * PI / 405) - 8. * PI / 9. * I;
11511
11512 if (fpeq(s, 0.0))
11513 return -32. / 9 * L_b - 44. / 9. + 8. * PI2 / 27. - 8. * PI / 9. * I;
11514
11515 return 4.*PI2/27.*(2.+s)/pow(1.-s,4.)-4./9.*(11.-16.*s+8.*s*s)/(1.-s)/(1.-s)
11516 -8./9.*sqrt(s)*sqrt(4.-s)/pow(1.-s,3.)*(9.-5.*s+2.*s*s)*asin(sqrt(s)/2.)
11517 -16./3.*(2.+s)/pow(1.-s,4.)*pow(asin(sqrt(s)/2.),2.)
11518 -8.*s/9./(1.-s)*log(s)-32./9.*L_b-I*8./9.*PI;
11519}
11520
11521complex_t BV::f_89(double s) {
11522 if (std::abs(1 - s) < 5e-3)
11523 return -128. / 27. + 16 * std::sqrt(3) * PI / 45 + s * (2 - 28 * std::sqrt(3) * PI / 135);
11524
11525 return -8.*PI2/27.*(4.-s)/pow(1.-s,4.)+8./9.*(5.-2.*s)/(1.-s)/(1.-s)
11526 +16./9.*sqrt(4.-s)/sqrt(s)/pow(1.-s,3.)*(4.+3.*s-s*s)*asin(sqrt(s)/2.)
11527 +32./3.*(4.-s)/pow(1.-s,4.)*pow(asin(sqrt(s)/2.),2.)+16./9./(1.-s)*log(s);
11528}
11529
11530complex_t BV::h(double s, double m_q, double mu_b) {
11531 if(fpeq(m_q, 0.)) return 4./9.*(2./3.+I*PI+std::log(mu_b * mu_b / s));
11532
11533 double z=4.*m_q*m_q/s;
11534 double L = 2 * std::log(m_q / mu_b);
11535
11536 if(z>1.) return -4./9.*(L-2./3.-z)
11537 -4./9.*(2.+z)*sqrt(z-1.)*atan(1./sqrt(z-1.));
11538
11539 else return -4./9.*(L-2./3.-z)
11540 -4./9.*(2.+z)*sqrt(1.-z)*(log((1.+sqrt(1.-z))/sqrt(z))-I*PI/2.);
11541}
11542
11543complex_t BV::B_0(double s, double m_q) {
11544 double epsilon=1.e-10;
11545 return -2.*std::sqrt(4.*(m_q*m_q-I*epsilon)/s-1.)*std::atan(1./std::sqrt(4.*(m_q*m_q-I*epsilon)/s-1.));
11546}
11547
11548complex_t BV::L_1(complex_t x) {
11549 return std::log((x-1.)/x)*std::log(1.-x)-PI2/6.+CLi2(x/(x-1.));
11550}
11551
11552complex_t BV::I_1(double u, double s_hat, double m_q_hat) {
11553 if (fpeq(m_q_hat, 0.0)) return 1.;
11554
11555 double epsilon=1.e-10;
11556 double mq2 = m_q_hat * m_q_hat;
11557
11558 complex_t xp=0.5+std::sqrt(0.25-(mq2-I*epsilon)/((1.-u)+u*s_hat));
11559 complex_t xm=0.5-std::sqrt(0.25-(mq2-I*epsilon)/((1.-u)+u*s_hat));
11560
11561 if(fpeq(s_hat, 0.0)) { return 1.0 + 2 * mq2 / (1 - u) * (L_1(xp) + L_1(xm)); }
11562
11563 complex_t yp=0.5+std::sqrt(0.25-(mq2-I*epsilon)/s_hat);
11564 complex_t ym=0.5-std::sqrt(0.25-(mq2-I*epsilon)/s_hat);
11565
11566 return 1.+2.*mq2/(1.-u)/(1-s_hat)*(L_1(xp)+L_1(xm)-L_1(yp)-L_1(ym));
11567}
11568
11569complex_t BV::G(double xbar, double z) {
11570 double EPSILON = 1e-5;
11571 complex_t alpha = complex_t(z, -EPSILON);
11572
11573 if (xbar < EPSILON)
11574 return -2. * log(alpha) / 3.;
11575
11576 complex_t A = (xbar + 2. * alpha) * sqrt(xbar - 4. * alpha) / pow(xbar, 1.5);
11577 return 10. / 9 - 2. * log(alpha) / 3. + 8. * alpha / (3 * xbar) + 2. * A * log(-(xbar * (1. - A) + 2. * alpha) / (xbar * (1. + A) + 2. * alpha)) / 3.;
11578}
11579
11580complex_t BV::hard_kernel(double u, double z) {
11581 double EPSILON = 1e-5;
11582 complex_t rt = sqrt((u - 4 * z + I * EPSILON) / u);
11583 return (4 * z * (CLi2(2. / (1. - rt)) + CLi2(2. / (1. + rt))) / u - 2.) / u;
11584}
11585
11586complex_t BV::G2(double z, double L_b) {
11587 double lz = log(z);
11588 double lz2 = lz * lz;
11589 double lz3 = lz * lz2;
11590 complex_t a_0 {-833. / 162., -20. * PI / 27.};
11591 complex_t a_1 = 48. - 5. * PI2 - 36. * ZETA3 + I * (30. * PI - 2. * PI3) + (36. - 9. * PI2 + 6. * PI * I) * lz + (3. + 6. * PI * I) * lz2 + lz3;
11592 complex_t a_2 = 18. + 2. * PI2 - 2. * PI3 * I + (12. - 6. * PI2) * lz + 6. * PI * I * lz2 + lz3;
11593 complex_t a_3 = -9. - 14. * PI2 + 112. * PI * I + (182. - 48. * PI * I) * lz - 126. * lz2;
11594 complex_t g_2 = a_0 + 2. * (z * a_1 + z * z * a_2) / 9. + z * z * z * a_3 / 27. + 8. * PI2 * pow(z, 1.5) / 9.;
11595
11596 return 8 * L_b / 3 + g_2;
11597}
11598
11599complex_t BV::G8(double L_b) {
11600 complex_t g_8 = 11. / 3 - 2 * PI2 / 9 + 2. * I * PI / 3.;
11601 return -104 * L_b / 27 + g_8;
11602}
11603
11604complex_t KP::F(double z) {
11605 if (fpeq(z, 0.0)) return 0.0;
11606 complex_t _z {z};
11607 return 1.0 - 4.0 / _z * std::pow(std::asin(std::sqrt(_z) / 2.0), 2);
11608}
11609
11610complex_t KP::G(double z) {
11611 if (fpeq(z, 0.0)) return 1.0;
11612 complex_t _z {z};
11613 return std::sqrt(4.0 / _z - 1.0) * std::asin(std::sqrt(_z) / 2.0);
11614}
11615
11616complex_t KP::H(double z, double r_P) {
11617 double x = 1 / std::pow(r_P, 2);
11618 double y = z * x;
11619 return 1 / (2 * std::pow(1 - z, 2)) * (z * KP::F(y) - KP::F(x) - 2 * z * (KP::G(y) - KP::G(x)));
11620}
f_17_im
double f_17_im(double sh, double z, size_t maxpow)
Definition ObsMath.cpp:1902
f_27_im
double f_27_im(double sh, double z, size_t maxpow)
Definition ObsMath.cpp:7588
f_29_im
double f_29_im(double sh, double L_mu, double z, size_t maxpow)
Definition ObsMath.cpp:10337
delta_f_19_im
double delta_f_19_im(double sh, double L_mu, double z, size_t maxpow)
Definition ObsMath.cpp:5607
f_27_re
double f_27_re(double sh, double L_mu, double z, size_t maxpow)
Definition ObsMath.cpp:5724
delta_f_19_re
double delta_f_19_re(double sh, double L_mu, double z, size_t maxpow)
Definition ObsMath.cpp:5444
f_19_re
double f_19_re(double sh, double L_mu, double z, size_t maxpow)
Definition ObsMath.cpp:2539
f_17_re
double f_17_re(double sh, double L_mu, double z, size_t maxpow)
Definition ObsMath.cpp:5
delta_f_29_re
double delta_f_29_re(double sh, double L_mu, double z, size_t maxpow)
Definition ObsMath.cpp:11046
delta_f_29_im
double delta_f_29_im(double sh, double L_mu, double z, size_t maxpow)
Definition ObsMath.cpp:11204
f_19_im
double f_19_im(double sh, double L_mu, double z, size_t maxpow)
Definition ObsMath.cpp:4726
f_29_re
double f_29_re(double sh, double L_mu, double z, size_t maxpow)
Definition ObsMath.cpp:8220
complex_t
std::complex< double > complex_t
Convenience alias for std::complex<double>.
Definition Utils.h:35
PI
constexpr double PI
Definition constants.h:7
PI3
constexpr double PI3
Definition constants.h:9
I
constexpr std::complex< double > I
Definition constants.h:20
PI2
constexpr double PI2
Definition constants.h:8
ZETA3
constexpr double ZETA3
Definition constants.h:14
epsilon
constexpr double epsilon
Definition exponential_integral.cpp:3
BV::h
complex_t h(double s, double m_q, double mu_b)
Definition ObsMath.cpp:11530
BV::G2
complex_t G2(double z, double L_b)
Definition ObsMath.cpp:11586
BV::f_19_1S
complex_t f_19_1S(double s_hat, double L_b, double z, size_t max_pow=20)
Definition ObsMath.cpp:11451
BV::I_1
complex_t I_1(double u, double s_hat, double m_q_hat)
Definition ObsMath.cpp:11552
BV::G
complex_t G(double x_bar, double z)
Definition ObsMath.cpp:11569
BV::f_19_u
complex_t f_19_u(double s_hat, double L_b)
Definition ObsMath.cpp:11456
BV::f_27_u
complex_t f_27_u(double s_hat, double L_b)
Definition ObsMath.cpp:11429
BV::hard_kernel
complex_t hard_kernel(double u, double z)
Definition ObsMath.cpp:11580
BV::B_Seidel
complex_t B_Seidel(double s_hat, double L_b)
Definition ObsMath.cpp:11360
BV::f_19_PS
complex_t f_19_PS(double s_hat, double L_b, double z, size_t max_pow=20)
Definition ObsMath.cpp:11443
BV::G8
complex_t G8(double L_b)
Definition ObsMath.cpp:11599
BV::f_27
complex_t f_27(double s_hat, double L_b, double z, size_t max_pow=20)
Definition ObsMath.cpp:11406
BV::C_Seidel
complex_t C_Seidel(double s, double mu_b)
Definition ObsMath.cpp:11398
BV::B_0
complex_t B_0(double s, double m_q)
Definition ObsMath.cpp:11543
BV::f_29_1S
complex_t f_29_1S(double s_hat, double L_b, double z, size_t max_pow=20)
Definition ObsMath.cpp:11480
BV::f_29_u
complex_t f_29_u(double s_hat, double L_b)
Definition ObsMath.cpp:11485
BV::f_17
complex_t f_17(double s_hat, double L_b, double z, size_t max_pow=20)
Definition ObsMath.cpp:11402
BV::f_87
complex_t f_87(double s_hat, double L_b)
Definition ObsMath.cpp:11508
BV::L_1
complex_t L_1(complex_t x)
Definition ObsMath.cpp:11548
BV::A_Seidel
complex_t A_Seidel(double s_hat, double L_b)
Definition ObsMath.cpp:11321
BV::f_29_PS
complex_t f_29_PS(double s_hat, double L_b, double z, size_t max_pow=20)
Definition ObsMath.cpp:11447
BV::f_89
complex_t f_89(double s_hat)
Definition ObsMath.cpp:11521
KP::G
complex_t G(double z)
Definition ObsMath.cpp:11610
KP::H
complex_t H(double z, double r_P)
Definition ObsMath.cpp:11616
KP::F
complex_t F(double z)
Definition ObsMath.cpp:11604
CLi2
scalar_t CLi2(scalar_t x)
Computes the complex dilogarithm function.
Definition polylog.cpp:1312
Cl2
double Cl2(double x)
Computes the Clausen function Cl2(x).
Definition polylog.cpp:1333
Cl3
double Cl3(double x)
Computes the Clausen function Cl3(x).
Definition polylog.cpp:1337
CLi3
scalar_t CLi3(scalar_t x)
Computes the complex trilogarithm function.
Definition polylog.cpp:1320
CLi4
scalar_t CLi4(scalar_t x)
Computes the complex quadrilogarithm function.
Definition polylog.cpp:1326
Li2
double Li2(double x)
Computes the dilogarithm function Li2(x).
Definition polylog.cpp:1257
pow
scalar_t pow(const scalar_t &base, const scalar_t &exp)
Definition scalar.cpp:75
real
double real(const scalar_t &z)
Definition scalar.cpp:83
fpeq
std::enable_if_t< not std::numeric_limits< T >::is_integer, bool > fpeq(T, T, std::size_t n=10)
Compares two floating point numbers with a given precision.
Definition special_generic.h:107
special_SM.h