a Code for the Combination of Indirect and Direct Constraints on High Energy Physics Models Logo
F_1.cpp
Go to the documentation of this file.
1/*
2 * Copyright (C) 2017 HEPfit Collaboration
3 *
4 *
5 * For the licensing terms see doc/COPYING.
6 */
7
8/* Code derived from arXiv:0810.4077
9 * authors: Christoph Greub, Volker Pilipp, Christof Schüpbach
10 */
11
12#include "F_1.h"
13#include "hpl.h"
14
15F_1::F_1()
16{}
17
18F_1::~F_1()
19{}
20
21double F_1::F_17re(double muh, double z, double sh, int maxpow)
22{
23 double lz = log(z);
24 double lmu = log(muh);
25 double Lsh = log(sh);
26 double sh2 = pow(sh, 2);
27 double sh3 = pow(sh, 3);
28 double lz2 = pow(lz, 2);
29 double lz3 = pow(lz, 3);
30 double sqrtz = pow(z, 0.5);
31 double z2 = pow(z, 2);
32 double z3 = pow(z, 3);
33
34
35 double res = 0;
36
37 if (sh < 0.4) {
38 res = -1.14266 - 0.8559670781893005 * lmu - 2.07503 * sh -
39 0.0164609 * Lsh * sh - 0.222222 * lz * sh - 2.20356 * z -
40 2.608715 * lz * z - 25.9259 * sh * z + 1.03704 * Lsh * sh * z -
41 1.700505 * lz * sh * z + 0.2962965 * Lsh * lz * sh * z +
42 0.14814825 * z * lz2 - 1.122925 * sh * z * lz2 +
43 0.04938275 * z * lz3 + 0.04938275 * sh * z * lz3 -
44 0.024691375 * sh * z * pow(lz, 4) - 19.4691 * sh2 -
45 0.0164609 * Lsh * sh2 - 5.83895 * lz * sh2 -
46 90.4953 * z * sh2 + 2.37037 * Lsh * z * sh2 +
47 7.46645 * lz * z * sh2 + 0.592595 * Lsh * lz * z * sh2 -
48 0.74074 * lz2 * sh2 -
49 6.1095 * z * lz2 * sh2 -
50 0.04938275 * lz3 * sh2 +
51 0.14814875 * z * lz3 * sh2 -
52 0.074074375 * z * pow(lz, 4) * sh2 - 41.9952 * sh3 -
53 0.0164609 * Lsh * sh3 - 15.10455 * lz * sh3 -
54 189.354 * z * sh3 + 3.85185 * Lsh * z * sh3 +
55 21.3283 * lz * z * sh3 + 0.88889 * Lsh * lz * z * sh3 -
56 1.555555 * lz2 * sh3 -
57 14.44125 * z * lz2 * sh3 -
58 0.14814875 * lz3 * sh3 +
59 0.34567875 * z * lz3 * sh3 -
60 0.148148125 * z * pow(lz, 4) * sh3 -
61 0.00010778 * sh3 * pow(z, -2) +
62 0.00555556 * sh2 * pow(z, -1) +
63 0.946811 * sh3 * pow(z, -1) +
64 0.2444445 * lz * sh3 * pow(z, -1) +
65 0.02469135 * lz2 * sh3 * pow(z, -1) +
66 11.6973 * sh * sqrtz + 70.1839 * sh2 * sqrtz +
67 sh3*(-3.8991 * pow(z, -0.5) + 159.863 * sqrtz) +
68 1.94955 * pow(z, 1.5) + 1.86366 * z2 -
69 2.331735 * lz * z2 + 11.4229 * sh * z2 -
70 4.66347 * Lsh * sh * z2 - 17.0403 * lz * sh * z2 +
71 2.5926 * sh * lz2 * z2 +
72 0.5925925 * Lsh * sh * lz2 * z2 +
73 0.04938275 * lz3 * z2 +
74 0.29629625 * sh * lz3 * z2 +
75 23.8816 * sh2 * z2 -
76 13.9904 * Lsh * sh2 * z2 -
77 41.39575 * lz * sh2 * z2 +
78 1.185185 * Lsh * lz * sh2 * z2 +
79 8.074075 * lz2 * sh2 * z2 +
80 1.7777775 * Lsh * lz2 * sh2 * z2 +
81 0.74074125 * lz3 * sh2 * z2 +
82 45.1784 * sh3 * z2 -
83 27.3882 * Lsh * sh3 * z2 -
84 72.5905 * lz * sh3 * z2 +
85 4.14815 * Lsh * lz * sh3 * z2 +
86 17.7284 * lz2 * sh3 * z2 +
87 3.55555 * Lsh * lz2 * sh3 * z2 +
88 1.3827125 * lz3 * sh3 * z2 -
89 1.21131 * z3 + 1.49794 * lz * z3 +
90 11.7509 * sh * z3 + 6.73754 * Lsh * sh * z3 +
91 9.4782 * lz * sh * z3 + 0.592595 * Lsh * lz * sh * z3 -
92 1.0370375 * lz2 * z3 -
93 3.654325 * sh * lz2 * z3 -
94 0.5925925 * Lsh * sh * lz2 * z3 +
95 38.1415 * sh2 * z3 +
96 27.5428 * Lsh * sh2 * z3 +
97 19.3218 * lz * sh2 * z3 +
98 1.185185 * Lsh * lz * sh2 * z3 -
99 10.39505 * lz2 * sh2 * z3 -
100 2.37037 * Lsh * lz2 * sh2 * z3 +
101 77.3602 * sh3 * z3 +
102 69.4495 * Lsh * sh3 * z3 +
103 29.22455 * lz * sh3 * z3 +
104 0.592595 * Lsh * lz * sh3 * z3 -
105 24.0247 * lz2 * sh3 * z3 -
106 5.925925 * Lsh * lz2 * sh3 * z3;
107 } else {
108 double Lshb = log(1. - sh);
109 double sqrtsh = sqrt(sh);
110 double sqrt4sh = sqrt(4. - sh);
111 double Li2sh = real(Li2(sh));
112 double Li3sh = real(Li3(sh));
113 double Li3shb = real(Li3(1. - sh));
114 double Li4sh = real(Li4(sh));
115 double ash = asin(sqrtsh / 2.);
116 double cl2 = Cl2(2. * ash);
117 double cl3 = Cl3(2. * ash);
118 if (0 <= maxpow) {
119 if (sh < .900001)
120 res += (-0.8559670781893004 * lmu -
121 0.2962962962962963 * sh * pow(ash, 2) * pow(-1 + sh, -4) -
122 0.00823045267489712 * Lsh *
123 (29. - 18. * Lshb * (-1. + sh) - 47. * sh) * sh *
124 pow(-1 + sh, -2) + 0.14814814814814814 * Li2sh * sh *
125 pow(-1 + sh, -1) - 0.07407407407407407 * pow(Lsh, 2) *
126 pow(-1 + sh, -3) * pow(sh, 3) -
127 0.01646090534979424 * ash * sqrt4sh * sqrtsh * pow(-1 + sh, -3) *
128 pow(sh, -1)*(-4. + 9. * sh - 15. * pow(sh, 2) +
129 4. * pow(sh, 3)) - 0.0013717421124828531 *
130 pow(-1 + sh, -4)*(785. -
131 2. * sh * (1585. + 12. * pow(3.141592653589793, 2)) +
132 6. * (803. + 9. * pow(3.141592653589793, 2)) * pow(sh, 2) -
133 2. * (1633. + 27. * pow(3.141592653589793, 2)) *
134 pow(sh, 3) + (833. + 18. * pow(3.141592653589793, 2)) *
135 pow(sh, 4))) * pow(z, 0);
136 else
137 res += (-0.7509911973035993 - 0.21726138504882622 * (1. - sh) -
138 0.8559670781893004 * log(muh) -
139 0.0659657518981201 * pow(1. - sh, 2) -
140 0.03129640614981805 * pow(1. - sh, 3) -
141 0.017719628843137502 * pow(1. - sh, 4)) * pow(z, 0);
142 }
143
144 if (1 <= maxpow) {
145 if (sh < .900001)
146 res += 0.;
147 else
148 res += 0.;
149 }
150
151 if (2 <= maxpow) {
152 if (sh < .900001)
153 res += (0.04938271604938271 * sh * pow(Lsh, 4) * pow(-1 + sh, -3) -
154 0.2962962962962963 * Li2sh * (-1. + 4. * sh) *
155 pow(-1 + sh, -2) + 0.09876543209876543 * (-3. + sh) *
156 pow(Lsh, 3) * pow(-1 + sh, -2) -
157 lz * (-0.2962962962962963 * Lsh *
158 (2. + 2. * Lshb * (-1. + sh) + sh) * pow(-1 + sh, -2) -
159 0.5925925925925926 * Li2sh * pow(-1 + sh, -1) +
160 0.09876543209876543 * (9. + pow(3.141592653589793, 2)) *
161 pow(-1 + sh, -1) +
162 0.2962962962962963 * pow(Lsh, 2) * pow(-1 + sh, -1)) -
163 0.35616500834358344 * pow(-1 + sh, -3)*
164 (-5. + 5. * sh + 2. * pow(sh, 2)) -
165 0.2962962962962963 * Li3sh * pow(-1 + sh, -3)*
166 (-1. - 5. * sh + 4. * pow(sh, 2)) -
167 pow(Lsh, 2)*(-0.5925925925925926 * Li2sh * sh *
168 pow(-1 + sh, -3) -
169 0.04938271604938271 * pow(-1 + sh, -3)*
170 (12. + 3. * Lshb * (-5. + 3. * sh) +
171 sh * (-15. + 2. * pow(3.141592653589793, 2)) +
172 6. * pow(sh, 2))) -
173 Lsh * (-2.8493200667486676 * sh * pow(-1 + sh, -3) +
174 2.3703703703703702 * Li3sh * sh * pow(-1 + sh, -3) +
175 0.2962962962962963 * Li2sh * pow(-1 + sh, -3)*
176 (3. + sh - 2. * pow(sh, 2)) +
177 0.04938271604938271 * pow(-1 + sh, -3)*
178 (12. + 21. * sh +
179 (-5. + 3. * sh) * pow(3.141592653589793, 2) -
180 33. * pow(sh, 2) +
181 6. * Lshb * (1. - 5. * sh + 4. * pow(sh, 2)))) -
182 1.7777777777777777 * pow(ash, 2) * pow(-1 + sh, -4)*
183 (-1. - 3. * pow(sh, 2) + pow(sh, 3)) +
184 0.009876543209876543 * pow(-1 + sh, -4)*
185 (-4. * (-1. + sh) * sh * pow(3.141592653589793, 4) -
186 15. * (-1. + sh)*(10. - (17. + 24. * Li4sh) * sh +
187 7. * pow(sh, 2)) +
188 5. * pow(3.141592653589793, 2)*
189 (-6. + 16. * sh - 20. * pow(sh, 2) + 7. * pow(sh, 3))) -
190 0.8888888888888888 * ash * (1. + sh) * pow(-1 + sh, -3) *
191 pow(-((-4 + sh) * sh), 0.5)) * pow(z, 1);
192 else
193 res += (-1.5156467116109078 - 0.06864318910496076 * (1. - sh) +
194 0.19606872711735043 * pow(1. - sh, 2) +
195 0.3270513130738385 * pow(1. - sh, 3) +
196 log(z)*(0.4444444444444444 +
197 0.2962962962962963 * (1. - sh) +
198 0.23868312757201646 * pow(1. - sh, 2) +
199 0.20493827160493827 * pow(1. - sh, 3) +
200 0.1817283950617284 * pow(1. - sh, 4)) +
201 0.38673058027546225 * pow(1. - sh, 4)) * pow(z, 1);
202 }
203
204 if (3 <= maxpow) {
205 if (sh < .900001)
206 res += 0.19753086419753085 * (2. + sh) * pow(3.141592653589793, 2) *
207 pow(sh, -1) * pow(z, 1.5);
208 else
209 res += (5.848654459904805 + 3.8991029732698697 * (1. - sh) +
210 3.8991029732698697 * pow(1. - sh, 2) +
211 3.8991029732698697 * pow(1. - sh, 3) +
212 3.8991029732698697 * pow(1. - sh, 4)) * pow(z, 1.5);
213 }
214
215 if (4 <= maxpow) {
216 if (sh < .900001)
217 res += (-0.2962962962962963 * Li3sh * (5. + 3. * sh) * pow(-1 + sh, -3) +
218 0.2962962962962963 * Li3shb * (1. + 6. * sh) *
219 pow(-1 + sh, -3) + 0.14814814814814814 * pow(Lsh, 3) *
220 pow(-1 + sh, -3) - 0.8888888888888888 * ash * (-3. + sh) *
221 sqrt4sh * sqrtsh * pow(-1 + sh, -3) * pow(sh, 2) +
222 0.35616500834358344 * pow(-1 + sh, -4)*
223 (-5. + 8. * sh + 3. * pow(sh, 2)) +
224 0.2962962962962963 * Li2sh * pow(-1 + sh, -3) * pow(sh, -1)*
225 (3. - 10. * sh + 8. * pow(sh, 2)) -
226 0.8888888888888888 * pow(ash, 2) * pow(-1 + sh, -4) *
227 pow(sh, 2)*(2. + 9. * sh - 6. * pow(sh, 2) + pow(sh, 3)) -
228 0.07407407407407407 * pow(Lsh, 2) * pow(-1 + sh, -4) *
229 pow(sh, -2)*(-4. + 7. * sh + (5. + 6. * Lshb) * pow(sh, 2) -
230 (25. + 8. * Lshb) * pow(sh, 3) +
231 (11. + 2. * Lshb) * pow(sh, 4)) -
232 pow(lz, 2)*(0.14814814814814814 * Lsh * (1. + 6. * sh) *
233 pow(-1 + sh, -3) -
234 0.07407407407407407 * pow(-1 + sh, -2) * pow(sh, -2)*
235 (1. - 2. * sh + 8. * pow(sh, 2) + 10. * pow(sh, 3) -
236 4. * pow(sh, 4) + pow(sh, 5))) -
237 lz * (-10.666666666666666 * sh * pow(ash, 2) *
238 pow(-1 + sh, -4) -
239 0.2962962962962963 * Li2sh * (1. + 6. * sh) *
240 pow(-1 + sh, -3) -
241 0.14814814814814814 * pow(Lsh, 2) * pow(-1 + sh, -2) -
242 0.14814814814814814 * Lsh * pow(-1 + sh, -3) * pow(sh, -2)*
243 (2. - 3. * sh + 2. * (1. + Lshb) * pow(sh, 2) +
244 3. * (-1. + 4. * Lshb) * pow(sh, 3)) +
245 0.024691358024691357 * pow(-1 + sh, -4) * pow(sh, -2)*
246 (9. - 42. * sh + (81. - 2. * pow(3.141592653589793, 2)) *
247 pow(sh, 2) + 2. * (-6. + pow(3.141592653589793, 2)) *
248 pow(sh, 3) + 6. *
249 (-23. + 2. * pow(3.141592653589793, 2)) * pow(sh, 4)\
250 + 153. * pow(sh, 5) - 60. * pow(sh, 6) + 9. * pow(sh, 7))
251 - 0.5925925925925926 * ash * pow(-1 + sh, -3)*
252 (-4. - 3. * pow(sh, 2) + pow(sh, 3)) *
253 pow(-((-4 + sh) * sh), 0.5)) -
254 Lsh * (-5.333333333333333 * sh * pow(ash, 2) *
255 pow(-1 + sh, -4) -
256 0.2962962962962963 * Li2sh * (4. + sh) *
257 pow(-1 + sh, -3) -
258 0.024691358024691357 * pow(-1 + sh, -3) * pow(sh, -2)*
259 (-18. + (57. + 36. * Lshb) * sh -
260 6. * (5. + 20. * Lshb + pow(3.141592653589793, 2)) *
261 pow(sh, 2) + (-93. + 96. * Lshb +
262 50. * pow(3.141592653589793, 2)) * pow(sh, 3)) -
263 0.2962962962962963 * ash * pow(-1 + sh, -3)*
264 (-4. - 3. * pow(sh, 2) + pow(sh, 3)) *
265 pow(-((-4 + sh) * sh), 0.5)) +
266 0.012345679012345678 * pow(-1 + sh, -4) * pow(sh, -2)*
267 (2. * pow(3.141592653589793, 2)*
268 (-6. + 45. * sh - 133. * pow(sh, 2) + 157. * pow(sh, 3) -
269 59. * pow(sh, 4) + 12. * pow(sh, 5) - 12. * pow(sh, 6) +
270 2. * pow(sh, 7)) +
271 3. * (7. - 78. * sh + 7. * pow(sh, 7) +
272 pow(sh, 5)*(155. -
273 32. * cl2 * pow(-((-4 + sh) * sh), 0.5)) +
274 8. * pow(sh, 6)*
275 (-7. + cl2 * pow(-((-4 + sh) * sh), 0.5)) -
276 8. * pow(sh, 3)*(27. + 18. * cl3 +
277 4. * cl2 * pow(-((-4 + sh) * sh), 0.5)) +
278 pow(sh, 4)*(-62. +
279 24. * cl2 * pow(-((-4 + sh) * sh), 0.5)) +
280 pow(sh, 2)*(243. +
281 32. * cl2 * pow(-((-4 + sh) * sh), 0.5))))) * pow(z, 2);
282 else
283 res += pow(z, 2)*(-0.647637155328409 -
284 0.9413088193612421 * (1. - sh) -
285 0.8385255835044603 * pow(1. - sh, 2) -
286 1.1019705279460212 * pow(1. - sh, 3) -
287 1.6181578946132955 * pow(1. - sh, 4) +
288 log(z)*(1.7526351083839322 +
289 0.5609956120680696 * (1. - sh) +
290 1.1754785561935277 * pow(1. - sh, 2) +
291 1.6549606263554564 * pow(1. - sh, 3) +
292 2.1141011282028064 * pow(1. - sh, 4)) +
293 (0.09876543209876543 +
294 0.1111111111111111 * (1. - sh) +
295 0.23703703703703705 * pow(1. - sh, 2) +
296 0.3012345679012346 * pow(1. - sh, 3) +
297 0.37037037037037035 * pow(1. - sh, 4)) * pow(log(z), 2)
298 );
299 }
300
301 if (5 <= maxpow) {
302 if (sh < .900001)
303 res += 0.02633744855967078 * pow(3.141592653589793, 2) * pow(sh, -3)*
304 (3. + 14. * sh + 3. * pow(sh, 2)) * pow(z, 2.5);
305 else
306 res += (5.1988039643598265 + 10.397607928719653 * (1. - sh) +
307 16.376232487733454 * pow(1. - sh, 2) +
308 23.13467764140123 * pow(1. - sh, 3) +
309 30.672943389722974 * pow(1. - sh, 4)) * pow(z, 2.5);
310 }
311
312 if (6 <= maxpow) {
313 if (sh < .900001)
314 res += (1.1851851851851851 * Li3shb * sh * pow(-1 + sh, -4) -
315 0.5925925925925926 * Li3sh * pow(-1 + sh, -3) * pow(sh, -1) +
316 0.19753086419753085 * pow(Lsh, 3) * pow(-1 + sh, -3) *
317 pow(sh, -1) - 0.7123300166871669 * pow(-1 + sh, -4) *
318 pow(sh, -1)*(1. - sh + 2. * pow(sh, 2)) -
319 0.2962962962962963 * Li2sh * pow(-1 + sh, -4) * pow(sh, -2)*
320 (4. - 14. * sh + 18. * pow(sh, 2) - 11. * pow(sh, 3) +
321 pow(sh, 4)) - 0.19753086419753085 * cl2 * sh * sqrt4sh *
322 sqrtsh * pow(-1 + sh, -3)*
323 (-9. - sh + 9. * pow(sh, 2) - 6. * pow(sh, 3) +
324 pow(sh, 4)) - 0.06584362139917696 * ash * sh * sqrt4sh *
325 sqrtsh * pow(-1 + sh, -3)*
326 (27. - sh + 9. * pow(sh, 2) - 6. * pow(sh, 3) +
327 pow(sh, 4)) + 0.5925925925925926 * sh * pow(ash, 2) *
328 pow(-1 + sh, -4)*(-6. + 27. * sh - 30. * pow(sh, 3) +
329 27. * pow(sh, 4) - 9. * pow(sh, 5) + pow(sh, 6)) -
330 Lsh * (3.5555555555555554 * sh * pow(ash, 2) *
331 pow(-1 + sh, -4) -
332 0.5925925925925926 * Li2sh * pow(-1 + sh, -3) *
333 pow(sh, -1) + 0.19753086419753085 * ash * sh * sqrt4sh *
334 sqrtsh * pow(-1 + sh, -3)*
335 (-9. - sh + 9. * pow(sh, 2) - 6. * pow(sh, 3) +
336 pow(sh, 4)) + 0.00823045267489712 * pow(-1 + sh, -4) *
337 pow(sh, -4)*(-10. + 10. * sh +
338 6. * (23. + 24. * Lshb) * pow(sh, 2) -
339 2. * (67. + 252. * Lshb +
340 30. * pow(3.141592653589793, 2)) * pow(sh, 3) +
341 (-163. + 648. * Lshb +
342 60. * pow(3.141592653589793, 2)) * pow(sh, 4) -
343 12. * (-5. + 33. * Lshb +
344 6. * pow(3.141592653589793, 2)) * pow(sh, 5) +
345 9. * (-5. + 4. * Lshb) * pow(sh, 6))) -
346 0.012345679012345678 * pow(Lsh, 2) * pow(-1 + sh, -5) *
347 pow(sh, -4)*(8. + 8. * sh - 94. * pow(sh, 2) +
348 (94. - 24. * Lshb) * pow(sh, 3) +
349 (52. + 48. * Lshb) * pow(sh, 4) -
350 8. * (19. + 3. * Lshb) * pow(sh, 5) + 72. * pow(sh, 6) -
351 12. * pow(sh, 7)) -
352 pow(lz, 2)*(0.5925925925925926 * Lsh * sh *
353 pow(-1 + sh, -4) +
354 0.024691358024691357 * pow(-1 + sh, -3) * pow(sh, -4)*
355 (1. + 3. * sh - 18. * pow(sh, 2) + 25. * pow(sh, 3) -
356 36. * pow(sh, 4) + 26. * pow(sh, 5) - 27. * pow(sh, 6) -
357 22. * pow(sh, 7) + 38. * pow(sh, 8) - 16. * pow(sh, 9) +
358 2. * pow(sh, 10))) -
359 lz * (-1.1851851851851851 * Li2sh * sh * pow(-1 + sh, -4) +
360 7.111111111111111 * sh * pow(ash, 2) * pow(-1 + sh, -4) +
361 0.2962962962962963 * pow(Lsh, 2) * pow(-1 + sh, -3) *
362 pow(sh, -1) + 0.3950617283950617 * ash * sh * sqrt4sh *
363 sqrtsh * pow(-1 + sh, -3)*
364 (-9. - sh + 9. * pow(sh, 2) - 6. * pow(sh, 3) +
365 pow(sh, 4)) + 0.04938271604938271 * Lsh *
366 pow(-1 + sh, -4) * pow(sh, -4)*
367 (2. + 4. * sh - 27. * pow(sh, 2) + 22. * pow(sh, 3) +
368 14. * pow(sh, 4) - 12. * (1. + 2. * Lshb) * pow(sh, 5) +
369 9. * pow(sh, 6)) +
370 0.00823045267489712 * pow(-1 + sh, -3) * pow(sh, -4)*
371 (-5. + 57. * pow(sh, 2) - 46. * pow(sh, 3) -
372 85. * pow(sh, 4) + 164. * pow(sh, 5) - 73. * pow(sh, 6) +
373 102. * pow(sh, 7) - 40. * pow(sh, 8) - 4. * pow(sh, 9) +
374 2. * pow(sh, 10))) -
375 0.0013717421124828531 * pow(-1 + sh, -4) * pow(sh, -4)*
376 (-19. + 46. * sh + 1365. * pow(sh, 2) - 4435. * pow(sh, 3) +
377 3757. * pow(sh, 4) + (610. - 2592. * cl3) * pow(sh, 5) -
378 3103. * pow(sh, 6) + 2113. * pow(sh, 7) +
379 594. * pow(sh, 8) - 1548. * pow(sh, 9) +
380 714. * pow(sh, 10) - 94. * pow(sh, 11) +
381 6. * pow(3.141592653589793, 2)*
382 (6. + 12. * sh - 195. * pow(sh, 2) + 442. * pow(sh, 3) -
383 434. * pow(sh, 4) + 124. * pow(sh, 5) +
384 137. * pow(sh, 6) - 16. * pow(sh, 7) -
385 120. * pow(sh, 8) + 108. * pow(sh, 9) -
386 36. * pow(sh, 10) + 4. * pow(sh, 11)))) * pow(z, 3);
387 else
388 res += pow(z, 3)*(2.0558846293203854 -
389 5.023381570340977 * (1. - sh) -
390 7.761640024983791 * pow(1. - sh, 2) -
391 13.35266138630302 * pow(1. - sh, 3) -
392 24.65891981493292 * pow(1. - sh, 4) +
393 log(z)*(2.772759928702021 -
394 0.24604278849693273 * (1. - sh) +
395 3.842007139630303 * pow(1. - sh, 2) +
396 8.253815580345757 * pow(1. - sh, 3) +
397 13.162562518769866 * pow(1. - sh, 4)) +
398 (-0.2222222222222222 +
399 0.044444444444444446 * (1. - sh) +
400 0.9679012345679012 * pow(1. - sh, 2) +
401 1.689594356261023 * pow(1. - sh, 3) +
402 2.6807760141093473 * pow(1. - sh, 4)) * pow(log(z), 2));
403 }
404
405 if (7 <= maxpow) {
406 if (sh < .900001)
407 res += 0.002257495590828924 * pow(3.141592653589793, 2) * pow(sh, -5)*
408 (15. + 108. * sh + 314. * pow(sh, 2) + 108. * pow(sh, 3) +
409 15. * pow(sh, 4)) * pow(z, 3.5);
410 else
411 res += (12.477129514463583 + 37.43138854339075 * (1. - sh) +
412 78.60591594112057 * pow(1. - sh, 2) +
413 139.74385056199213 * pow(1. - sh, 3) +
414 224.92254008662476 * pow(1. - sh, 4)) * pow(z, 3.5);
415 }
416
417 if (8 <= maxpow) {
418 if (sh < .900001)
419 res += (1.1872166944786116 * pow(-1 + sh, -3) * pow(sh, -2) -
420 0.9876543209876543 * Li3sh * pow(-1 + sh, -3) * pow(sh, -2) +
421 0.3292181069958848 * pow(Lsh, 3) * pow(-1 + sh, -3) *
422 pow(sh, -2) + 0.2962962962962963 * cl2 * sh * sqrt4sh * sqrtsh *
423 (8. + 6. * sh - 6. * pow(sh, 2) + pow(sh, 3)) -
424 0.04938271604938271 * Li2sh * pow(-1 + sh, -5) * pow(sh, -3)*
425 (-50. + 230. * sh - 420. * pow(sh, 2) + 380. * pow(sh, 3) -
426 146. * pow(sh, 4) + 15. * pow(sh, 5)) +
427 0.04938271604938271 * ash * sh * sqrt4sh * sqrtsh *
428 pow(-1 + sh, -3)*(16. + 72. * sh + 18. * pow(sh, 2) -
429 203. * pow(sh, 3) + 189. * pow(sh, 4) - 63. * pow(sh, 5) +
430 7. * pow(sh, 6)) - 0.8888888888888888 * pow(ash, 2) *
431 pow(-1 + sh, -4) * pow(sh, 2)*
432 (36. - 60. * sh + 99. * pow(sh, 3) - 112. * pow(sh, 4) +
433 54. * pow(sh, 5) - 12. * pow(sh, 6) + pow(sh, 7)) -
434 Lsh * (-0.9876543209876543 * Li2sh * pow(-1 + sh, -3) *
435 pow(sh, -2) - 0.2962962962962963 * ash * sh * sqrt4sh *
436 sqrtsh * (8. + 6. * sh - 6. * pow(sh, 2) + pow(sh, 3)) +
437 0.0013717421124828531 * pow(-1 + sh, -5) * pow(sh, -6)*
438 (21. - 10. * sh - 307. * pow(sh, 2) -
439 (283. + 1800. * Lshb) * pow(sh, 3) +
440 5. * (437. + 1656. * Lshb +
441 120. * pow(3.141592653589793, 2)) * pow(sh, 4) -
442 2. * (1081. + 7560. * Lshb +
443 600. * pow(3.141592653589793, 2)) * pow(sh, 5) +
444 (253. + 13680. * Lshb +
445 600. * pow(3.141592653589793, 2)) * pow(sh, 6) +
446 (861. - 5256. * Lshb) * pow(sh, 7) +
447 6. * (49. + 90. * Lshb) * pow(sh, 8) - 78. * pow(sh, 9)))\
448 + 0.00823045267489712 * pow(Lsh, 2) * pow(-1 + sh, -6) *
449 pow(sh, -6)*(6. + 14. * sh - 30. * pow(sh, 2) -
450 255. * pow(sh, 3) + (729. - 60. * Lshb) * pow(sh, 4) +
451 45. * (-13. + 4. * Lshb) * pow(sh, 5) -
452 15. * (11. + 12. * Lshb) * pow(sh, 6) +
453 (541. + 60. * Lshb) * pow(sh, 7) - 270. * pow(sh, 8) +
454 45. * pow(sh, 9)) +
455 0.00411522633744856 * pow(lz, 2) * pow(sh, -6)*
456 (3. + 25. * sh + 90. * pow(sh, 2) - 60. * pow(sh, 3) +
457 5. * pow(sh, 4) - 3. * pow(sh, 5) - 144. * pow(sh, 6) -
458 252. * pow(sh, 7) + 72. * pow(sh, 8) + 288. * pow(sh, 9) -
459 144. * pow(sh, 10) + 18. * pow(sh, 11)) -
460 lz * (0.49382716049382713 * pow(Lsh, 2) * pow(-1 + sh, -3) *
461 pow(sh, -2) - 0.5925925925925926 * ash * sh * sqrt4sh *
462 sqrtsh * (8. + 6. * sh - 6. * pow(sh, 2) + pow(sh, 3)) +
463 0.01646090534979424 * Lsh * pow(-1 + sh, -5) * pow(sh, -6)*
464 (-3. - 10. * sh + 5. * pow(sh, 2) + 185. * pow(sh, 3) -
465 425. * pow(sh, 4) + 343. * pow(sh, 5) -
466 125. * pow(sh, 6) + 3. * pow(sh, 7) - 15. * pow(sh, 8) +
467 15. * pow(sh, 9)) +
468 0.00013717421124828533 * pow(-1 + sh, -4) * pow(sh, -6)*
469 (105. + 55. * sh - 1480. * pow(sh, 2) + 90. * pow(sh, 3) +
470 10470. * pow(sh, 4) - 25782. * pow(sh, 5) +
471 43242. * pow(sh, 6) - 52678. * pow(sh, 7) +
472 52987. * pow(sh, 8) - 14283. * pow(sh, 9) -
473 23976. * pow(sh, 10) + 3240. * pow(sh, 11) +
474 28080. * pow(sh, 12) - 22680. * pow(sh, 13) +
475 6480. * pow(sh, 14) - 630. * pow(sh, 15))) +
476 2.2862368541380887e-6 * pow(-1 + sh, -5) * pow(sh, -6)*
477 (-2775. + 5550. * sh + 34425. * pow(sh, 2) +
478 1.48905e6 * pow(sh, 3) - 7.4002e6 * pow(sh, 4) +
479 1.4083748e7 * pow(sh, 5) - 1.4200216e7 * pow(sh, 6) +
480 9.34426e6 * pow(sh, 7) - 5.568515e6 * pow(sh, 8) +
481 141850. * pow(sh, 9) + 4.948647e6 * pow(sh, 10) -
482 27324. * pow(sh, 11) - 8.9613e6 * pow(sh, 12) +
483 9.8388e6 * pow(sh, 13) - 4.6764e6 * pow(sh, 14) +
484 1.03725e6 * pow(sh, 15) - 86850. * pow(sh, 16) +
485 1200. * pow(3.141592653589793, 2)*
486 (9. + 30. * sh - 15. * pow(sh, 2) - 1245. * pow(sh, 3) +
487 4325. * pow(sh, 4) - 6463. * pow(sh, 5) +
488 5357. * pow(sh, 6) - 2657. * pow(sh, 7) +
489 295. * pow(sh, 8) + 1405. * pow(sh, 9) -
490 1014. * pow(sh, 10) - 1782. * pow(sh, 11) +
491 3798. * pow(sh, 12) - 2988. * pow(sh, 13) +
492 1188. * pow(sh, 14) - 234. * pow(sh, 15) +
493 18. * pow(sh, 16)))) * pow(z, 4);
494 else
495 res += pow(z, 4)*(4.166076007573638 -
496 29.482916540765096 * (1. - sh) -
497 51.76439651455935 * pow(1. - sh, 2) -
498 100.58418925538838 * pow(1. - sh, 3) -
499 217.9981110758939 * pow(1. - sh, 4) +
500 log(z)*(6.036523956202085 -
501 6.188787330687681 * (1. - sh) +
502 14.248013358351397 * pow(1. - sh, 2) +
503 42.62670356928015 * pow(1. - sh, 3) +
504 77.13858012891833 * pow(1. - sh, 4)) +
505 (-0.41975308641975306 +
506 0.24691358024691357 * (1. - sh) +
507 5.111111111111111 * pow(1. - sh, 2) +
508 9.74485596707819 * pow(1. - sh, 3) +
509 17.88477366255144 * pow(1. - sh, 4)) * pow(log(z), 2));
510 }
511
512 if (9 <= maxpow) {
513 if (sh < .900001)
514 res += 0.0005374989501973629 * pow(3.141592653589793, 2) * pow(sh, -7)*
515 (35. + 330. * sh + 1389. * pow(sh, 2) + 3212. * pow(sh, 3) +
516 1389. * pow(sh, 4) + 330. * pow(sh, 5) + 35. * pow(sh, 6)) *
517 pow(z, 4.5);
518 else
519 res += (35.64894146989595 + 142.5957658795838 * (1. - sh) +
520 372.5314383604127 * pow(1. - sh, 2) +
521 793.1889477051849 * pow(1. - sh, 3) +
522 1491.2079534505585 * pow(1. - sh, 4)) * pow(z, 4.5);
523 }
524
525 if (10 <= maxpow) {
526 if (sh < .900001)
527 res += (2.493155058405084 * pow(-1 + sh, -3) * pow(sh, -3) -
528 2.074074074074074 * Li3sh * pow(-1 + sh, -3) * pow(sh, -3) +
529 0.691358024691358 * pow(Lsh, 3) * pow(-1 + sh, -3) *
530 pow(sh, -3) - 0.5925925925925926 * cl2 * sqrt4sh * sqrtsh *
531 pow(sh, 2)*(-20. - 11. * sh + 24. * pow(sh, 2) -
532 9. * pow(sh, 3) + pow(sh, 4)) -
533 0.019753086419753086 * ash * sqrt4sh * sqrtsh *
534 pow(-1 + sh, -3) * pow(sh, 2)*
535 (630. - 1853. * sh - 99. * pow(sh, 2) + 4458. * pow(sh, 3) -
536 5217. * pow(sh, 4) + 2538. * pow(sh, 5) -
537 564. * pow(sh, 6) + 47. * pow(sh, 7)) +
538 0.09876543209876543 * Li2sh * pow(-1 + sh, -6) * pow(sh, -4)*
539 (-63. + 355. * sh - 826. * pow(sh, 2) + 1008. * pow(sh, 3) -
540 665. * pow(sh, 4) + 213. * pow(sh, 5) - 7. * pow(sh, 7) +
541 pow(sh, 8)) + 1.7777777777777777 * pow(ash, 2) *
542 pow(-1 + sh, -4) * pow(sh, 2)*
543 (10. - 90. * sh + 165. * pow(sh, 2) - 333. * pow(sh, 4) +
544 445. * pow(sh, 5) - 275. * pow(sh, 6) + 90. * pow(sh, 7) -
545 15. * pow(sh, 8) + pow(sh, 9)) -
546 Lsh * (-2.074074074074074 * Li2sh * pow(-1 + sh, -3) *
547 pow(sh, -3) + 0.5925925925925926 * ash * sqrt4sh * sqrtsh *
548 pow(sh, 2)*(-20. - 11. * sh + 24. * pow(sh, 2) -
549 9. * pow(sh, 3) + pow(sh, 4)) +
550 0.0000823045267489712 * pow(-1 + sh, -6) * pow(sh, -8)*
551 (-162. + 36. * sh + 2914. * pow(sh, 2) +
552 5862. * pow(sh, 3) +
553 30. * (-767. + 2520. * Lshb) * pow(sh, 4) -
554 8. * (2131. + 53250. * Lshb +
555 2625. * pow(3.141592653589793, 2)) * pow(sh, 5) +
556 8. * (12113. + 123900. * Lshb +
557 7875. * pow(3.141592653589793, 2)) * pow(sh, 6) -
558 18. * (5693. + 67200. * Lshb +
559 3500. * pow(3.141592653589793, 2)) * pow(sh, 7) +
560 3. * (15101. + 266000. * Lshb +
561 7000. * pow(3.141592653589793, 2)) * pow(sh, 8) -
562 50. * (259. + 5112. * Lshb) * pow(sh, 9) +
563 9600. * pow(sh, 10) +
564 150. * (11. + 56. * Lshb) * pow(sh, 11) -
565 25. * (25. + 48. * Lshb) * pow(sh, 12))) -
566 0.0024691358024691358 * pow(Lsh, 2) * pow(-1 + sh, -7) *
567 pow(sh, -8)*(12. + 42. * sh - 28. * pow(sh, 2) -
568 308. * pow(sh, 3) - 1533. * pow(sh, 4) +
569 (8318. - 420. * Lshb) * pow(sh, 5) +
570 6. * (-2237. + 280. * Lshb) * pow(sh, 6) -
571 56. * (-143. + 45. * Lshb) * pow(sh, 7) +
572 12. * (149. + 140. * Lshb) * pow(sh, 8) -
573 (4507. + 420. * Lshb) * pow(sh, 9) +
574 1540. * pow(sh, 10) + 140. * pow(sh, 11) -
575 160. * pow(sh, 12) + 20. * pow(sh, 13)) -
576 0.0012345679012345679 * pow(lz, 2) * pow(sh, -8)*
577 (-6. - 63. * sh - 301. * pow(sh, 2) - 840. * pow(sh, 3) +
578 630. * pow(sh, 4) - 99. * pow(sh, 5) + 153. * pow(sh, 6) +
579 6. * pow(sh, 7) + 1200. * pow(sh, 8) + 1440. * pow(sh, 9) +
580 3360. * pow(sh, 10) - 2400. * pow(sh, 11) -
581 5400. * pow(sh, 12) + 4800. * pow(sh, 13) -
582 1320. * pow(sh, 14) + 120. * pow(sh, 15)) -
583 lz * (1.037037037037037 * pow(Lsh, 2) * pow(-1 + sh, -3) *
584 pow(sh, -3) + 1.1851851851851851 * ash * sqrt4sh * sqrtsh *
585 pow(sh, 2)*(-20. - 11. * sh + 24. * pow(sh, 2) -
586 9. * pow(sh, 3) + pow(sh, 4)) +
587 0.0049382716049382715 * Lsh * pow(-1 + sh, -6) *
588 pow(sh, -8)*(6. + 27. * sh + 13. * pow(sh, 2) -
589 141. * pow(sh, 3) - 1380. * pow(sh, 4) +
590 5549. * pow(sh, 5) - 8207. * pow(sh, 6) +
591 6207. * pow(sh, 7) - 2809. * pow(sh, 8) +
592 1080. * pow(sh, 9) - 30. * pow(sh, 10) -
593 30. * pow(sh, 11) + 35. * pow(sh, 12)) +
594 0.000011757789535567314 * pow(-1 + sh, -5) * pow(sh, -8)*
595 (-567. - 441. * sh + 9758. * pow(sh, 2) +
596 30275. * pow(sh, 3) - 166495. * pow(sh, 4) +
597 20923. * pow(sh, 5) + 866054. * pow(sh, 6) -
598 1.788427e6 * pow(sh, 7) + 1.255755e6 * pow(sh, 8) +
599 458890. * pow(sh, 9) - 1.258076e6 * pow(sh, 10) +
600 55832. * pow(sh, 11) - 524481. * pow(sh, 12) +
601 2.826e6 * pow(sh, 13) - 901320. * pow(sh, 14) -
602 5.25168e6 * pow(sh, 15) + 7.8771e6 * pow(sh, 16) -
603 5.0799e6 * pow(sh, 17) + 1.7073e6 * pow(sh, 18) -
604 290640. * pow(sh, 19) + 19740. * pow(sh, 20))) -
605 1.3997368494722993e-8 * pow(-1 + sh, -6) * pow(sh, -8)*
606 (-161406. + 318843. * sh + 1.910657e6 * pow(sh, 2) -
607 738969. * pow(sh, 3) + 6.33135615e8 * pow(sh, 4) -
608 3.654733992e9 * pow(sh, 5) + 8.580730746e9 * pow(sh, 6) -
609 1.0387902666e10 * pow(sh, 7) +
610 6.272402572e9 * pow(sh, 8) - 4.35513965e8 * pow(sh, 9) -
611 2.310469467e9 * pow(sh, 10) +
612 2.213537811e9 * pow(sh, 11) -
613 4.191847021e9 * pow(sh, 12) +
614 8.659496442e9 * pow(sh, 13) -
615 5.00515056e9 * pow(sh, 14) -
616 1.057709688e10 * pow(sh, 15) +
617 2.294859924e10 * pow(sh, 16) -
618 2.03364504e10 * pow(sh, 17) +
619 1.00250472e10 * pow(sh, 18) -
620 2.83732932e9 * pow(sh, 19) + 4.2896364e8 * pow(sh, 20) -
621 2.674812e7 * pow(sh, 21) +
622 58800. * pow(3.141592653589793, 2)*
623 (18. + 81. * sh + 39. * pow(sh, 2) - 423. * pow(sh, 3) -
624 9810. * pow(sh, 4) + 47729. * pow(sh, 5) -
625 95467. * pow(sh, 6) + 103887. * pow(sh, 7) -
626 63289. * pow(sh, 8) + 15730. * pow(sh, 9) +
627 8388. * pow(sh, 10) - 21404. * pow(sh, 11) +
628 46029. * pow(sh, 12) - 50988. * pow(sh, 13) -
629 20160. * pow(sh, 14) + 133320. * pow(sh, 15) -
630 179760. * pow(sh, 16) + 130200. * pow(sh, 17) -
631 56400. * pow(sh, 18) + 14520. * pow(sh, 19) -
632 2040. * pow(sh, 20) + 120. * pow(sh, 21)))) * pow(z, 5);
633 else
634 res += pow(z, 5)*(9.495992115022151 -
635 144.07780670229167 * (1. - sh) -
636 287.1615196453904 * pow(1. - sh, 2) -
637 629.2386817194127 * pow(1. - sh, 3) -
638 1577.85840284407 * pow(1. - sh, 4) +
639 log(z)*(18.273866188842664 -
640 36.50758667966486 * (1. - sh) +
641 57.239414092843454 * pow(1. - sh, 2) +
642 217.34199886507017 * pow(1. - sh, 3) +
643 420.0317629604588 * pow(1. - sh, 4)) +
644 (-1.5802469135802468 +
645 0.2962962962962963 * (1. - sh) +
646 25. * pow(1. - sh, 2) +
647 51.65432098765432 * pow(1. - sh, 3) +
648 108.14814814814815 * pow(1. - sh, 4)) * pow(log(z), 2));
649 }
650
651 if (11 <= maxpow) {
652 if (sh < .900001)
653 res += 0.000038004976276581215 * pow(3.141592653589793, 2) * pow(sh, -9)*
654 (315. + 3640. * sh + 19380. * pow(sh, 2) + 62088. * pow(sh, 3) +
655 124834. * pow(sh, 4) + 62088. * pow(sh, 5) +
656 19380. * pow(sh, 6) + 3640. * pow(sh, 7) + 315. * pow(sh, 8)) *
657 pow(z, 5.5);
658 else
659 res += (110.90781790634296 + 554.5390895317148 * (1. - sh) +
660 1730.1619593389503 * pow(1. - sh, 2) +
661 4281.041771184839 * pow(1. - sh, 3) +
662 9178.810229798877 * pow(1. - sh, 4)) * pow(z, 5.5);
663 }
664
665 if (12 <= maxpow) {
666 if (sh < .900001)
667 res += (5.983572140172202 * pow(-1 + sh, -3) * pow(sh, -4) -
668 4.977777777777778 * Li3sh * pow(-1 + sh, -3) * pow(sh, -4) +
669 1.6592592592592592 * pow(Lsh, 3) * pow(-1 + sh, -3) *
670 pow(sh, -4) + 0.691358024691358 * cl2 * sqrt4sh * sqrtsh *
671 pow(sh, 2)*(-8. + 102. * sh + 39. * pow(sh, 2) -
672 168. * pow(sh, 3) + 102. * pow(sh, 4) - 24. * pow(sh, 5) +
673 2. * pow(sh, 6)) + 0.006584362139917695 * ash * sqrt4sh *
674 sqrtsh * pow(-1 + sh, -3) * pow(sh, 2)*
675 (1236. - 20412. * sh + 48897. * pow(sh, 2) -
676 963. * pow(sh, 3) - 119097. * pow(sh, 4) +
677 165591. * pow(sh, 5) - 103846. * pow(sh, 6) +
678 34110. * pow(sh, 7) - 5685. * pow(sh, 8) + 379. * pow(sh, 9))
679 - 2.074074074074074 * pow(ash, 2) * pow(-1 + sh, -4) *
680 pow(sh, 3)*(-90. + 560. * sh - 999. * pow(sh, 2) +
681 2278. * pow(sh, 4) - 3456. * pow(sh, 5) +
682 2565. * pow(sh, 6) - 1092. * pow(sh, 7) +
683 270. * pow(sh, 8) - 36. * pow(sh, 9) + 2. * pow(sh, 10)) +
684 0.0049382716049382715 * Li2sh * pow(-1 + sh, -7) * pow(sh, -5)*
685 (3528. - 23478. * sh + 66420. * pow(sh, 2) -
686 102960. * pow(sh, 3) + 93240. * pow(sh, 4) -
687 47628. * pow(sh, 5) + 10808. * pow(sh, 6) -
688 135. * pow(sh, 9) + 30. * pow(sh, 10)) -
689 Lsh * (-4.977777777777778 * Li2sh * pow(-1 + sh, -3) *
690 pow(sh, -4) - 0.691358024691358 * ash * sqrt4sh * sqrtsh *
691 pow(sh, 2)*(-8. + 102. * sh + 39. * pow(sh, 2) -
692 168. * pow(sh, 3) + 102. * pow(sh, 4) -
693 24. * pow(sh, 5) + 2. * pow(sh, 6)) +
694 0.00001646090534979424 * pow(-1 + sh, -7) * pow(sh, -10)*
695 (440. - 32. * sh - 10212. * pow(sh, 2) -
696 23632. * pow(sh, 3) + 7888. * pow(sh, 4) -
697 168. * (-2921. + 6300. * Lshb) * pow(sh, 5) +
698 18. * (-60791. + 391300. * Lshb +
699 14000. * pow(3.141592653589793, 2)) * pow(sh, 6) -
700 6. * (-91207. + 3.321e6 * Lshb +
701 168000. * pow(3.141592653589793, 2)) * pow(sh, 7) +
702 216. * (3607. + 143000. * Lshb +
703 7000. * pow(3.141592653589793, 2)) * pow(sh, 8) -
704 6. * (202093. + 4.662e6 * Lshb +
705 168000. * pow(3.141592653589793, 2)) * pow(sh, 9) +
706 6. * (113557. + 2.3814e6 * Lshb +
707 42000. * pow(3.141592653589793, 2)) * pow(sh, 10) -
708 15. * (16441. + 216160. * Lshb) * pow(sh, 11) +
709 20060. * pow(sh, 12) + 42310. * pow(sh, 13) +
710 45. * (23. + 900. * Lshb) * pow(sh, 14) -
711 45. * (41. + 200. * Lshb) * pow(sh, 15))) -
712 0.0004938271604938272 * pow(Lsh, 2) * pow(-1 + sh, -8) *
713 pow(sh, -10)*(-40. - 184. * sh - 40. * pow(sh, 2) +
714 1160. * pow(sh, 3) + 2240. * pow(sh, 4) +
715 16100. * pow(sh, 5) +
716 144. * (-936. + 35. * Lshb) * pow(sh, 6) +
717 (321315. - 25200. * Lshb) * pow(sh, 7) +
718 15. * (-23729. + 3360. * Lshb) * pow(sh, 8) -
719 160. * (-1006. + 315. * Lshb) * pow(sh, 9) +
720 40. * (859. + 630. * Lshb) * pow(sh, 10) -
721 2. * (31921. + 2520. * Lshb) * pow(sh, 11) +
722 18270. * pow(sh, 12) + 675. * pow(sh, 14) -
723 825. * pow(sh, 15) + 150. * pow(sh, 16)) -
724 0.0004938271604938272 * pow(lz, 2) * pow(sh, -10)*
725 (-10. - 126. * sh - 738. * pow(sh, 2) - 2646. * pow(sh, 3) -
726 6300. * pow(sh, 4) + 5040. * pow(sh, 5) -
727 1194. * pow(sh, 6) + 873. * pow(sh, 7) +
728 1791. * pow(sh, 8) + 10. * pow(sh, 9) +
729 8400. * pow(sh, 10) + 9100. * pow(sh, 11) +
730 11200. * pow(sh, 12) + 46900. * pow(sh, 13) -
731 47600. * pow(sh, 14) - 86450. * pow(sh, 15) +
732 116200. * pow(sh, 16) - 51100. * pow(sh, 17) +
733 9800. * pow(sh, 18) - 700. * pow(sh, 19)) -
734 lz * (2.488888888888889 * pow(Lsh, 2) * pow(-1 + sh, -3) *
735 pow(sh, -4) - 1.382716049382716 * ash * sqrt4sh * sqrtsh *
736 pow(sh, 2)*(-8. + 102. * sh + 39. * pow(sh, 2) -
737 168. * pow(sh, 3) + 102. * pow(sh, 4) -
738 24. * pow(sh, 5) + 2. * pow(sh, 6)) +
739 0.0009876543209876543 * Lsh * pow(-1 + sh, -7) *
740 pow(sh, -10)*(-20. - 112. * sh - 132. * pow(sh, 2) +
741 448. * pow(sh, 3) + 1568. * pow(sh, 4) +
742 16548. * pow(sh, 5) - 99448. * pow(sh, 6) +
743 212137. * pow(sh, 7) - 240168. * pow(sh, 8) +
744 162112. * pow(sh, 9) - 68488. * pow(sh, 10) +
745 15610. * pow(sh, 11) - 980. * pow(sh, 12) +
746 20. * pow(sh, 13) - 105. * pow(sh, 14) +
747 135. * pow(sh, 15)) +
748 7.838526357044875e-7 * pow(-1 + sh, -6) * pow(sh, -10)*
749 (4620. + 4284. * sh - 102942. * pow(sh, 2) -
750 351078. * pow(sh, 3) - 268254. * pow(sh, 4) +
751 1.062621e7 * pow(sh, 5) - 2.1816102e7 * pow(sh, 6) -
752 1.1713284e7 * pow(sh, 7) + 9.2176614e7 * pow(sh, 8) -
753 1.30993468e8 * pow(sh, 9) +
754 9.7705975e7 * pow(sh, 10) -
755 8.3020137e7 * pow(sh, 11) +
756 1.22513471e8 * pow(sh, 12) -
757 1.48849691e8 * pow(sh, 13) +
758 1.22190192e8 * pow(sh, 14) +
759 1.1648879e8 * pow(sh, 15) - 5.630639e8 * pow(sh, 16) +
760 4.247208e8 * pow(sh, 17) + 8.672076e8 * pow(sh, 18) -
761 2.255526e9 * pow(sh, 19) + 2.3724372e9 * pow(sh, 20) -
762 1.4385273e9 * pow(sh, 21) + 5.355966e8 * pow(sh, 22) -
763 1.205778e8 * pow(sh, 23) + 1.5036e7 * pow(sh, 24) -
764 795900. * pow(sh, 25))) -
765 6.22105266432133e-10 * pow(-1 + sh, -7) * pow(sh, -10)*
766 (1.60524e6 - 3.372768e6 * sh - 2.1255318e7 * pow(sh, 2) +
767 5.1364152e7 * pow(sh, 3) + 1.37438532e8 * pow(sh, 4) -
768 4.2259525308e10 * pow(sh, 5) +
769 2.74794978024e11 * pow(sh, 6) -
770 7.61157740601e11 * pow(sh, 7) +
771 1.144773779814e12 * pow(sh, 8) -
772 9.93234387676e11 * pow(sh, 9) +
773 5.07224614904e11 * pow(sh, 10) -
774 2.38950893986e11 * pow(sh, 11) +
775 2.88773890244e11 * pow(sh, 12) -
776 3.74015495266e11 * pow(sh, 13) +
777 2.45587937594e11 * pow(sh, 14) +
778 5.02610946089e11 * pow(sh, 15) -
779 1.90653668497e12 * pow(sh, 16) +
780 2.1081380789e12 * pow(sh, 17) +
781 1.1357177076e12 * pow(sh, 18) -
782 6.24126592845e12 * pow(sh, 19) +
783 8.68889605815e12 * pow(sh, 20) -
784 6.88407273225e12 * pow(sh, 21) +
785 3.47059394955e12 * pow(sh, 22) -
786 1.1307208248e12 * pow(sh, 23) +
787 2.301705126e11 * pow(sh, 24) -
788 2.65567113e10 * pow(sh, 25) + 1.3226913e9 * pow(sh, 26) -
789 264600. * pow(3.141592653589793, 2)*
790 (60. + 336. * sh + 396. * pow(sh, 2) -
791 1344. * pow(sh, 3) - 4704. * pow(sh, 4) -
792 127764. * pow(sh, 5) + 807808. * pow(sh, 6) -
793 2.054287e6 * pow(sh, 7) + 2.890968e6 * pow(sh, 8) -
794 2.434312e6 * pow(sh, 9) + 1.206688e6 * pow(sh, 10) -
795 345954. * pow(sh, 11) + 158816. * pow(sh, 12) -
796 132224. * pow(sh, 13) - 435459. * pow(sh, 14) +
797 2.009791e6 * pow(sh, 15) - 3.32854e6 * pow(sh, 16) +
798 895300. * pow(sh, 17) + 6.5037e6 * pow(sh, 18) -
799 1.38369e7 * pow(sh, 19) + 1.50031e7 * pow(sh, 20) -
800 1.02879e7 * pow(sh, 21) + 4.6809e6 * pow(sh, 22) -
801 1.4084e6 * pow(sh, 23) + 268800. * pow(sh, 24) -
802 29400. * pow(sh, 25) + 1400. * pow(sh, 26)))) * pow(z, 6);
803 else
804 res += pow(z, 6)*(24.733805819607653 -
805 658.4526886654753 * (1. - sh) -
806 1475.1364432727344 * pow(1. - sh, 2) -
807 3606.730264376797 * pow(1. - sh, 3) -
808 10286.147459271095 * pow(1. - sh, 4) +
809 log(z)*(60.344916140667145 -
810 182.02114574142348 * (1. - sh) +
811 236.5865278308859 * pow(1. - sh, 2) +
812 1085.4690469343443 * pow(1. - sh, 3) +
813 2155.306243897463 * pow(1. - sh, 4)) +
814 (-7.148148148148148 + sh +
815 120.49135802469135 * pow(1. - sh, 2) +
816 264.53827160493825 * pow(1. - sh, 3) +
817 620.7407407407408 * pow(1. - sh, 4)) * pow(log(z), 2));
818 }
819
820 if (13 <= maxpow) {
821 if (sh < .900001)
822 res += 0.000011959607919203879 * pow(3.141592653589793, 2) *
823 pow(sh, -11)*(693. + 9450. * sh + 60305. * pow(sh, 2) +
824 238200. * pow(sh, 3) + 642234. * pow(sh, 4) +
825 1.173308e6 * pow(sh, 5) + 642234. * pow(sh, 6) +
826 238200. * pow(sh, 7) + 60305. * pow(sh, 8) +
827 9450. * pow(sh, 9) + 693. * pow(sh, 10)) * pow(z, 6.5);
828 else
829 res += (362.9710404207588 + 2177.8262425245525 * (1. - sh) +
830 7894.6201291515035 * pow(1. - sh, 2) +
831 22231.97622577148 * pow(1. - sh, 3) +
832 53453.96732767853 * pow(1. - sh, 4)) * pow(z, 6.5);
833 }
834
835 if (14 <= maxpow) {
836 if (sh < .900001)
837 res += (15.671260367117672 * pow(-1 + sh, -3) * pow(sh, -5) -
838 13.037037037037036 * Li3sh * pow(-1 + sh, -3) * pow(sh, -5) +
839 4.345679012345679 * pow(Lsh, 3) * pow(-1 + sh, -3) *
840 pow(sh, -5) - 0.35555555555555557 * cl2 * sqrt4sh * sqrtsh *
841 pow(sh, 3)*(252. - 1383. * sh - 342. * pow(sh, 2) +
842 2808. * pow(sh, 3) - 2380. * pow(sh, 4) +
843 870. * pow(sh, 5) - 150. * pow(sh, 6) + 10. * pow(sh, 7)) -
844 0.005643738977072311 * ash * sqrt4sh * sqrtsh *
845 pow(-1 + sh, -3) * pow(sh, 3)*
846 (-28035. + 242727. * sh - 521748. * pow(sh, 2) +
847 32319. * pow(sh, 3) + 1.309096e6 * pow(sh, 4) -
848 2.07882e6 * pow(sh, 5) + 1.572282e6 * pow(sh, 6) -
849 674165. * pow(sh, 7) + 166995. * pow(sh, 8) -
850 22266. * pow(sh, 9) + 1237. * pow(sh, 10)) +
851 0.05925925925925926 * Li2sh * pow(-1 + sh, -8) * pow(sh, -6)*
852 (-880. + 6748. * sh - 22484. * pow(sh, 2) +
853 42350. * pow(sh, 3) - 48950. * pow(sh, 4) +
854 34980. * pow(sh, 5) - 14476. * pow(sh, 6) +
855 2770. * pow(sh, 7) - 11. * pow(sh, 11) + 3. * pow(sh, 12)) +
856 1.0666666666666667 * pow(ash, 2) * pow(-1 + sh, -4) *
857 pow(sh, 3)*(-70. + 1890. * sh - 9345. * pow(sh, 2) +
858 15946. * pow(sh, 3) - 39510. * pow(sh, 5) +
859 66255. * pow(sh, 6) - 56700. * pow(sh, 7) +
860 29358. * pow(sh, 8) - 9520. * pow(sh, 9) +
861 1890. * pow(sh, 10) - 210. * pow(sh, 11) + 10. * pow(sh, 12))
862 - Lsh * (-13.037037037037036 * Li2sh * pow(-1 + sh, -3) *
863 pow(sh, -5) + 0.35555555555555557 * ash * sqrt4sh *
864 sqrtsh * pow(sh, 3)*
865 (252. - 1383. * sh - 342. * pow(sh, 2) +
866 2808. * pow(sh, 3) - 2380. * pow(sh, 4) +
867 870. * pow(sh, 5) - 150. * pow(sh, 6) + 10. * pow(sh, 7))\
868 + 1.1197894795778394e-6 * pow(-1 + sh, -8) *
869 pow(sh, -12)*(-3900. - 100. * sh +
870 116036. * pow(sh, 2) + 329570. * pow(sh, 3) -
871 93490. * pow(sh, 4) - 1.36222e6 * pow(sh, 5) +
872 140. * (-163613. + 332640. * Lshb) * pow(sh, 6) -
873 2. * (-5.1887161e7 + 1.7855208e8 * Lshb +
874 4.851e6 * pow(3.141592653589793, 2)) * pow(sh, 7) +
875 2. * (-9.0883589e7 + 5.9492664e8 * Lshb +
876 2.4255e7 * pow(3.141592653589793, 2)) * pow(sh, 8)\
877 - 880. * (-178124. + 2.546775e6 * Lshb +
878 110250. * pow(3.141592653589793, 2)) * pow(sh, 9) +
879 5. * (-1.1387749e7 + 5.180868e8 * Lshb +
880 1.9404e7 * pow(3.141592653589793, 2)) * pow(sh, 10)\
881 - 5. * (1.387987e6 + 3.7022832e8 * Lshb +
882 9.702e6 * pow(3.141592653589793, 2)) * pow(sh, 11)\
883 + (1.1437831e7 + 7.6606992e8 * Lshb +
884 9.702e6 * pow(3.141592653589793, 2)) * pow(sh, 12)\
885 - 28. * (18397. + 5.2353e6 * Lshb) * pow(sh, 13) -
886 936145. * pow(sh, 14) + 351575. * pow(sh, 15) +
887 587265. * pow(sh, 16) +
888 1176. * (-38. + 495. * Lshb) * pow(sh, 17) -
889 294. * (61. + 540. * Lshb) * pow(sh, 18))) -
890 0.00023515579071134627 * pow(Lsh, 2) * pow(-1 + sh, -9) *
891 pow(sh, -12)*(60. + 340. * sh + 312. * pow(sh, 2) -
892 1872. * pow(sh, 3) - 4980. * pow(sh, 4) -
893 1620. * pow(sh, 5) - 92970. * pow(sh, 6) +
894 (934391. - 27720. * Lshb) * pow(sh, 7) +
895 30. * (-97057. + 5544. * Lshb) * pow(sh, 8) +
896 (4.537599e6 - 415800. * Lshb) * pow(sh, 9) +
897 5. * (-756467. + 110880. * Lshb) * pow(sh, 10) -
898 15. * (-89267. + 27720. * Lshb) * pow(sh, 11) +
899 6. * (48563. + 27720. * Lshb) * pow(sh, 12) -
900 10. * (40823. + 2772. * Lshb) * pow(sh, 13) +
901 99792. * pow(sh, 14) + 1386. * pow(sh, 17) -
902 1764. * pow(sh, 18) + 378. * pow(sh, 19)) -
903 0.00023515579071134627 * pow(lz, 2) * pow(sh, -12)*
904 (-15. - 220. * sh - 1518. * pow(sh, 2) - 6534. * pow(sh, 3) -
905 19503. * pow(sh, 4) - 41580. * pow(sh, 5) +
906 34650. * pow(sh, 6) - 11094. * pow(sh, 7) +
907 2061. * pow(sh, 8) + 13740. * pow(sh, 9) +
908 12253. * pow(sh, 10) + 15. * pow(sh, 11) +
909 52920. * pow(sh, 12) + 55188. * pow(sh, 13) +
910 61992. * pow(sh, 14) + 49140. * pow(sh, 15) +
911 706860. * pow(sh, 16) - 807030. * pow(sh, 17) -
912 1.307124e6 * pow(sh, 18) + 2.391984e6 * pow(sh, 19) -
913 1.45908e6 * pow(sh, 20) + 434700. * pow(sh, 21) -
914 64260. * pow(sh, 22) + 3780. * pow(sh, 23)) -
915 lz * (6.518518518518518 * pow(Lsh, 2) * pow(-1 + sh, -3) *
916 pow(sh, -5) + 0.7111111111111111 * ash * sqrt4sh * sqrtsh *
917 pow(sh, 3)*(252. - 1383. * sh - 342. * pow(sh, 2) +
918 2808. * pow(sh, 3) - 2380. * pow(sh, 4) +
919 870. * pow(sh, 5) - 150. * pow(sh, 6) + 10. * pow(sh, 7))\
920 + 0.00047031158142269255 * Lsh * pow(-1 + sh, -8) *
921 pow(sh, -12)*(30. + 200. * sh + 356. * pow(sh, 2) -
922 580. * pow(sh, 3) - 3070. * pow(sh, 4) -
923 3880. * pow(sh, 5) - 95410. * pow(sh, 6) +
924 738379. * pow(sh, 7) - 2.056331e6 * pow(sh, 8) +
925 3.10735e6 * pow(sh, 9) - 2.878135e6 * pow(sh, 10) +
926 1.70477e6 * pow(sh, 11) - 636256. * pow(sh, 12) +
927 132944. * pow(sh, 13) - 2380. * pow(sh, 14) -
928 2065. * pow(sh, 15) + 315. * pow(sh, 16) -
929 168. * pow(sh, 17) + 231. * pow(sh, 18)) -
930 3.39330145326618e-8 * pow(-1 + sh, -7) * pow(sh, -12)*
931 (64350. + 66000. * sh - 1.848594e6 * pow(sh, 2) -
932 7.286499e6 * pow(sh, 3) - 5.743914e6 * pow(sh, 4) +
933 1.6732716e7 * pow(sh, 5) + 8.36674146e8 * pow(sh, 6) -
934 3.086059581e9 * pow(sh, 7) +
935 2.920757103e9 * pow(sh, 8) +
936 4.213007403e9 * pow(sh, 9) -
937 1.3030540952e10 * pow(sh, 10) +
938 1.3445244908e10 * pow(sh, 11) -
939 5.400217599e9 * pow(sh, 12) -
940 4.838723267e9 * pow(sh, 13) +
941 1.4220596345e10 * pow(sh, 14) -
942 1.7384453508e10 * pow(sh, 15) +
943 7.769749144e9 * pow(sh, 16) +
944 1.428417884e9 * pow(sh, 17) +
945 4.8744289353e10 * pow(sh, 18) -
946 1.85048020584e11 * pow(sh, 19) +
947 2.17589171184e11 * pow(sh, 20) +
948 1.46917624392e11 * pow(sh, 21) -
949 8.1335313675e11 * pow(sh, 22) +
950 1.2454621641e12 * pow(sh, 23) -
951 1.1155514832e12 * pow(sh, 24) +
952 6.5679027876e11 * pow(sh, 25) -
953 2.615261418e11 * pow(sh, 26) +
954 6.977252898e10 * pow(sh, 27) -
955 1.19369943e10 * pow(sh, 28) +
956 1.18203624e9 * pow(sh, 29) - 5.143446e7 * pow(sh, 30)))
957 - 2.4482694468009954e-12 * pow(-1 + sh, -8) * pow(sh, -12)*
958 (-2.074545e8 + 4.76982e8 * sh +
959 3.223561968e9 * pow(sh, 2) -
960 1.2229671465e10 * pow(sh, 3) -
961 5.5118379195e10 * pow(sh, 4) +
962 5.758493697e10 * pow(sh, 5) +
963 3.34335296988e13 * pow(sh, 6) -
964 2.46183339844728e14 * pow(sh, 7) +
965 7.88493088730853e14 * pow(sh, 8) -
966 1.41978242154342e15 * pow(sh, 9) +
967 1.554606048182275e15 * pow(sh, 10) -
968 1.04527795567331e15 * pow(sh, 11) +
969 4.00804930228849e14 * pow(sh, 12) +
970 4.89753913432e12 * pow(sh, 13) -
971 2.6147112177326e14 * pow(sh, 14) +
972 4.2032307297505e14 * pow(sh, 15) -
973 3.35740716930395e14 * pow(sh, 16) +
974 2.57962579027846e14 * pow(sh, 17) -
975 1.575614131965377e15 * pow(sh, 18) +
976 5.472481687455111e15 * pow(sh, 19) -
977 8.337459144709044e15 * pow(sh, 20) +
978 1.620077584398966e15 * pow(sh, 21) +
979 1.7052028891101666e16 * pow(sh, 22) -
980 3.5835539060836744e16 * pow(sh, 23) +
981 4.028199224768888e16 * pow(sh, 24) -
982 2.974451143108045e16 * pow(sh, 25) +
983 1.5207708416925024e16 * pow(sh, 26) -
984 5.427604622626956e15 * pow(sh, 27) +
985 1.32696547935336e15 * pow(sh, 28) -
986 2.1153689203878e14 * pow(sh, 29) +
987 1.97724893751e13 * pow(sh, 30) -
988 8.2047522942e11 * pow(sh, 31) +
989 3.20166e7 * pow(3.141592653589793, 2)*
990 (90. + 600. * sh + 1068. * pow(sh, 2) -
991 1740. * pow(sh, 3) - 9210. * pow(sh, 4) -
992 11640. * pow(sh, 5) - 771330. * pow(sh, 6) +
993 5.877289e6 * pow(sh, 7) - 1.8209993e7 * pow(sh, 8) +
994 3.175429e7 * pow(sh, 9) - 3.4335085e7 * pow(sh, 10) +
995 2.335241e7 * pow(sh, 11) - 9.338992e6 * pow(sh, 12) +
996 1.311716e6 * pow(sh, 13) + 1.360208e6 * pow(sh, 14) -
997 2.228227e6 * pow(sh, 15) + 3.717793e6 * pow(sh, 16) -
998 1.4308436e7 * pow(sh, 17) +
999 4.9487425e7 * pow(sh, 18) -
1000 9.6430764e7 * pow(sh, 19) +
1001 7.2149616e7 * pow(sh, 20) +
1002 1.14281496e8 * pow(sh, 21) -
1003 4.10382504e8 * pow(sh, 22) +
1004 6.13666368e8 * pow(sh, 23) -
1005 5.83391592e8 * pow(sh, 24) +
1006 3.84934788e8 * pow(sh, 25) -
1007 1.80700632e8 * pow(sh, 26) +
1008 6.0198768e7 * pow(sh, 27) - 1.389528e7 * pow(sh, 28) +
1009 2.10924e6 * pow(sh, 29) - 189000. * pow(sh, 30) +
1010 7560. * pow(sh, 31)))) * pow(z, 7);
1011 else
1012 res += pow(z, 7)*(71.68678327155476 -
1013 2907.1819685415394 * (1. - sh) -
1014 7242.316104312352 * pow(1. - sh, 2) -
1015 19566.456626720403 * pow(1. - sh, 3) -
1016 62593.82522143261 * pow(1. - sh, 4) +
1017 log(z)*(209.6252762986713 -
1018 843.5722636566957 * (1. - sh) +
1019 1005.2636076321755 * pow(1. - sh, 2) +
1020 5346.8253794058 * pow(1. - sh, 3) +
1021 10582.64385187247 * pow(1. - sh, 4)) +
1022 (-23.82716049382716 -
1023 10.365432098765432 * (1. - sh) +
1024 574.3111111111111 * pow(1. - sh, 2) +
1025 1325.2987654320987 * pow(1. - sh, 3) +
1026 3439.3086419753085 * pow(1. - sh, 4)) * pow(log(z), 2));
1027 }
1028
1029 if (15 <= maxpow) {
1030 if (sh < .900001)
1031 res += 2.0239336478652717e-6 * pow(3.141592653589793, 2) * pow(sh, -13)*
1032 (3003. + 47124. * sh + 349398. * pow(sh, 2) +
1033 1.62554e6 * pow(sh, 3) + 5.297685e6 * pow(sh, 4) +
1034 1.265412e7 * pow(sh, 5) + 2.15477e7 * pow(sh, 6) +
1035 1.265412e7 * pow(sh, 7) + 5.297685e6 * pow(sh, 8) +
1036 1.62554e6 * pow(sh, 9) + 349398. * pow(sh, 10) +
1037 47124. * pow(sh, 11) + 3003. * pow(sh, 12)) * pow(z, 7.5);
1038 else
1039 res += (1228.5173675779529 + 8599.62157304567 * (1. - sh) +
1040 35504.151923002835 * pow(1. - sh, 2) +
1041 112040.7839231093 * pow(1. - sh, 3) +
1042 298286.2106289405 * pow(1. - sh, 4)) * pow(z, 7.5);
1043 }
1044
1045 if (16 <= maxpow) {
1046 if (sh < .900001)
1047 res += (43.6556538798278 * pow(-1 + sh, -3) * pow(sh, -6) -
1048 36.317460317460316 * Li3sh * pow(-1 + sh, -3) * pow(sh, -6) +
1049 12.105820105820106 * pow(Lsh, 3) * pow(-1 + sh, -3) *
1050 pow(sh, -6) + 1.9555555555555555 * cl2 * sqrt4sh * sqrtsh *
1051 pow(sh, 3)*(16. - 564. * sh + 2004. * pow(sh, 2) +
1052 294. * pow(sh, 3) - 4650. * pow(sh, 4) +
1053 5035. * pow(sh, 5) - 2500. * pow(sh, 6) +
1054 660. * pow(sh, 7) - 90. * pow(sh, 8) + 5. * pow(sh, 9)) +
1055 0.0007054673721340388 * ash * sqrt4sh * sqrtsh *
1056 pow(-1 + sh, -3) * pow(sh, 3)*
1057 (-85472. + 3.302568e6 * sh - 2.0385756e7 * pow(sh, 2) +
1058 4.0397342e7 * pow(sh, 3) - 3.614472e6 * pow(sh, 4) -
1059 1.04197295e8 * pow(sh, 5) + 1.83802625e8 * pow(sh, 6) -
1060 1.60798287e8 * pow(sh, 7) + 8.4097289e7 * pow(sh, 8) -
1061 2.7378339e7 * pow(sh, 9) + 5.441121e6 * pow(sh, 10) -
1062 604569. * pow(sh, 11) + 28789. * pow(sh, 12)) -
1063 5.866666666666666 * pow(ash, 2) * pow(-1 + sh, -4) * pow(sh, 4)*
1064 (280. - 3850. * sh + 16128. * pow(sh, 2) -
1065 26340. * pow(sh, 3) + 69345. * pow(sh, 5) -
1066 126120. * pow(sh, 6) + 121044. * pow(sh, 7) -
1067 73080. * pow(sh, 8) + 29050. * pow(sh, 9) -
1068 7600. * pow(sh, 10) + 1260. * pow(sh, 11) -
1069 120. * pow(sh, 12) + 5. * pow(sh, 13)) +
1070 0.0014109347442680777 * Li2sh * pow(-1 + sh, -9) * pow(sh, -7)*
1071 (115830. - 1.00518e6 * sh + 3.85476e6 * pow(sh, 2) -
1072 8.55036e6 * pow(sh, 3) + 1.203202e7 * pow(sh, 4) -
1073 1.104103e7 * pow(sh, 5) + 6.48648e6 * pow(sh, 6) -
1074 2.24796e6 * pow(sh, 7) + 352374. * pow(sh, 8) -
1075 455. * pow(sh, 13) + 140. * pow(sh, 14)) -
1076 Lsh * (-36.317460317460316 * Li2sh * pow(-1 + sh, -3) *
1077 pow(sh, -6) - 1.9555555555555555 * ash * sqrt4sh * sqrtsh *
1078 pow(sh, 3)*(16. - 564. * sh + 2004. * pow(sh, 2) +
1079 294. * pow(sh, 3) - 4650. * pow(sh, 4) +
1080 5035. * pow(sh, 5) - 2500. * pow(sh, 6) +
1081 660. * pow(sh, 7) - 90. * pow(sh, 8) + 5. * pow(sh, 9)) +
1082 1.1997744424048278e-7 * pow(-1 + sh, -9) * pow(sh, -14)*
1083 (23625. + 2250. * sh - 884825. * pow(sh, 2) -
1084 3.042036e6 * pow(sh, 3) - 226209. * pow(sh, 4) +
1085 1.547673e7 * pow(sh, 5) + 1.7445585e7 * pow(sh, 6) -
1086 90. * (-7.706801e6 + 1.513512e7 * Lshb) * pow(sh, 7) +
1087 (-4.511940709e9 + 1.18209168e10 * Lshb +
1088 2.52252e8 * pow(3.141592653589793, 2)) * pow(sh, 8)\
1089 - 78. * (-1.49774363e8 + 5.811792e8 * Lshb +
1090 1.9404e7 * pow(3.141592653589793, 2)) * pow(sh, 9)\
1091 + 45. * (-3.71984831e8 + 2.23449408e9 * Lshb +
1092 8.4084e7 * pow(3.141592653589793, 2)) * pow(sh, 10)\
1093 - 2860. * (-5.103001e6 + 4.947432e7 * Lshb +
1094 1.764e6 * pow(3.141592653589793, 2)) * pow(sh, 11)\
1095 + 5. * (-1.592356747e9 + 2.596850256e10 * Lshb +
1096 7.56756e8 * pow(3.141592653589793, 2)) * pow(sh, 12)
1097 - 6. * (-4.63805653e8 + 1.27135008e10 * Lshb +
1098 2.52252e8 * pow(3.141592653589793, 2)) * pow(sh, 13)
1099 + 3. * (-2.34797011e8 + 8.8120032e9 * Lshb +
1100 8.4084e7 * pow(3.141592653589793, 2)) * pow(sh, 14)\
1101 - 70. * (-1.717333e6 + 5.9198832e7 * Lshb) *
1102 pow(sh, 15) - 1.488018e7 * pow(sh, 16) -
1103 1.051134e7 * pow(sh, 17) + 4.314492e6 * pow(sh, 18) +
1104 5.300568e6 * pow(sh, 19) +
1105 4200. * (-185. + 1274. * Lshb) * pow(sh, 20) -
1106 1400. * (85. + 1176. * Lshb) * pow(sh, 21))) -
1107 0.00010078105316200554 * pow(Lsh, 2) * pow(-1 + sh, -10) *
1108 pow(sh, -14)*(-105. - 705. * sh - 1085. * pow(sh, 2) +
1109 3227. * pow(sh, 3) + 12621. * pow(sh, 4) +
1110 7077. * pow(sh, 5) - 23415. * pow(sh, 6) +
1111 716940. * pow(sh, 7) +
1112 (-7.485607e6 + 180180. * Lshb) * pow(sh, 8) -
1113 14. * (-2.017121e6 + 90090. * Lshb) * pow(sh, 9) +
1114 12012. * (-4661. + 315. * Lshb) * pow(sh, 10) -
1115 2100. * (-30895. + 3003. * Lshb) * pow(sh, 11) +
1116 35. * (-1.228621e6 + 180180. * Lshb) * pow(sh, 12) -
1117 14. * (-875647. + 270270. * Lshb) * pow(sh, 13) +
1118 14. * (198131. + 90090. * Lshb) * pow(sh, 14) -
1119 2. * (1.519451e6 + 90090. * Lshb) * pow(sh, 15) +
1120 645645. * pow(sh, 16) + 3185. * pow(sh, 20) -
1121 4165. * pow(sh, 21) + 980. * pow(sh, 22)) +
1122 0.000025195263290501386 * pow(lz, 2) * pow(sh, -14)*
1123 (105. + 1755. * sh + 13910. * pow(sh, 2) +
1124 69498. * pow(sh, 3) + 244959. * pow(sh, 4) +
1125 642213. * pow(sh, 5) + 1.26126e6 * pow(sh, 6) -
1126 1.08108e6 * pow(sh, 7) + 433071. * pow(sh, 8) +
1127 67773. * pow(sh, 9) - 377694. * pow(sh, 10) -
1128 501530. * pow(sh, 11) - 344895. * pow(sh, 12) -
1129 105. * pow(sh, 13) - 1.55232e6 * pow(sh, 14) -
1130 1.591128e6 * pow(sh, 15) - 1.707552e6 * pow(sh, 16) -
1131 1.9404e6 * pow(sh, 17) + 3.10464e6 * pow(sh, 18) -
1132 5.588352e7 * pow(sh, 19) + 6.4731744e7 * pow(sh, 20) +
1133 9.7485696e7 * pow(sh, 21) - 2.250864e8 * pow(sh, 22) +
1134 1.751211e8 * pow(sh, 23) - 7.101864e7 * pow(sh, 24) +
1135 1.610532e7 * pow(sh, 25) - 1.9404e6 * pow(sh, 26) +
1136 97020. * pow(sh, 27)) -
1137 lz * (18.158730158730158 * pow(Lsh, 2) * pow(-1 + sh, -3) *
1138 pow(sh, -6) - 3.911111111111111 * ash * sqrt4sh * sqrtsh *
1139 pow(sh, 3)*(16. - 564. * sh + 2004. * pow(sh, 2) +
1140 294. * pow(sh, 3) - 4650. * pow(sh, 4) +
1141 5035. * pow(sh, 5) - 2500. * pow(sh, 6) +
1142 660. * pow(sh, 7) - 90. * pow(sh, 8) + 5. * pow(sh, 9)) +
1143 0.00010078105316200554 * Lsh * pow(-1 + sh, -9) *
1144 pow(sh, -14)*(-105. - 810. * sh - 1895. * pow(sh, 2) +
1145 1332. * pow(sh, 3) + 13953. * pow(sh, 4) +
1146 21030. * pow(sh, 5) - 2385. * pow(sh, 6) +
1147 1.39023e6 * pow(sh, 7) - 1.2340463e7 * pow(sh, 8) +
1148 4.2069858e7 * pow(sh, 9) - 7.9546665e7 * pow(sh, 10) +
1149 9.44649e7 * pow(sh, 11) - 7.3941065e7 * pow(sh, 12) +
1150 3.83046e7 * pow(sh, 13) - 1.2446415e7 * pow(sh, 14) +
1151 1.976646e6 * pow(sh, 15) + 12600. * pow(sh, 16) -
1152 15820. * pow(sh, 17) - 9744. * pow(sh, 18) +
1153 2604. * pow(sh, 19) - 630. * pow(sh, 20) +
1154 910. * pow(sh, 21)) +
1155 1.398338510961338e-10 * pow(-1 + sh, -8) * pow(sh, -14)*
1156 (1.0135125e7 + 1.1100375e7 * sh -
1157 3.6848955e8 * pow(sh, 2) -
1158 1.673522994e9 * pow(sh, 3) -
1159 1.770566655e9 * pow(sh, 4) +
1160 4.868950515e9 * pow(sh, 5) +
1161 1.235310648e10 * pow(sh, 6) +
1162 6.7286773554e11 * pow(sh, 7) -
1163 3.536335413468e12 * pow(sh, 8) +
1164 6.50817484746e12 * pow(sh, 9) -
1165 2.54454845502e12 * pow(sh, 10) -
1166 9.21737859458e12 * pow(sh, 11) +
1167 1.734525157846e13 * pow(sh, 12) -
1168 1.3825678158092e13 * pow(sh, 13) +
1169 6.1111523809e12 * pow(sh, 14) -
1170 5.967579184772e12 * pow(sh, 15) +
1171 1.5549203270443e13 * pow(sh, 16) -
1172 2.5319186594687e13 * pow(sh, 17) +
1173 2.6298770135182e13 * pow(sh, 18) -
1174 2.5191363944162e13 * pow(sh, 19) +
1175 5.842005220263e12 * pow(sh, 20) +
1176 1.75096058403693e14 * pow(sh, 21) -
1177 6.63423072171552e14 * pow(sh, 22) +
1178 1.020989867585688e15 * pow(sh, 23) -
1179 8.1473828147712e13 * pow(sh, 24) -
1180 2.68267039048008e15 * pow(sh, 25) +
1181 5.80722293943792e15 * pow(sh, 26) -
1182 7.01674940414448e15 * pow(sh, 27) +
1183 5.70997655452224e15 * pow(sh, 28) -
1184 3.30275638300608e15 * pow(sh, 29) +
1185 1.37813214547008e15 * pow(sh, 30) -
1186 4.1220913139406e14 * pow(sh, 31) +
1187 8.614194412824e13 * pow(sh, 32) -
1188 1.192739023476e13 * pow(sh, 33) +
1189 9.8172946872e11 * pow(sh, 34) -
1190 3.631041414e10 * pow(sh, 35))) -
1191 3.8803932483109607e-16 * pow(-1 + sh, -9) * pow(sh, -14)*
1192 (7.34806697625e11 - 1.86465740175e12 * sh -
1193 1.3539275231625e13 * pow(sh, 2) +
1194 6.7027116030732e13 * pow(sh, 3) +
1195 3.63276406618983e14 * pow(sh, 4) +
1196 7.707518005473e13 * pow(sh, 5) -
1197 2.669628886797015e15 * pow(sh, 6) -
1198 6.770358403959922e17 * pow(sh, 7) +
1199 5.635158490072595e18 * pow(sh, 8) -
1200 2.0599256704963682e19 * pow(sh, 9) +
1201 4.3339042510046585e19 * pow(sh, 10) -
1202 5.744182115659437e19 * pow(sh, 11) +
1203 4.931522650068433e19 * pow(sh, 12) -
1204 2.7187236012238836e19 * pow(sh, 13) +
1205 9.574972725219654e18 * pow(sh, 14) -
1206 3.9829978513193257e18 * pow(sh, 15) +
1207 7.101765583473753e18 * pow(sh, 16) -
1208 1.3106460108909054e19 * pow(sh, 17) +
1209 1.6417164883861897e19 * pow(sh, 18) -
1210 1.614980340692014e19 * pow(sh, 19) +
1211 1.6686933598961236e18 * pow(sh, 20) +
1212 1.0406361743628665e20 * pow(sh, 21) -
1213 4.1780318877359584e20 * pow(sh, 22) +
1214 7.917494561077571e20 * pow(sh, 23) -
1215 5.495025478671567e20 * pow(sh, 24) -
1216 9.680750952822325e20 * pow(sh, 25) +
1217 3.329447282273382e21 * pow(sh, 26) -
1218 5.025975451497482e21 * pow(sh, 27) +
1219 4.956441109581607e21 * pow(sh, 28) -
1220 3.485807792682049e21 * pow(sh, 29) +
1221 1.7988128583543858e21 * pow(sh, 30) -
1222 6.841200805238499e20 * pow(sh, 31) +
1223 1.8949802366821115e20 * pow(sh, 32) -
1224 3.71347919316412e19 * pow(sh, 33) +
1225 4.870681746866896e18 * pow(sh, 34) -
1226 3.8293915404046304e17 * pow(sh, 35) +
1227 1.362249094884678e16 * pow(sh, 36) -
1228 4.32864432e10 * pow(3.141592653589793, 2)*
1229 (315. + 2430. * sh + 5685. * pow(sh, 2) -
1230 3996. * pow(sh, 3) - 41859. * pow(sh, 4) -
1231 63090. * pow(sh, 5) + 7155. * pow(sh, 6) -
1232 1.119771e7 * pow(sh, 7) + 9.7239319e7 * pow(sh, 8) -
1233 3.54595974e8 * pow(sh, 9) +
1234 7.40399865e8 * pow(sh, 10) -
1235 9.8372572e8 * pow(sh, 11) +
1236 8.60053945e8 * pow(sh, 12) -
1237 4.8766596e8 * pow(sh, 13) +
1238 1.66863615e8 * pow(sh, 14) -
1239 3.4122042e7 * pow(sh, 15) + 2.632797e7 * pow(sh, 16) -
1240 5.075218e7 * pow(sh, 17) + 5.5929402e7 * pow(sh, 18) +
1241 5.4364188e7 * pow(sh, 19) -
1242 7.17712236e8 * pow(sh, 20) +
1243 2.87081535e9 * pow(sh, 21) -
1244 6.45842757e9 * pow(sh, 22) +
1245 7.27388046e9 * pow(sh, 23) +
1246 2.42462682e9 * pow(sh, 24) -
1247 2.5172149464e10 * pow(sh, 25) +
1248 5.057866044e10 * pow(sh, 26) -
1249 6.234146226e10 * pow(sh, 27) +
1250 5.421545514e10 * pow(sh, 28) -
1251 3.47700276e10 * pow(sh, 29) +
1252 1.6675099056e10 * pow(sh, 30) -
1253 5.96740914e9 * pow(sh, 31) +
1254 1.5692985e9 * pow(sh, 32) - 2.939706e8 * pow(sh, 33) +
1255 3.706164e7 * pow(sh, 34) - 2.81358e6 * pow(sh, 35) +
1256 97020. * pow(sh, 36)))) * pow(z, 8);
1257 else
1258 res += pow(z, 8)*(227.9127121130888 -
1259 12564.351589175983 * (1. - sh) -
1260 34464.767151214546 * pow(1. - sh, 2) -
1261 102040.51747314115 * pow(1. - sh, 3) -
1262 362196.8892583663 * pow(1. - sh, 4) +
1263 log(z)*(751.6870505074294 -
1264 3757.8602857129536 * (1. - sh) +
1265 4373.596775680889 * pow(1. - sh, 2) +
1266 26074.528627752614 * pow(1. - sh, 3) +
1267 50226.02585572963 * pow(1. - sh, 4)) +
1268 (-91.85185185185185 - 59.74814814814815 * (1. - sh) +
1269 2707.866666666667 * pow(1. - sh, 2) +
1270 6532.044444444445 * pow(1. - sh, 3) +
1271 18560.308994708994 * pow(1. - sh, 4)) * pow(log(z), 2));
1272 }
1273
1274 if (17 <= maxpow) {
1275 if (sh < .900001)
1276 res += 7.222665174734891e-7 * pow(3.141592653589793, 2) * pow(sh, -15)*
1277 (6435. + 114114. * sh + 962577. * pow(sh, 2) +
1278 5.137524e6 * pow(sh, 3) + 1.9445755e7 * pow(sh, 4) +
1279 5.526435e7 * pow(sh, 5) + 1.20557265e8 * pow(sh, 6) +
1280 1.9446652e8 * pow(sh, 7) + 1.20557265e8 * pow(sh, 8) +
1281 5.526435e7 * pow(sh, 9) + 1.9445755e7 * pow(sh, 10) +
1282 5.137524e6 * pow(sh, 11) + 962577. * pow(sh, 12) +
1283 114114. * pow(sh, 13) + 6435. * pow(sh, 14)) * pow(z, 8.5);
1284 else
1285 res += (4258.8602076035695 + 34070.881660828556 * (1. - sh) +
1286 157790.77069171227 * pow(1. - sh, 2) +
1287 551309.4538742821 * pow(1. - sh, 3) +
1288 1.6090506221852237e6 * pow(1. - sh, 4)) * pow(z, 8.5);
1289 }
1290
1291 if (18 <= maxpow) {
1292 if (sh < .900001)
1293 res += (127.32899048283109 * pow(-1 + sh, -3) * pow(sh, -7) -
1294 105.92592592592592 * Li3sh * pow(-1 + sh, -3) * pow(sh, -7) +
1295 35.30864197530864 * pow(Lsh, 3) * pow(-1 + sh, -3) *
1296 pow(sh, -7) - 4.035273368606702 * cl2 * sqrt4sh * sqrtsh *
1297 pow(sh, 4)*(-216. + 3134. * sh - 8598. * pow(sh, 2) -
1298 651. * pow(sh, 3) + 21696. * pow(sh, 4) -
1299 28281. * pow(sh, 5) + 17655. * pow(sh, 6) -
1300 6279. * pow(sh, 7) + 1302. * pow(sh, 8) -
1301 147. * pow(sh, 9) + 7. * pow(sh, 10)) -
1302 0.0001567705271408975 * ash * sqrt4sh * sqrtsh *
1303 pow(-1 + sh, -3) * pow(sh, 4)*
1304 (1.1439036e7 - 2.01476662e8 * sh +
1305 9.97505748e8 * pow(sh, 2) - 1.852234251e9 * pow(sh, 3) +
1306 2.01151369e8 * pow(sh, 4) + 4.889181924e9 * pow(sh, 5) -
1307 9.389910087e9 * pow(sh, 6) + 9.234375093e9 * pow(sh, 7) -
1308 5.644419255e9 * pow(sh, 8) + 2.256993135e9 * pow(sh, 9) -
1309 5.91888983e8 * pow(sh, 10) + 9.8193564e7 * pow(sh, 11) -
1310 9.351768e6 * pow(sh, 12) + 389657. * pow(sh, 13)) +
1311 12.105820105820106 * pow(ash, 2) * pow(-1 + sh, -4) *
1312 pow(sh, 4)*(42. - 2268. * sh + 21546. * pow(sh, 2) -
1313 79506. * pow(sh, 3) + 124821. * pow(sh, 4) -
1314 344253. * pow(sh, 6) + 669627. * pow(sh, 7) -
1315 706482. * pow(sh, 8) + 483252. * pow(sh, 9) -
1316 225666. * pow(sh, 10) + 72738. * pow(sh, 11) -
1317 15939. * pow(sh, 12) + 2268. * pow(sh, 13) -
1318 189. * pow(sh, 14) + 7. * pow(sh, 15)) +
1319 0.021164021164021163 * Li2sh * pow(-1 + sh, -10) * pow(sh, -8)*
1320 (-25025. + 242385. * sh - 1.05138e6 * pow(sh, 2) +
1321 2.68422e6 * pow(sh, 3) - 4.45263e6 * pow(sh, 4) +
1322 4.98771e6 * pow(sh, 5) - 3.78378e6 * pow(sh, 6) +
1323 1.88188e6 * pow(sh, 7) - 559845. * pow(sh, 8) +
1324 77077. * pow(sh, 9) - 30. * pow(sh, 15) + 10. * pow(sh, 16))\
1325 - Lsh * (-105.92592592592592 * Li2sh * pow(-1 + sh, -3) *
1326 pow(sh, -7) + 4.035273368606702 * ash * sqrt4sh * sqrtsh *
1327 pow(sh, 4)*(-216. + 3134. * sh - 8598. * pow(sh, 2) -
1328 651. * pow(sh, 3) + 21696. * pow(sh, 4) -
1329 28281. * pow(sh, 5) + 17655. * pow(sh, 6) -
1330 6279. * pow(sh, 7) + 1302. * pow(sh, 8) -
1331 147. * pow(sh, 9) + 7. * pow(sh, 10)) +
1332 2.3328947491204986e-7 * pow(-1 + sh, -10) * pow(sh, -16)*
1333 (-8330. - 1225. * sh + 385185. * pow(sh, 2) +
1334 1.565725e6 * pow(sh, 3) + 766913. * pow(sh, 4) -
1335 8.101569e6 * pow(sh, 5) - 1.6471637e7 * pow(sh, 6) +
1336 1.4354375e7 * pow(sh, 7) +
1337 315. * (-3.976811e6 + 7.2072e6 * Lshb) * pow(sh, 8) -
1338 5. * (-1.972645723e9 + 4.39783344e9 * Lshb +
1339 7.56756e7 * pow(3.141592653589793, 2)) * pow(sh, 9)\
1340 + (-3.2595109307e10 + 9.53811936e10 * Lshb +
1341 2.648646e9 * pow(3.141592653589793, 2)) *
1342 pow(sh, 10) -
1343 105. * (-5.86295389e8 + 2.31916608e9 * Lshb +
1344 7.56756e7 * pow(3.141592653589793, 2)) * pow(sh, 11)
1345 + 35. * (-2.122319939e9 + 1.154121696e10 * Lshb +
1346 3.78378e8 * pow(3.141592653589793, 2)) * pow(sh, 12)
1347 - 35. * (-1.717789469e9 + 1.292814432e10 * Lshb +
1348 3.78378e8 * pow(3.141592653589793, 2)) * pow(sh, 13)
1349 + 21. * (-1.591388717e9 + 1.63459296e10 * Lshb +
1350 3.78378e8 * pow(3.141592653589793, 2)) * pow(sh, 14)
1351 - 77. * (-1.67932339e8 + 2.2171968e9 * Lshb +
1352 3.4398e7 * pow(3.141592653589793, 2)) * pow(sh, 15)\
1353 + 16. * (-2.15122142e8 + 3.17432115e9 * Lshb +
1354 2.3648625e7 * pow(3.141592653589793, 2)) *
1355 pow(sh, 16) +
1356 (5.68573578e8 - 6.99242544e9 * Lshb) * pow(sh, 17) +
1357 1.312353e7 * pow(sh, 18) - 1.3816026e7 * pow(sh, 19) -
1358 5.493852e6 * pow(sh, 20) + 2.810934e6 * pow(sh, 21) +
1359 2.66553e6 * pow(sh, 22) +
1360 810. * (-653. + 3360. * Lshb) * pow(sh, 23) -
1361 405. * (113. + 2240. * Lshb) * pow(sh, 24))) -
1362 0.00014697236919459142 * pow(Lsh, 2) * pow(-1 + sh, -11) *
1363 pow(sh, -16)*(56. + 434. * sh + 920. * pow(sh, 2) -
1364 1480. * pow(sh, 3) - 9184. * pow(sh, 4) -
1365 8932. * pow(sh, 5) + 19712. * pow(sh, 6) +
1366 36344. * pow(sh, 7) - 1.69477e6 * pow(sh, 8) +
1367 (1.8252907e7 - 360360. * Lshb) * pow(sh, 9) +
1368 20. * (-3.973357e6 + 144144. * Lshb) * pow(sh, 10) -
1369 11440. * (-16567. + 882. * Lshb) * pow(sh, 11) +
1370 56. * (-4.950037e6 + 360360. * Lshb) * pow(sh, 12) -
1371 140. * (-1.822739e6 + 180180. * Lshb) * pow(sh, 13) +
1372 224. * (-623131. + 90090. * Lshb) * pow(sh, 14) -
1373 56. * (-585251. + 180180. * Lshb) * pow(sh, 15) +
1374 8. * (968843. + 360360. * Lshb) * pow(sh, 16) -
1375 (6.868451e6 + 360360. * Lshb) * pow(sh, 17) +
1376 1.287e6 * pow(sh, 18) + 2160. * pow(sh, 23) -
1377 2880. * pow(sh, 24) + 720. * pow(sh, 25)) -
1378 0.00007348618459729571 * pow(lz, 2) * pow(sh, -16)*
1379 (-28. - 525. * sh - 4695. * pow(sh, 2) -
1380 26650. * pow(sh, 3) - 107718. * pow(sh, 4) -
1381 329043. * pow(sh, 5) - 782353. * pow(sh, 6) -
1382 1.44144e6 * pow(sh, 7) + 1.26126e6 * pow(sh, 8) -
1383 599831. * pow(sh, 9) - 230937. * pow(sh, 10) +
1384 340854. * pow(sh, 11) + 604990. * pow(sh, 12) +
1385 577095. * pow(sh, 13) + 354945. * pow(sh, 14) +
1386 28. * pow(sh, 15) + 1.729728e6 * pow(sh, 16) +
1387 1.757184e6 * pow(sh, 17) + 1.839552e6 * pow(sh, 18) +
1388 2.004288e6 * pow(sh, 19) + 2.855424e6 * pow(sh, 20) -
1389 2.6138112e7 * pow(sh, 21) + 1.80276096e8 * pow(sh, 22) -
1390 2.04107904e8 * pow(sh, 23) - 2.91953376e8 * pow(sh, 24) +
1391 8.04076416e8 * pow(sh, 25) - 7.54586976e8 * pow(sh, 26) +
1392 3.86127456e8 * pow(sh, 27) - 1.18294176e8 * pow(sh, 28) +
1393 2.1717696e7 * pow(sh, 29) - 2.210208e6 * pow(sh, 30) +
1394 96096. * pow(sh, 31)) -
1395 lz * (52.96296296296296 * pow(Lsh, 2) * pow(-1 + sh, -3) *
1396 pow(sh, -7) + 8.070546737213403 * ash * sqrt4sh * sqrtsh *
1397 pow(sh, 4)*(-216. + 3134. * sh - 8598. * pow(sh, 2) -
1398 651. * pow(sh, 3) + 21696. * pow(sh, 4) -
1399 28281. * pow(sh, 5) + 17655. * pow(sh, 6) -
1400 6279. * pow(sh, 7) + 1302. * pow(sh, 8) -
1401 147. * pow(sh, 9) + 7. * pow(sh, 10)) +
1402 0.00029394473838918284 * Lsh * pow(-1 + sh, -10) *
1403 pow(sh, -16)*(28. + 245. * sh + 705. * pow(sh, 2) -
1404 35. * pow(sh, 3) - 4627. * pow(sh, 4) -
1405 9093. * pow(sh, 5) + 763. * pow(sh, 6) +
1406 18935. * pow(sh, 7) - 1.594215e6 * pow(sh, 8) +
1407 1.5443423e7 * pow(sh, 9) - 6.1656473e7 * pow(sh, 10) +
1408 1.39716843e8 * pow(sh, 11) -
1409 2.03006125e8 * pow(sh, 12) +
1410 1.99413865e8 * pow(sh, 13) -
1411 1.34518335e8 * pow(sh, 14) +
1412 6.1151573e7 * pow(sh, 15) -
1413 1.7326475e7 * pow(sh, 16) + 2.392884e6 * pow(sh, 17) +
1414 25200. * pow(sh, 18) + 3024. * pow(sh, 19) -
1415 7560. * pow(sh, 20) - 3276. * pow(sh, 21) +
1416 1260. * pow(sh, 22) - 180. * pow(sh, 23) +
1417 270. * pow(sh, 24)) +
1418 8.156974647274471e-10 * pow(-1 + sh, -9) * pow(sh, -16)*
1419 (-1.19119e6 - 1.366365e6 * sh +
1420 5.371509e7 * pow(sh, 2) + 2.77613765e8 * pow(sh, 3) +
1421 3.87282324e8 * pow(sh, 4) -
1422 7.71242043e8 * pow(sh, 5) -
1423 3.126686134e9 * pow(sh, 6) -
1424 1.074010509e9 * pow(sh, 7) -
1425 3.93846095214e11 * pow(sh, 8) +
1426 2.613136199245e12 * pow(sh, 9) -
1427 6.74269843533e12 * pow(sh, 10) +
1428 7.676937500739e12 * pow(sh, 11) -
1429 1.9905569996e10 * pow(sh, 12) -
1430 1.1323630699581e13 * pow(sh, 13) +
1431 1.5234053867994e13 * pow(sh, 14) -
1432 9.845078305115e12 * pow(sh, 15) +
1433 2.700610570998e12 * pow(sh, 16) +
1434 3.170609780136e12 * pow(sh, 17) -
1435 1.1930111549088e13 * pow(sh, 18) +
1436 2.3203039225488e13 * pow(sh, 19) -
1437 2.8131676788624e13 * pow(sh, 20) +
1438 1.8366269990976e13 * pow(sh, 21) +
1439 5.86498925406e12 * pow(sh, 22) +
1440 2.8811545081488e13 * pow(sh, 23) -
1441 4.5661550453265e14 * pow(sh, 24) +
1442 1.732122473878368e15 * pow(sh, 25) -
1443 3.197952696667872e15 * pow(sh, 26) +
1444 1.902641717625792e15 * pow(sh, 27) +
1445 5.333806838035104e15 * pow(sh, 28) -
1446 1.7146879255828608e16 * pow(sh, 29) +
1447 2.675706192884525e16 * pow(sh, 30) -
1448 2.8039050515059584e16 * pow(sh, 31) +
1449 2.1385006944917616e16 * pow(sh, 32) -
1450 1.2221439347413296e16 * pow(sh, 33) +
1451 5.277310784521776e15 * pow(sh, 34) -
1452 1.713784020076128e15 * pow(sh, 35) +
1453 4.11671384988864e14 * pow(sh, 36) -
1454 7.0855642249392e13 * pow(sh, 37) +
1455 8.252635735344e12 * pow(sh, 38) -
1456 5.81797087872e11 * pow(sh, 39) +
1457 1.8722239536e10 * pow(sh, 40))) -
1458 1.131781364090697e-15 * pow(-1 + sh, -10) * pow(sh, -16)*
1459 (-1.522039519e11 + 4.26276275425e11 * sh +
1460 3.315607505925e12 * pow(sh, 2) -
1461 1.9935815474575e13 * pow(sh, 3) -
1462 1.24680380503679e14 * pow(sh, 4) -
1463 9.4734104241777e13 * pow(sh, 5) +
1464 6.72219759402191e14 * pow(sh, 6) +
1465 2.120473984303675e15 * pow(sh, 7) +
1466 7.662945656754339e17 * pow(sh, 8) -
1467 7.132526555906264e18 * pow(sh, 9) +
1468 2.9416202534538686e19 * pow(sh, 10) -
1469 7.102049557437948e19 * pow(sh, 11) +
1470 1.107461387150374e20 * pow(sh, 12) -
1471 1.1592296841795374e20 * pow(sh, 13) +
1472 8.202599046107015e19 * pow(sh, 14) -
1473 3.867573016059e19 * pow(sh, 15) +
1474 1.1583790708091849e19 * pow(sh, 16) +
1475 5.455110631455277e16 * pow(sh, 17) -
1476 9.021690519674575e18 * pow(sh, 18) +
1477 2.0989006324251304e19 * pow(sh, 19) -
1478 3.024958551383288e19 * pow(sh, 20) +
1479 2.6235194397528736e19 * pow(sh, 21) -
1480 4.751003778396708e18 * pow(sh, 22) +
1481 3.1013412939244257e19 * pow(sh, 23) -
1482 4.4030880872708604e20 * pow(sh, 24) +
1483 1.8521539756313275e21 * pow(sh, 25) -
1484 4.09723866666257e21 * pow(sh, 26) +
1485 4.4398535867110675e21 * pow(sh, 27) +
1486 1.6558648776187506e21 * pow(sh, 28) -
1487 1.5447456223820402e22 * pow(sh, 29) +
1488 3.0926810843136838e22 * pow(sh, 30) -
1489 3.877106240961276e22 * pow(sh, 31) +
1490 3.495116951810053e22 * pow(sh, 32) -
1491 2.3715466598184745e22 * pow(sh, 33) +
1492 1.231700538915695e22 * pow(sh, 34) -
1493 4.908204594473572e21 * pow(sh, 35) +
1494 1.4885933408647808e21 * pow(sh, 36) -
1495 3.372012167296045e20 * pow(sh, 37) +
1496 5.517431714182939e19 * pow(sh, 38) -
1497 6.150944761142205e18 * pow(sh, 39) +
1498 4.174745980836151e17 * pow(sh, 40) -
1499 1.2998152420597344e16 * pow(sh, 41) +
1500 4.32864432e10 * pow(3.141592653589793, 2)*
1501 (84. + 735. * sh + 2115. * pow(sh, 2) -
1502 105. * pow(sh, 3) - 13881. * pow(sh, 4) -
1503 27279. * pow(sh, 5) + 2289. * pow(sh, 6) +
1504 56805. * pow(sh, 7) - 1.2530385e7 * pow(sh, 8) +
1505 1.20589919e8 * pow(sh, 9) -
1506 5.04052193e8 * pow(sh, 10) +
1507 1.226945139e9 * pow(sh, 11) -
1508 1.939059325e9 * pow(sh, 12) +
1509 2.078426665e9 * pow(sh, 13) -
1510 1.520105055e9 * pow(sh, 14) +
1511 7.36103333e8 * pow(sh, 15) -
1512 2.14713611e8 * pow(sh, 16) +
1513 1.9961346e7 * pow(sh, 17) +
1514 3.7191526e7 * pow(sh, 18) -
1515 8.4336034e7 * pow(sh, 19) +
1516 1.23678654e8 * pow(sh, 20) -
1517 1.54538642e8 * pow(sh, 21) +
1518 5.6921303e8 * pow(sh, 22) -
1519 3.377351682e9 * pow(sh, 23) +
1520 1.3338367312e10 * pow(sh, 24) -
1521 3.3040152232e10 * pow(sh, 25) +
1522 4.7430542016e10 * pow(sh, 26) -
1523 1.4900494752e10 * pow(sh, 27) -
1524 1.03195325376e11 * pow(sh, 28) +
1525 2.85860573856e11 * pow(sh, 29) -
1526 4.41409041216e11 * pow(sh, 30) +
1527 4.79314177056e11 * pow(sh, 31) -
1528 3.90721421376e11 * pow(sh, 32) +
1529 2.45176465248e11 * pow(sh, 33) -
1530 1.19414737728e11 * pow(sh, 34) +
1531 4.5058851552e10 * pow(sh, 35) -
1532 1.3033582848e10 * pow(sh, 36) +
1533 2.831770656e9 * pow(sh, 37) -
1534 4.46462016e8 * pow(sh, 38) +
1535 4.8144096e7 * pow(sh, 39) - 3.171168e6 * pow(sh, 40) +
1536 96096. * pow(sh, 41)))) * pow(z, 9);
1537 else
1538 res += pow(z, 9)*(781.7694061014631 -
1539 53520.67255349783 * (1. - sh) -
1540 160255.89541905606 * pow(1. - sh, 2) -
1541 516295.64539226936 * pow(1. - sh, 3) -
1542 2.0156818718637745e6 * pow(1. - sh, 4) +
1543 log(z)*(2753.339544200989 -
1544 16340.99798716473 * (1. - sh) +
1545 19367.74477240799 * pow(1. - sh, 2) +
1546 126117.45819550043 * pow(1. - sh, 3) +
1547 232002.88921917632 * pow(1. - sh, 4)) +
1548 (-353.1111111111111 - 291.6666666666667 * (1. - sh) +
1549 12631.518518518518 * pow(1. - sh, 2) +
1550 31769.238095238095 * pow(1. - sh, 3) +
1551 98072.45502645502 * pow(1. - sh, 4)) * pow(log(z), 2));
1552 }
1553
1554 if (19 <= maxpow) {
1555 if (sh < .900001)
1556 res += 3.354178873715894e-8 * pow(3.141592653589793, 2) * pow(sh, -17)*
1557 (109395. + 2.16216e6 * sh + 2.0430696e7 * pow(sh, 2) +
1558 1.22866128e8 * pow(sh, 3) + 5.27900436e8 * pow(sh, 4) +
1559 1.72236568e9 * pow(sh, 5) + 4.41295356e9 * pow(sh, 6) +
1560 8.96714376e9 * pow(sh, 7) + 1.385377093e10 * pow(sh, 8) +
1561 8.96714376e9 * pow(sh, 9) + 4.41295356e9 * pow(sh, 10) +
1562 1.72236568e9 * pow(sh, 11) + 5.27900436e8 * pow(sh, 12) +
1563 1.22866128e8 * pow(sh, 13) + 2.0430696e7 * pow(sh, 14) +
1564 2.16216e6 * pow(sh, 15) + 109395. * pow(sh, 16)) * pow(z, 9.5);
1565 else
1566 res += (15031.271320953776 + 135281.441888584 * (1. - sh) +
1567 694444.7350280645 * pow(1. - sh, 2) +
1568 2.6605350238088183e6 * pow(1. - sh, 3) +
1569 8.443816664545784e6 * pow(1. - sh, 4)) * pow(z, 9.5);
1570 }
1571
1572 if (20 <= maxpow) {
1573 if (sh < .900001)
1574 res += (384.81650457033396 * pow(-1 + sh, -3) * pow(sh, -8) -
1575 320.13168724279836 * Li3sh * pow(-1 + sh, -3) * pow(sh, -8) +
1576 106.71056241426612 * pow(Lsh, 3) * pow(-1 + sh, -3) *
1577 pow(sh, -8) + 3.0264550264550265 * cl2 * sqrt4sh * sqrtsh *
1578 pow(sh, 4)*(-80. + 5340. * sh - 47370. * pow(sh, 2) +
1579 109970. * pow(sh, 3) + 2889. * pow(sh, 4) -
1580 292716. * pow(sh, 5) + 440556. * pow(sh, 6) -
1581 328734. * pow(sh, 7) + 146475. * pow(sh, 8) -
1582 40768. * pow(sh, 9) + 6972. * pow(sh, 10) -
1583 672. * pow(sh, 11) + 28. * pow(sh, 12)) +
1584 0.00047031158142269255 * ash * sqrt4sh * sqrtsh *
1585 pow(-1 + sh, -3) * pow(sh, 4)*
1586 (1.1035e6 - 7.72587e7 * sh + 8.84076615e8 * pow(sh, 2) -
1587 3.732489695e9 * pow(sh, 3) + 6.571169658e9 * pow(sh, 4) -
1588 8.05040586e8 * pow(sh, 5) -
1589 1.7678698868e10 * pow(sh, 6) +
1590 3.6419080572e10 * pow(sh, 7) -
1591 3.9440395638e10 * pow(sh, 8) +
1592 2.7362254298e10 * pow(sh, 9) -
1593 1.2874702995e10 * pow(sh, 10) +
1594 4.165441731e9 * pow(sh, 11) -
1595 9.14198644e8 * pow(sh, 12) + 1.30140756e8 * pow(sh, 13) -
1596 1.0845063e7 * pow(sh, 14) + 401669. * pow(sh, 15)) -
1597 9.079365079365079 * pow(ash, 2) * pow(-1 + sh, -4) * pow(sh, 5)*
1598 (-1890. + 45864. * sh - 340200. * pow(sh, 2) +
1599 1.13508e6 * pow(sh, 3) - 1.721265e6 * pow(sh, 4) +
1600 4.925592e6 * pow(sh, 6) - 1.01388e7 * pow(sh, 7) +
1601 1.158381e7 * pow(sh, 8) - 8.79228e6 * pow(sh, 9) +
1602 4.68432e6 * pow(sh, 10) - 1.782648e6 * pow(sh, 11) +
1603 482895. * pow(sh, 12) - 91000. * pow(sh, 13) +
1604 11340. * pow(sh, 14) - 840. * pow(sh, 15) + 28. * pow(sh, 16)
1605 ) - 0.0005878894767783657 * Li2sh * pow(-1 + sh, -11) *
1606 pow(sh, -9)*(-2.994992e6 + 3.202199e7 * sh -
1607 1.54990836e8 * pow(sh, 2) + 4.47615168e8 * pow(sh, 3) -
1608 8.5514352e8 * pow(sh, 4) + 1.130787504e9 * pow(sh, 5) -
1609 1.04997984e9 * pow(sh, 6) + 6.77511744e8 * pow(sh, 7) -
1610 2.91603312e8 * pow(sh, 8) + 7.589582e7 * pow(sh, 9) -
1611 9.069632e6 * pow(sh, 10) + 1071. * pow(sh, 17) -
1612 378. * pow(sh, 18)) -
1613 Lsh * (-320.13168724279836 * Li2sh * pow(-1 + sh, -3) *
1614 pow(sh, -8) - 3.0264550264550265 * ash * sqrt4sh * sqrtsh *
1615 pow(sh, 4)*(-80. + 5340. * sh - 47370. * pow(sh, 2) +
1616 109970. * pow(sh, 3) + 2889. * pow(sh, 4) -
1617 292716. * pow(sh, 5) + 440556. * pow(sh, 6) -
1618 328734. * pow(sh, 7) + 146475. * pow(sh, 8) -
1619 40768. * pow(sh, 9) + 6972. * pow(sh, 10) -
1620 672. * pow(sh, 11) + 28. * pow(sh, 12)) +
1621 5.184210553601108e-9 * pow(-1 + sh, -11) * pow(sh, -18)*
1622 (268128. + 50176. * sh - 1.5037316e7 * pow(sh, 2) -
1623 7.0758368e7 * pow(sh, 3) - 6.454424e7 * pow(sh, 4) +
1624 3.47363296e8 * pow(sh, 5) +
1625 9.86787592e8 * pow(sh, 6) + 3.5646688e7 * pow(sh, 7) -
1626 4.264570016e9 * pow(sh, 8) -
1627 49280. * (-4.185317e6 + 6.891885e6 * Lshb) *
1628 pow(sh, 9) + 2. *
1629 (-9.13367431661e11 + 1.815646833e12 * Lshb +
1630 2.5729704e10 * pow(3.141592653589793, 2)) *
1631 pow(sh, 10) -
1632 34. * (-2.11665295319e11 + 5.169400236e11 * Lshb +
1633 1.2108096e10 * pow(3.141592653589793, 2)) *
1634 pow(sh, 11) +
1635 112. * (-1.48068551563e11 + 4.532103576e11 * Lshb +
1636 1.2864852e10 * pow(3.141592653589793, 2)) *
1637 pow(sh, 12) -
1638 28. * (-8.92863157079e11 + 3.463331256e12 * Lshb +
1639 1.02918816e11 * pow(3.141592653589793, 2)) *
1640 pow(sh, 13) +
1641 7700. * (-3.377464619e9 + 1.6653415968e10 * Lshb +
1642 4.678128e8 * pow(3.141592653589793, 2)) *
1643 pow(sh, 14) -
1644 14. * (-1.367678553169e12 + 8.504836704e12 * Lshb +
1645 2.05837632e11 * pow(3.141592653589793, 2)) *
1646 pow(sh, 15) +
1647 56. * (-1.79529366083e11 + 1.3719612816e12 * Lshb +
1648 2.5729704e10 * pow(3.141592653589793, 2)) *
1649 pow(sh, 16) -
1650 4. * (-9.28306865747e11 + 8.2669538952e12 * Lshb +
1651 1.02918816e11 * pow(3.141592653589793, 2)) *
1652 pow(sh, 17) +
1653 (-9.00807538366e11 + 8.606585988e12 * Lshb +
1654 5.1459408e10 * pow(3.141592653589793, 2)) *
1655 pow(sh, 18) -
1656 315. * (-3.24014759e8 + 3.26506752e9 * Lshb) *
1657 pow(sh, 19) + 3.873846312e9 * pow(sh, 20) +
1658 6.5471364e7 * pow(sh, 21) -
1659 8.55977724e8 * pow(sh, 22) -
1660 2.31299082e8 * pow(sh, 23) +
1661 1.540332e8 * pow(sh, 24) + 1.180071e8 * pow(sh, 25) +
1662 11025. * (-2549. + 11016. * Lshb) * pow(sh, 26) -
1663 11025. * (145. + 3888. * Lshb) * pow(sh, 27))) -
1664 6.532105297537396e-6 * pow(Lsh, 2) * pow(-1 + sh, -12) *
1665 pow(sh, -18)*(-1008. - 8848. * sh - 23688. * pow(sh, 2) +
1666 17352. * pow(sh, 3) + 212592. * pow(sh, 4) +
1667 311184. * pow(sh, 5) - 400176. * pow(sh, 6) -
1668 1.492176e6 * pow(sh, 7) + 255024. * pow(sh, 8) +
1669 1.29624264e8 * pow(sh, 9) +
1670 24. * (-6.2253479e7 + 1.02102e6 * Lshb) * pow(sh, 10) -
1671 27. * (-2.70724357e8 + 8.16816e6 * Lshb) * pow(sh, 11) +
1672 1989. * (-1.0174699e7 + 443520. * Lshb) * pow(sh, 12) -
1673 1848. * (-1.9205873e7 + 1.11384e6 * Lshb) * pow(sh, 13) +
1674 4032. * (-1.0206433e7 + 765765. * Lshb) * pow(sh, 14) -
1675 3528. * (-8.888339e6 + 875160. * Lshb) * pow(sh, 15) +
1676 168. * (-8.6549101e7 + 1.225224e7 * Lshb) * pow(sh, 16) -
1677 72. * (-3.9754051e7 + 1.225224e7 * Lshb) * pow(sh, 17) +
1678 36. * (1.9660427e7 + 6.12612e6 * Lshb) * pow(sh, 18) -
1679 2. * (2.60905399e8 + 1.225224e7 * Lshb) * pow(sh, 19) +
1680 8.729721e7 * pow(sh, 20) + 48195. * pow(sh, 26) -
1681 65205. * pow(sh, 27) + 17010. * pow(sh, 28)) -
1682 6.532105297537396e-6 * pow(lz, 2) * pow(sh, -18)*
1683 (-252. - 5236. * sh - 52122. * pow(sh, 2) -
1684 330990. * pow(sh, 3) - 1.50586e6 * pow(sh, 4) -
1685 5.221788e6 * pow(sh, 5) - 1.4306214e7 * pow(sh, 6) -
1686 3.1500898e7 * pow(sh, 7) - 5.513508e7 * pow(sh, 8) +
1687 4.900896e7 * pow(sh, 9) - 2.668511e7 * pow(sh, 10) -
1688 1.4613135e7 * pow(sh, 11) + 8.763045e6 * pow(sh, 12) +
1689 2.218345e7 * pow(sh, 13) + 2.506596e7 * pow(sh, 14) +
1690 2.0910477e7 * pow(sh, 15) + 1.2190381e7 * pow(sh, 16) +
1691 252. * pow(sh, 17) + 6.48648e7 * pow(sh, 18) +
1692 6.555978e7 * pow(sh, 19) + 6.764472e7 * pow(sh, 20) +
1693 7.18146e7 * pow(sh, 21) + 7.87644e7 * pow(sh, 22) +
1694 3.081078e8 * pow(sh, 23) - 4.33296864e9 * pow(sh, 24) +
1695 2.046808764e10 * pow(sh, 25) -
1696 2.24524872e10 * pow(sh, 26) -
1697 3.088433205e10 * pow(sh, 27) +
1698 9.73829142e10 * pow(sh, 28) -
1699 1.059717087e11 * pow(sh, 29) +
1700 6.5108043e10 * pow(sh, 30) -
1701 2.507429925e10 * pow(sh, 31) +
1702 6.1945884e9 * pow(sh, 32) - 9.567558e8 * pow(sh, 33) +
1703 8.432424e7 * pow(sh, 34) - 3.24324e6 * pow(sh, 35)) -
1704 lz * (160.06584362139918 * pow(Lsh, 2) * pow(-1 + sh, -3) *
1705 pow(sh, -8) - 6.052910052910053 * ash * sqrt4sh * sqrtsh *
1706 pow(sh, 4)*(-80. + 5340. * sh - 47370. * pow(sh, 2) +
1707 109970. * pow(sh, 3) + 2889. * pow(sh, 4) -
1708 292716. * pow(sh, 5) + 440556. * pow(sh, 6) -
1709 328734. * pow(sh, 7) + 146475. * pow(sh, 8) -
1710 40768. * pow(sh, 9) + 6972. * pow(sh, 10) -
1711 672. * pow(sh, 11) + 28. * pow(sh, 12)) -
1712 0.000013064210595074793 * Lsh * pow(-1 + sh, -11) *
1713 pow(sh, -18)*(504. + 4928. * sh + 16772. * pow(sh, 2) +
1714 8096. * pow(sh, 3) - 98200. * pow(sh, 4) -
1715 253792. * pow(sh, 5) - 53704. * pow(sh, 6) +
1716 692384. * pow(sh, 7) + 564872. * pow(sh, 8) -
1717 1.224454e8 * pow(sh, 9) +
1718 1.288450948e9 * pow(sh, 10) -
1719 5.852563529e9 * pow(sh, 11) +
1720 1.5415053304e10 * pow(sh, 12) -
1721 2.6502321608e10 * pow(sh, 13) +
1722 3.144127168e10 * pow(sh, 14) -
1723 2.6331569936e10 * pow(sh, 15) +
1724 1.5529376128e10 * pow(sh, 16) -
1725 6.238441328e9 * pow(sh, 17) +
1726 1.555660876e9 * pow(sh, 18) -
1727 1.7969985e8 * pow(sh, 19) - 864864. * pow(sh, 20) -
1728 769608. * pow(sh, 21) + 13608. * pow(sh, 22) +
1729 222264. * pow(sh, 23) + 69120. * pow(sh, 24) -
1730 36360. * pow(sh, 25) + 3465. * pow(sh, 26) -
1731 5355. * pow(sh, 27)) +
1732 2.132542391444306e-12 * pow(-1 + sh, -10) * pow(sh, -18)*
1733 (3.25909584e8 + 3.86898512e8 * sh -
1734 1.7890959086e10 * pow(sh, 2) -
1735 1.0389775539e11 * pow(sh, 3) -
1736 1.8235127911e11 * pow(sh, 4) +
1737 2.39868807178e11 * pow(sh, 5) +
1738 1.439309125254e12 * pow(sh, 6) +
1739 1.482637674518e12 * pow(sh, 7) -
1740 3.70094717993e12 * pow(sh, 8) +
1741 5.3120395014687e14 * pow(sh, 9) -
1742 4.14643042172931e15 * pow(sh, 10) +
1743 1.345200523191798e16 * pow(sh, 11) -
1744 2.254936255887042e16 * pow(sh, 12) +
1745 1.699263013683648e16 * pow(sh, 13) +
1746 6.14963216664132e15 * pow(sh, 14) -
1747 2.740944223315607e16 * pow(sh, 15) +
1748 2.8637380687636936e16 * pow(sh, 16) -
1749 1.5526446414793194e16 * pow(sh, 17) +
1750 4.836946771691055e15 * pow(sh, 18) -
1751 5.380798436415755e15 * pow(sh, 19) +
1752 1.974903378165775e16 * pow(sh, 20) -
1753 4.525406630722413e16 * pow(sh, 21) +
1754 6.653785922015247e16 * pow(sh, 22) -
1755 6.66839502419495e16 * pow(sh, 23) +
1756 6.049729378013662e16 * pow(sh, 24) -
1757 7.411696572018171e16 * pow(sh, 25) -
1758 2.463627215549949e17 * pow(sh, 26) +
1759 2.690872861043421e18 * pow(sh, 27) -
1760 1.035946806297679e19 * pow(sh, 28) +
1761 2.182665348950866e19 * pow(sh, 29) -
1762 2.151768755011101e19 * pow(sh, 30) -
1763 1.6939887428138682e19 * pow(sh, 31) +
1764 1.0333267615804637e20 * pow(sh, 32) -
1765 2.0555129789476546e20 * pow(sh, 33) +
1766 2.6641684480745528e20 * pow(sh, 34) -
1767 2.5331099541938533e20 * pow(sh, 35) +
1768 1.8430954123554472e20 * pow(sh, 36) -
1769 1.0440880163165341e20 * pow(sh, 37) +
1770 4.6274661819032445e19 * pow(sh, 38) -
1771 1.5988086524017488e19 * pow(sh, 39) +
1772 4.2570217606020905e18 * pow(sh, 40) -
1773 8.554234587216317e17 * pow(sh, 41) +
1774 1.252838056241772e17 * pow(sh, 42) -
1775 1.26021689978184e16 * pow(sh, 43) +
1776 7.7738941071792e14 * pow(sh, 44) -
1777 2.214605244852e13 * pow(sh, 45))) +
1778 3.4810653259229434e-19 * pow(-1 + sh, -11) * pow(sh, -18)*
1779 (-3.16414088198208e14 + 9.74539823921664e14 * sh +
1780 8.087033764735926e15 * pow(sh, 2) -
1781 5.684694862939435e16 * pow(sh, 3) -
1782 4.0319420043801754e17 * pow(sh, 4) -
1783 4.882604186351892e17 * pow(sh, 5) +
1784 1.9325128069129482e18 * pow(sh, 6) +
1785 6.292691026868566e18 * pow(sh, 7) +
1786 6.880478820028293e18 * pow(sh, 8) +
1787 8.434058124662613e21 * pow(sh, 9) -
1788 8.666666875206849e22 * pow(sh, 10) +
1789 3.988848694569122e23 * pow(sh, 11) -
1790 1.0892247798831997e24 * pow(sh, 12) +
1791 1.956951254970254e24 * pow(sh, 13) -
1792 2.420742712936919e24 * pow(sh, 14) +
1793 2.0958116597163414e24 * pow(sh, 15) -
1794 1.2670164385119088e24 * pow(sh, 16) +
1795 5.268571590407634e23 * pow(sh, 17) -
1796 1.5075131737158982e23 * pow(sh, 18) +
1797 5.5099869108338715e22 * pow(sh, 19) -
1798 1.2335610340065616e23 * pow(sh, 20) +
1799 3.125948051315389e23 * pow(sh, 21) -
1800 5.329144661412522e23 * pow(sh, 22) +
1801 6.337672351589234e23 * pow(sh, 23) -
1802 6.415906398957901e23 * pow(sh, 24) +
1803 7.960742052832872e23 * pow(sh, 25) +
1804 1.0407339222184654e24 * pow(sh, 26) -
1805 1.8365456331044262e25 * pow(sh, 27) +
1806 8.185263022637105e25 * pow(sh, 28) -
1807 2.0381593674174775e26 * pow(sh, 29) +
1808 2.86653881719294e26 * pow(sh, 30) -
1809 8.60180283451487e25 * pow(sh, 31) -
1810 6.102598804051836e26 * pow(sh, 32) +
1811 1.677905797647036e27 * pow(sh, 33) -
1812 2.6085143775451684e27 * pow(sh, 34) +
1813 2.8903964656452616e27 * pow(sh, 35) -
1814 2.4393048290135273e27 * pow(sh, 36) +
1815 1.610228894638015e27 * pow(sh, 37) -
1816 8.401871973947814e26 * pow(sh, 38) +
1817 3.469550828380025e26 * pow(sh, 39) -
1818 1.1272782566287204e26 * pow(sh, 40) +
1819 2.8443789274384395e25 * pow(sh, 41) -
1820 5.451981703535345e24 * pow(sh, 42) +
1821 7.659728477371017e23 * pow(sh, 43) -
1822 7.427478422398451e22 * pow(sh, 44) +
1823 4.435813069347255e21 * pow(sh, 45) -
1824 1.2279937968685318e20 * pow(sh, 46) +
1825 6.2548910424e12 * pow(3.141592653589793, 2)*
1826 (1512. + 14784. * sh + 50316. * pow(sh, 2) +
1827 24288. * pow(sh, 3) - 294600. * pow(sh, 4) -
1828 761376. * pow(sh, 5) - 161112. * pow(sh, 6) +
1829 2.077152e6 * pow(sh, 7) + 1.694616e6 * pow(sh, 8) -
1830 9.4319148e8 * pow(sh, 9) +
1831 9.967342612e9 * pow(sh, 10) -
1832 4.6850139311e10 * pow(sh, 11) +
1833 1.30210149496e11 * pow(sh, 12) -
1834 2.38833139832e11 * pow(sh, 13) +
1835 3.0372906844e11 * pow(sh, 14) -
1836 2.72391022736e11 * pow(sh, 15) +
1837 1.70802069088e11 * pow(sh, 16) -
1838 7.1983905728e10 * pow(sh, 17) +
1839 1.8589933516e10 * pow(sh, 18) -
1840 2.99998765e9 * pow(sh, 19) +
1841 3.44063258e9 * pow(sh, 20) -
1842 8.9705161e9 * pow(sh, 21) +
1843 1.535557394e10 * pow(sh, 22) -
1844 1.759879618e10 * pow(sh, 23) +
1845 1.0323785e9 * pow(sh, 24) +
1846 1.54134820988e11 * pow(sh, 25) -
1847 1.050042005659e12 * pow(sh, 26) +
1848 4.280975184059e12 * pow(sh, 27) -
1849 1.1452618278108e13 * pow(sh, 28) +
1850 1.942055517402e13 * pow(sh, 29) -
1851 1.455317517654e13 * pow(sh, 30) -
1852 2.304660776418e13 * pow(sh, 31) +
1853 9.97892002107e13 * pow(sh, 32) -
1854 1.907859269745e14 * pow(sh, 33) +
1855 2.504750279031e14 * pow(sh, 34) -
1856 2.483138624967e14 * pow(sh, 35) +
1857 1.926820640745e14 * pow(sh, 36) -
1858 1.188407379159e14 * pow(sh, 37) +
1859 5.85603387369e13 * pow(sh, 38) -
1860 2.301507374166e13 * pow(sh, 39) +
1861 7.15907863242e12 * pow(sh, 40) -
1862 1.73763555966e12 * pow(sh, 41) +
1863 3.216402189e11 * pow(sh, 42) -
1864 4.378374e10 * pow(sh, 43) +
1865 4.12540128e9 * pow(sh, 44) -
1866 2.3999976e8 * pow(sh, 45) + 6.48648e6 * pow(sh, 46)))) *
1867 pow(z, 10);
1868 else
1869 res += pow(z, 10)*(2841.537345257575 -
1870 225632.48115404812 * (1. - sh) -
1871 731898.7973986422 * pow(1. - sh, 2) -
1872 2.5500608094526595e6 * pow(1. - sh, 3) -
1873 1.0871575896706128e7 * pow(1. - sh, 4) +
1874 log(z)*(10236.629660601508 -
1875 69938.30618254407 * (1. - sh) +
1876 86757.40411215654 * pow(1. - sh, 2) +
1877 605518.1352531877 * pow(1. - sh, 3) +
1878 1.0480116268625655e6 * pow(1. - sh, 4)) +
1879 (-1356.6172839506173 -
1880 1319.851851851852 * (1. - sh) +
1881 58319.57037037037 * pow(1. - sh, 2) +
1882 152747.21081716637 * pow(1. - sh, 3) +
1883 509124.9807172252 * pow(1. - sh, 4)) * pow(log(z), 2));
1884 }
1885 }
1886 return res;
1887}
1888
1889double F_1::F_17im(double muh, double z, double sh, int maxpow)
1890{
1891 double lz = log(z);
1892 double Lsh = log(sh);
1893 double Lshb = log(1. - sh);
1894 double Li2sh = real(Li2(sh));
1895 double Li3sh = real(Li3(sh));
1896
1897
1898 double res = 0;
1899
1900 if (sh < 0.4) {
1901 res = -0.517135 + 1.39626 * sh + 0.465421 * lz * sh + 1.59186 * z +
1902 0.93084 * lz * z + 5.78065 * sh * z + 0.930842 * Lsh * sh * z +
1903 6.5159 * lz * sh * z + 0.9308425 * z * pow(lz, 2) +
1904 0.9308425 * sh * z * pow(lz, 2) + 1.59019 * pow(sh, 2) +
1905 0.465421 * lz * pow(sh, 2) + 14.7788 * z * pow(sh, 2) +
1906 1.86168 * Lsh * z * pow(sh, 2) + 11.1701 * lz * z * pow(sh, 2) +
1907 0.9308425 * z * pow(lz, 2) * pow(sh, 2) + 1.63673 * pow(sh, 3) +
1908 0.465421 * lz * pow(sh, 3) + 25.8196 * z * pow(sh, 3) +
1909 2.79253 * Lsh * z * pow(sh, 3) + 15.51405 * lz * z * pow(sh, 3) +
1910 0.9308425 * z * pow(lz, 2) * pow(sh, 3) +
1911 0.00258567 * pow(sh, 3) * pow(z, -2) -
1912 0.0258567 * pow(sh, 3) * pow(z, -1) - 3.06235 * pow(z, 2) -
1913 15.2375 * sh * pow(z, 2) + 5.58505 * lz * sh * pow(z, 2) +
1914 3.72337 * Lsh * lz * sh * pow(z, 2) +
1915 0.9308425 * pow(lz, 2) * pow(z, 2) +
1916 4.6542 * sh * pow(lz, 2) * pow(z, 2) -
1917 32.8021 * pow(sh, 2) * pow(z, 2) +
1918 3.72337 * Lsh * pow(sh, 2) * pow(z, 2) +
1919 19.5477 * lz * pow(sh, 2) * pow(z, 2) +
1920 11.1701 * Lsh * lz * pow(sh, 2) * pow(z, 2) +
1921 11.1701 * pow(lz, 2) * pow(sh, 2) * pow(z, 2) -
1922 52.4207 * pow(sh, 3) * pow(z, 2) +
1923 13.0318 * Lsh * pow(sh, 3) * pow(z, 2) +
1924 44.37015 * lz * pow(sh, 3) * pow(z, 2) +
1925 22.3402 * Lsh * lz * pow(sh, 3) * pow(z, 2) +
1926 20.478525 * pow(lz, 2) * pow(sh, 3) * pow(z, 2) +
1927 2.89595 * pow(z, 3) - 1.241125 * lz * pow(z, 3) +
1928 15.6984 * sh * pow(z, 3) + 1.86168 * Lsh * sh * pow(z, 3) -
1929 12.41125 * lz * sh * pow(z, 3) - 3.72337 * Lsh * lz * sh * pow(z, 3) +
1930 34.8683 * pow(sh, 2) * pow(z, 3) +
1931 3.72337 * Lsh * pow(sh, 2) * pow(z, 3) -
1932 40.3365 * lz * pow(sh, 2) * pow(z, 3) -
1933 14.8935 * Lsh * lz * pow(sh, 2) * pow(z, 3) +
1934 54.2499 * pow(sh, 3) * pow(z, 3) +
1935 1.86168 * Lsh * pow(sh, 3) * pow(z, 3) -
1936 92.4635 * lz * pow(sh, 3) * pow(z, 3) -
1937 37.2337 * Lsh * lz * pow(sh, 3) * pow(z, 3);
1938 } else {
1939 if (0 <= maxpow) {
1940 if (sh < .900001)
1941 res += (0.4654211338651545 * Lsh * sh * (-1. + 2. * sh) * pow(-1 + sh, -3) -
1942 0.025856729659175254 * pow(-1 + sh, -2)*
1943 (20. - 49. * sh + 47. * pow(sh, 2))) * pow(z, 0);
1944 else
1945 res += (-0.8274153490936081 + 0.11635528346628862 * (1. - sh) +
1946 0.054299132284268026 * pow(1. - sh, 2) +
1947 0.031028075591010302 * pow(1. - sh, 3) +
1948 0.019946620022792336 * pow(1. - sh, 4)) * pow(z, 0);
1949 }
1950
1951 if (1 <= maxpow) {
1952 if (sh < .900001)
1953 res += 0.;
1954 else
1955 res += 0.;
1956 }
1957
1958 if (2 <= maxpow) {
1959 if (sh < .900001)
1960 res += (-8.951402989423594 * sh * pow(-1 + sh, -3) +
1961 7.446738141842472 * Li3sh * sh * pow(-1 + sh, -3) -
1962 0.930842267730309 * Li2sh * (-5. + 3. * sh) *
1963 pow(-1 + sh, -3) - 0.620561511820206 * sh * pow(Lsh, 3) *
1964 pow(-1 + sh, -3) + 1.861684535460618 * pow(Lsh, 2) *
1965 pow(-1 + sh, -2) - Lsh *
1966 (3.723369070921236 * Li2sh * sh * pow(-1 + sh, -3) +
1967 0.930842267730309 * pow(-1 + sh, -3)*
1968 (3. + Lshb * (-5. + 3. * sh) +
1969 2. * sh * pow(3.141592653589793, 2) - 2. * pow(sh, 2)))\
1970 + 0.1551403779550515 * pow(-1 + sh, -3)*
1971 (-6. * (2. - 5. * sh + 3. * pow(sh, 2)) +
1972 pow(3.141592653589793, 2)*
1973 (-9. + 3. * sh + 4. * pow(sh, 2)))) * pow(z, 1);
1974 else
1975 res += (4.1876741044473365 + 2.7402552937030498 * (1. - sh) +
1976 2.1232783768063475 * pow(1. - sh, 2) +
1977 1.7630333644902134 * pow(1. - sh, 3) +
1978 1.5217395214542553 * pow(1. - sh, 4)) * pow(z, 1);
1979 }
1980
1981 if (3 <= maxpow) {
1982 if (sh < .900001)
1983 res += 0.;
1984 else
1985 res += 0.;
1986 }
1987
1988 if (4 <= maxpow) {
1989 if (sh < .900001)
1990 res += (-0.930842267730309 * Li2sh * (2. - 7. * sh) * pow(-1 + sh, -3) +
1991 0.930842267730309 * pow(Lsh, 2) * pow(-1 + sh, -2) -
1992 lz * (6.5158958741121635 * Lsh * sh * pow(-1 + sh, -3) -
1993 0.4654211338651545 * pow(-1 + sh, -2) * pow(sh, -2)*
1994 (2. - 7. * sh + 15. * pow(sh, 2) + 4. * pow(sh, 3))) -
1995 0.07757018897752575 * pow(-1 + sh, -3) * pow(sh, -2)*
1996 (-18. + 63. * sh - 2. *
1997 (63. + 2. * pow(3.141592653589793, 2)) * pow(sh, 2) +
1998 (9. + 14. * pow(3.141592653589793, 2)) * pow(sh, 3) +
1999 36. * pow(sh, 4)) +
2000 0.4654211338651545 * Lsh * pow(-1 + sh, -4) * pow(sh, -2)*
2001 (-4. + 13. * sh + (-21. + 4. * Lshb) * pow(sh, 2) +
2002 (11. - 18. * Lshb) * pow(sh, 3) +
2003 (-5. + 14. * Lshb) * pow(sh, 4))) * pow(z, 2);
2004 else
2005 res += (1.52554704989134 + 3.0730723199929786 * (1. - sh) +
2006 4.914071471726257 * pow(1. - sh, 2) +
2007 7.194598089480287 * pow(1. - sh, 3) +
2008 9.866611424925042 * pow(1. - sh, 4) +
2009 log(z)*(0.620561511820206 +
2010 1.0084124567078347 * (1. - sh) +
2011 1.7220581953010718 * pow(1. - sh, 2) +
2012 2.544302198462845 * pow(1. - sh, 3) +
2013 3.413088315011133 * pow(1. - sh, 4))) * pow(z, 2);
2014 }
2015
2016 if (5 <= maxpow) {
2017 if (sh < .900001)
2018 res += 0.;
2019 else
2020 res += 0.;
2021 }
2022
2023 if (6 <= maxpow) {
2024 if (sh < .900001)
2025 res += (-1.861684535460618 * pow(Lsh, 2) * pow(-1 + sh, -3) * pow(sh, -1) +
2026 1.861684535460618 * Li2sh * pow(-1 + sh, -4) * pow(sh, -1)*
2027 (1. - sh + 2. * pow(sh, 2)) +
2028 0.1551403779550515 * Lsh * pow(-1 + sh, -5) * pow(sh, -4)*
2029 (4. + 4. * sh - 71. * pow(sh, 2) +
2030 (155. - 12. * Lshb) * pow(sh, 3) +
2031 2. * (-83. + 12. * Lshb) * pow(sh, 4) +
2032 (98. - 36. * Lshb) * pow(sh, 5) +
2033 12. * (-3. + 2. * Lshb) * pow(sh, 6)) -
2034 lz * (1.861684535460618 * Lsh * pow(-1 + sh, -4) *
2035 pow(sh, -1)*(1. - sh + 2. * pow(sh, 2)) +
2036 0.1551403779550515 * pow(-1 + sh, -3) * pow(sh, -4)*
2037 (2. + 6. * sh - 45. * pow(sh, 2) + 61. * pow(sh, 3) -
2038 41. * pow(sh, 4) - 11. * pow(sh, 5) + 4. * pow(sh, 6))) -
2039 0.025856729659175254 * pow(-1 + sh, -4) * pow(sh, -4)*
2040 (10. - 10. * sh - 54. * pow(sh, 2) +
2041 2. * (-23. + 6. * pow(3.141592653589793, 2)) * pow(sh, 3) -
2042 3. * (-53. + 4. * pow(3.141592653589793, 2)) * pow(sh, 4) +
2043 24. * (-10. + pow(3.141592653589793, 2)) * pow(sh, 5) +
2044 141. * pow(sh, 6) - 32. * pow(sh, 7))) * pow(z, 3);
2045 else
2046 res += (2.32969134229169 + 7.64686922940449 * (1. - sh) +
2047 18.94249239557088 * pow(1. - sh, 2) +
2048 38.204310125548965 * pow(1. - sh, 3) +
2049 67.3328659256586 * pow(1. - sh, 4) +
2050 log(z)*(0.1551403779550515 +
2051 3.07177948351002 * (1. - sh) +
2052 8.625805014300864 * pow(1. - sh, 2) +
2053 17.193986459646997 * pow(1. - sh, 3) +
2054 29.117632651049522 * pow(1. - sh, 4))) * pow(z, 3);
2055 }
2056
2057 if (7 <= maxpow) {
2058 if (sh < .900001)
2059 res += 0.;
2060 else
2061 res += 0.;
2062 }
2063
2064 if (8 <= maxpow) {
2065 if (sh < .900001)
2066 res += (-3.1028075591010302 * Li2sh * pow(-1 + sh, -3) * pow(sh, -2) -
2067 3.1028075591010302 * pow(Lsh, 2) * pow(-1 + sh, -3) *
2068 pow(sh, -2) - lz *
2069 (-3.1028075591010302 * Lsh * pow(-1 + sh, -3) * pow(sh, -2) -
2070 0.05171345931835051 * pow(-1 + sh, -2) * pow(sh, -6)*
2071 (3. + 19. * sh + 43. * pow(sh, 2) - 260. * pow(sh, 3) +
2072 225. * pow(sh, 4) - 105. * pow(sh, 5) + 15. * pow(sh, 6)))
2073 - 0.05171345931835051 * Lsh * pow(-1 + sh, -6) * pow(sh, -6)*
2074 (6. + 14. * sh - 30. * pow(sh, 2) - 405. * pow(sh, 3) +
2075 (1569. - 60. * Lshb) * pow(sh, 4) +
2076 15. * (-169. + 12. * Lshb) * pow(sh, 5) +
2077 (2235. - 180. * Lshb) * pow(sh, 6) +
2078 (-1037. + 60. * Lshb) * pow(sh, 7) + 213. * pow(sh, 8)) +
2079 0.004309454943195875 * pow(-1 + sh, -5) * pow(sh, -6)*
2080 (21. - 10. * sh - 307. * pow(sh, 2) + 1247. * pow(sh, 3) +
2081 (-3143. + 120. * pow(3.141592653589793, 2)) *
2082 pow(sh, 4) + (3526. -
2083 240. * pow(3.141592653589793, 2)) * pow(sh, 5) +
2084 (397. + 120. * pow(3.141592653589793, 2)) * pow(sh, 6) -
2085 2577. * pow(sh, 7) + 1140. * pow(sh, 8) +
2086 138. * pow(sh, 9) - 72. * pow(sh, 10))) * pow(z, 4);
2087 else
2088 res += (2.999380640464329 + 22.55925786392586 * (1. - sh) +
2089 78.72635417514317 * pow(1. - sh, 2) +
2090 200.15639021889723 * pow(1. - sh, 3) +
2091 424.28359587096105 * pow(1. - sh, 4) +
2092 log(z)*(2.482246047280824 +
2093 14.11777439390969 * (1. - sh) +
2094 44.215007717189685 * pow(1. - sh, 2) +
2095 104.04748014852122 * pow(1. - sh, 3) +
2096 206.9868147402206 * pow(1. - sh, 4))) * pow(z, 4);
2097 }
2098
2099 if (9 <= maxpow) {
2100 if (sh < .900001)
2101 res += 0.;
2102 else
2103 res += 0.;
2104 }
2105
2106 if (10 <= maxpow) {
2107 if (sh < .900001)
2108 res += (-6.5158958741121635 * Li2sh * pow(-1 + sh, -3) * pow(sh, -3) -
2109 6.5158958741121635 * pow(Lsh, 2) * pow(-1 + sh, -3) *
2110 pow(sh, -3) - lz *
2111 (-6.5158958741121635 * Lsh * pow(-1 + sh, -3) * pow(sh, -3) -
2112 0.015514037795505151 * pow(-1 + sh, -2) * pow(sh, -8)*
2113 (6. + 51. * sh + 181. * pow(sh, 2) + 301. * pow(sh, 3) -
2114 2324. * pow(sh, 4) + 2220. * pow(sh, 5) -
2115 880. * pow(sh, 6) - 70. * pow(sh, 7) + 95. * pow(sh, 8)))\
2116 - 0.015514037795505151 * Lsh * pow(-1 + sh, -7) * pow(sh, -8)*
2117 (-12. - 42. * sh + 28. * pow(sh, 2) + 308. * pow(sh, 3) +
2118 2793. * pow(sh, 4) +
2119 2. * (-8339. + 210. * Lshb) * pow(sh, 5) +
2120 (37042. - 1680. * Lshb) * pow(sh, 6) +
2121 168. * (-266. + 15. * Lshb) * pow(sh, 7) -
2122 8. * (-3959. + 210. * Lshb) * pow(sh, 8) +
2123 3. * (-4351. + 140. * Lshb) * pow(sh, 9) + 2720. * pow(sh, 10)
2124 ) - 0.00025856729659175253 * pow(-1 + sh, -6) *
2125 pow(sh, -8)*(162. - 36. * sh - 2914. * pow(sh, 2) -
2126 5862. * pow(sh, 3) + 97530. * pow(sh, 4) -
2127 329152. * pow(sh, 5) -
2128 4200. * pow(3.141592653589793, 2) * pow(-1 + sh, 3) *
2129 pow(sh, 5) + 497696. * pow(sh, 6) -
2130 286926. * pow(sh, 7) - 114303. * pow(sh, 8) +
2131 259230. * pow(sh, 9) - 141000. * pow(sh, 10) +
2132 22550. * pow(sh, 11) - 2975. * pow(sh, 12) +
2133 600. * pow(sh, 13))) * pow(z, 5);
2134 else
2135 res += (7.5730667353201575 + 76.74295831935828 * (1. - sh) +
2136 333.4828305424486 * pow(1. - sh, 2) +
2137 1010.6544814238534 * pow(1. - sh, 3) +
2138 2487.030661606718 * pow(1. - sh, 4) +
2139 log(z)*(9.618703433213193 +
2140 58.798203244964526 * (1. - sh) +
2141 212.46474760944307 * pow(1. - sh, 2) +
2142 578.673609772342 * pow(1. - sh, 3) +
2143 1319.624054885668 * pow(1. - sh, 4))) * pow(z, 5);
2144 }
2145
2146 if (11 <= maxpow) {
2147 if (sh < .900001)
2148 res += 0.;
2149 else
2150 res += 0.;
2151 }
2152
2153 if (12 <= maxpow) {
2154 if (sh < .900001)
2155 res += (-15.638150097869193 * Li2sh * pow(-1 + sh, -3) * pow(sh, -4) -
2156 15.638150097869193 * pow(Lsh, 2) * pow(-1 + sh, -3) *
2157 pow(sh, -4) - lz *
2158 (-15.638150097869193 * Lsh * pow(-1 + sh, -3) * pow(sh, -4) -
2159 0.00310280755910103 * pow(-1 + sh, -2) * pow(sh, -10)*
2160 (20. + 212. * sh + 992. * pow(sh, 2) +
2161 2592. * pow(sh, 3) + 3492. * pow(sh, 4) -
2162 33768. * pow(sh, 5) + 34250. * pow(sh, 6) -
2163 12355. * pow(sh, 7) - 1855. * pow(sh, 8) +
2164 795. * pow(sh, 9) + 585. * pow(sh, 10))) -
2165 0.00310280755910103 * Lsh * pow(-1 + sh, -8) * pow(sh, -10)*
2166 (40. + 184. * sh + 40. * pow(sh, 2) - 1160. * pow(sh, 3) -
2167 2240. * pow(sh, 4) - 33740. * pow(sh, 5) -
2168 6. * (-44969. + 840. * Lshb) * pow(sh, 6) +
2169 315. * (-2447. + 80. * Lshb) * pow(sh, 7) -
2170 15. * (-80189. + 3360. * Lshb) * pow(sh, 8) +
2171 40. * (-28549. + 1260. * Lshb) * pow(sh, 9) +
2172 (669980. - 25200. * Lshb) * pow(sh, 10) +
2173 (-228338. + 5040. * Lshb) * pow(sh, 11) +
2174 35770. * pow(sh, 12)) -
2175 0.00005171345931835051 * pow(-1 + sh, -7) * pow(sh, -10)*
2176 (-440. + 32. * sh + 10212. * pow(sh, 2) +
2177 23632. * pow(sh, 3) - 7888. * pow(sh, 4) -
2178 1.620528e6 * pow(sh, 5) + 7.571238e6 * pow(sh, 6) -
2179 50400. * pow(3.141592653589793, 2) * pow(-1 + sh, 4) *
2180 pow(sh, 6) - 1.5372042e7 * pow(sh, 7) +
2181 1.5504288e7 * pow(sh, 8) - 5.560242e6 * pow(sh, 9) -
2182 3.213542e6 * pow(sh, 10) + 3.254015e6 * pow(sh, 11) -
2183 18260. * pow(sh, 12) - 907710. * pow(sh, 13) +
2184 366640. * pow(sh, 14) - 57405. * pow(sh, 15) +
2185 2800. * pow(sh, 16))) * pow(z, 6);
2186 else
2187 res += (22.715875769290008 + 274.2629779131134 * (1. - sh) +
2188 1412.2988649700028 * pow(1. - sh, 2) +
2189 4950.204882473423 * pow(1. - sh, 3) +
2190 13834.085987140208 * pow(1. - sh, 4) +
2191 log(z)*(35.68228692966185 +
2192 243.9582443343185 * (1. - sh) +
2193 998.3128181029609 * pow(1. - sh, 2) +
2194 3074.85126299353 * pow(1. - sh, 3) +
2195 7873.5293215968195 * pow(1. - sh, 4))) * pow(z, 6);
2196 }
2197
2198 if (13 <= maxpow) {
2199 if (sh < .900001)
2200 res += 0.;
2201 else
2202 res += 0.;
2203 }
2204
2205 if (14 <= maxpow) {
2206 if (sh < .900001)
2207 res += (-40.9570597801336 * Li2sh * pow(-1 + sh, -3) * pow(sh, -5) -
2208 40.9570597801336 * pow(Lsh, 2) * pow(-1 + sh, -3) *
2209 pow(sh, -5) - lz *
2210 (-40.9570597801336 * Lsh * pow(-1 + sh, -3) * pow(sh, -5) -
2211 0.0014775274090957288 * pow(-1 + sh, -2) * pow(sh, -12)*
2212 (30. + 380. * sh + 2186. * pow(sh, 2) +
2213 7436. * pow(sh, 3) + 15906. * pow(sh, 4) +
2214 18216. * pow(sh, 5) - 217404. * pow(sh, 6) +
2215 230279. * pow(sh, 7) - 78421. * pow(sh, 8) -
2216 14581. * pow(sh, 9) + 3024. * pow(sh, 10) +
2217 3864. * pow(sh, 11) + 1365. * pow(sh, 12))) -
2218 0.0014775274090957288 * Lsh * pow(-1 + sh, -9) * pow(sh, -12)*
2219 (-60. - 340. * sh - 312. * pow(sh, 2) + 1872. * pow(sh, 3) +
2220 4980. * pow(sh, 4) + 1620. * pow(sh, 5) +
2221 203850. * pow(sh, 6) +
2222 (-1.895519e6 + 27720. * Lshb) * pow(sh, 7) +
2223 (6.594942e6 - 166320. * Lshb) * pow(sh, 8) +
2224 33. * (-385051. + 12600. * Lshb) * pow(sh, 9) +
2225 (1.5286135e7 - 554400. * Lshb) * pow(sh, 10) +
2226 15. * (-794279. + 27720. * Lshb) * pow(sh, 11) -
2227 6. * (-990013. + 27720. * Lshb) * pow(sh, 12) +
2228 2. * (-882383. + 13860. * Lshb) * pow(sh, 13) +
2229 249228. * pow(sh, 14)) -
2230 3.517922402608878e-6 * pow(-1 + sh, -8) * pow(sh, -12)*
2231 (3900. + 100. * sh - 116036. * pow(sh, 2) -
2232 329570. * pow(sh, 3) + 93490. * pow(sh, 4) +
2233 1.36222e6 * pow(sh, 5) + 7.515214e7 * pow(sh, 6) -
2234 4.58367722e8 * pow(sh, 7) -
2235 1.9404e6 * pow(3.141592653589793, 2) * pow(-1 + sh, 5) *
2236 pow(sh, 7) + 1.185571378e9 * pow(sh, 8) -
2237 1.64901962e9 * pow(sh, 9) + 1.210803485e9 * pow(sh, 10) -
2238 2.77663825e8 * pow(sh, 11) - 2.28715591e8 * pow(sh, 12) +
2239 1.81552504e8 * pow(sh, 13) - 5.1683975e7 * pow(sh, 14) +
2240 3.0412585e7 * pow(sh, 15) - 3.0028425e7 * pow(sh, 16) +
2241 1.2629064e7 * pow(sh, 17) - 2.061822e6 * pow(sh, 18) +
2242 52920. * pow(sh, 19))) * pow(z, 7);
2243 else
2244 res += (76.06009440178788 + 1017.2781752351876 * (1. - sh) +
2245 5990.892688563418 * pow(1. - sh, 2) +
2246 23739.93632888451 * pow(1. - sh, 3) +
2247 74088.64892315648 * pow(1. - sh, 4) +
2248 log(z)*(131.81760780247544 +
2249 1011.2566969703441 * (1. - sh) +
2250 4618.653164024247 * pow(1. - sh, 2) +
2251 15821.68116499002 * pow(1. - sh, 3) +
2252 44807.95424173389 * pow(1. - sh, 4))) * pow(z, 7);
2253 }
2254
2255 if (15 <= maxpow) {
2256 if (sh < .900001)
2257 res += 0.;
2258 else
2259 res += 0.;
2260 }
2261
2262 if (16 <= maxpow) {
2263 if (sh < .900001)
2264 res += (-114.09466653037217 * Li2sh * pow(-1 + sh, -3) * pow(sh, -6) -
2265 114.09466653037217 * pow(Lsh, 2) * pow(-1 + sh, -3) *
2266 pow(sh, -6) - lz *
2267 (-114.09466653037217 * Lsh * pow(-1 + sh, -3) * pow(sh, -6) -
2268 0.000316613016234799 * pow(-1 + sh, -2) * pow(sh, -14)*
2269 (105. + 1545. * sh + 10505. * pow(sh, 2) +
2270 43433. * pow(sh, 3) + 119873. * pow(sh, 4) +
2271 221793. * pow(sh, 5) + 221793. * pow(sh, 6) -
2272 3.231657e6 * pow(sh, 7) + 3.541034e6 * pow(sh, 8) -
2273 1.160656e6 * pow(sh, 9) - 243376. * pow(sh, 10) +
2274 26124. * pow(sh, 11) + 54544. * pow(sh, 12) +
2275 27790. * pow(sh, 13) + 6790. * pow(sh, 14))) -
2276 0.000633226032469598 * Lsh * pow(-1 + sh, -10) * pow(sh, -14)*
2277 (105. + 705. * sh + 1085. * pow(sh, 2) - 3227. * pow(sh, 3) -
2278 12621. * pow(sh, 4) - 7077. * pow(sh, 5) +
2279 23415. * pow(sh, 6) - 1.52775e6 * pow(sh, 7) +
2280 (1.5332677e7 - 180180. * Lshb) * pow(sh, 8) +
2281 154. * (-404281. + 8190. * Lshb) * pow(sh, 9) -
2282 3276. * (-43597. + 1155. * Lshb) * pow(sh, 10) +
2283 140. * (-1.492544e6 + 45045. * Lshb) * pow(sh, 11) -
2284 35. * (-5.843231e6 + 180180. * Lshb) * pow(sh, 12) +
2285 84. * (-1.606567e6 + 45045. * Lshb) * pow(sh, 13) -
2286 14. * (-4.169089e6 + 90090. * Lshb) * pow(sh, 14) +
2287 4. * (-3.790859e6 + 45045. * Lshb) * pow(sh, 15) +
2288 1.820973e6 * pow(sh, 16)) -
2289 3.7692025742237975e-7 * pow(-1 + sh, -9) * pow(sh, -14)*
2290 (-23625. - 2250. * sh + 884825. * pow(sh, 2) +
2291 3.042036e6 * pow(sh, 3) + 226209. * pow(sh, 4) -
2292 1.547673e7 * pow(sh, 5) - 1.7445585e7 * pow(sh, 6) -
2293 2.27462355e9 * pow(sh, 7) +
2294 1.6881630069e10 * pow(sh, 8) -
2295 5.04504e7 * pow(3.141592653589793, 2) * pow(-1 + sh, 6) *
2296 pow(sh, 8) - 5.3231013434e10 * pow(sh, 9) +
2297 9.3745467315e10 * pow(sh, 10) -
2298 9.75051387e10 * pow(sh, 11) +
2299 5.4985329535e10 * pow(sh, 12) -
2300 7.700748318e9 * pow(sh, 13) -
2301 9.422168487e9 * pow(sh, 14) +
2302 5.032015758e9 * pow(sh, 15) + 1.2563586e8 * pow(sh, 16) -
2303 1.23426506e9 * pow(sh, 17) +
2304 1.153426148e9 * pow(sh, 18) -
2305 7.67036928e8 * pow(sh, 19) + 2.79185592e8 * pow(sh, 20) -
2306 4.285204e7 * pow(sh, 21) + 776160. * pow(sh, 22))) *
2307 pow(z, 8);
2308 else
2309 res += (271.5271820060675 + 3880.215714318396 * (1. - sh) +
2310 25470.9497140867 * pow(1. - sh, 2) +
2311 112116.7831963215 * pow(1. - sh, 3) +
2312 385562.38008219755 * pow(1. - sh, 4) +
2313 log(z)*(489.0024713143224 +
2314 4185.8425376052455 * (1. - sh) +
2315 21101.356451405147 * pow(1. - sh, 2) +
2316 79419.24508622084 * pow(1. - sh, 3) +
2317 245951.53666868948 * pow(1. - sh, 4))) * pow(z, 8);
2318 }
2319
2320 if (17 <= maxpow) {
2321 if (sh < .900001)
2322 res += 0.;
2323 else
2324 res += 0.;
2325 }
2326
2327 if (18 <= maxpow) {
2328 if (sh < .900001)
2329 res += (-332.77611071358547 * Li2sh * pow(-1 + sh, -3) * pow(sh, -7) -
2330 332.77611071358547 * pow(Lsh, 2) * pow(-1 + sh, -3) *
2331 pow(sh, -7) - lz *
2332 (-332.77611071358547 * Lsh * pow(-1 + sh, -3) * pow(sh, -7) -
2333 0.0009234546306848304 * pow(-1 + sh, -2) * pow(sh, -16)*
2334 (28. + 469. * sh + 3673. * pow(sh, 2) +
2335 17785. * pow(sh, 3) + 59113. * pow(sh, 4) +
2336 140257. * pow(sh, 5) + 231985. * pow(sh, 6) +
2337 205777. * pow(sh, 7) - 3.632057e6 * pow(sh, 8) +
2338 4.091364e6 * pow(sh, 9) - 1.304928e6 * pow(sh, 10) -
2339 297432. * pow(sh, 11) + 14292. * pow(sh, 12) +
2340 58644. * pow(sh, 13) + 35460. * pow(sh, 14) +
2341 12780. * pow(sh, 15) + 2430. * pow(sh, 16))) -
2342 0.0009234546306848304 * Lsh * pow(-1 + sh, -11) * pow(sh, -16)*
2343 (-56. - 434. * sh - 920. * pow(sh, 2) + 1480. * pow(sh, 3) +
2344 9184. * pow(sh, 4) + 8932. * pow(sh, 5) -
2345 19712. * pow(sh, 6) - 36344. * pow(sh, 7) +
2346 3.49657e6 * pow(sh, 8) +
2347 7. * (-5.358061e6 + 51480. * Lshb) * pow(sh, 9) -
2348 20. * (-8.630911e6 + 144144. * Lshb) * pow(sh, 10) +
2349 880. * (-521011. + 11466. * Lshb) * pow(sh, 11) -
2350 56. * (-1.4125987e7 + 360360. * Lshb) * pow(sh, 12) +
2351 140. * (-6.677771e6 + 180180. * Lshb) * pow(sh, 13) -
2352 112. * (-6.885077e6 + 180180. * Lshb) * pow(sh, 14) +
2353 56. * (-7.869671e6 + 180180. * Lshb) * pow(sh, 15) +
2354 (1.68053456e8 - 2.88288e6 * Lshb) * pow(sh, 16) +
2355 (-3.8989933e7 + 360360. * Lshb) * pow(sh, 17) +
2356 4.262544e6 * pow(sh, 18)) -
2357 7.329005005435162e-7 * pow(-1 + sh, -10) * pow(sh, -16)*
2358 (8330. + 1225. * sh - 385185. * pow(sh, 2) -
2359 1.565725e6 * pow(sh, 3) - 766913. * pow(sh, 4) +
2360 8.101569e6 * pow(sh, 5) + 1.6471637e7 * pow(sh, 6) -
2361 1.4354375e7 * pow(sh, 7) + 3.953480265e9 * pow(sh, 8) -
2362 3.3767434535e10 * pow(sh, 9) -
2363 7.56756e7 * pow(3.141592653589793, 2) * pow(-1 + sh, 7) *
2364 pow(sh, 9) + 1.25322516107e11 * pow(sh, 10) -
2365 2.66443744245e11 * pow(sh, 11) +
2366 3.52730324065e11 * pow(sh, 12) -
2367 2.89748672815e11 * pow(sh, 13) +
2368 1.29737902497e11 * pow(sh, 14) -
2369 9.132479783e9 * pow(sh, 15) -
2370 2.0967436048e10 * pow(sh, 16) +
2371 9.674219718e9 * pow(sh, 17) -
2372 2.08073817e9 * pow(sh, 18) +
2373 2.119593546e9 * pow(sh, 19) -
2374 2.784214188e9 * pow(sh, 20) +
2375 2.248987986e9 * pow(sh, 21) -
2376 1.186673418e9 * pow(sh, 22) + 3.6469845e8 * pow(sh, 23) -
2377 5.0148315e7 * pow(sh, 24) + 720720. * pow(sh, 25))) *
2378 pow(z, 9);
2379 else
2380 res += (1006.065639479665 + 15109.542202132543 * (1. - sh) +
2381 108519.79668479163 * pow(1. - sh, 2) +
2382 523317.44480667595 * pow(1. - sh, 3) +
2383 1.9618209518756133e6 * pow(1. - sh, 4) +
2384 log(z)*(1824.4508447514058 +
2385 17292.722228759816 * (1. - sh) +
2386 95376.89127845067 * pow(1. - sh, 2) +
2387 390749.8979900969 * pow(1. - sh, 3) +
2388 1.3116595468138563e6 * pow(1. - sh, 4))) * pow(z, 9);
2389 }
2390
2391 if (19 <= maxpow) {
2392 if (sh < .900001)
2393 res += 0.;
2394 else
2395 res += 0.;
2396 }
2397
2398 if (20 <= maxpow) {
2399 if (sh < .900001)
2400 res += (-1005.7233568232806 * Li2sh * pow(-1 + sh, -3) * pow(sh, -8) -
2401 1005.7233568232806 * pow(Lsh, 2) * pow(-1 + sh, -3) *
2402 pow(sh, -8) - lz *
2403 (-1005.7233568232806 * Lsh * pow(-1 + sh, -3) * pow(sh, -8) -
2404 0.00004104242803043691 * pow(-1 + sh, -2) * pow(sh, -18)*
2405 (504. + 9464. * sh + 83804. * pow(sh, 2) +
2406 463964. * pow(sh, 3) + 1.792004e6 * pow(sh, 4) +
2407 5.082116e6 * pow(sh, 5) + 1.0736996e7 * pow(sh, 6) +
2408 1.6220516e7 * pow(sh, 7) + 1.2878996e7 * pow(sh, 8) -
2409 2.73934804e8 * pow(sh, 9) +
2410 3.15821466e8 * pow(sh, 10) -
2411 9.8670339e7 * pow(sh, 11) -
2412 2.3977539e7 * pow(sh, 12) + 157761. * pow(sh, 13) +
2413 4.274181e6 * pow(sh, 14) + 2.899395e6 * pow(sh, 15) +
2414 1.241235e6 * pow(sh, 16) + 359415. * pow(sh, 17) +
2415 56385. * pow(sh, 18))) -
2416 0.00004104242803043691 * Lsh * pow(-1 + sh, -12) *
2417 pow(sh, -18)*(1008. + 8848. * sh + 23688. * pow(sh, 2) -
2418 17352. * pow(sh, 3) - 212592. * pow(sh, 4) -
2419 311184. * pow(sh, 5) + 400176. * pow(sh, 6) +
2420 1.492176e6 * pow(sh, 7) - 255024. * pow(sh, 8) -
2421 2.64398904e8 * pow(sh, 9) -
2422 6. * (-5.11641281e8 + 4.08408e6 * Lshb) * pow(sh, 10) +
2423 9. * (-1.747237201e9 + 2.450448e7 * Lshb) * pow(sh, 11) -
2424 1989. * (-2.3808319e7 + 443520. * Lshb) * pow(sh, 12) +
2425 1848. * (-5.0928893e7 + 1.11384e6 * Lshb) * pow(sh, 13) -
2426 13104. * (-9.960259e6 + 235620. * Lshb) * pow(sh, 14) +
2427 3528. * (-3.6704249e7 + 875160. * Lshb) * pow(sh, 15) -
2428 168. * (-5.49270061e8 + 1.225224e7 * Lshb) * pow(sh, 16) +
2429 72. * (-6.45450961e8 + 1.225224e7 * Lshb) * pow(sh, 17) -
2430 288. * (-5.4964186e7 + 765765. * Lshb) * pow(sh, 18) +
2431 (-3.301634542e9 + 2.450448e7 * Lshb) * pow(sh, 19) +
2432 3.2083623e8 * pow(sh, 20)) +
2433 1.6286677789855916e-8 * pow(-1 + sh, -11) * pow(sh, -18)*
2434 (268128. + 50176. * sh - 1.5037316e7 * pow(sh, 2) -
2435 7.0758368e7 * pow(sh, 3) - 6.454424e7 * pow(sh, 4) +
2436 3.47363296e8 * pow(sh, 5) + 9.86787592e8 * pow(sh, 6) +
2437 3.5646688e7 * pow(sh, 7) - 4.264570016e9 * pow(sh, 8) +
2438 6.1791288328e11 * pow(sh, 9) -
2439 5.890389956722e12 * pow(sh, 10) +
2440 1.02918816e10 * pow(3.141592653589793, 2) *
2441 pow(-1 + sh, 8) * pow(sh, 10) +
2442 2.5054270208126e13 * pow(sh, 11) -
2443 6.2290275001696e13 * pow(sh, 12) +
2444 9.9547394852612e13 * pow(sh, 13) -
2445 1.0492568190538e14 * pow(sh, 14) +
2446 7.0557905411966e13 * pow(sh, 15) -
2447 2.5585687891288e13 * pow(sh, 16) +
2448 2.41116416108e11 * pow(sh, 17) +
2449 4.002654161834e12 * pow(sh, 18) -
2450 1.418993445915e12 * pow(sh, 19) -
2451 5.1123112488e10 * pow(sh, 20) +
2452 3.91122982404e11 * pow(sh, 21) -
2453 5.60776090644e11 * pow(sh, 22) +
2454 5.66827442118e11 * pow(sh, 23) -
2455 3.8373727824e11 * pow(sh, 24) +
2456 1.699988427e11 * pow(sh, 25) -
2457 4.480654338e10 * pow(sh, 26) +
2458 5.447537865e9 * pow(sh, 27) - 6.48648e7 * pow(sh, 28))) *
2459 pow(z, 10);
2460 else
2461 res += (3810.205573044906 + 59724.74778239659 * (1. - sh) +
2462 463067.1377229003 * pow(1. - sh, 2) +
2463 2.4198049101282065e6 * pow(1. - sh, 3) +
2464 9.801969439295417e6 * pow(1. - sh, 4) +
2465 log(z)*(6844.5866215396 +
2466 71287.3656645614 * (1. - sh) +
2467 427082.75058067543 * pow(1. - sh, 2) +
2468 1.8906811822573014e6 * pow(1. - sh, 3) +
2469 6.831129334403158e6 * pow(1. - sh, 4))) * pow(z, 10);
2470 }
2471 }
2472 return res;
2473}
2474
2475double F_1::F_19re(double muh, double z, double sh, int maxpow)
2476{
2477 double lz = log(z);
2478 double lmu = log(muh);
2479 double Lsh = log(sh);
2480 double sh2 = pow(sh, 2);
2481 double sh3 = pow(sh, 3);
2482 double lz2 = pow(lz, 2);
2483 double lz3 = pow(lz, 3);
2484 double sqrtz = pow(z, 0.5);
2485 double z2 = pow(z, 2);
2486 double z3 = pow(z, 3);
2487
2488
2489 double res = 0;
2490
2491 if (sh < 0.4) {
2492 res = -4.61812 - 0.0493827 * Lsh - 0.06584362139917696 * lmu * Lsh +
2493 2.814815 * lz + lmu * (-1.953360768175583 +
2494 1.1851851851851851 * lz) + 4.47441 * sh + 0.74074 * lz * sh +
2495 14.4621 * z - 0.592593 * Lsh * z + 4.796605 * lz * z +
2496 71.3855 * sh * z - 2.66667 * Lsh * sh * z + 4.238385 * lz * sh * z -
2497 0.592595 * Lsh * lz * sh * z - 1.0534979423868314 * pow(lmu, 2) -
2498 0.2962975 * z * lz2 + 3.134725 * sh * z * lz2 -
2499 0.098765375 * z * lz3 - 0.098765375 * sh * z * lz3 +
2500 0.0493826875 * sh * z * pow(lz, 4) + 37.1282 * sh2 +
2501 0.0164609 * Lsh * sh2 + 11.03105 * lz * sh2 +
2502 212.74 * z * sh2 - 5.33333 * Lsh * z * sh2 -
2503 10.96075 * lz * z * sh2 - 1.185185 * Lsh * lz * z * sh2 +
2504 1.3333325 * lz2 * sh2 +
2505 14.2931 * z * lz2 * sh2 +
2506 0.098765375 * lz3 * sh2 -
2507 0.29629625 * z * lz3 * sh2 +
2508 0.148148125 * z * pow(lz, 4) * sh2 + 79.7475 * sh3 +
2509 0.0219479 * Lsh * sh3 + 28.65855 * lz * sh3 +
2510 425.579 * z * sh3 - 8.2963 * Lsh * z * sh3 -
2511 34.4008 * lz * z * sh3 - 1.77778 * Lsh * lz * z * sh3 +
2512 2.814825 * lz2 * sh3 +
2513 32.33925 * z * lz2 * sh3 +
2514 0.29629625 * lz3 * sh3 -
2515 0.6913575 * z * lz3 * sh3 +
2516 0.29629625 * z * pow(lz, 4) * sh3 +
2517 lmu * sh3*(0.00020902736952119668 -
2518 0.0037624926513815404 * pow(z, -3)) -
2519 0.0759415 * sh3 * pow(z, -3) +
2520 lmu * sh2*(0.0014109347442680777 -
2521 0.025396825396825397 * pow(z, -2)) -
2522 0.403158 * sh2 * pow(z, -2) -
2523 0.00480894 * sh3 * pow(z, -2) +
2524 lmu * sh * (0.01316872427983539 -
2525 0.23703703703703705 * pow(z, -1)) -
2526 2.48507 * sh * pow(z, -1) - 0.0613169 * sh2 * pow(z, -1) -
2527 1.81002 * sh3 * pow(z, -1) -
2528 0.4597295 * lz * sh3 * pow(z, -1) -
2529 0.04938275 * lz2 * sh3 * pow(z, -1) +
2530 sh3*(7.79821 * pow(z, -0.5) - 319.726 * sqrtz) -
2531 23.3946 * sh * sqrtz - 140.368 * sh2 * sqrtz +
2532 3.8991 * pow(z, 1.5) - 16.0864 * z2 +
2533 4.95977 * Lsh * z2 + 27.12195 * lz * z2 -
2534 0.592595 * Lsh * lz * z2 - 18.1301 * sh * z2 +
2535 18.6539 * Lsh * sh * z2 + 74.798 * lz * sh * z2 -
2536 2.37037 * Lsh * lz * sh * z2 -
2537 3.85185 * lz2 * z2 -
2538 0.5925925 * Lsh * lz2 * z2 -
2539 12.2963 * sh * lz2 * z2 -
2540 2.37037 * Lsh * sh * lz2 * z2 -
2541 0.4938275 * lz3 * z2 -
2542 1.3827125 * sh * lz3 * z2 -
2543 44.6829 * sh2 * z2 +
2544 40.786 * Lsh * sh2 * z2 +
2545 136.0075 * lz * sh2 * z2 -
2546 7.1111 * Lsh * lz * sh2 * z2 -
2547 29.77775 * lz2 * sh2 * z2 -
2548 5.333325 * Lsh * lz2 * sh2 * z2 -
2549 2.6666625 * lz3 * sh2 * z2 -
2550 87.8946 * sh3 * z2 +
2551 70.2698 * Lsh * sh3 * z2 +
2552 208.806 * lz * sh3 * z2 -
2553 15.80245 * Lsh * lz * sh3 * z2 -
2554 56.79 * lz2 * sh3 * z2 -
2555 9.481475 * Lsh * lz2 * sh3 * z2 -
2556 4.345675 * lz3 * sh3 * z2 - 14.73 * z3 -
2557 9.20287 * Lsh * z3 - 14.28805 * lz * z3 -
2558 0.52675 * Lsh * lz * z3 - 72.89 * sh * z3 -
2559 41.6104 * Lsh * sh * z3 - 34.0675 * lz * sh * z3 -
2560 1.185185 * Lsh * lz * sh * z3 +
2561 5.037025 * lz2 * z3 +
2562 0.7901225 * Lsh * lz2 * z3 +
2563 15.901225 * sh * lz2 * z3 +
2564 3.55555 * Lsh * sh * lz2 * z3 -
2565 137.203 * sh2 * z3 -
2566 111.356 * Lsh * sh2 * z3 -
2567 49.7185 * lz * sh2 * z3 +
2568 42.22225 * lz2 * sh2 * z3 +
2569 9.481475 * Lsh * lz2 * sh2 * z3 -
2570 279.268 * sh3 * z3 -
2571 231.893 * Lsh * sh3 * z3 -
2572 73.4265 * lz * sh3 * z3 +
2573 5.92595 * Lsh * lz * sh3 * z3 +
2574 82.81475 * lz2 * sh3 * z3 +
2575 19.753075 * Lsh * lz2 * sh3 * z3;
2576 } else {
2577 double Lshb = log(1. - sh);
2578 double sqrtsh = sqrt(sh);
2579 double sqrt4sh = sqrt(4. - sh);
2580 double Li2sh = real(Li2(sh));
2581 double Li3sh = real(Li3(sh));
2582 double Li3shb = real(Li3(1. - sh));
2583 double Li4sh = real(Li4(sh));
2584 double ash = asin(sqrtsh / 2.);
2585 double cl2 = Cl2(2. * ash);
2586 double cl3 = Cl3(2. * ash);
2587 if (0 <= maxpow) {
2588 if (sh < .900001)
2589 res += (11.39728026699467 - 1.0534979423868314 * pow(lmu, 2) -
2590 0.03292181069958848 * Li2sh * (-8. + 17. * sh) *
2591 pow(-1 + sh, -1) - 0.03292181069958848 * cl2 * (2. + sh) *
2592 sqrt4sh * sqrtsh * pow(sh, -2) -
2593 lmu * (-1.1193415637860082 * Lsh +
2594 0.13168724279835392 * ash * (2. + sh) * sqrt4sh * sqrtsh *
2595 pow(sh, -2) + 0.13168724279835392 * (-2. + 29. * sh) *
2596 pow(sh, -1)) + 0.14814814814814814 * pow(Lsh, 2) *
2597 pow(-1 + sh, -3) * pow(sh, 2) -
2598 Lsh * (0.03292181069958848 * ash * (2. + sh) * sqrt4sh *
2599 sqrtsh * pow(sh, -2) +
2600 0.01646090534979424 * pow(-1 + sh, -2)*
2601 (-168. + 307. * sh - 121. * pow(sh, 2) +
2602 2. * Lshb * (8. - 25. * sh + 17. * pow(sh, 2)))) -
2603 0.03292181069958848 * ash * sqrt4sh * sqrtsh * pow(-1 + sh, -3) *
2604 pow(sh, -2)*(-4. + 3. * sh + 18. * pow(sh, 2) -
2605 16. * pow(sh, 3) + 5. * pow(sh, 4)) -
2606 0.09876543209876543 * pow(ash, 2) * pow(-1 + sh, -4) *
2607 pow(sh, -1)*(12. - 33. * sh + 18. * pow(sh, 2) -
2608 4. * pow(sh, 4) + pow(sh, 5)) +
2609 0.001828989483310471 * pow(-1 + sh, -4) * pow(sh, -1)*
2610 (144. + 2. * sh * (-2068. +
2611 75. * pow(3.141592653589793, 2)) +
2612 (15077. - 618. * pow(3.141592653589793, 2)) *
2613 pow(sh, 2) + 102. *
2614 (-214. + 9. * pow(3.141592653589793, 2)) * pow(sh, 3) +
2615 (14249. - 615. * pow(3.141592653589793, 2)) *
2616 pow(sh, 4) + 2. * (-1753. +
2617 78. * pow(3.141592653589793, 2)) * pow(sh, 5))) *
2618 pow(z, 0);
2619 else
2620 res += pow(z, 0)*(5.605483340182181 -
2621 1.9301201034078073 * (1. - sh) -
2622 1.1708211541924651 * pow(1. - sh, 2) -
2623 0.8303057591438543 * pow(1. - sh, 3) +
2624 log(muh)*(-3.9138369114536733 -
2625 1.136144688522592 * (1. - sh) -
2626 0.5573265536192934 * pow(1. - sh, 2) -
2627 0.37357014711105585 * pow(1. - sh, 3) -
2628 0.27973271946953165 * pow(1. - sh, 4)) -
2629 0.6410250317311895 * pow(1. - sh, 4) -
2630 1.0534979423868314 * pow(log(muh), 2));
2631 }
2632
2633 if (1 <= maxpow) {
2634 if (sh < .900001)
2635 res += 0.;
2636 else
2637 res += 0.;
2638 }
2639
2640 if (2 <= maxpow) {
2641 if (sh < .900001)
2642 res += (-0.09876543209876543 * sh * pow(Lsh, 4) * pow(-1 + sh, -3) +
2643 0.5925925925925926 * Li2sh * (1. + 2. * sh) *
2644 pow(-1 + sh, -2) - 0.19753086419753085 * (-3. + sh) *
2645 pow(Lsh, 3) * pow(-1 + sh, -2) -
2646 7.111111111111111 * lmu * pow(sh, -1) -
2647 lz * (0.5925925925925926 * Lsh *
2648 (2. + 2. * Lshb * (-1. + sh) + sh) * pow(-1 + sh, -2) +
2649 1.1851851851851851 * Li2sh * pow(-1 + sh, -1) -
2650 0.5925925925925926 * pow(Lsh, 2) * pow(-1 + sh, -1) -
2651 0.19753086419753085 *
2652 (144. + sh * (-135. + pow(3.141592653589793, 2))) *
2653 pow(-1 + sh, -1) * pow(sh, -1)) +
2654 0.7123300166871669 * pow(-1 + sh, -3)*
2655 (-3. + 3. * sh + 2. * pow(sh, 2)) -
2656 0.5925925925925926 * ash * sqrt4sh * sqrtsh * pow(-1 + sh, -3) *
2657 pow(sh, -1)*(2. - 11. * sh + 3. * pow(sh, 2)) +
2658 0.5925925925925926 * Li3sh * pow(-1 + sh, -3)*
2659 (-3. - 3. * sh + 4. * pow(sh, 2)) -
2660 pow(Lsh, 2)*(1.1851851851851851 * Li2sh * sh *
2661 pow(-1 + sh, -3) +
2662 0.09876543209876543 * pow(-1 + sh, -3)*
2663 (12. + 3. * Lshb * (-7. + 5. * sh) +
2664 2. * sh * (-6. + pow(3.141592653589793, 2)) +
2665 3. * pow(sh, 2))) -
2666 3.5555555555555554 * pow(ash, 2) * pow(-1 + sh, -4)*
2667 (-1. + 8. * sh - 5. * pow(sh, 2) + pow(sh, 3)) -
2668 Lsh * (5.698640133497335 * sh * pow(-1 + sh, -3) -
2669 4.7407407407407405 * Li3sh * sh * pow(-1 + sh, -3) +
2670 0.5925925925925926 * Li2sh * pow(-1 + sh, -3)*
2671 (-5. + sh + 2. * pow(sh, 2)) -
2672 0.09876543209876543 * pow(-1 + sh, -3) * pow(sh, -1)*
2673 (-288. + sh * (906. - 6. * Lshb -
2674 7. * pow(3.141592653589793, 2)) +
2675 (-903. - 6. * Lshb + 5. * pow(3.141592653589793, 2)) *
2676 pow(sh, 2) + 3. * (95. + 4. * Lshb) * pow(sh, 3))) -
2677 0.019753086419753086 * pow(-1 + sh, -4) * pow(sh, -1)*
2678 (-4. * (-1. + sh) * pow(3.141592653589793, 4) * pow(sh, 2) +
2679 15. * (-1. + sh)*(-20. + 48. * sh +
2680 3. * (-13. + 8. * Li4sh) * pow(sh, 2) + 11. * pow(sh, 3))\
2681 + 5. * pow(3.141592653589793, 2)*
2682 (-3. + 8. * sh - 10. * pow(sh, 2) + 2. * pow(sh, 4)))) *
2683 pow(z, 1);
2684 else
2685 res += (-0.6372090343808106 - 30.841194974865694 * (1. - sh) -
2686 45.8723194923496 * pow(1. - sh, 2) -
2687 55.64666652217136 * pow(1. - sh, 3) +
2688 log(z)*(-29.333333333333332 -
2689 29.037037037037038 * (1. - sh) -
2690 28.921810699588477 * pow(1. - sh, 2) -
2691 28.854320987654322 * pow(1. - sh, 3) -
2692 28.8079012345679 * pow(1. - sh, 4)) +
2693 log(muh)*(-7.111111111111111 -
2694 7.111111111111111 * (1. - sh) -
2695 7.111111111111111 * pow(1. - sh, 2) -
2696 7.111111111111111 * pow(1. - sh, 3) -
2697 7.111111111111111 * pow(1. - sh, 4)) -
2698 62.91148562558235 * pow(1. - sh, 4)) * pow(z, 1);
2699 }
2700
2701 if (3 <= maxpow) {
2702 if (sh < .900001)
2703 res += 0.3950617283950617 * (-2. + sh) * pow(3.141592653589793, 2) *
2704 pow(sh, -1) * pow(z, 1.5);
2705 else
2706 res += (-3.8991029732698697 - 7.798205946539739 * (1. - sh) -
2707 7.798205946539739 * pow(1. - sh, 2) -
2708 7.798205946539739 * pow(1. - sh, 3) -
2709 7.798205946539739 * pow(1. - sh, 4)) * pow(z, 1.5);
2710 }
2711
2712 if (4 <= maxpow) {
2713 if (sh < .900001)
2714 res += (-0.5925925925925926 * Li3shb * (6. + sh) * pow(-1 + sh, -3) -
2715 0.5925925925925926 * Li3sh * (-11. + 3. * sh) *
2716 pow(-1 + sh, -3) - 0.09876543209876543 * (2. + sh) *
2717 pow(Lsh, 3) * pow(-1 + sh, -3) -
2718 lmu * (3.5555555555555554 * pow(sh, -2) +
2719 7.111111111111111 * Lsh * pow(sh, -2)) +
2720 0.5925925925925926 * Li2sh * pow(-1 + sh, -3) * pow(sh, -2)*
2721 (-3. + 10. * sh - 9. * pow(sh, 2) + pow(sh, 3)) +
2722 0.5925925925925926 * cl2 * sqrt4sh * sqrtsh * pow(-1 + sh, -3) *
2723 pow(sh, -1)*(2. + 8. * pow(sh, 2) - 5. * pow(sh, 3) +
2724 pow(sh, 4)) - 0.5925925925925926 * ash * sqrt4sh * sqrtsh *
2725 pow(-1 + sh, -3) * pow(sh, -1)*
2726 (-2. - 4. * sh + 24. * pow(sh, 2) - 15. * pow(sh, 3) +
2727 3. * pow(sh, 4)) - 0.7123300166871669 * pow(-1 + sh, -4) *
2728 pow(sh, -2)*(64. - 256. * sh + 375. * pow(sh, 2) -
2729 236. * pow(sh, 3) + 59. * pow(sh, 4)) +
2730 0.14814814814814814 * pow(Lsh, 2) * pow(-1 + sh, -4) *
2731 pow(sh, -2)*(185. - 751. * sh +
2732 3. * (379. + 2. * Lshb) * pow(sh, 2) -
2733 (777. + 8. * Lshb) * pow(sh, 3) +
2734 2. * (100. + Lshb) * pow(sh, 4)) -
2735 Lsh * (-0.5925925925925926 * Li2sh * (-7. + 2. * sh) *
2736 pow(-1 + sh, -3) -
2737 3.5555555555555554 * pow(ash, 2) * pow(-1 + sh, -4)*
2738 (-1. - 3. * sh + pow(sh, 2)) -
2739 0.04938271604938271 * pow(-1 + sh, -3) * pow(sh, -2)*
2740 (-423. + 1236. * sh -
2741 (1179. + 46. * pow(3.141592653589793, 2)) *
2742 pow(sh, 2) + 2. *
2743 (225. + pow(3.141592653589793, 2)) * pow(sh, 3) +
2744 12. * Lshb * (-3. + 10. * sh - 9. * pow(sh, 2) +
2745 pow(sh, 3))) -
2746 0.5925925925925926 * ash * sqrt4sh * sqrtsh *
2747 pow(-1 + sh, -3) * pow(sh, -1)*
2748 (2. + 8. * pow(sh, 2) - 5. * pow(sh, 3) + pow(sh, 4))) -
2749 1.7777777777777777 * pow(ash, 2) * pow(-1 + sh, -4)*
2750 (4. - 2. * sh - 24. * pow(sh, 2) + 23. * pow(sh, 3) -
2751 8. * pow(sh, 4) + pow(sh, 5)) -
2752 pow(lz, 2)*(-0.2962962962962963 * Lsh * (6. + sh) *
2753 pow(-1 + sh, -3) -
2754 0.14814814814814814 * pow(-1 + sh, -2) * pow(sh, -2)*
2755 (188. - 378. * sh + 169. * pow(sh, 2) + 12. * pow(sh, 3) -
2756 6. * pow(sh, 4) + pow(sh, 5))) -
2757 0.024691358024691357 * pow(-1 + sh, -4) * pow(sh, -2)*
2758 (88. - 448. * sh - 3. * (-415. + 48. * cl3) * pow(sh, 2) -
2759 2. * (917. + 216. * cl3) * pow(sh, 3) +
2760 (1453. + 144. * cl3) * pow(sh, 4) - 693. * pow(sh, 5) +
2761 210. * pow(sh, 6) - 21. * pow(sh, 7) -
2762 2. * pow(3.141592653589793, 2)*
2763 (-603. + 2441. * sh - 3677. * pow(sh, 2) +
2764 2457. * pow(sh, 3) - 662. * pow(sh, 4) +
2765 52. * pow(sh, 5) - 16. * pow(sh, 6) + 2. * pow(sh, 7))) -
2766 lz * (0.5925925925925926 * Li2sh * (6. + sh) *
2767 pow(-1 + sh, -3) -
2768 0.2962962962962963 * pow(Lsh, 2) * pow(-1 + sh, -2) -
2769 7.111111111111111 * lmu * pow(sh, -2) -
2770 7.111111111111111 * pow(ash, 2) * pow(-1 + sh, -4)*
2771 (-1. - 3. * sh + pow(sh, 2)) +
2772 0.2962962962962963 * Lsh * pow(-1 + sh, -3) * pow(sh, -2)*
2773 (-187. + 566. * sh +
2774 3. * (-191. + 4. * Lshb) * pow(sh, 2) +
2775 2. * (96. + Lshb) * pow(sh, 3)) -
2776 1.1851851851851851 * ash * sqrt4sh * sqrtsh *
2777 pow(-1 + sh, -3) * pow(sh, -1)*
2778 (2. + 8. * pow(sh, 2) - 5. * pow(sh, 3) + pow(sh, 4)) +
2779 0.04938271604938271 * pow(-1 + sh, -4) * pow(sh, -2)*
2780 (432. - 1728. * sh +
2781 (2511. + 8. * pow(3.141592653589793, 2)) *
2782 pow(sh, 2) - 2. *
2783 (735. + 11. * pow(3.141592653589793, 2)) * pow(sh, 3)\
2784 + (99. + 2. * pow(3.141592653589793, 2)) *
2785 pow(sh, 4) + 225. * pow(sh, 5) - 78. * pow(sh, 6) +
2786 9. * pow(sh, 7)))) * pow(z, 2);
2787 else
2788 res += pow(z, 2)*(-336.0382986459167 -
2789 695.8939576145283 * (1. - sh) -
2790 1040.3241576582361 * pow(1. - sh, 2) -
2791 1365.7546667417848 * pow(1. - sh, 3) -
2792 1671.7824637501126 * pow(1. - sh, 4) +
2793 log(muh)*(-3.5555555555555554 +
2794 7.111111111111111 * pow(1. - sh, 2) +
2795 16.59259259259259 * pow(1. - sh, 3) +
2796 27.85185185185185 * pow(1. - sh, 4)) +
2797 log(z)*(-21.887216272530303 +
2798 9.991951790611958 * (1. - sh) +
2799 71.95973563934483 * pow(1. - sh, 2) +
2800 151.94549827445954 * pow(1. - sh, 3) +
2801 245.72125954180052 * pow(1. - sh, 4) +
2802 log(muh)*(7.111111111111111 +
2803 14.222222222222221 * (1. - sh) +
2804 21.333333333333332 * pow(1. - sh, 2) +
2805 28.444444444444443 * pow(1. - sh, 3) +
2806 35.55555555555556 * pow(1. - sh, 4))) +
2807 (27.65432098765432 + 55.67901234567901 * (1. - sh) +
2808 83.6 * pow(1. - sh, 2) +
2809 111.39753086419753 * pow(1. - sh, 3) +
2810 139.20987654320987 * pow(1. - sh, 4)) * pow(log(z), 2));
2811 }
2812
2813 if (5 <= maxpow) {
2814 if (sh < .900001)
2815 res += -0.05267489711934156 * pow(3.141592653589793, 2) * pow(sh, -3)*
2816 (3. + 14. * sh + 3. * pow(sh, 2)) * pow(z, 2.5);
2817 else
2818 res += (-10.397607928719653 - 20.795215857439306 * (1. - sh) -
2819 32.75246497546691 * pow(1. - sh, 2) -
2820 46.26935528280246 * pow(1. - sh, 3) -
2821 61.34588677944595 * pow(1. - sh, 4)) * pow(z, 2.5);
2822 }
2823
2824 if (6 <= maxpow) {
2825 if (sh < .900001)
2826 res += (-0.7901234567901234 * Li3shb * (2. + sh) * pow(-1 + sh, -4) -
2827 lmu * (-6.320987654320987 * pow(sh, -3) +
2828 9.481481481481481 * Lsh * pow(sh, -3)) +
2829 1.1851851851851851 * Li3sh * pow(-1 + sh, -3) * pow(sh, -1) -
2830 0.3950617283950617 * pow(Lsh, 3) * pow(-1 + sh, -3) *
2831 pow(sh, -1) + 0.4748866777914446 * pow(-1 + sh, -4) *
2832 pow(sh, -1)*(3. + sh + 2. * pow(sh, 2)) -
2833 0.06584362139917696 * Li2sh * pow(-1 + sh, -4) * pow(sh, -3)*
2834 (-36. + 144. * sh - 234. * pow(sh, 2) + 208. * pow(sh, 3) -
2835 73. * pow(sh, 4) + 9. * pow(sh, 5)) -
2836 0.01646090534979424 * pow(Lsh, 2) * pow(-1 + sh, -5) *
2837 pow(sh, -4)*(-12. + 3682. * sh - 18347. * pow(sh, 2) +
2838 (36889. + 36. * Lshb) * pow(sh, 3) -
2839 2. * (18563. + 36. * Lshb) * pow(sh, 4) +
2840 4. * (4679. + 9. * Lshb) * pow(sh, 5) - 3748. * pow(sh, 6) -
2841 18. * pow(sh, 7)) +
2842 0.3950617283950617 * pow(ash, 2) * pow(-1 + sh, -4)*
2843 (16. - 22. * sh - 171. * pow(sh, 2) + 336. * pow(sh, 3) -
2844 300. * pow(sh, 4) + 141. * pow(sh, 5) - 33. * pow(sh, 6) +
2845 3. * pow(sh, 7)) - pow(lz, 2)*
2846 (-0.3950617283950617 * Lsh * (2. + sh) * pow(-1 + sh, -4) +
2847 0.01646090534979424 * pow(-1 + sh, -3) * pow(sh, -4)*
2848 (-3. + 3685. * sh - 11046. * pow(sh, 2) +
2849 11061. * pow(sh, 3) - 3604. * pow(sh, 4) -
2850 132. * pow(sh, 5) + 321. * pow(sh, 6) -
2851 378. * pow(sh, 7) + 222. * pow(sh, 8) -
2852 60. * pow(sh, 9) + 6. * pow(sh, 10))) -
2853 0.13168724279835392 * ash * pow(-1 + sh, -3)*
2854 (-8. - 21. * sh - 17. * pow(sh, 2) + 23. * pow(sh, 3) -
2855 8. * pow(sh, 4) + pow(sh, 5)) * pow(-((-4 + sh) * sh), 0.5)\
2856 - Lsh * (-2.3703703703703702 * (2. + sh) * pow(ash, 2) *
2857 pow(-1 + sh, -4) +
2858 1.1851851851851851 * Li2sh * pow(-1 + sh, -3) *
2859 pow(sh, -1) + 0.0054869684499314125 * pow(-1 + sh, -4) *
2860 pow(sh, -4)*(30. + (12452. - 432. * Lshb) * sh +
2861 2. * (-25315. + 864. * Lshb) * pow(sh, 2) +
2862 36. * (-78. * Lshb +
2863 5. * (424. + pow(3.141592653589793, 2))) *
2864 pow(sh, 3) + (-50317. + 2496. * Lshb -
2865 36. * pow(3.141592653589793, 2)) * pow(sh, 4) +
2866 (12496. - 876. * Lshb +
2867 72. * pow(3.141592653589793, 2)) * pow(sh, 5) +
2868 27. * (3. + 4. * Lshb) * pow(sh, 6)) +
2869 0.3950617283950617 * ash * pow(-1 + sh, -3)*
2870 (4. + 15. * sh - 29. * pow(sh, 2) + 23. * pow(sh, 3) -
2871 8. * pow(sh, 4) + pow(sh, 5)) *
2872 pow(-((-4 + sh) * sh), 0.5)) -
2873 lz * (0.7901234567901234 * Li2sh * (2. + sh) *
2874 pow(-1 + sh, -4) -
2875 4.7407407407407405 * (2. + sh) * pow(ash, 2) *
2876 pow(-1 + sh, -4) -
2877 9.481481481481481 * lmu * pow(sh, -3) -
2878 0.5925925925925926 * pow(Lsh, 2) * pow(-1 + sh, -3) *
2879 pow(sh, -1) + 0.03292181069958848 * Lsh *
2880 pow(-1 + sh, -4) * pow(sh, -4)*
2881 (-6. + 3682. * sh - 14713. * pow(sh, 2) +
2882 22170. * pow(sh, 3) +
2883 6. * (-2491. + 8. * Lshb) * pow(sh, 4) +
2884 6. * (631. + 4. * Lshb) * pow(sh, 5) - 9. * pow(sh, 6)) +
2885 0.0054869684499314125 * pow(-1 + sh, -3) * pow(sh, -4)*
2886 (15. + 12482. * sh - 37473. * pow(sh, 2) +
2887 37278. * pow(sh, 3) - 12305. * pow(sh, 4) +
2888 498. * pow(sh, 5) - 1215. * pow(sh, 6) +
2889 606. * pow(sh, 7) - 84. * pow(sh, 8) - 24. * pow(sh, 9) +
2890 6. * pow(sh, 10)) +
2891 0.7901234567901234 * ash * pow(-1 + sh, -3)*
2892 (4. + 15. * sh - 29. * pow(sh, 2) + 23. * pow(sh, 3) -
2893 8. * pow(sh, 4) + pow(sh, 5)) *
2894 pow(-((-4 + sh) * sh), 0.5)) -
2895 0.0027434842249657062 * pow(-1 + sh, -4) * pow(sh, -4)*
2896 (19. + 31332. * sh - 125971. * pow(sh, 2) +
2897 189649. * pow(sh, 3) - 94. * pow(sh, 11) +
2898 6. * pow(3.141592653589793, 2)*
2899 (-6. + 3838. * sh - 15355. * pow(sh, 2) +
2900 23258. * pow(sh, 3) - 15790. * pow(sh, 4) +
2901 4134. * pow(sh, 5) - 299. * pow(sh, 6) +
2902 440. * pow(sh, 7) - 400. * pow(sh, 8) +
2903 188. * pow(sh, 9) - 44. * pow(sh, 10) + 4. * pow(sh, 11))\
2904 + pow(sh, 4)*(-125525. + 1728. * cl3 -
2905 576. * cl2 * pow(-((-4 + sh) * sh), 0.5)) +
2906 12. * pow(sh, 5)*(2563. + 72. * cl3 -
2907 132. * cl2 * pow(-((-4 + sh) * sh), 0.5)) +
2908 2. * pow(sh, 10)*(451. +
2909 72. * cl2 * pow(-((-4 + sh) * sh), 0.5)) -
2910 4. * pow(sh, 9)*(791. +
2911 324. * cl2 * pow(-((-4 + sh) * sh), 0.5)) +
2912 pow(sh, 8)*(4810. +
2913 4464. * cl2 * pow(-((-4 + sh) * sh), 0.5)) +
2914 pow(sh, 6)*(-343. +
2915 6336. * cl2 * pow(-((-4 + sh) * sh), 0.5)) -
2916 pow(sh, 7)*(2371. +
2917 7488. * cl2 * pow(-((-4 + sh) * sh), 0.5)))) * pow(z, 3);
2918 else
2919 res += pow(z, 3)*(-691.9182670329545 -
2920 2017.613655726338 * (1. - sh) -
2921 3881.550454689942 * pow(1. - sh, 2) -
2922 6209.7474017909 * pow(1. - sh, 3) -
2923 8925.087722919276 * pow(1. - sh, 4) +
2924 log(muh)*(6.320987654320987 +
2925 28.444444444444443 * (1. - sh) +
2926 71.11111111111111 * pow(1. - sh, 2) +
2927 137.4814814814815 * pow(1. - sh, 3) +
2928 229.92592592592592 * pow(1. - sh, 4)) +
2929 log(z)*(65.87937511351353 +
2930 322.6369826409675 * (1. - sh) +
2931 831.0074785910778 * pow(1. - sh, 2) +
2932 1624.0261584651576 * pow(1. - sh, 3) +
2933 2734.9197954441984 * pow(1. - sh, 4) +
2934 log(muh)*(9.481481481481481 +
2935 28.444444444444443 * (1. - sh) +
2936 56.888888888888886 * pow(1. - sh, 2) +
2937 94.81481481481481 * pow(1. - sh, 3) +
2938 142.22222222222223 * pow(1. - sh, 4))) +
2939 (59.7037037037037 + 181.14567901234568 * (1. - sh) +
2940 362.4493827160494 * pow(1. - sh, 2) +
2941 603.5673133450912 * pow(1. - sh, 3) +
2942 905.1428571428571 * pow(1. - sh, 4)) * pow(log(z), 2));
2943 }
2944
2945 if (7 <= maxpow) {
2946 if (sh < .900001)
2947 res += -0.004514991181657848 * pow(3.141592653589793, 2) * pow(sh, -5)*
2948 (15. + 108. * sh + 314. * pow(sh, 2) + 108. * pow(sh, 3) +
2949 15. * pow(sh, 4)) * pow(z, 3.5);
2950 else
2951 res += (-24.954259028927165 - 74.8627770867815 * (1. - sh) -
2952 157.21183188224114 * pow(1. - sh, 2) -
2953 279.48770112398427 * pow(1. - sh, 3) -
2954 449.8450801732495 * pow(1. - sh, 4)) * pow(z, 3.5);
2955 }
2956
2957 if (8 <= maxpow) {
2958 if (sh < .900001)
2959 res += (-1. * lmu * (-19.555555555555557 * pow(sh, -4) +
2960 21.333333333333332 * Lsh * pow(sh, -4)) -
2961 2.374433388957223 * pow(-1 + sh, -3) * pow(sh, -2) +
2962 1.9753086419753085 * Li3sh * pow(-1 + sh, -3) * pow(sh, -2) -
2963 0.6584362139917695 * pow(Lsh, 3) * pow(-1 + sh, -3) *
2964 pow(sh, -2) - 0.09876543209876543 * Li2sh *
2965 pow(-1 + sh, -5) * pow(sh, -4)*
2966 (54. - 268. * sh + 544. * pow(sh, 2) - 570. * pow(sh, 3) +
2967 292. * pow(sh, 4) - 58. * pow(sh, 5) - 6. * pow(sh, 6) +
2968 3. * pow(sh, 7)) - 1.7777777777777777 * sh * pow(ash, 2) *
2969 pow(-1 + sh, -4)*(-24. - 3. * sh + 174. * pow(sh, 2) -
2970 390. * pow(sh, 3) + 411. * pow(sh, 4) - 241. * pow(sh, 5) +
2971 80. * pow(sh, 6) - 14. * pow(sh, 7) + pow(sh, 8)) -
2972 0.01646090534979424 * pow(Lsh, 2) * pow(-1 + sh, -6) *
2973 pow(sh, -6)*(6. + 14. * sh - 9747. * pow(sh, 2) +
2974 58077. * pow(sh, 3) -
2975 3. * (48391. + 20. * Lshb) * pow(sh, 4) +
2976 3. * (64669. + 60. * Lshb) * pow(sh, 5) -
2977 15. * (9737. + 12. * Lshb) * pow(sh, 6) +
2978 (58789. + 60. * Lshb) * pow(sh, 7) - 9906. * pow(sh, 8) +
2979 27. * pow(sh, 9) - 9. * pow(sh, 10)) +
2980 0.00823045267489712 * pow(lz, 2) * pow(sh, -6)*
2981 (-3. - 25. * sh + 19344. * pow(sh, 2) + 73. * pow(sh, 4) +
2982 3. * pow(sh, 5) + 180. * pow(sh, 6) + 36. * pow(sh, 7) -
2983 738. * pow(sh, 8) + 612. * pow(sh, 9) - 180. * pow(sh, 10) +
2984 18. * pow(sh, 11)) +
2985 0.09876543209876543 * ash * pow(-1 + sh, -3)*
2986 (-6. - 41. * sh - 239. * pow(sh, 2) + 671. * pow(sh, 3) -
2987 680. * pow(sh, 4) + 329. * pow(sh, 5) - 77. * pow(sh, 6) +
2988 7. * pow(sh, 7)) * pow(-((-4 + sh) * sh), 0.5) -
2989 lz * (-21.333333333333332 * lmu * pow(sh, -4) -
2990 0.9876543209876543 * pow(Lsh, 2) * pow(-1 + sh, -3) *
2991 pow(sh, -2) - 0.03292181069958848 * Lsh *
2992 pow(-1 + sh, -5) * pow(sh, -6)*
2993 (-3. - 10. * sh + 9722. * pow(sh, 2) -
2994 48430. * pow(sh, 3) + 96898. * pow(sh, 4) -
2995 97142. * pow(sh, 5) + 48736. * pow(sh, 6) -
2996 9804. * pow(sh, 7) + 3. * pow(sh, 8) + 3. * pow(sh, 9)) -
2997 0.00027434842249657066 * pow(-1 + sh, -4) * pow(sh, -6)*
2998 (105. + 55. * sh + 963530. * pow(sh, 2) -
2999 3.85233e6 * pow(sh, 3) + 5.76189e6 * pow(sh, 4) -
3000 3.806202e6 * pow(sh, 5) + 923844. * pow(sh, 6) +
3001 1154. * pow(sh, 7) + 54349. * pow(sh, 8) -
3002 76131. * pow(sh, 9) + 4716. * pow(sh, 10) +
3003 82440. * pow(sh, 11) - 83970. * pow(sh, 12) +
3004 36900. * pow(sh, 13) - 7740. * pow(sh, 14) +
3005 630. * pow(sh, 15)) -
3006 1.1851851851851851 * ash *
3007 (-6. - 13. * sh + 20. * pow(sh, 2) - 8. * pow(sh, 3) +
3008 pow(sh, 4)) * pow(-((-4 + sh) * sh), 0.5)) -
3009 Lsh * (1.9753086419753085 * Li2sh * pow(-1 + sh, -3) *
3010 pow(sh, -2) + 0.0027434842249657062 * pow(-1 + sh, -5) *
3011 pow(sh, -6)*(-21. + 10. * sh +
3012 2. * (-48097. + 972. * Lshb) * pow(sh, 2) +
3013 (483970. - 9648. * Lshb) * pow(sh, 3) +
3014 (-972667. + 19584. * Lshb -
3015 600. * pow(3.141592653589793, 2)) * pow(sh, 4) +
3016 8. * (122107. - 2565. * Lshb +
3017 150. * pow(3.141592653589793, 2)) * pow(sh, 5) +
3018 2. * (-245429. + 5256. * Lshb -
3019 300. * pow(3.141592653589793, 2)) * pow(sh, 6) +
3020 (98142. - 2088. * Lshb) * pow(sh, 7) -
3021 6. * (7. + 36. * Lshb) * pow(sh, 8) +
3022 6. * (5. + 18. * Lshb) * pow(sh, 9)) -
3023 0.5925925925925926 * ash *
3024 (-6. - 13. * sh + 20. * pow(sh, 2) - 8. * pow(sh, 3) +
3025 pow(sh, 4)) * pow(-((-4 + sh) * sh), 0.5)) -
3026 4.572473708276177e-6 * pow(-1 + sh, -5) * pow(sh, -6)*
3027 (-1200. * pow(3.141592653589793, 2)*
3028 (-9. - 30. * sh + 30192. * pow(sh, 2) -
3029 150534. * pow(sh, 3) + 301774. * pow(sh, 4) -
3030 303542. * pow(sh, 5) + 152986. * pow(sh, 6) -
3031 30076. * pow(sh, 7) - 1033. * pow(sh, 8) -
3032 2857. * pow(sh, 9) + 10122. * pow(sh, 10) -
3033 14418. * pow(sh, 11) + 11736. * pow(sh, 12) -
3034 5778. * pow(sh, 13) + 1692. * pow(sh, 14) -
3035 270. * pow(sh, 15) + 18. * pow(sh, 16)) +
3036 (-1. + sh)*(2775. - 2775. * sh +
3037 1.836255e7 * pow(sh, 2) - 7.415055e7 * pow(sh, 3) +
3038 1.1249425e8 * pow(sh, 4) - 7.6337698e7 * pow(sh, 5) +
3039 86850. * pow(sh, 15) +
3040 pow(sh, 8)*(4.883011e6 -
3041 4.6656e6 * cl2 * pow(-((-4 + sh) * sh), 0.5)) -
3042 900. * pow(sh, 14)*
3043 (1249. + 144. * cl2 * pow(-((-4 + sh) * sh), 0.5)) +
3044 900. * pow(sh, 13)*
3045 (6445. + 1728. * cl2 * pow(-((-4 + sh) * sh), 0.5)) -
3046 4050. * pow(sh, 12)*
3047 (3755. + 1856. * cl2 * pow(-((-4 + sh) * sh), 0.5)) +
3048 4500. * pow(sh, 11)*
3049 (4681. + 4176. * cl2 * pow(-((-4 + sh) * sh), 0.5)) +
3050 12. * pow(sh, 6)*
3051 (1.746143e6 +
3052 64800. * cl2 * pow(-((-4 + sh) * sh), 0.5)) -
3053 2. * pow(sh, 7)*(1.393817e6 +
3054 712800. * cl2 * pow(-((-4 + sh) * sh), 0.5)) -
3055 36. * pow(sh, 10)*
3056 (374591. + 716400. * cl2 * pow(-((-4 + sh) * sh), 0.5))
3057 + 3. * pow(sh, 9)*
3058 (-523. + 6.1344e6 * cl2 * pow(-((-4 + sh) * sh), 0.5)))
3059 )) * pow(z, 4);
3060 else
3061 res += pow(z, 4)*(-1672.4687901566804 -
3062 6425.515582048289 * (1. - sh) -
3063 15411.783043279445 * pow(1. - sh, 2) -
3064 29568.2502704632 * pow(1. - sh, 3) -
3065 49534.42028818623 * pow(1. - sh, 4) +
3066 log(muh)*(19.555555555555557 +
3067 99.55555555555556 * (1. - sh) +
3068 291.55555555555554 * pow(1. - sh, 2) +
3069 654.2222222222222 * pow(1. - sh, 3) +
3070 1251.5555555555557 * pow(1. - sh, 4)) +
3071 log(z)*(253.5498382001439 +
3072 1369.6655601827902 * (1. - sh) +
3073 4072.304539664025 * pow(1. - sh, 2) +
3074 9174.433775454903 * pow(1. - sh, 3) +
3075 17618.760992657026 * pow(1. - sh, 4) +
3076 log(muh)*(21.333333333333332 +
3077 85.33333333333333 * (1. - sh) +
3078 213.33333333333334 * pow(1. - sh, 2) +
3079 426.6666666666667 * pow(1. - sh, 3) +
3080 746.6666666666666 * pow(1. - sh, 4))) +
3081 (159.01234567901236 + 638.8148148148148 * (1. - sh) +
3082 1591.9506172839506 * pow(1. - sh, 2) +
3083 3177.448559670782 * pow(1. - sh, 3) +
3084 5557.119341563786 * pow(1. - sh, 4)) * pow(log(z), 2));
3085 }
3086
3087 if (9 <= maxpow) {
3088 if (sh < .900001)
3089 res += -0.0010749979003947259 * pow(3.141592653589793, 2) * pow(sh, -7)*
3090 (35. + 330. * sh + 1389. * pow(sh, 2) + 3212. * pow(sh, 3) +
3091 1389. * pow(sh, 4) + 330. * pow(sh, 5) + 35. * pow(sh, 6)) *
3092 pow(z, 4.5);
3093 else
3094 res += (-71.2978829397919 - 285.1915317591676 * (1. - sh) -
3095 745.0628767208254 * pow(1. - sh, 2) -
3096 1586.3778954103698 * pow(1. - sh, 3) -
3097 2982.415906901117 * pow(1. - sh, 4)) * pow(z, 4.5);
3098 }
3099
3100 if (10 <= maxpow) {
3101 if (sh < .900001)
3102 res += (-1. * lmu * (-58.785185185185185 * pow(sh, -5) +
3103 56.888888888888886 * Lsh * pow(sh, -5)) -
3104 4.986310116810168 * pow(-1 + sh, -3) * pow(sh, -3) +
3105 4.148148148148148 * Li3sh * pow(-1 + sh, -3) * pow(sh, -3) -
3106 1.382716049382716 * pow(Lsh, 3) * pow(-1 + sh, -3) *
3107 pow(sh, -3) - 0.3950617283950617 * cl2 * sh * sqrt4sh * sqrtsh *
3108 (44. + 108. * sh - 221. * pow(sh, 2) + 132. * pow(sh, 3) -
3109 33. * pow(sh, 4) + 3. * pow(sh, 5)) -
3110 0.03950617283950617 * ash * sh * sqrt4sh * sqrtsh *
3111 pow(-1 + sh, -3)*(-496. + 326. * sh + 6147. * pow(sh, 2) -
3112 16495. * pow(sh, 3) + 18680. * pow(sh, 4) -
3113 11251. * pow(sh, 5) + 3760. * pow(sh, 6) -
3114 658. * pow(sh, 7) + 47. * pow(sh, 8)) -
3115 0.19753086419753085 * Li2sh * pow(-1 + sh, -6) * pow(sh, -5)*
3116 (-72. + 429. * sh - 1073. * pow(sh, 2) + 1442. * pow(sh, 3) -
3117 1092. * pow(sh, 4) + 435. * pow(sh, 5) - 47. * pow(sh, 6) -
3118 6. * pow(sh, 7) - pow(sh, 8) + pow(sh, 9)) +
3119 1.1851851851851851 * sh * pow(ash, 2) * pow(-1 + sh, -4)*
3120 (-24. + 162. * sh + 114. * pow(sh, 2) - 1809. * pow(sh, 3) +
3121 4224. * pow(sh, 4) - 4957. * pow(sh, 5) +
3122 3423. * pow(sh, 6) - 1445. * pow(sh, 7) +
3123 366. * pow(sh, 8) - 51. * pow(sh, 9) + 3. * pow(sh, 10)) -
3124 Lsh * (4.148148148148148 * Li2sh * pow(-1 + sh, -3) *
3125 pow(sh, -3) + 0.3950617283950617 * ash * sh * sqrt4sh *
3126 sqrtsh * (44. + 108. * sh - 221. * pow(sh, 2) +
3127 132. * pow(sh, 3) - 33. * pow(sh, 4) + 3. * pow(sh, 5)) +
3128 0.00005486968449931413 * pow(-1 + sh, -6) * pow(sh, -8)*
3129 (486. - 108. * sh - 8742. * pow(sh, 2) +
3130 (1.6072738e7 - 259200. * Lshb) * pow(sh, 3) +
3131 6. * (-1.6103209e7 + 257400. * Lshb) * pow(sh, 4) +
3132 24. * (1.0092821e7 - 160950. * Lshb +
3133 2625. * pow(3.141592653589793, 2)) * pow(sh, 5) +
3134 4. * (-8.0991623e7 + 1.2978e6 * Lshb -
3135 47250. * pow(3.141592653589793, 2)) * pow(sh, 6) +
3136 6. * (4.0636147e7 - 655200. * Lshb +
3137 31500. * pow(3.141592653589793, 2)) * pow(sh, 7) +
3138 3. * (-3.2644121e7 + 522000. * Lshb -
3139 21000. * pow(3.141592653589793, 2)) * pow(sh, 8) -
3140 2. * (-8.202737e6 + 84600. * Lshb) * pow(sh, 9) -
3141 900. * (17. + 24. * Lshb) * pow(sh, 10) -
3142 450. * (-1. + 8. * Lshb) * pow(sh, 11) +
3143 75. * (7. + 48. * Lshb) * pow(sh, 12))) -
3144 0.0016460905349794238 * pow(Lsh, 2) * pow(-1 + sh, -7) *
3145 pow(sh, -8)*(-36. - 126. * sh + 84. * pow(sh, 2) +
3146 299648. * pow(sh, 3) - 2.087099e6 * pow(sh, 4) +
3147 60. * (104197. + 21. * Lshb) * pow(sh, 5) -
3148 2. * (5.211467e6 + 2520. * Lshb) * pow(sh, 6) +
3149 56. * (186416. + 135. * Lshb) * pow(sh, 7) -
3150 12. * (523459. + 420. * Lshb) * pow(sh, 8) +
3151 (2.104169e6 + 1260. * Lshb) * pow(sh, 9) -
3152 303404. * pow(sh, 10) + 300. * pow(sh, 11) +
3153 120. * pow(sh, 12) - 60. * pow(sh, 13)) +
3154 0.0008230452674897119 * pow(lz, 2) * pow(sh, -8)*
3155 (-18. - 189. * sh - 903. * pow(sh, 2) +
3156 594928. * pow(sh, 3) + 630. * pow(sh, 4) +
3157 1383. * pow(sh, 5) + 1839. * pow(sh, 6) + 18. * pow(sh, 7) +
3158 3120. * pow(sh, 8) + 8160. * pow(sh, 9) +
3159 1440. * pow(sh, 10) - 46560. * pow(sh, 11) +
3160 51720. * pow(sh, 12) - 23040. * pow(sh, 13) +
3161 4680. * pow(sh, 14) - 360. * pow(sh, 15)) -
3162 lz * (-56.888888888888886 * lmu * pow(sh, -5) -
3163 2.074074074074074 * pow(Lsh, 2) * pow(-1 + sh, -3) *
3164 pow(sh, -3) + 0.7901234567901234 * ash * sh * sqrt4sh *
3165 sqrtsh * (44. + 108. * sh - 221. * pow(sh, 2) +
3166 132. * pow(sh, 3) - 33. * pow(sh, 4) + 3. * pow(sh, 5)) -
3167 0.0032921810699588477 * Lsh * pow(-1 + sh, -6) *
3168 pow(sh, -8)*(18. + 81. * sh + 39. * pow(sh, 2) -
3169 299147. * pow(sh, 3) + 1.788834e6 * pow(sh, 4) -
3170 4.467993e6 * pow(sh, 5) + 5.959219e6 * pow(sh, 6) -
3171 4.474299e6 * pow(sh, 7) + 1.792497e6 * pow(sh, 8) -
3172 297944. * pow(sh, 9) - 450. * pow(sh, 10) +
3173 90. * pow(sh, 11) + 15. * pow(sh, 12)) +
3174 7.838526357044876e-6 * pow(-1 + sh, -5) * pow(sh, -8)*
3175 (1701. + 1323. * sh - 29274. * pow(sh, 2) +
3176 1.12541443e8 * pow(sh, 3) -
3177 5.61871835e8 * pow(sh, 4) +
3178 1.121615551e9 * pow(sh, 5) -
3179 1.117743382e9 * pow(sh, 6) +
3180 5.54683001e8 * pow(sh, 7) -
3181 1.07408773e8 * pow(sh, 8) - 4.03983e6 * pow(sh, 9) +
3182 4.371768e6 * pow(sh, 10) + 4.551324e6 * pow(sh, 11) -
3183 1.1897697e7 * pow(sh, 12) - 1.323264e7 * pow(sh, 13) +
3184 6.277908e7 * pow(sh, 14) - 8.508528e7 * pow(sh, 15) +
3185 6.212682e7 * pow(sh, 16) - 2.701314e7 * pow(sh, 17) +
3186 6.98418e6 * pow(sh, 18) - 990360. * pow(sh, 19) +
3187 59220. * pow(sh, 20))) -
3188 2.7994736989445985e-8 * pow(-1 + sh, -6) * pow(sh, -8)*
3189 (161406. - 318843. * sh - 1.910657e6 * pow(sh, 2) +
3190 2.6587841e7 * pow(sh, 3) - 4.35567027e8 * pow(sh, 4) +
3191 2.014488392e9 * pow(sh, 5) - 4.239785466e9 * pow(sh, 6) +
3192 4.472946066e9 * pow(sh, 7) - 1.480821324e9 * pow(sh, 8) -
3193 2.199797883e9 * pow(sh, 9) +
3194 2.944201467e9 * pow(sh, 10) +
3195 1.246759469e9 * pow(sh, 11) -
3196 2.466843039e9 * pow(sh, 12) -
3197 1.8171607842e10 * pow(sh, 13) +
3198 6.053910752e10 * pow(sh, 14) -
3199 8.996385496e10 * pow(sh, 15) +
3200 7.96292826e10 * pow(sh, 16) -
3201 4.509057616e10 * pow(sh, 17) +
3202 1.647058952e10 * pow(sh, 18) -
3203 3.74875284e9 * pow(sh, 19) + 4.8245988e8 * pow(sh, 20) -
3204 2.674812e7 * pow(sh, 21) +
3205 58800. * pow(3.141592653589793, 2)*
3206 (-18. - 81. * sh - 39. * pow(sh, 2) +
3207 308147. * pow(sh, 3) - 1.843944e6 * pow(sh, 4) +
3208 4.610871e6 * pow(sh, 5) - 6.160013e6 * pow(sh, 6) +
3209 4.635393e6 * pow(sh, 7) - 1.862435e6 * pow(sh, 8) +
3210 312614. * pow(sh, 9) + 3132. * pow(sh, 10) -
3211 3736. * pow(sh, 11) - 77479. * pow(sh, 12) +
3212 318588. * pow(sh, 13) - 608560. * pow(sh, 14) +
3213 702440. * pow(sh, 15) - 529920. * pow(sh, 16) +
3214 267160. * pow(sh, 17) - 89120. * pow(sh, 18) +
3215 18840. * pow(sh, 19) - 2280. * pow(sh, 20) +
3216 120. * pow(sh, 21)))) * pow(z, 5);
3217 else
3218 res += pow(z, 5)*(-4875.039604802492 -
3219 23394.026843086856 * (1. - sh) -
3220 67666.42652379921 * pow(1. - sh, 2) -
3221 152266.3652960926 * pow(1. - sh, 3) -
3222 292874.8144929396 * pow(1. - sh, 4) +
3223 log(muh)*(58.785185185185185 +
3224 350.81481481481484 * (1. - sh) +
3225 1194.6666666666667 * pow(1. - sh, 2) +
3226 3072. * pow(1. - sh, 3) +
3227 6641.777777777777 * pow(1. - sh, 4)) +
3228 log(z)*(847.677812246958 +
3229 5397.215321438122 * (1. - sh) +
3230 18627.480751808722 * pow(1. - sh, 2) +
3231 48121.18079162945 * pow(1. - sh, 3) +
3232 104649.22541796633 * pow(1. - sh, 4) +
3233 log(muh)*(56.888888888888886 +
3234 284.44444444444446 * (1. - sh) +
3235 853.3333333333334 * pow(1. - sh, 2) +
3236 1991.111111111111 * pow(1. - sh, 3) +
3237 3982.222222222222 * pow(1. - sh, 4))) +
3238 (491.23292181069957 +
3239 2460.5102880658437 * (1. - sh) +
3240 7344.419753086419 * pow(1. - sh, 2) +
3241 17100.213991769546 * pow(1. - sh, 3) +
3242 34182.45267489712 * pow(1. - sh, 4)) * pow(log(z), 2));
3243 }
3244
3245 if (11 <= maxpow) {
3246 if (sh < .900001)
3247 res += -0.00007600995255316243 * pow(3.141592653589793, 2) * pow(sh, -9)*
3248 (315. + 3640. * sh + 19380. * pow(sh, 2) + 62088. * pow(sh, 3) +
3249 124834. * pow(sh, 4) + 62088. * pow(sh, 5) +
3250 19380. * pow(sh, 6) + 3640. * pow(sh, 7) + 315. * pow(sh, 8)) *
3251 pow(z, 5.5);
3252 else
3253 res += (-221.8156358126859 - 1109.0781790634296 * (1. - sh) -
3254 3460.3239186779006 * pow(1. - sh, 2) -
3255 8562.083542369677 * pow(1. - sh, 3) -
3256 18357.620459597754 * pow(1. - sh, 4)) * pow(z, 5.5);
3257 }
3258
3259 if (12 <= maxpow) {
3260 if (sh < .900001)
3261 res += (-1. * lmu * (-182.91358024691357 * pow(sh, -6) +
3262 165.92592592592592 * Lsh * pow(sh, -6)) -
3263 11.967144280344405 * pow(-1 + sh, -3) * pow(sh, -4) +
3264 9.955555555555556 * Li3sh * pow(-1 + sh, -3) * pow(sh, -4) -
3265 3.3185185185185184 * pow(Lsh, 3) * pow(-1 + sh, -3) *
3266 pow(sh, -4) + 0.4609053497942387 * cl2 * sh * sqrt4sh * sqrtsh *
3267 (20. - 194. * sh - 657. * pow(sh, 2) + 1581. * pow(sh, 3) -
3268 1239. * pow(sh, 4) + 462. * pow(sh, 5) - 84. * pow(sh, 6) +
3269 6. * pow(sh, 7)) + 0.0043895747599451305 * ash * sh *
3270 sqrt4sh * sqrtsh * pow(-1 + sh, -3)*
3271 (-3230. + 42428. * sh + 5415. * pow(sh, 2) -
3272 547510. * pow(sh, 3) + 1.454143e6 * pow(sh, 4) -
3273 1.806873e6 * pow(sh, 5) + 1.280646e6 * pow(sh, 6) -
3274 546171. * pow(sh, 7) + 138714. * pow(sh, 8) -
3275 19329. * pow(sh, 9) + 1137. * pow(sh, 10)) -
3276 1.382716049382716 * pow(ash, 2) * pow(-1 + sh, -4) * pow(sh, 2)*
3277 (210. - 870. * sh - 1395. * pow(sh, 2) +
3278 13113. * pow(sh, 3) - 31009. * pow(sh, 4) +
3279 39370. * pow(sh, 5) - 30843. * pow(sh, 6) +
3280 15585. * pow(sh, 7) - 5091. * pow(sh, 8) +
3281 1038. * pow(sh, 9) - 120. * pow(sh, 10) + 6. * pow(sh, 11))\
3282 - 0.0032921810699588477 * Li2sh * pow(-1 + sh, -7) *
3283 pow(sh, -6)*(12600. - 87696. * sh + 262296. * pow(sh, 2) -
3284 436590. * pow(sh, 3) + 435240. * pow(sh, 4) -
3285 257040. * pow(sh, 5) + 79436. * pow(sh, 6) -
3286 8456. * pow(sh, 7) - 360. * pow(sh, 9) + 45. * pow(sh, 11))\
3287 - Lsh * (9.955555555555556 * Li2sh * pow(-1 + sh, -3) *
3288 pow(sh, -4) - 0.4609053497942387 * ash * sh * sqrt4sh *
3289 sqrtsh * (20. - 194. * sh - 657. * pow(sh, 2) +
3290 1581. * pow(sh, 3) - 1239. * pow(sh, 4) +
3291 462. * pow(sh, 5) - 84. * pow(sh, 6) + 6. * pow(sh, 7)) +
3292 0.000010973936899862826 * pow(-1 + sh, -7) * pow(sh, -10)*
3293 (-1320. + 96. * sh + 30636. * pow(sh, 2) +
3294 70896. * pow(sh, 3) +
3295 8. * (-3.4452983e7 + 472500. * Lshb) * pow(sh, 4) -
3296 112. * (-1.7229823e7 + 234900. * Lshb) * pow(sh, 5) +
3297 6. * (-9.66264881e8 + 1.31148e7 * Lshb -
3298 126000. * pow(3.141592653589793, 2)) * pow(sh, 6) +
3299 (9.681150074e9 - 1.30977e8 * Lshb +
3300 3.024e6 * pow(3.141592653589793, 2)) * pow(sh, 7) +
3301 2. * (-4.851617443e9 + 6.5286e7 * Lshb -
3302 2.268e6 * pow(3.141592653589793, 2)) * pow(sh, 8) +
3303 24. * (2.43237251e8 - 3.213e6 * Lshb +
3304 126000. * pow(3.141592653589793, 2)) * pow(sh, 9) +
3305 3. * (-6.50704647e8 + 7.9436e6 * Lshb -
3306 252000. * pow(3.141592653589793, 2)) * pow(sh, 10)\
3307 - 60. * (-4.666787e6 + 42280. * Lshb) * pow(sh, 11) -
3308 23730. * pow(sh, 12) -
3309 60. * (923. + 1800. * Lshb) * pow(sh, 13) +
3310 4995. * pow(sh, 14) +
3311 135. * (9. + 100. * Lshb) * pow(sh, 15))) -
3312 0.0003292181069958848 * pow(Lsh, 2) * pow(-1 + sh, -8) *
3313 pow(sh, -10)*(120. + 552. * sh + 120. * pow(sh, 2) -
3314 3480. * pow(sh, 3) - 4.90282e6 * pow(sh, 4) +
3315 3.912806e7 * pow(sh, 5) -
3316 (1.36736083e8 + 15120. * Lshb) * pow(sh, 6) +
3317 5. * (5.4670261e7 + 15120. * Lshb) * pow(sh, 7) -
3318 70. * (4.883491e6 + 2160. * Lshb) * pow(sh, 8) +
3319 40. * (6.845753e6 + 3780. * Lshb) * pow(sh, 9) -
3320 10. * (1.3722853e7 + 7560. * Lshb) * pow(sh, 10) +
3321 2. * (1.9677013e7 + 7560. * Lshb) * pow(sh, 11) -
3322 4.94776e6 * pow(sh, 12) - 1800. * pow(sh, 13) +
3323 1800. * pow(sh, 14) + 225. * pow(sh, 15) - 225. * pow(sh, 16)
3324 ) + 0.0003292181069958848 * pow(lz, 2) * pow(sh, -10)*
3325 (-30. - 378. * sh - 2214. * pow(sh, 2) - 7938. * pow(sh, 3) +
3326 4.8772e6 * pow(sh, 4) + 7560. * pow(sh, 5) +
3327 6273. * pow(sh, 6) + 13689. * pow(sh, 7) +
3328 10908. * pow(sh, 8) + 30. * pow(sh, 9) +
3329 20300. * pow(sh, 10) + 27300. * pow(sh, 11) +
3330 113400. * pow(sh, 12) + 49700. * pow(sh, 13) -
3331 880950. * pow(sh, 14) + 1.19385e6 * pow(sh, 15) -
3332 706650. * pow(sh, 16) + 216300. * pow(sh, 17) -
3333 33600. * pow(sh, 18) + 2100. * pow(sh, 19)) -
3334 lz * (-165.92592592592592 * lmu * pow(sh, -6) -
3335 4.977777777777778 * pow(Lsh, 2) * pow(-1 + sh, -3) *
3336 pow(sh, -4) - 0.9218106995884774 * ash * sh * sqrt4sh *
3337 sqrtsh * (20. - 194. * sh - 657. * pow(sh, 2) +
3338 1581. * pow(sh, 3) - 1239. * pow(sh, 4) +
3339 462. * pow(sh, 5) - 84. * pow(sh, 6) + 6. * pow(sh, 7)) -
3340 0.0006584362139917696 * Lsh * pow(-1 + sh, -7) *
3341 pow(sh, -10)*(-60. - 336. * sh - 396. * pow(sh, 2) +
3342 1344. * pow(sh, 3) + 4.900804e6 * pow(sh, 4) -
3343 3.4230616e7 * pow(sh, 5) + 1.02572181e8 * pow(sh, 6) -
3344 1.70881214e8 * pow(sh, 7) +
3345 1.70889596e8 * pow(sh, 8) -
3346 1.02558564e8 * pow(sh, 9) +
3347 3.4176506e7 * pow(sh, 10) - 4.86782e6 * pow(sh, 11) -
3348 2940. * pow(sh, 12) - 1740. * pow(sh, 13) +
3349 585. * pow(sh, 14) + 45. * pow(sh, 15)) +
3350 1.567705271408975e-6 * pow(-1 + sh, -6) * pow(sh, -10)*
3351 (-4620. - 4284. * sh + 102942. * pow(sh, 2) +
3352 351078. * pow(sh, 3) - 1.928933146e9 * pow(sh, 4) +
3353 1.155219891e10 * pow(sh, 5) -
3354 2.8832387178e10 * pow(sh, 6) +
3355 3.8356658804e10 * pow(sh, 7) -
3356 2.8662297144e10 * pow(sh, 8) +
3357 1.1385924988e10 * pow(sh, 9) -
3358 1.88384127e9 * pow(sh, 10) +
3359 5.9056617e7 * pow(sh, 11) -
3360 8.9385341e7 * pow(sh, 12) +
3361 1.01542571e8 * pow(sh, 13) -
3362 3.36952887e8 * pow(sh, 14) +
3363 4.6151941e8 * pow(sh, 15) +
3364 1.1490745e9 * pow(sh, 16) -
3365 5.1849126e9 * pow(sh, 17) +
3366 8.94761595e9 * pow(sh, 18) -
3367 9.1281316e9 * pow(sh, 19) +
3368 6.0729627e9 * pow(sh, 20) -
3369 2.7087795e9 * pow(sh, 21) + 8.039283e8 * pow(sh, 22) -
3370 1.522416e8 * pow(sh, 23) + 1.66278e7 * pow(sh, 24) -
3371 795900. * pow(sh, 25))) -
3372 1.244210532864266e-9 * pow(-1 + sh, -7) * pow(sh, -10)*
3373 (-1.60524e6 + 3.372768e6 * sh + 2.1255318e7 * pow(sh, 2) -
3374 5.1364152e7 * pow(sh, 3) +
3375 3.79257522168e11 * pow(sh, 4) -
3376 2.633399785632e12 * pow(sh, 5) +
3377 7.825640856201e12 * pow(sh, 6) -
3378 1.2900120410724e13 * pow(sh, 7) +
3379 1.2750237623886e13 * pow(sh, 8) -
3380 7.584725099624e12 * pow(sh, 9) +
3381 2.529935410926e12 * pow(sh, 10) -
3382 2.91800208364e11 * pow(sh, 11) -
3383 2.09548894394e11 * pow(sh, 12) +
3384 3.42677229216e11 * pow(sh, 13) -
3385 7.84252942969e11 * pow(sh, 14) +
3386 7.91328639346e11 * pow(sh, 15) +
3387 3.49537340577e12 * pow(sh, 16) -
3388 1.51956042427e13 * pow(sh, 17) +
3389 2.91706462341e13 * pow(sh, 18) -
3390 3.468763704735e13 * pow(sh, 19) +
3391 2.790223133985e13 * pow(sh, 20) -
3392 1.564098014115e13 * pow(sh, 21) +
3393 6.1223554161e12 * pow(sh, 22) -
3394 1.63963647855e12 * pow(sh, 23) +
3395 2.859293178e11 * pow(sh, 24) -
3396 2.92020939e10 * pow(sh, 25) + 1.3226913e9 * pow(sh, 26) -
3397 88200. * pow(3.141592653589793, 2)*
3398 (-180. - 1008. * sh - 1188. * pow(sh, 2) +
3399 4032. * pow(sh, 3) + 1.5093012e7 * pow(sh, 4) -
3400 1.05478968e8 * pow(sh, 5) +
3401 3.16319451e8 * pow(sh, 6) -
3402 5.27535714e8 * pow(sh, 7) +
3403 5.28275796e8 * pow(sh, 8) -
3404 3.17556564e8 * pow(sh, 9) +
3405 1.05971306e8 * pow(sh, 10) -
3406 1.4919188e7 * pow(sh, 11) - 564648. * pow(sh, 12) +
3407 1.515872e6 * pow(sh, 13) - 1.613573e6 * pow(sh, 14) -
3408 1.0017483e7 * pow(sh, 15) + 5.154742e7 * pow(sh, 16) -
3409 1.211917e8 * pow(sh, 17) + 1.785651e8 * pow(sh, 18) -
3410 1.800631e8 * pow(sh, 19) + 1.286215e8 * pow(sh, 20) -
3411 6.57363e7 * pow(sh, 21) + 2.38644e7 * pow(sh, 22) -
3412 5.9997e6 * pow(sh, 23) + 991200. * pow(sh, 24) -
3413 96600. * pow(sh, 25) + 4200. * pow(sh, 26)))) * pow(z, 6);
3414 else
3415 res += pow(z, 6)*(-15489.003566799385 -
3416 89232.71889975584 * (1. - sh) -
3417 302596.6493265383 * pow(1. - sh, 2) -
3418 781979.762945469 * pow(1. - sh, 3) -
3419 1.6992401790855133e6 * pow(1. - sh, 4) +
3420 log(muh)*(182.91358024691357 +
3421 1263.4074074074074 * (1. - sh) +
3422 4919.7037037037035 * pow(1. - sh, 2) +
3423 14280.691358024691 * pow(1. - sh, 3) +
3424 34454.51851851852 * pow(1. - sh, 4)) +
3425 log(z)*(2906.463936705608 +
3426 21474.23376628666 * (1. - sh) +
3427 84464.70442803907 * pow(1. - sh, 2) +
3428 246235.5920127741 * pow(1. - sh, 3) +
3429 598321.9180693374 * pow(1. - sh, 4) +
3430 log(muh)*(165.92592592592592 +
3431 995.5555555555555 * (1. - sh) +
3432 3484.4444444444443 * pow(1. - sh, 2) +
3433 9291.851851851852 * pow(1. - sh, 3) +
3434 20906.666666666668 * pow(1. - sh, 4))) +
3435 (1615.4238683127571 + 9691.876543209877 * (1. - sh) +
3436 33706.74567901235 * pow(1. - sh, 2) +
3437 89710.5086419753 * pow(1. - sh, 3) +
3438 201778.22222222222 * pow(1. - sh, 4)) * pow(log(z), 2));
3439 }
3440
3441 if (13 <= maxpow) {
3442 if (sh < .900001)
3443 res += -0.000023919215838407757 * pow(3.141592653589793, 2) *
3444 pow(sh, -11)*(693. + 9450. * sh + 60305. * pow(sh, 2) +
3445 238200. * pow(sh, 3) + 642234. * pow(sh, 4) +
3446 1.173308e6 * pow(sh, 5) + 642234. * pow(sh, 6) +
3447 238200. * pow(sh, 7) + 60305. * pow(sh, 8) +
3448 9450. * pow(sh, 9) + 693. * pow(sh, 10)) * pow(z, 6.5);
3449 else
3450 res += (-725.9420808415176 - 4355.652485049105 * (1. - sh) -
3451 15789.240258303007 * pow(1. - sh, 2) -
3452 44463.95245154296 * pow(1. - sh, 3) -
3453 106907.93465535706 * pow(1. - sh, 4)) * pow(z, 6.5);
3454 }
3455
3456 if (14 <= maxpow) {
3457 if (sh < .900001)
3458 res += (-1. * lmu * (-587.9873015873015 * pow(sh, -7) +
3459 512. * Lsh * pow(sh, -7)) -
3460 31.342520734235343 * pow(-1 + sh, -3) * pow(sh, -5) +
3461 26.074074074074073 * Li3sh * pow(-1 + sh, -3) * pow(sh, -5) -
3462 8.691358024691358 * pow(Lsh, 3) * pow(-1 + sh, -3) *
3463 pow(sh, -5) - 0.7111111111111111 * cl2 * sqrt4sh * sqrtsh *
3464 pow(sh, 2)*(-204. + 654. * sh + 3621. * pow(sh, 2) -
3465 9390. * pow(sh, 3) + 8928. * pow(sh, 4) -
3466 4384. * pow(sh, 5) + 1190. * pow(sh, 6) -
3467 170. * pow(sh, 7) + 10. * pow(sh, 8)) -
3468 0.011287477954144622 * ash * sqrt4sh * sqrtsh *
3469 pow(-1 + sh, -3) * pow(sh, 2)*
3470 (23244. - 145995. * sh - 135165. * pow(sh, 2) +
3471 2.214474e6 * pow(sh, 3) - 5.812671e6 * pow(sh, 4) +
3472 7.761562e6 * pow(sh, 5) - 6.239858e6 * pow(sh, 6) +
3473 3.192422e6 * pow(sh, 7) - 1.048133e6 * pow(sh, 8) +
3474 214001. * pow(sh, 9) - 24740. * pow(sh, 10) +
3475 1237. * pow(sh, 11)) -
3476 0.11851851851851852 * Li2sh * pow(-1 + sh, -8) * pow(sh, -7)*
3477 (-1080. + 8600. * sh - 29988. * pow(sh, 2) +
3478 59752. * pow(sh, 3) - 74250. * pow(sh, 4) +
3479 58630. * pow(sh, 5) - 28380. * pow(sh, 6) +
3480 7472. * pow(sh, 7) - 698. * pow(sh, 8) - 10. * pow(sh, 11) +
3481 pow(sh, 12) + pow(sh, 13)) +
3482 2.1333333333333333 * pow(ash, 2) * pow(-1 + sh, -4) *
3483 pow(sh, 2)*(60. - 1390. * sh + 3920. * pow(sh, 2) +
3484 11563. * pow(sh, 3) - 80966. * pow(sh, 4) +
3485 191832. * pow(sh, 5) - 258720. * pow(sh, 6) +
3486 224115. * pow(sh, 7) - 130416. * pow(sh, 8) +
3487 51582. * pow(sh, 9) - 13684. * pow(sh, 10) +
3488 2330. * pow(sh, 11) - 230. * pow(sh, 12) + 10. * pow(sh, 13))
3489 - Lsh * (26.074074074074073 * Li2sh * pow(-1 + sh, -3) *
3490 pow(sh, -5) + 0.7111111111111111 * ash * sqrt4sh * sqrtsh *
3491 pow(sh, 2)*(-204. + 654. * sh + 3621. * pow(sh, 2) -
3492 9390. * pow(sh, 3) + 8928. * pow(sh, 4) -
3493 4384. * pow(sh, 5) + 1190. * pow(sh, 6) -
3494 170. * pow(sh, 7) + 10. * pow(sh, 8)) +
3495 2.239578959155679e-6 * pow(-1 + sh, -8) * pow(sh, -12)*
3496 (3900. + 100. * sh - 116036. * pow(sh, 2) -
3497 329570. * pow(sh, 3) + 93490. * pow(sh, 4) +
3498 (4.740596068e9 - 5.71536e7 * Lshb) * pow(sh, 5) +
3499 4. * (-9.479986241e9 + 1.13778e8 * Lshb) * pow(sh, 6) +
3500 2. * (6.6407275091e10 - 7.9348248e8 * Lshb +
3501 4.851e6 * pow(3.141592653589793, 2)) * pow(sh, 7) +
3502 10. * (-2.6593392899e10 + 3.16207584e8 * Lshb -
3503 4.851e6 * pow(3.141592653589793, 2)) * pow(sh, 8) +
3504 10. * (3.3290343127e10 - 3.92931e8 * Lshb +
3505 9.702e6 * pow(3.141592653589793, 2)) * pow(sh, 9) +
3506 (-2.66790821833e11 + 3.1026996e9 * Lshb -
3507 9.702e7 * pow(3.141592653589793, 2)) * pow(sh, 10)\
3508 + (1.33671533459e11 - 1.5018696e9 * Lshb +
3509 4.851e7 * pow(3.141592653589793, 2)) * pow(sh, 11)\
3510 + (-3.8283679243e10 + 3.9541824e8 * Lshb -
3511 9.702e6 * pow(3.141592653589793, 2)) * pow(sh, 12)\
3512 + (4.796104102e9 - 3.693816e7 * Lshb) *
3513 pow(sh, 13) + 1.055215e6 * pow(sh, 14) -
3514 172235. * pow(sh, 15) -
3515 735. * (307. + 720. * Lshb) * pow(sh, 16) +
3516 1176. * (23. + 45. * Lshb) * pow(sh, 17) +
3517 294. * (11. + 180. * Lshb) * pow(sh, 18))) -
3518 0.00047031158142269255 * pow(Lsh, 2) * pow(-1 + sh, -9) *
3519 pow(sh, -12)*(-60. - 340. * sh - 312. * pow(sh, 2) +
3520 1872. * pow(sh, 3) + 4980. * pow(sh, 4) +
3521 1.1658504e7 * pow(sh, 5) - 1.04832846e8 * pow(sh, 6) +
3522 11. * (3.8074319e7 + 2520. * Lshb) * pow(sh, 7) -
3523 6. * (1.62766363e8 + 27720. * Lshb) * pow(sh, 8) +
3524 3. * (4.88268437e8 + 138600. * Lshb) * pow(sh, 9) -
3525 (1.465559189e9 + 554400. * Lshb) * pow(sh, 10) +
3526 (9.78147321e8 + 415800. * Lshb) * pow(sh, 11) -
3527 30. * (1.3999939e7 + 5544. * Lshb) * pow(sh, 12) +
3528 2. * (5.2652911e7 + 13860. * Lshb) * pow(sh, 13) -
3529 1.1751384e7 * pow(sh, 14) - 1260. * pow(sh, 16) +
3530 1386. * pow(sh, 17) - 126. * pow(sh, 19)) -
3531 0.00047031158142269255 * pow(lz, 2) * pow(sh, -12)*
3532 (15. + 220. * sh + 1518. * pow(sh, 2) + 6534. * pow(sh, 3) +
3533 19503. * pow(sh, 4) - 1.1615304e7 * pow(sh, 5) -
3534 20790. * pow(sh, 6) - 6546. * pow(sh, 7) -
3535 24741. * pow(sh, 8) - 29490. * pow(sh, 9) -
3536 19183. * pow(sh, 10) - 15. * pow(sh, 11) -
3537 42336. * pow(sh, 12) - 50652. * pow(sh, 13) -
3538 42336. * pow(sh, 14) - 522396. * pow(sh, 15) -
3539 514080. * pow(sh, 16) + 5.330178e6 * pow(sh, 17) -
3540 8.247204e6 * pow(sh, 18) + 6.008688e6 * pow(sh, 19) -
3541 2.443392e6 * pow(sh, 20) + 570780. * pow(sh, 21) -
3542 71820. * pow(sh, 22) + 3780. * pow(sh, 23)) -
3543 lz * (-512. * lmu * pow(sh, -7) -
3544 13.037037037037036 * pow(Lsh, 2) * pow(-1 + sh, -3) *
3545 pow(sh, -5) + 1.4222222222222223 * ash * 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.0009406231628453851 * Lsh * pow(-1 + sh, -8) *
3551 pow(sh, -12)*(30. + 200. * sh + 356. * pow(sh, 2) -
3552 580. * pow(sh, 3) - 3070. * pow(sh, 4) -
3553 1.1660764e7 * pow(sh, 5) + 9.3173522e7 * pow(sh, 6) -
3554 3.25763741e8 * pow(sh, 7) +
3555 6.51103141e8 * pow(sh, 8) - 8.1359378e8 * pow(sh, 9) +
3556 6.50748419e8 * pow(sh, 10) -
3557 3.25285222e8 * pow(sh, 11) +
3558 9.2859728e7 * pow(sh, 12) -
3559 1.1567032e7 * pow(sh, 13) - 2380. * pow(sh, 14) -
3560 2065. * pow(sh, 15) - 945. * pow(sh, 16) +
3561 462. * pow(sh, 17) + 21. * pow(sh, 18)) +
3562 6.78660290653236e-8 * pow(-1 + sh, -7) * pow(sh, -12)*
3563 (64350. + 66000. * sh - 1.848594e6 * pow(sh, 2) -
3564 7.286499e6 * pow(sh, 3) - 5.743914e6 * pow(sh, 4) +
3565 1.564114497e11 * pow(sh, 5) -
3566 1.092996615942e12 * pow(sh, 6) +
3567 3.274039012563e12 * pow(sh, 7) -
3568 5.447084215617e12 * pow(sh, 8) +
3569 5.433819864693e12 * pow(sh, 9) -
3570 3.247981504196e12 * pow(sh, 10) +
3571 1.075526023436e12 * pow(sh, 11) -
3572 1.50436790331e11 * pow(sh, 12) -
3573 5.482108499e9 * pow(sh, 13) +
3574 1.2697937753e10 * pow(sh, 14) -
3575 1.820498844e10 * pow(sh, 15) +
3576 4.184087512e9 * pow(sh, 16) +
3577 6.5568484406e10 * pow(sh, 17) -
3578 9.5193663855e10 * pow(sh, 18) -
3579 3.83610629052e11 * pow(sh, 19) +
3580 1.851933873636e12 * pow(sh, 20) -
3581 3.850977196836e12 * pow(sh, 21) +
3582 4.997388254166e12 * pow(sh, 22) -
3583 4.45400972478e12 * pow(sh, 23) +
3584 2.82695858676e12 * pow(sh, 24) -
3585 1.2912095196e12 * pow(sh, 25) +
3586 4.2141221892e11 * pow(sh, 26) -
3587 9.582123474e10 * pow(sh, 27) +
3588 1.44039357e10 * pow(sh, 28) -
3589 1.28490516e9 * pow(sh, 29) + 5.143446e7 * pow(sh, 30)))
3590 - 4.896538893601991e-12 * pow(-1 + sh, -8) * pow(sh, -12)*
3591 (2.074545e8 - 4.76982e8 * sh -
3592 3.223561968e9 * pow(sh, 2) +
3593 1.2229671465e10 * pow(sh, 3) +
3594 5.5118379195e10 * pow(sh, 4) -
3595 5.39918795738718e14 * pow(sh, 5) +
3596 4.299200276151924e15 * pow(sh, 6) -
3597 1.497521829460536e16 * pow(sh, 7) +
3598 2.979736241687578e16 * pow(sh, 8) -
3599 3.705409524476913e16 * pow(sh, 9) +
3600 2.9516698533084984e16 * pow(sh, 10) -
3601 1.4749822777601014e16 * pow(sh, 11) +
3602 4.277878063797251e15 * pow(sh, 12) -
3603 6.52624973981284e14 * pow(sh, 13) +
3604 2.5170701729432e14 * pow(sh, 14) -
3605 4.0013657985217e14 * pow(sh, 15) +
3606 1.47801666642455e14 * pow(sh, 16) +
3607 1.2877818678578e15 * pow(sh, 17) -
3608 2.076397177767913e15 * pow(sh, 18) -
3609 8.385630050032431e15 * pow(sh, 19) +
3610 4.538622316201646e16 * pow(sh, 20) -
3611 1.061838620189715e17 * pow(sh, 21) +
3612 1.575009771316346e17 * pow(sh, 22) -
3613 1.6342684496066314e17 * pow(sh, 23) +
3614 1.2333678370646925e17 * pow(sh, 24) -
3615 6.8698738259084936e16 * pow(sh, 25) +
3616 2.8233898574272776e16 * pow(sh, 26) -
3617 8.447633225048556e15 * pow(sh, 27) +
3618 1.786675943700648e15 * pow(sh, 28) -
3619 2.5272282124782e14 * pow(sh, 29) +
3620 2.141343983394e13 * pow(sh, 30) -
3621 8.2047522942e11 * pow(sh, 31) +
3622 3.20166e7 * pow(3.141592653589793, 2)*
3623 (-90. - 600. * sh - 1068. * pow(sh, 2) +
3624 1740. * pow(sh, 3) + 9210. * pow(sh, 4) +
3625 3.5821452e7 * pow(sh, 5) - 2.86356066e8 * pow(sh, 6) +
3626 1.001798639e9 * pow(sh, 7) -
3627 2.003828431e9 * pow(sh, 8) +
3628 2.50626266e9 * pow(sh, 9) -
3629 2.006862017e9 * pow(sh, 10) +
3630 1.004429086e9 * pow(sh, 11) -
3631 2.8716356e8 * pow(sh, 12) + 3.622858e7 * pow(sh, 13) -
3632 1.140968e6 * pow(sh, 14) + 600307. * pow(sh, 15) +
3633 5.766227e6 * pow(sh, 16) - 8.667286e6 * pow(sh, 17) -
3634 7.4435635e7 * pow(sh, 18) +
3635 4.29448764e8 * pow(sh, 19) -
3636 1.174957056e9 * pow(sh, 20) +
3637 2.075532984e9 * pow(sh, 21) -
3638 2.59118244e9 * pow(sh, 22) +
3639 2.377353888e9 * pow(sh, 23) -
3640 1.631212128e9 * pow(sh, 24) +
3641 8.40926772e8 * pow(sh, 25) -
3642 3.23868888e8 * pow(sh, 26) +
3643 9.1648368e7 * pow(sh, 27) -
3644 1.8464544e7 * pow(sh, 28) + 2.50236e6 * pow(sh, 29) -
3645 204120. * pow(sh, 30) + 7560. * pow(sh, 31)))) * pow(z, 7);
3646 else
3647 res += pow(z, 7)*(-51610.88930322329 -
3648 347049.77916686254 * (1. - sh) -
3649 1.3506484596566306e6 * pow(1. - sh, 2) -
3650 3.942197589163436e6 * pow(1. - sh, 3) -
3651 9.550309146362534e6 * pow(1. - sh, 4) +
3652 log(muh)*(587.9873015873015 +
3653 4627.9111111111115 * (1. - sh) +
3654 20303.644444444446 * pow(1. - sh, 2) +
3655 65689.6 * pow(1. - sh, 3) +
3656 174976. * pow(1. - sh, 4)) +
3657 log(z)*(10201.948065363957 +
3658 86007.6529570384 * (1. - sh) +
3659 379663.80341596896 * pow(1. - sh, 2) +
3660 1.2326804892307315e6 * pow(1. - sh, 3) +
3661 3.309516784057691e6 * pow(1. - sh, 4) +
3662 log(muh)*(512. + 3584. * (1. - sh) +
3663 14336. * pow(1. - sh, 2) +
3664 43008. * pow(1. - sh, 3) +
3665 107520. * pow(1. - sh, 4))) +
3666 (5506.910758377425 + 38490.637037037035 * (1. - sh) +
3667 152831.80246913582 * pow(1. - sh, 2) +
3668 457767.65432098764 * pow(1. - sh, 3) +
3669 1.1442307160493827e6 * pow(1. - sh, 4)) *
3670 pow(log(z), 2));
3671 }
3672
3673 if (15 <= maxpow) {
3674 if (sh < .900001)
3675 res += -4.047867295730543e-6 * pow(3.141592653589793, 2) * pow(sh, -13)*
3676 (3003. + 47124. * sh + 349398. * pow(sh, 2) +
3677 1.62554e6 * pow(sh, 3) + 5.297685e6 * pow(sh, 4) +
3678 1.265412e7 * pow(sh, 5) + 2.15477e7 * pow(sh, 6) +
3679 1.265412e7 * pow(sh, 7) + 5.297685e6 * pow(sh, 8) +
3680 1.62554e6 * pow(sh, 9) + 349398. * pow(sh, 10) +
3681 47124. * pow(sh, 11) + 3003. * pow(sh, 12)) * pow(z, 7.5);
3682 else
3683 res += (-2457.0347351559058 - 17199.24314609134 * (1. - sh) -
3684 71008.30384600567 * pow(1. - sh, 2) -
3685 224081.5678462186 * pow(1. - sh, 3) -
3686 596572.421257881 * pow(1. - sh, 4)) * pow(z, 7.5);
3687 }
3688
3689 if (16 <= maxpow) {
3690 if (sh < .900001)
3691 res += (-1. * lmu * (-1940.6814814814816 * pow(sh, -8) +
3692 1642.6666666666667 * Lsh * pow(sh, -8)) -
3693 87.3113077596556 * pow(-1 + sh, -3) * pow(sh, -6) +
3694 72.63492063492063 * Li3sh * pow(-1 + sh, -3) * pow(sh, -6) -
3695 24.211640211640212 * pow(Lsh, 3) * pow(-1 + sh, -3) *
3696 pow(sh, -6) + 1.3037037037037038 * cl2 * sqrt4sh * sqrtsh *
3697 pow(sh, 2)*(-42. + 1287. * sh - 1614. * pow(sh, 2) -
3698 19017. * pow(sh, 3) + 50556. * pow(sh, 4) -
3699 55330. * pow(sh, 5) + 33315. * pow(sh, 6) -
3700 11945. * pow(sh, 7) + 2550. * pow(sh, 8) -
3701 300. * pow(sh, 9) + 15. * pow(sh, 10)) +
3702 0.00047031158142269255 * ash * sqrt4sh * sqrtsh *
3703 pow(-1 + sh, -3) * pow(sh, 2)*
3704 (228522. - 7.741593e6 * sh + 3.0723729e7 * pow(sh, 2) +
3705 6.0003996e7 * pow(sh, 3) - 5.8092981e8 * pow(sh, 4) +
3706 1.504380659e9 * pow(sh, 5) - 2.124842634e9 * pow(sh, 6) +
3707 1.888618168e9 * pow(sh, 7) - 1.114436468e9 * pow(sh, 8) +
3708 4.4384322e8 * pow(sh, 9) - 1.18087858e8 * pow(sh, 10) +
3709 2.0123511e7 * pow(sh, 11) - 1.986441e6 * pow(sh, 12) +
3710 86367. * pow(sh, 13)) -
3711 3.911111111111111 * pow(ash, 2) * pow(-1 + sh, -4) * pow(sh, 3)*
3712 (-700. + 7875. * sh - 14966. * pow(sh, 2) -
3713 79023. * pow(sh, 3) + 455850. * pow(sh, 4) -
3714 1.077135e6 * pow(sh, 5) + 1.523775e6 * pow(sh, 6) -
3715 1.432728e6 * pow(sh, 7) + 934836. * pow(sh, 8) -
3716 430150. * pow(sh, 9) + 139230. * pow(sh, 10) -
3717 31025. * pow(sh, 11) + 4530. * pow(sh, 12) -
3718 390. * pow(sh, 13) + 15. * pow(sh, 14)) -
3719 0.0028218694885361554 * Li2sh * pow(-1 + sh, -9) * pow(sh, -8)*
3720 (145530. - 1.30482e6 * sh + 5.20032e6 * pow(sh, 2) -
3721 1.208298e7 * pow(sh, 3) + 1.801254e7 * pow(sh, 4) -
3722 1.78178e7 * pow(sh, 5) + 1.163162e7 * pow(sh, 6) -
3723 4.77477e6 * pow(sh, 7) + 1.082136e6 * pow(sh, 8) -
3724 94842. * pow(sh, 9) - 420. * pow(sh, 13) +
3725 70. * pow(sh, 14) + 35. * pow(sh, 15)) -
3726 Lsh * (72.63492063492063 * Li2sh * pow(-1 + sh, -3) *
3727 pow(sh, -6) - 1.3037037037037038 * ash * sqrt4sh * sqrtsh *
3728 pow(sh, 2)*(-42. + 1287. * sh - 1614. * pow(sh, 2) -
3729 19017. * pow(sh, 3) + 50556. * pow(sh, 4) -
3730 55330. * pow(sh, 5) + 33315. * pow(sh, 6) -
3731 11945. * pow(sh, 7) + 2550. * pow(sh, 8) -
3732 300. * pow(sh, 9) + 15. * pow(sh, 10)) +
3733 7.998496282698853e-8 * pow(-1 + sh, -9) * pow(sh, -14)*
3734 (-70875. - 6750. * sh + 2.654475e6 * pow(sh, 2) +
3735 9.126108e6 * pow(sh, 3) + 678627. * pow(sh, 4) -
3736 4.643019e7 * pow(sh, 5) +
3737 25. * (-1.8964236617e10 + 2.05371936e8 * Lshb) *
3738 pow(sh, 6) - 180. *
3739 (-2.3705023777e10 + 2.5574472e8 * Lshb) * pow(sh, 7)\
3740 + 3. * (-5.691283317731e12 + 6.11557632e10 * Lshb -
3741 2.52252e8 * pow(3.141592653589793, 2)) * pow(sh, 8)\
3742 + 6. * (6.644381363023e12 - 7.10479224e10 * Lshb +
3743 7.56756e8 * pow(3.141592653589793, 2)) * pow(sh, 9)\
3744 + 225. * (-2.66023942651e11 +
3745 2.824366272e9 * Lshb -
3746 5.04504e7 * pow(3.141592653589793, 2)) * pow(sh, 10)
3747 + 120. * (4.99371243863e11 - 5.2384332e9 * Lshb +
3748 1.26126e8 * pow(3.141592653589793, 2)) * pow(sh, 11)
3749 + 225. * (-1.77796507943e11 +
3750 1.823838016e9 * Lshb -
3751 5.04504e7 * pow(3.141592653589793, 2)) * pow(sh, 12)
3752 + 2106. * (8.153537761e9 - 7.99876e7 * Lshb +
3753 2.156e6 * pow(3.141592653589793, 2)) * pow(sh, 13)\
3754 + (-4.299863603271e12 + 3.817775808e10 * Lshb -
3755 7.56756e8 * pow(3.141592653589793, 2)) * pow(sh, 14)
3756 - 140. * (-3.417060133e9 + 2.3900184e7 * Lshb) *
3757 pow(sh, 15) + 4.710132e7 * pow(sh, 16) +
3758 3.484152e7 * pow(sh, 17) - 7.916076e6 * pow(sh, 18) -
3759 6048. * (923. + 2450. * Lshb) * pow(sh, 19) +
3760 12600. * (59. + 196. * Lshb) * pow(sh, 20) +
3761 4200. * (13. + 294. * Lshb) * pow(sh, 21))) +
3762 0.00006718736877467037 * pow(Lsh, 2) * pow(-1 + sh, -10) *
3763 pow(sh, -14)*(-315. - 2115. * sh - 3255. * pow(sh, 2) +
3764 9681. * pow(sh, 3) + 37863. * pow(sh, 4) +
3765 21231. * pow(sh, 5) + 2.843603e8 * pow(sh, 6) -
3766 2.8424249e9 * pow(sh, 7) +
3767 6. * (2.129867959e9 + 90090. * Lshb) * pow(sh, 8) -
3768 42. * (8.10842339e8 + 90090. * Lshb) * pow(sh, 9) +
3769 84. * (7.09285376e8 + 135135. * Lshb) * pow(sh, 10) -
3770 1260. * (5.6749267e7 + 15015. * Lshb) * pow(sh, 11) +
3771 630. * (9.4632631e7 + 30030. * Lshb) * pow(sh, 12) -
3772 378. * (9.0217367e7 + 30030. * Lshb) * pow(sh, 13) +
3773 42. * (3.04968821e8 + 90090. * Lshb) * pow(sh, 14) -
3774 2. * (1.426541293e9 + 270270. * Lshb) * pow(sh, 15) +
3775 2.8627046e8 * pow(sh, 16) + 8820. * pow(sh, 19) -
3776 10290. * pow(sh, 20) + 735. * pow(sh, 21) +
3777 735. * pow(sh, 22)) +
3778 0.00001679684219366759 * pow(lz, 2) * pow(sh, -14)*
3779 (-315. - 5265. * sh - 41730. * pow(sh, 2) -
3780 208494. * pow(sh, 3) - 734877. * pow(sh, 4) -
3781 1.926639e6 * pow(sh, 5) + 1.1339384e9 * pow(sh, 6) +
3782 2.16216e6 * pow(sh, 7) + 48987. * pow(sh, 8) +
3783 1.669041e6 * pow(sh, 9) + 2.629962e6 * pow(sh, 10) +
3784 2.41431e6 * pow(sh, 11) + 1.436625e6 * pow(sh, 12) +
3785 315. * pow(sh, 13) + 3.764376e6 * pow(sh, 14) +
3786 4.230072e6 * pow(sh, 15) + 5.006232e6 * pow(sh, 16) -
3787 7.37352e6 * pow(sh, 17) + 1.0643094e8 * pow(sh, 18) +
3788 1.95359472e8 * pow(sh, 19) -
3789 1.425010356e9 * pow(sh, 20) +
3790 2.406212424e9 * pow(sh, 21) -
3791 2.05080876e9 * pow(sh, 22) + 1.03141962e9 * pow(sh, 23) -
3792 3.2026302e8 * pow(sh, 24) + 6.054048e7 * pow(sh, 25) -
3793 6.40332e6 * pow(sh, 26) + 291060. * pow(sh, 27)) -
3794 lz * (-1642.6666666666667 * lmu * pow(sh, -8) -
3795 36.317460317460316 * pow(Lsh, 2) * pow(-1 + sh, -3) *
3796 pow(sh, -6) - 2.6074074074074076 * ash * sqrt4sh * sqrtsh *
3797 pow(sh, 2)*(-42. + 1287. * sh - 1614. * pow(sh, 2) -
3798 19017. * pow(sh, 3) + 50556. * pow(sh, 4) -
3799 55330. * pow(sh, 5) + 33315. * pow(sh, 6) -
3800 11945. * pow(sh, 7) + 2550. * pow(sh, 8) -
3801 300. * pow(sh, 9) + 15. * pow(sh, 10)) -
3802 0.00006718736877467037 * Lsh * pow(-1 + sh, -9) *
3803 pow(sh, -14)*(-315. - 2430. * sh - 5685. * pow(sh, 2) +
3804 3996. * pow(sh, 3) + 41859. * pow(sh, 4) +
3805 63090. * pow(sh, 5) + 5.68853935e8 * pow(sh, 6) -
3806 5.11611966e9 * pow(sh, 7) +
3807 2.0446767111e10 * pow(sh, 8) -
3808 4.7676829206e10 * pow(sh, 9) +
3809 7.1479964025e10 * pow(sh, 10) -
3810 7.145286696e10 * pow(sh, 11) +
3811 4.7617276155e10 * pow(sh, 12) -
3812 2.039566545e10 * pow(sh, 13) +
3813 5.092669737e9 * pow(sh, 14) -
3814 5.64250624e8 * pow(sh, 15) + 37800. * pow(sh, 16) -
3815 47460. * pow(sh, 17) - 29232. * pow(sh, 18) -
3816 9828. * pow(sh, 19) + 6930. * pow(sh, 20) +
3817 210. * pow(sh, 21)) +
3818 2.796677021922676e-10 * pow(-1 + sh, -8) * pow(sh, -14)*
3819 (-1.0135125e7 - 1.1100375e7 * sh +
3820 3.6848955e8 * pow(sh, 2) +
3821 1.673522994e9 * pow(sh, 3) +
3822 1.770566655e9 * pow(sh, 4) -
3823 4.868950515e9 * pow(sh, 5) -
3824 1.355916766061e14 * pow(sh, 6) +
3825 1.08320914263562e15 * pow(sh, 7) -
3826 3.786163163932292e15 * pow(sh, 8) +
3827 7.56111391441978e15 * pow(sh, 9) -
3828 9.4338729874103e15 * pow(sh, 10) +
3829 7.52783212419654e15 * pow(sh, 11) -
3830 3.74950772533818e15 * pow(sh, 12) +
3831 1.064521016851092e15 * pow(sh, 13) -
3832 1.32239959812912e14 * pow(sh, 14) +
3833 4.822522515092e12 * pow(sh, 15) -
3834 1.3702469432263e13 * pow(sh, 16) +
3835 2.0211432885167e13 * pow(sh, 17) -
3836 1.5340657706842e13 * pow(sh, 18) +
3837 3.8517131981282e13 * pow(sh, 19) -
3838 1.98231128437323e14 * pow(sh, 20) +
3839 2.48611036890867e14 * pow(sh, 21) +
3840 1.312843416208632e15 * pow(sh, 22) -
3841 6.858549767677608e15 * pow(sh, 23) +
3842 1.6510967898168744e16 * pow(sh, 24) -
3843 2.57336419311972e16 * pow(sh, 25) +
3844 2.851348331813982e16 * pow(sh, 26) -
3845 2.336070503975208e16 * pow(sh, 27) +
3846 1.439716999494774e16 * pow(sh, 28) -
3847 6.70336841266092e15 * pow(sh, 29) +
3848 2.34397396677444e15 * pow(sh, 30) -
3849 6.0527470649646e14 * pow(sh, 31) +
3850 1.1182510300962e14 * pow(sh, 32) -
3851 1.396347000048e13 * pow(sh, 33) +
3852 1.054350297e12 * pow(sh, 34) -
3853 3.631041414e10 * pow(sh, 35))) +
3854 7.760786496621921e-16 * pow(-1 + sh, -9) * pow(sh, -14)*
3855 (7.34806697625e11 - 1.86465740175e12 * sh -
3856 1.3539275231625e13 * pow(sh, 2) +
3857 6.7027116030732e13 * pow(sh, 3) +
3858 3.63276406618983e14 * pow(sh, 4) +
3859 7.707518005473e13 * pow(sh, 5) -
3860 1.517387130121548e19 * pow(sh, 6) +
3861 1.361134491880303e20 * pow(sh, 7) -
3862 5.426853793481742e20 * pow(sh, 8) +
3863 1.262085401071148e21 * pow(sh, 9) -
3864 1.886986812950732e21 * pow(sh, 10) +
3865 1.8816744004909767e21 * pow(sh, 11) -
3866 1.2525799935976913e21 * pow(sh, 12) +
3867 5.37888683654858e20 * pow(sh, 13) -
3868 1.3573327538305124e20 * pow(sh, 14) +
3869 1.3896509010095016e19 * pow(sh, 15) +
3870 5.883932779473471e18 * pow(sh, 16) -
3871 1.0545119614382879e19 * pow(sh, 17) +
3872 1.1056449646096937e19 * pow(sh, 18) -
3873 2.3434959475666616e19 * pow(sh, 19) +
3874 1.0419598368525897e20 * pow(sh, 20) -
3875 1.688591180885733e20 * pow(sh, 21) -
3876 5.308738122339353e20 * pow(sh, 22) +
3877 3.5306726064196524e21 * pow(sh, 23) -
3878 9.689077766441178e21 * pow(sh, 24) +
3879 1.7097533811227756e22 * pow(sh, 25) -
3880 2.1588630869532427e22 * pow(sh, 26) +
3881 2.038422378040867e22 * pow(sh, 27) -
3882 1.4690695476739364e22 * pow(sh, 28) +
3883 8.14476034656345e21 * pow(sh, 29) -
3884 3.4697517653715583e21 * pow(sh, 30) +
3885 1.1250567404926722e21 * pow(sh, 31) -
3886 2.7233981875541377e20 * pow(sh, 32) +
3887 4.759269487750347e19 * pow(sh, 33) -
3888 5.663805036845516e18 * pow(sh, 34) +
3889 4.101841359381566e17 * pow(sh, 35) -
3890 1.362249094884678e16 * pow(sh, 36) +
3891 4.32864432e10 * pow(3.141592653589793, 2)*
3892 (-315. - 2430. * sh - 5685. * pow(sh, 2) +
3893 3996. * pow(sh, 3) + 41859. * pow(sh, 4) +
3894 63090. * pow(sh, 5) + 5.81369515e8 * pow(sh, 6) -
3895 5.23068642e9 * pow(sh, 7) +
3896 2.0914846601e10 * pow(sh, 8) -
3897 4.8797229546e10 * pow(sh, 9) +
3898 7.3211460495e10 * pow(sh, 10) -
3899 7.324423592e10 * pow(sh, 11) +
3900 4.8857255585e10 * pow(sh, 12) -
3901 2.094858111e10 * pow(sh, 13) +
3902 5.235387183e9 * pow(sh, 14) -
3903 5.73585856e8 * pow(sh, 15) -
3904 2.302929e7 * pow(sh, 16) + 4.790626e7 * pow(sh, 17) -
3905 1.24781262e8 * pow(sh, 18) +
3906 4.35359256e8 * pow(sh, 19) -
3907 5.45760408e8 * pow(sh, 20) -
3908 3.99911175e9 * pow(sh, 21) +
3909 2.559251793e10 * pow(sh, 22) -
3910 7.87509723e10 * pow(sh, 23) +
3911 1.60158041736e11 * pow(sh, 24) -
3912 2.35861111332e11 * pow(sh, 25) +
3913 2.6202440418e11 * pow(sh, 26) -
3914 2.2419142284e11 * pow(sh, 27) +
3915 1.491808626e11 * pow(sh, 28) -
3916 7.7359627884e10 * pow(sh, 29) +
3917 3.1118686368e10 * pow(sh, 30) -
3918 9.59731542e9 * pow(sh, 31) +
3919 2.22259884e9 * pow(sh, 32) -
3920 3.733653e8 * pow(sh, 33) + 4.288284e7 * pow(sh, 34) -
3921 3.00762e6 * pow(sh, 35) + 97020. * pow(sh, 36)))) *
3922 pow(z, 8);
3923 else
3924 res += pow(z, 8)*(-177282.7451111828 -
3925 1.362845028834542e6 * (1. - sh) -
3926 5.9880687949730605e6 * pow(1. - sh, 2) -
3927 1.9481491807919256e7 * pow(1. - sh, 3) -
3928 5.2053685182060525e7 * pow(1. - sh, 4) +
3929 log(muh)*(1940.6814814814816 +
3930 17168.118518518517 * (1. - sh) +
3931 83827.2 * pow(1. - sh, 2) +
3932 299136. * pow(1. - sh, 3) +
3933 871904. * pow(1. - sh, 4)) +
3934 log(z)*(36437.04027695534 +
3935 345607.09636221116 * (1. - sh) +
3936 1.691397924301905e6 * pow(1. - sh, 2) +
3937 6.051670084075397e6 * pow(1. - sh, 3) +
3938 1.778888064751204e7 * pow(1. - sh, 4) +
3939 log(muh)*(1642.6666666666667 +
3940 13141.333333333334 * (1. - sh) +
3941 59136. * pow(1. - sh, 2) +
3942 197120. * pow(1. - sh, 3) +
3943 542080. * pow(1. - sh, 4))) +
3944 (19228.65843621399 + 153417.80082304525 * (1. - sh) +
3945 684734.1037037037 * pow(1. - sh, 2) +
3946 2.279762479012346e6 * pow(1. - sh, 3) +
3947 6.2693611104056435e6 * pow(1. - sh, 4)) *
3948 pow(log(z), 2));
3949 }
3950
3951 if (17 <= maxpow) {
3952 if (sh < .900001)
3953 res += -1.4445330349469783e-6 * pow(3.141592653589793, 2) * pow(sh, -15)*
3954 (6435. + 114114. * sh + 962577. * pow(sh, 2) +
3955 5.137524e6 * pow(sh, 3) + 1.9445755e7 * pow(sh, 4) +
3956 5.526435e7 * pow(sh, 5) + 1.20557265e8 * pow(sh, 6) +
3957 1.9446652e8 * pow(sh, 7) + 1.20557265e8 * pow(sh, 8) +
3958 5.526435e7 * pow(sh, 9) + 1.9445755e7 * pow(sh, 10) +
3959 5.137524e6 * pow(sh, 11) + 962577. * pow(sh, 12) +
3960 114114. * pow(sh, 13) + 6435. * pow(sh, 14)) * pow(z, 8.5);
3961 else
3962 res += (-8517.720415207139 - 68141.76332165711 * (1. - sh) -
3963 315581.54138342454 * pow(1. - sh, 2) -
3964 1.1026189077485641e6 * pow(1. - sh, 3) -
3965 3.2181012443704475e6 * pow(1. - sh, 4)) * pow(z, 8.5);
3966 }
3967
3968 if (18 <= maxpow) {
3969 if (sh < .900001)
3970 res += (-1. * lmu * (-6542.252322163433 * pow(sh, -9) +
3971 5423.407407407408 * Lsh * pow(sh, -9)) -
3972 254.65798096566218 * pow(-1 + sh, -3) * pow(sh, -7) +
3973 211.85185185185185 * Li3sh * pow(-1 + sh, -3) * pow(sh, -7) -
3974 70.61728395061728 * pow(Lsh, 3) * pow(-1 + sh, -3) *
3975 pow(sh, -7) - 2.6901822457378013 * cl2 * sqrt4sh * sqrtsh *
3976 pow(sh, 3)*(552. - 6504. * sh + 954. * pow(sh, 2) +
3977 96534. * pow(sh, 3) - 256765. * pow(sh, 4) +
3978 311884. * pow(sh, 5) - 219753. * pow(sh, 6) +
3979 97149. * pow(sh, 7) - 27453. * pow(sh, 8) +
3980 4830. * pow(sh, 9) - 483. * pow(sh, 10) + 21. * pow(sh, 11))\
3981 - 0.00010451368476059834 * ash * sqrt4sh * sqrtsh *
3982 pow(-1 + sh, -3) * pow(sh, 3)*
3983 (-2.9602032e7 + 4.3918554e8 * sh -
3984 1.183665042e9 * pow(sh, 2) - 4.124801388e9 * pow(sh, 3) +
3985 2.9786749451e10 * pow(sh, 4) -
3986 7.6073083277e10 * pow(sh, 5) +
3987 1.12343648214e11 * pow(sh, 6) -
3988 1.08358670795e11 * pow(sh, 7) +
3989 7.1769426953e10 * pow(sh, 8) -
3990 3.3301199019e10 * pow(sh, 9) +
3991 1.0824913791e10 * pow(sh, 10) -
3992 2.416552923e9 * pow(sh, 11) +
3993 3.53029242e8 * pow(sh, 12) - 3.0393246e7 * pow(sh, 13) +
3994 1.168971e6 * pow(sh, 14)) +
3995 8.070546737213403 * pow(ash, 2) * pow(-1 + sh, -4) * pow(sh, 3)*
3996 (-112. + 5446. * sh - 40068. * pow(sh, 2) +
3997 45402. * pow(sh, 3) + 481386. * pow(sh, 4) -
3998 2.416545e6 * pow(sh, 5) + 5.68308e6 * pow(sh, 6) -
3999 8.356089e6 * pow(sh, 7) + 8.410689e6 * pow(sh, 8) -
4000 6.034798e6 * pow(sh, 9) + 3.142636e6 * pow(sh, 10) -
4001 1.191618e6 * pow(sh, 11) + 325686. * pow(sh, 12) -
4002 62481. * pow(sh, 13) + 7980. * pow(sh, 14) -
4003 609. * pow(sh, 15) + 21. * pow(sh, 16)) -
4004 0.004703115814226925 * Li2sh * pow(-1 + sh, -10) * pow(sh, -9)*
4005 (-288288. + 2.873871e6 * sh - 1.2889503e7 * pow(sh, 2) +
4006 3.423222e7 * pow(sh, 3) - 5.956146e7 * pow(sh, 4) +
4007 7.0825482e7 * pow(sh, 5) - 5.8121154e7 * pow(sh, 6) +
4008 3.2324292e7 * pow(sh, 7) - 1.153152e7 * pow(sh, 8) +
4009 2.327611e6 * pow(sh, 9) - 186043. * pow(sh, 10) -
4010 252. * pow(sh, 15) + 54. * pow(sh, 16) + 18. * pow(sh, 17))\
4011 - Lsh * (211.85185185185185 * Li2sh * pow(-1 + sh, -3) *
4012 pow(sh, -7) + 2.6901822457378013 * ash * sqrt4sh * sqrtsh *
4013 pow(sh, 3)*(552. - 6504. * sh + 954. * pow(sh, 2) +
4014 96534. * pow(sh, 3) - 256765. * pow(sh, 4) +
4015 311884. * pow(sh, 5) - 219753. * pow(sh, 6) +
4016 97149. * pow(sh, 7) - 27453. * pow(sh, 8) +
4017 4830. * pow(sh, 9) - 483. * pow(sh, 10) +
4018 21. * pow(sh, 11)) +
4019 1.5552631660803325e-7 * pow(-1 + sh, -10) * pow(sh, -16)*
4020 (24990. + 3675. * sh - 1.155555e6 * pow(sh, 2) -
4021 4.697175e6 * pow(sh, 3) - 2.300739e6 * pow(sh, 4) +
4022 2.4304707e7 * pow(sh, 5) + 4.9414911e7 * pow(sh, 6) +
4023 (8.82608902003e11 - 8.71782912e9 * Lshb) *
4024 pow(sh, 7) + (-8.826874533745e12 +
4025 8.690585904e10 * Lshb) * pow(sh, 8) +
4026 15. * (2.648605733525e12 - 2.5985238048e10 * Lshb +
4027 7.56756e7 * pow(3.141592653589793, 2)) * pow(sh, 9)\
4028 + 3. * (-3.5329412670653e13 +
4029 3.450607776e11 * Lshb -
4030 2.648646e9 * pow(3.141592653589793, 2)) *
4031 pow(sh, 10) +
4032 105. * (1.767535730921e12 - 1.715370048e10 * Lshb +
4033 2.270268e8 * pow(3.141592653589793, 2)) *
4034 pow(sh, 11) +
4035 21. * (-1.0613371381061e13 +
4036 1.0198869408e11 * Lshb -
4037 1.89189e9 * pow(3.141592653589793, 2)) * pow(sh, 12)
4038 + 189. * (9.83624804999e11 - 9.29938464e9 * Lshb +
4039 2.1021e8 * pow(3.141592653589793, 2)) * pow(sh, 13)\
4040 + 15. * (-7.089591334283e12 +
4041 6.5165772672e10 * Lshb -
4042 1.5891876e9 * pow(3.141592653589793, 2)) *
4043 pow(sh, 14) +
4044 33. * (1.209854560067e12 - 1.05670656e10 * Lshb +
4045 2.40786e8 * pow(3.141592653589793, 2)) * pow(sh, 15)
4046 + 2. * (-4.441328248151e12 +
4047 3.519347832e10 * Lshb -
4048 5.67567e8 * pow(3.141592653589793, 2)) * pow(sh, 16)
4049 + (8.88980806162e11 - 5.62594032e9 * Lshb) *
4050 pow(sh, 17) - 3.8377206e7 * pow(sh, 18) +
4051 4.2700014e7 * pow(sh, 19) +
4052 1.8171216e7 * pow(sh, 20) - 5.847282e6 * pow(sh, 21) -
4053 1890. * (1387. + 4032. * Lshb) * pow(sh, 22) +
4054 2430. * (149. + 672. * Lshb) * pow(sh, 23) +
4055 1215. * (15. + 448. * Lshb) * pow(sh, 24))) -
4056 0.00009798157946306095 * pow(Lsh, 2) * pow(-1 + sh, -11) *
4057 pow(sh, -16)*(-168. - 1302. * sh - 2760. * pow(sh, 2) +
4058 4440. * pow(sh, 3) + 27552. * pow(sh, 4) +
4059 26796. * pow(sh, 5) - 59136. * pow(sh, 6) +
4060 6.91904744e8 * pow(sh, 7) - 7.607607766e9 * pow(sh, 8) +
4061 (3.8011106171e10 + 1.08108e6 * Lshb) * pow(sh, 9) -
4062 36. * (3.165700357e9 + 240240. * Lshb) * pow(sh, 10) +
4063 720. * (3.16454927e8 + 42042. * Lshb) * pow(sh, 11) -
4064 504. * (6.32852603e8 + 120120. * Lshb) * pow(sh, 12) +
4065 84. * (3.797894797e9 + 900900. * Lshb) * pow(sh, 13) -
4066 192. * (1.187472428e9 + 315315. * Lshb) * pow(sh, 14) +
4067 120. * (9.50840131e8 + 252252. * Lshb) * pow(sh, 15) -
4068 104. * (3.66207253e8 + 83160. * Lshb) * pow(sh, 16) +
4069 (7.631953801e9 + 1.08108e6 * Lshb) * pow(sh, 17) -
4070 6.95689448e8 * pow(sh, 18) - 6048. * pow(sh, 22) +
4071 7344. * pow(sh, 23) - 864. * pow(sh, 24) - 432. * pow(sh, 25)
4072 ) + 0.00004899078973153047 * pow(lz, 2) * pow(sh, -16)*
4073 (-84. - 1575. * sh - 14085. * pow(sh, 2) -
4074 79950. * pow(sh, 3) - 323154. * pow(sh, 4) -
4075 987129. * pow(sh, 5) - 2.347059e6 * pow(sh, 6) +
4076 1.379703232e9 * pow(sh, 7) + 2.7027e6 * pow(sh, 8) -
4077 473685. * pow(sh, 9) + 1.243629e6 * pow(sh, 10) +
4078 2.698722e6 * pow(sh, 11) + 2.985906e6 * pow(sh, 12) +
4079 2.433285e6 * pow(sh, 13) + 1.388619e6 * pow(sh, 14) +
4080 84. * pow(sh, 15) + 4.25568e6 * pow(sh, 16) +
4081 4.612608e6 * pow(sh, 17) + 5.189184e6 * pow(sh, 18) +
4082 7.605312e6 * pow(sh, 19) - 6.1281792e7 * pow(sh, 20) +
4083 2.75438592e8 * pow(sh, 21) + 8.71398528e8 * pow(sh, 22) -
4084 5.028236928e9 * pow(sh, 23) +
4085 8.99602704e9 * pow(sh, 24) -
4086 8.653636992e9 * pow(sh, 25) +
4087 5.137333344e9 * pow(sh, 26) -
4088 1.978438176e9 * pow(sh, 27) +
4089 4.97379168e8 * pow(sh, 28) - 7.8990912e7 * pow(sh, 29) +
4090 7.2072e6 * pow(sh, 30) - 288288. * pow(sh, 31)) -
4091 lz * (-5423.407407407408 * lmu * pow(sh, -9) -
4092 105.92592592592592 * pow(Lsh, 2) * pow(-1 + sh, -3) *
4093 pow(sh, -7) + 5.380364491475603 * ash * sqrt4sh * sqrtsh *
4094 pow(sh, 3)*(552. - 6504. * sh + 954. * pow(sh, 2) +
4095 96534. * pow(sh, 3) - 256765. * pow(sh, 4) +
4096 311884. * pow(sh, 5) - 219753. * pow(sh, 6) +
4097 97149. * pow(sh, 7) - 27453. * pow(sh, 8) +
4098 4830. * pow(sh, 9) - 483. * pow(sh, 10) +
4099 21. * pow(sh, 11)) +
4100 0.0001959631589261219 * Lsh * pow(-1 + sh, -10) *
4101 pow(sh, -16)*(-84. - 735. * sh - 2115. * pow(sh, 2) +
4102 105. * pow(sh, 3) + 13881. * pow(sh, 4) +
4103 27279. * pow(sh, 5) - 2289. * pow(sh, 6) +
4104 6.91956971e8 * pow(sh, 7) -
4105 6.915895655e9 * pow(sh, 8) +
4106 3.1099607139e10 * pow(sh, 9) -
4107 8.2880063541e10 * pow(sh, 10) +
4108 1.44964071231e11 * pow(sh, 11) -
4109 1.73879170521e11 * pow(sh, 12) +
4110 1.44837476805e11 * pow(sh, 13) -
4111 8.2722854787e10 * pow(sh, 14) +
4112 3.0998246241e10 * pow(sh, 15) -
4113 6.879851159e9 * pow(sh, 16) +
4114 6.86365796e8 * pow(sh, 17) - 75600. * pow(sh, 18) -
4115 9072. * pow(sh, 19) + 22680. * pow(sh, 20) +
4116 9828. * pow(sh, 21) + 2268. * pow(sh, 22) -
4117 2484. * pow(sh, 23) - 54. * pow(sh, 24)) +
4118 5.43798309818298e-10 * pow(-1 + sh, -9) * pow(sh, -16)*
4119 (3.57357e6 + 4.099095e6 * sh -
4120 1.6114527e8 * pow(sh, 2) - 8.32841295e8 * pow(sh, 3) -
4121 1.161846972e9 * pow(sh, 4) +
4122 2.313726129e9 * pow(sh, 5) +
4123 9.380058402e9 * pow(sh, 6) +
4124 2.52441684058135e14 * pow(sh, 7) -
4125 2.26944762991947e15 * pow(sh, 8) +
4126 9.067251405053984e15 * pow(sh, 9) -
4127 2.113009526738253e16 * pow(sh, 10) +
4128 3.1647467902192624e16 * pow(sh, 11) -
4129 3.158667323807502e16 * pow(sh, 12) +
4130 2.1002634158609704e16 * pow(sh, 13) -
4131 8.966860615674702e15 * pow(sh, 14) +
4132 2.228333766410625e15 * pow(sh, 15) -
4133 2.43656770617994e14 * pow(sh, 16) -
4134 9.520266140208e12 * pow(sh, 17) +
4135 3.1476144603672e13 * pow(sh, 18) -
4136 6.08108801358e13 * pow(sh, 19) +
4137 8.0522179628688e13 * pow(sh, 20) -
4138 7.1735262216768e13 * pow(sh, 21) -
4139 1.85972284144884e14 * pow(sh, 22) +
4140 1.24257330785952e15 * pow(sh, 23) -
4141 1.516348491395922e15 * pow(sh, 24) -
4142 9.623404446386016e15 * pow(sh, 25) +
4143 5.409785863372176e16 * pow(sh, 26) -
4144 1.4651551524606797e17 * pow(sh, 27) +
4145 2.639914855668742e17 * pow(sh, 28) -
4146 3.46785263569046e17 * pow(sh, 29) +
4147 3.4581010205224454e17 * pow(sh, 30) -
4148 2.67102371124581e17 * pow(sh, 31) +
4149 1.612804363486636e17 * pow(sh, 32) -
4150 7.625393556018638e16 * pow(sh, 33) +
4151 2.809203040360517e16 * pow(sh, 34) -
4152 7.968174811781184e15 * pow(sh, 35) +
4153 1.704011763662208e15 * pow(sh, 36) -
4154 2.65362784294608e14 * pow(sh, 37) +
4155 2.836102317048e13 * pow(sh, 38) -
4156 1.857724700832e12 * pow(sh, 39) +
4157 5.6166718608e10 * pow(sh, 40))) -
4158 2.263562728181394e-15 * pow(-1 + sh, -10) * pow(sh, -16)*
4159 (1.522039519e11 - 4.26276275425e11 * sh -
4160 3.315607505925e12 * pow(sh, 2) +
4161 1.9935815474575e13 * pow(sh, 3) +
4162 1.24680380503679e14 * pow(sh, 4) +
4163 9.4734104241777e13 * pow(sh, 5) -
4164 6.72219759402191e14 * pow(sh, 6) -
4165 2.148676883608435e19 * pow(sh, 7) +
4166 2.1433741656451708e20 * pow(sh, 8) -
4167 9.621528485908101e20 * pow(sh, 9) +
4168 2.559493442861416e21 * pow(sh, 10) -
4169 4.468559626678942e21 * pow(sh, 11) +
4170 5.35099530515921e21 * pow(sh, 12) -
4171 4.4525844044562044e21 * pow(sh, 13) +
4172 2.544142477915097e21 * pow(sh, 14) -
4173 9.568948351796755e20 * pow(sh, 15) +
4174 2.1500361682429e20 * pow(sh, 16) -
4175 2.422139078794151e19 * pow(sh, 17) +
4176 8.145618788181729e18 * pow(sh, 18) -
4177 1.8132101139625396e19 * pow(sh, 19) +
4178 2.789986937416512e19 * pow(sh, 20) -
4179 2.916708794791665e19 * pow(sh, 21) -
4180 4.506612585214779e19 * pow(sh, 22) +
4181 3.9814881989842764e20 * pow(sh, 23) -
4182 7.61642854944141e20 * pow(sh, 24) -
4183 1.912231127650318e21 * pow(sh, 25) +
4184 1.5547276029752026e22 * pow(sh, 26) -
4185 4.875241535562659e22 * pow(sh, 27) +
4186 9.909337425361018e22 * pow(sh, 28) -
4187 1.4647795672750128e23 * pow(sh, 29) +
4188 1.651330016200192e23 * pow(sh, 30) -
4189 1.453924699389752e23 * pow(sh, 31) +
4190 1.011735575962528e23 * pow(sh, 32) -
4191 5.58883301567305e22 * pow(sh, 33) +
4192 2.447160559972393e22 * pow(sh, 34) -
4193 8.433457866753118e21 * pow(sh, 35) +
4194 2.2566304052798968e21 * pow(sh, 36) -
4195 4.585243554016694e20 * pow(sh, 37) +
4196 6.826335499960051e19 * pow(sh, 38) -
4197 7.011890262150629e18 * pow(sh, 39) +
4198 4.434709029248097e17 * pow(sh, 40) -
4199 1.2998152420597344e16 * pow(sh, 41) +
4200 4.32864432e10 * pow(3.141592653589793, 2)*
4201 (-84. - 735. * sh - 2115. * pow(sh, 2) +
4202 105. * pow(sh, 3) + 13881. * pow(sh, 4) +
4203 27279. * pow(sh, 5) - 2289. * pow(sh, 6) +
4204 7.06083083e8 * pow(sh, 7) -
4205 7.059427043e9 * pow(sh, 8) +
4206 3.1757931649e10 * pow(sh, 9) -
4207 8.4675129727e10 * pow(sh, 10) +
4208 1.48186623501e11 * pow(sh, 11) -
4209 1.77858935891e11 * pow(sh, 12) +
4210 1.48260913367e11 * pow(sh, 13) -
4211 8.4747202497e10 * pow(sh, 14) +
4212 3.1784695387e10 * pow(sh, 15) -
4213 7.061392333e9 * pow(sh, 16) +
4214 7.13289054e8 * pow(sh, 17) -
4215 3.2675014e7 * pow(sh, 18) + 7.242013e7 * pow(sh, 19) -
4216 7.6735758e7 * pow(sh, 20) -
4217 2.40223726e8 * pow(sh, 21) +
4218 1.627847962e9 * pow(sh, 22) -
4219 2.273776974e9 * pow(sh, 23) -
4220 1.712105386e10 * pow(sh, 24) +
4221 1.18341944808e11 * pow(sh, 25) -
4222 3.9995878208e11 * pow(sh, 26) +
4223 9.10773328608e11 * pow(sh, 27) -
4224 1.531097366656e12 * pow(sh, 28) +
4225 1.98076916752e12 * pow(sh, 29) -
4226 2.016366553344e12 * pow(sh, 30) +
4227 1.634962897568e12 * pow(sh, 31) -
4228 1.06202452928e12 * pow(sh, 32) +
4229 5.53053223008e11 * pow(sh, 33) -
4230 2.30009473408e11 * pow(sh, 34) +
4231 7.5735678304e10 * pow(sh, 35) -
4232 1.945628256e10 * pow(sh, 36) +
4233 3.810741792e9 * pow(sh, 37) -
4234 5.48735616e8 * pow(sh, 38) +
4235 5.4678624e7 * pow(sh, 39) - 3.36336e6 * pow(sh, 40) +
4236 96096. * pow(sh, 41)))) * pow(z, 9);
4237 else
4238 res += pow(z, 9)*(-622069.3836274818 -
4239 5.380712316126128e6 * (1. - sh) -
4240 2.6348101173329648e7 * pow(1. - sh, 2) -
4241 9.453816935977913e7 * pow(1. - sh, 3) -
4242 2.761541131481308e8 * pow(1. - sh, 4) +
4243 log(muh)*(6542.252322163433 +
4244 64303.678306878304 * (1. - sh) +
4245 345923.7248677249 * pow(1. - sh, 2) +
4246 1.349738102292769e6 * pow(1. - sh, 3) +
4247 4.272929862433863e6 * pow(1. - sh, 4)) +
4248 log(z)*(131849.69275238464 +
4249 1.3908505037480777e6 * (1. - sh) +
4250 7.472361309110008e6 * pow(1. - sh, 2) +
4251 2.920814956913386e7 * pow(1. - sh, 3) +
4252 9.329175253624554e7 * pow(1. - sh, 4) +
4253 log(muh)*(5423.407407407408 +
4254 48810.666666666664 * (1. - sh) +
4255 244053.33333333334 * pow(1. - sh, 2) +
4256 894862.2222222222 * pow(1. - sh, 3) +
4257 2.6845866666666665e6 * pow(1. - sh, 4))) +
4258 (68317.8044287674 + 612595.3262786596 * (1. - sh) +
4259 3.035726507936508e6 * pow(1. - sh, 2) +
4260 1.1122724390358612e7 * pow(1. - sh, 3) +
4261 3.3373027717813052e7 * pow(1. - sh, 4)) *
4262 pow(log(z), 2));
4263 }
4264
4265 if (19 <= maxpow) {
4266 if (sh < .900001)
4267 res += -6.708357747431788e-8 * pow(3.141592653589793, 2) * pow(sh, -17)*
4268 (109395. + 2.16216e6 * sh + 2.0430696e7 * pow(sh, 2) +
4269 1.22866128e8 * pow(sh, 3) + 5.27900436e8 * pow(sh, 4) +
4270 1.72236568e9 * pow(sh, 5) + 4.41295356e9 * pow(sh, 6) +
4271 8.96714376e9 * pow(sh, 7) + 1.385377093e10 * pow(sh, 8) +
4272 8.96714376e9 * pow(sh, 9) + 4.41295356e9 * pow(sh, 10) +
4273 1.72236568e9 * pow(sh, 11) + 5.27900436e8 * pow(sh, 12) +
4274 1.22866128e8 * pow(sh, 13) + 2.0430696e7 * pow(sh, 14) +
4275 2.16216e6 * pow(sh, 15) + 109395. * pow(sh, 16)) * pow(z, 9.5);
4276 else
4277 res += (-30062.542641907552 - 270562.883777168 * (1. - sh) -
4278 1.388889470056129e6 * pow(1. - sh, 2) -
4279 5.321070047617637e6 * pow(1. - sh, 3) -
4280 1.6887633329091568e7 * pow(1. - sh, 4)) * pow(z, 9.5);
4281 }
4282
4283 if (20 <= maxpow) {
4284 if (sh < .900001)
4285 res += (-1. * lmu * (-22436.0126984127 * pow(sh, -10) +
4286 18304. * Lsh * pow(sh, -10)) -
4287 769.6330091406679 * pow(-1 + sh, -3) * pow(sh, -8) +
4288 640.2633744855967 * Li3sh * pow(-1 + sh, -3) * pow(sh, -8) -
4289 213.42112482853224 * pow(Lsh, 3) * pow(-1 + sh, -3) *
4290 pow(sh, -8) + 6.052910052910053 * cl2 * sqrt4sh * sqrtsh *
4291 pow(sh, 3)*(72. - 4364. * sh + 28750. * pow(sh, 2) +
4292 23168. * pow(sh, 3) - 476659. * pow(sh, 4) +
4293 1.255353e6 * pow(sh, 5) - 1.649661e6 * pow(sh, 6) +
4294 1.316274e6 * pow(sh, 7) - 686175. * pow(sh, 8) +
4295 239883. * pow(sh, 9) - 55951. * pow(sh, 10) +
4296 8372. * pow(sh, 11) - 728. * pow(sh, 12) + 28. * pow(sh, 13))
4297 + 0.0009406231628453851 * ash * sqrt4sh * sqrtsh *
4298 pow(-1 + sh, -3) * pow(sh, 3)*
4299 (-1.003446e6 + 6.399262e7 * sh -
4300 5.88476654e8 * pow(sh, 2) + 1.052685443e9 * pow(sh, 3) +
4301 6.558619027e9 * pow(sh, 4) -
4302 3.9015984112e10 * pow(sh, 5) +
4303 9.831642973e10 * pow(sh, 6) -
4304 1.5050270954e11 * pow(sh, 7) +
4305 1.55340604554e11 * pow(sh, 8) -
4306 1.13220265218e11 * pow(sh, 9) +
4307 5.9521934912e10 * pow(sh, 10) -
4308 2.2692174847e10 * pow(sh, 11) +
4309 6.219574195e9 * pow(sh, 12) -
4310 1.194652762e9 * pow(sh, 13) + 1.5263422e8 * pow(sh, 14) -
4311 1.1648401e7 * pow(sh, 15) + 401669. * pow(sh, 16)) -
4312 18.158730158730158 * pow(ash, 2) * pow(-1 + sh, -4) *
4313 pow(sh, 4)*(1638. - 34902. * sh + 187614. * pow(sh, 2) -
4314 73296. * pow(sh, 3) - 2.717613e6 * pow(sh, 4) +
4315 1.2278721e7 * pow(sh, 5) - 2.8715127e7 * pow(sh, 6) +
4316 4.3584072e7 * pow(sh, 7) - 4.6464222e7 * pow(sh, 8) +
4317 3.6125334e7 * pow(sh, 9) - 2.0866662e7 * pow(sh, 10) +
4318 9.012312e6 * pow(sh, 11) - 2.899701e6 * pow(sh, 12) +
4319 684873. * pow(sh, 13) - 115255. * pow(sh, 14) +
4320 13076. * pow(sh, 15) - 896. * pow(sh, 16) + 28. * pow(sh, 17)
4321 ) - 0.0011757789535567313 * Li2sh * pow(-1 + sh, -11) *
4322 pow(sh, -10)*(3.891888e6 - 4.2698656e7 * sh +
4323 2.12860648e8 * pow(sh, 2) - 6.36197562e8 * pow(sh, 3) +
4324 1.265813472e9 * pow(sh, 4) - 1.758542016e9 * pow(sh, 5) +
4325 1.737624672e9 * pow(sh, 6) - 1.217575632e9 * pow(sh, 7) +
4326 5.89815408e8 * pow(sh, 8) - 1.86234048e8 * pow(sh, 9) +
4327 3.3715396e7 * pow(sh, 10) - 2.523664e6 * pow(sh, 11) -
4328 1008. * pow(sh, 17) + 252. * pow(sh, 18) + 63. * pow(sh, 19))
4329 - Lsh * (640.2633744855967 * Li2sh * pow(-1 + sh, -3) *
4330 pow(sh, -8) - 6.052910052910053 * ash * sqrt4sh * sqrtsh *
4331 pow(sh, 3)*(72. - 4364. * sh + 28750. * pow(sh, 2) +
4332 23168. * pow(sh, 3) - 476659. * pow(sh, 4) +
4333 1.255353e6 * pow(sh, 5) - 1.649661e6 * pow(sh, 6) +
4334 1.316274e6 * pow(sh, 7) - 686175. * pow(sh, 8) +
4335 239883. * pow(sh, 9) - 55951. * pow(sh, 10) +
4336 8372. * pow(sh, 11) - 728. * pow(sh, 12) +
4337 28. * pow(sh, 13)) +
4338 1.0368421107202216e-8 * pow(-1 + sh, -11) * pow(sh, -18)*
4339 (-268128. - 50176. * sh + 1.5037316e7 * pow(sh, 2) +
4340 7.0758368e7 * pow(sh, 3) + 6.454424e7 * pow(sh, 4) -
4341 3.47363296e8 * pow(sh, 5) -
4342 9.86787592e8 * pow(sh, 6) - 3.5646688e7 * pow(sh, 7) +
4343 448. * (-1.08098395051e11 + 9.8513415e8 * Lshb) *
4344 pow(sh, 8) - 2464. *
4345 (-2.16214325051e11 + 1.9651086e9 * Lshb) * pow(sh, 9)
4346 + (-2.664090635973398e15 +
4347 2.41383974832e13 * Lshb -
4348 5.1459408e10 * pow(3.141592653589793, 2)) *
4349 pow(sh, 10) +
4350 (7.994327088697714e15 - 7.21448035308e13 * Lshb +
4351 4.11675264e11 * pow(3.141592653589793, 2)) *
4352 pow(sh, 11) +
4353 28. * (-5.71247555169563e14 +
4354 5.1265445616e12 * Lshb -
4355 5.1459408e10 * pow(3.141592653589793, 2)) *
4356 pow(sh, 12) +
4357 112. * (2.00040160003213e14 -
4358 1.7805237912e12 * Lshb +
4359 2.5729704e10 * pow(3.141592653589793, 2)) *
4360 pow(sh, 13) +
4361 14. * (-1.601332890109447e15 +
4362 1.40747598432e13 * Lshb -
4363 2.5729704e11 * pow(3.141592653589793, 2)) *
4364 pow(sh, 14) +
4365 112. * (1.43081208030667e14 -
4366 1.2327953274e12 * Lshb +
4367 2.5729704e10 * pow(3.141592653589793, 2)) *
4368 pow(sh, 15) +
4369 28. * (-2.86396712598419e14 +
4370 2.3887524024e12 * Lshb -
4371 5.1459408e10 * pow(3.141592653589793, 2)) *
4372 pow(sh, 16) +
4373 32. * (8.3604554894621e13 - 6.599669076e11 * Lshb +
4374 1.2864852e10 * pow(3.141592653589793, 2)) *
4375 pow(sh, 17) +
4376 (-5.35506196250843e14 + 3.8233259064e12 * Lshb -
4377 5.1459408e10 * pow(3.141592653589793, 2)) *
4378 pow(sh, 18) -
4379 252. * (-1.93318721627e11 + 1.1356488e9 * Lshb) *
4380 pow(sh, 19) - 3.861655812e9 * pow(sh, 20) -
4381 5.0733144e7 * pow(sh, 21) +
4382 8.74592334e8 * pow(sh, 22) +
4383 2.56502232e8 * pow(sh, 23) -
4384 1.152693e8 * pow(sh, 24) -
4385 1800. * (20357. + 63504. * Lshb) * pow(sh, 25) +
4386 11025. * (461. + 2592. * Lshb) * pow(sh, 26) +
4387 11025. * (17. + 648. * Lshb) * pow(sh, 27))) -
4388 0.000013064210595074793 * pow(Lsh, 2) * pow(-1 + sh, -12) *
4389 pow(sh, -18)*(1008. + 8848. * sh + 23688. * pow(sh, 2) -
4390 17352. * pow(sh, 3) - 212592. * pow(sh, 4) -
4391 311184. * pow(sh, 5) + 400176. * pow(sh, 6) +
4392 1.492176e6 * pow(sh, 7) - 1.8665467128e10 * pow(sh, 8) +
4393 2.23865173224e11 * pow(sh, 9) -
4394 3. * (4.10179236011e11 + 8.16816e6 * Lshb) * pow(sh, 10) +
4395 1053. * (3.893290287e9 + 209440. * Lshb) * pow(sh, 11) -
4396 234. * (3.9404650781e10 + 3.76992e6 * Lshb) *
4397 pow(sh, 12) + 1848. *
4398 (7.981764103e9 + 1.11384e6 * Lshb) * pow(sh, 13) -
4399 5040. * (3.414494773e9 + 612612. * Lshb) * pow(sh, 14) +
4400 3528. * (4.182077137e9 + 875160. * Lshb) * pow(sh, 15) -
4401 1344. * (6.864759043e9 + 1.53153e6 * Lshb) * pow(sh, 16) +
4402 1224. * (3.352868227e9 + 720720. * Lshb) * pow(sh, 17) -
4403 18. * (6.8479648117e10 + 1.225224e7 * Lshb) *
4404 pow(sh, 18) + (2.24483274986e11 + 2.450448e7 * Lshb) *
4405 pow(sh, 19) - 1.8748455264e10 * pow(sh, 20) -
4406 45360. * pow(sh, 25) + 56700. * pow(sh, 26) -
4407 8505. * pow(sh, 27) - 2835. * pow(sh, 28)) +
4408 0.000013064210595074793 * pow(lz, 2) * pow(sh, -18)*
4409 (-252. - 5236. * sh - 52122. * pow(sh, 2) -
4410 330990. * pow(sh, 3) - 1.50586e6 * pow(sh, 4) -
4411 5.221788e6 * pow(sh, 5) - 1.4306214e7 * pow(sh, 6) -
4412 3.1500898e7 * pow(sh, 7) + 1.8610077024e10 * pow(sh, 8) +
4413 3.675672e7 * pow(sh, 9) - 1.1865305e7 * pow(sh, 10) +
4414 7.819275e6 * pow(sh, 11) + 2.920308e7 * pow(sh, 12) +
4415 3.763735e7 * pow(sh, 13) + 3.5618775e7 * pow(sh, 14) +
4416 2.7424047e7 * pow(sh, 15) + 1.5311086e7 * pow(sh, 16) +
4417 252. * pow(sh, 17) + 5.397678e7 * pow(sh, 18) +
4418 5.722002e7 * pow(sh, 19) + 6.231654e7 * pow(sh, 20) +
4419 6.996132e7 * pow(sh, 21) + 2.7057888e8 * pow(sh, 22) -
4420 3.18810492e9 * pow(sh, 23) + 7.5729654e9 * pow(sh, 24) +
4421 4.194296964e10 * pow(sh, 25) -
4422 2.0547002619e11 * pow(sh, 26) +
4423 3.8218629735e11 * pow(sh, 27) -
4424 4.0430890071e11 * pow(sh, 28) +
4425 2.7416659842e11 * pow(sh, 29) -
4426 1.2521582073e11 * pow(sh, 30) +
4427 3.911266359e10 * pow(sh, 31) -
4428 8.26458633e9 * pow(sh, 32) + 1.13189076e9 * pow(sh, 33) -
4429 9.081072e7 * pow(sh, 34) + 3.24324e6 * pow(sh, 35)) -
4430 lz * (-18304. * lmu * pow(sh, -10) -
4431 320.13168724279836 * pow(Lsh, 2) * pow(-1 + sh, -3) *
4432 pow(sh, -8) - 12.105820105820106 * ash * sqrt4sh * sqrtsh *
4433 pow(sh, 3)*(72. - 4364. * sh + 28750. * pow(sh, 2) +
4434 23168. * pow(sh, 3) - 476659. * pow(sh, 4) +
4435 1.255353e6 * pow(sh, 5) - 1.649661e6 * pow(sh, 6) +
4436 1.316274e6 * pow(sh, 7) - 686175. * pow(sh, 8) +
4437 239883. * pow(sh, 9) - 55951. * pow(sh, 10) +
4438 8372. * pow(sh, 11) - 728. * pow(sh, 12) +
4439 28. * pow(sh, 13)) -
4440 0.000026128421190149586 * Lsh * pow(-1 + sh, -11) *
4441 pow(sh, -18)*(-504. - 4928. * sh - 16772. * pow(sh, 2) -
4442 8096. * pow(sh, 3) + 98200. * pow(sh, 4) +
4443 253792. * pow(sh, 5) + 53704. * pow(sh, 6) -
4444 692384. * pow(sh, 7) + 1.8664647232e10 * pow(sh, 8) -
4445 2.05207139984e11 * pow(sh, 9) +
4446 1.025430782207e12 * pow(sh, 10) -
4447 3.074555676226e12 * pow(sh, 11) +
4448 6.145992007736e12 * pow(sh, 12) -
4449 8.60044812004e12 * pow(sh, 13) +
4450 8.596678573448e12 * pow(sh, 14) -
4451 6.137611319224e12 * pow(sh, 15) +
4452 3.067041035912e12 * pow(sh, 16) -
4453 1.021522277272e12 * pow(sh, 17) +
4454 2.04049226678e11 * pow(sh, 18) -
4455 1.8515048904e10 * pow(sh, 19) +
4456 864864. * pow(sh, 20) + 769608. * pow(sh, 21) -
4457 13608. * pow(sh, 22) - 222264. * pow(sh, 23) -
4458 69120. * pow(sh, 24) - 9000. * pow(sh, 25) +
4459 19215. * pow(sh, 26) + 315. * pow(sh, 27)) -
4460 4.265084782888612e-12 * pow(-1 + sh, -10) * pow(sh, -18)*
4461 (3.25909584e8 + 3.86898512e8 * sh -
4462 1.7890959086e10 * pow(sh, 2) -
4463 1.0389775539e11 * pow(sh, 3) -
4464 1.8235127911e11 * pow(sh, 4) +
4465 2.39868807178e11 * pow(sh, 5) +
4466 1.439309125254e12 * pow(sh, 6) +
4467 1.482637674518e12 * pow(sh, 7) +
4468 1.1773533109183245e17 * pow(sh, 8) -
4469 1.1762786134932733e18 * pow(sh, 9) +
4470 5.287945685290232e18 * pow(sh, 10) -
4471 1.408573123970191e19 * pow(sh, 11) +
4472 2.461891448027823e19 * pow(sh, 12) -
4473 2.949733724851667e19 * pow(sh, 13) +
4474 2.4532821652619735e19 * pow(sh, 14) -
4475 1.3981789937805554e19 * pow(sh, 15) +
4476 5.223681256860368e18 * pow(sh, 16) -
4477 1.1543710933218002e18 * pow(sh, 17) +
4478 1.1493955705739667e17 * pow(sh, 18) -
4479 4.556468500926695e15 * pow(sh, 19) +
4480 1.7572146654042552e16 * pow(sh, 20) -
4481 3.9615878221273704e16 * pow(sh, 21) +
4482 5.638676809242492e16 * pow(sh, 22) -
4483 4.406121643569693e16 * pow(sh, 23) +
4484 3.2318412281568824e16 * pow(sh, 24) -
4485 4.259492022110168e17 * pow(sh, 25) +
4486 2.1201430825186813e18 * pow(sh, 26) -
4487 2.4923037486423537e18 * pow(sh, 27) -
4488 1.7838580318483542e19 * pow(sh, 28) +
4489 1.0701104247446746e20 * pow(sh, 29) -
4490 3.1929857696090705e20 * pow(sh, 30) +
4491 6.474487284281146e20 * pow(sh, 31) -
4492 9.760291519177703e20 * pow(sh, 32) +
4493 1.1392452492311442e21 * pow(sh, 33) -
4494 1.0520263768751638e21 * pow(sh, 34) +
4495 7.775724274489533e20 * pow(sh, 35) -
4496 4.624318941820542e20 * pow(sh, 36) +
4497 2.213656928475123e20 * pow(sh, 37) -
4498 8.494727327998501e19 * pow(sh, 38) +
4499 2.5900145606169035e19 * pow(sh, 39) -
4500 6.181939718636802e18 * pow(sh, 40) +
4501 1.1286121824774998e18 * pow(sh, 41) -
4502 1.5195925385464826e17 * pow(sh, 42) +
4503 1.420123992415128e16 * pow(sh, 43) -
4504 8.2168151561496e14 * pow(sh, 44) +
4505 2.214605244852e13 * pow(sh, 45))) -
4506 6.962130651845887e-19 * pow(-1 + sh, -11) * pow(sh, -18)*
4507 (-3.16414088198208e14 + 9.74539823921664e14 * sh +
4508 8.087033764735926e15 * pow(sh, 2) -
4509 5.684694862939435e16 * pow(sh, 3) -
4510 4.0319420043801754e17 * pow(sh, 4) -
4511 4.882604186351892e17 * pow(sh, 5) +
4512 1.9325128069129482e18 * pow(sh, 6) +
4513 6.292691026868566e18 * pow(sh, 7) +
4514 2.792081386627729e23 * pow(sh, 8) -
4515 3.0653776012724437e24 * pow(sh, 9) +
4516 1.5296980754272814e25 * pow(sh, 10) -
4517 4.580270398519267e25 * pow(sh, 11) +
4518 9.143594067412906e25 * pow(sh, 12) -
4519 1.2779495928946286e26 * pow(sh, 13) +
4520 1.2762486136562552e26 * pow(sh, 14) -
4521 9.110246500944438e25 * pow(sh, 15) +
4522 4.558305919883703e25 * pow(sh, 16) -
4523 1.5244656041943856e25 * pow(sh, 17) +
4524 3.073171046299431e24 * pow(sh, 18) -
4525 2.6184927906686532e23 * pow(sh, 19) -
4526 1.0487308963151102e23 * pow(sh, 20) +
4527 2.7045906540143195e23 * pow(sh, 21) -
4528 4.4609820546041925e23 * pow(sh, 22) +
4529 4.3341866014896366e23 * pow(sh, 23) -
4530 3.0284128932535685e23 * pow(sh, 24) +
4531 2.8502065219122033e24 * pow(sh, 25) -
4532 1.6744213714265902e25 * pow(sh, 26) +
4533 3.4546092096924117e25 * pow(sh, 27) +
4534 6.6958214497636675e25 * pow(sh, 28) -
4535 6.719624033223081e26 * pow(sh, 29) +
4536 2.3634332855143025e27 * pow(sh, 30) -
4537 5.406861258181357e27 * pow(sh, 31) +
4538 9.10419041097793e27 * pow(sh, 32) -
4539 1.1865952156817548e28 * pow(sh, 33) +
4540 1.2283961231268607e28 * pow(sh, 34) -
4541 1.0245250602869844e28 * pow(sh, 35) +
4542 6.935097181125567e27 * pow(sh, 36) -
4543 3.819594455600949e27 * pow(sh, 37) +
4544 1.7090015768187537e27 * pow(sh, 38) -
4545 6.177750381749111e26 * pow(sh, 39) +
4546 1.7862394817725466e26 * pow(sh, 40) -
4547 4.0667139734465495e25 * pow(sh, 41) +
4548 7.117942930727479e24 * pow(sh, 42) -
4549 9.229373088621336e23 * pow(sh, 43) +
4550 8.339200912205272e22 * pow(sh, 44) -
4551 4.6814118287209613e21 * pow(sh, 45) +
4552 1.2279937968685318e20 * pow(sh, 46) -
4553 6.2548910424e12 * pow(3.141592653589793, 2)*
4554 (-1512. - 14784. * sh - 50316. * pow(sh, 2) -
4555 24288. * pow(sh, 3) + 294600. * pow(sh, 4) +
4556 761376. * pow(sh, 5) + 161112. * pow(sh, 6) -
4557 2.077152e6 * pow(sh, 7) +
4558 5.7064210896e10 * pow(sh, 8) -
4559 6.27572398992e11 * pow(sh, 9) +
4560 3.137096776433e12 * pow(sh, 10) -
4561 9.409743553774e12 * pow(sh, 11) +
4562 1.8818560922504e13 * pow(sh, 12) -
4563 2.6347616980552e13 * pow(sh, 13) +
4564 2.6351485677944e13 * pow(sh, 14) -
4565 1.8825939544384e13 * pow(sh, 15) +
4566 9.414254480792e12 * pow(sh, 16) -
4567 3.137901366712e12 * pow(sh, 17) +
4568 6.27172370726e11 * pow(sh, 18) -
4569 5.6235529592e10 * pow(sh, 19) -
4570 3.03847082e9 * pow(sh, 20) +
4571 7.83321994e9 * pow(sh, 21) -
4572 1.36334135e10 * pow(sh, 22) +
4573 2.612527414e10 * pow(sh, 23) -
4574 1.2043334018e11 * pow(sh, 24) +
4575 5.11152445252e11 * pow(sh, 25) -
4576 7.00772118731e11 * pow(sh, 26) -
4577 5.082162807869e12 * pow(sh, 27) +
4578 3.7496386828908e13 * pow(sh, 28) -
4579 1.3686666259266e14 * pow(sh, 29) +
4580 3.4205865415722e14 * pow(sh, 30) -
4581 6.4118721989322e14 * pow(sh, 31) +
4582 9.3979081997658e14 * pow(sh, 32) -
4583 1.10202690808782e15 * pow(sh, 33) +
4584 1.04788397968254e15 * pow(sh, 34) -
4585 8.141721939351e14 * pow(sh, 35) +
4586 5.1869434238622e14 * pow(sh, 36) -
4587 2.7096438795426e14 * pow(sh, 37) +
4588 1.1569642322238e14 * pow(sh, 38) -
4589 4.010774591538e13 * pow(sh, 39) +
4590 1.116674149734e13 * pow(sh, 40) -
4591 2.4564705165e12 * pow(sh, 41) +
4592 4.1666228604e11 * pow(sh, 42) -
4593 5.249021778e10 * pow(sh, 43) +
4594 4.61837376e9 * pow(sh, 44) -
4595 2.5297272e8 * pow(sh, 45) + 6.48648e6 * pow(sh, 46)))) *
4596 pow(z, 10);
4597 else
4598 res += pow(z, 10)*(-2.2176369034656202e6 -
4599 2.1313657032968003e7 * (1. - sh) -
4600 1.1510510548217365e8 * pow(1. - sh, 2) -
4601 4.5152247350887704e8 * pow(1. - sh, 3) -
4602 1.4313252283712986e9 * pow(1. - sh, 4) +
4603 log(muh)*(22436.0126984127 +
4604 242664.12698412698 * (1. - sh) +
4605 1.4261726984126985e6 * pow(1. - sh, 2) +
4606 6.040264126984127e6 * pow(1. - sh, 3) +
4607 2.0637578412698414e7 * pow(1. - sh, 4)) +
4608 log(z)*(481985.82617224846 +
4609 5.600617111968864e6 * (1. - sh) +
4610 3.2763678189123973e7 * pow(1. - sh, 2) +
4611 1.3890575176721412e8 * pow(1. - sh, 3) +
4612 4.790156868849013e8 * pow(1. - sh, 4) +
4613 log(muh)*(18304. + 183040. * (1. - sh) +
4614 1.00672e6 * pow(1. - sh, 2) +
4615 4.02688e6 * pow(1. - sh, 3) +
4616 1.308736e7 * pow(1. - sh, 4))) +
4617 (245966.3111111111 +
4618 2.4484144197530863e6 * (1. - sh) +
4619 1.3337867328395061e7 * pow(1. - sh, 2) +
4620 5.3335035751205176e7 * pow(1. - sh, 3) +
4621 1.733848092131687e8 * pow(1. - sh, 4)) * pow(log(z), 2)
4622 );
4623 }
4624 }
4625 return res;
4626}
4627
4628double F_1::F_19im(double muh, double z, double sh, int maxpow)
4629{
4630 double lz = log(z);
4631 double lmu = log(muh);
4632 double Lsh = log(sh);
4633 double Lshb = log(1. - sh);
4634 double Li2sh = real(Li2(sh));
4635 double Li3sh = real(Li3(sh));
4636
4637
4638 double res = 0;
4639
4640 if (sh < 0.4) {
4641 res = 3.67166 + 0.20685383727340204 * lmu - 0.103427 * Lsh +
4642 0.93084 * lz - 0.310281 * sh - 0.93084 * lz * sh - 16.2155 * z -
4643 5.58505 * lz * z - 30.7987 * sh * z - 1.86168 * Lsh * sh * z -
4644 16.75515 * lz * sh * z - 1.861685 * z * pow(lz, 2) -
4645 1.861685 * sh * z * pow(lz, 2) - 1.36524 * pow(sh, 2) -
4646 0.93084 * lz * pow(sh, 2) - 52.2081 * z * pow(sh, 2) -
4647 3.72337 * Lsh * z * pow(sh, 2) - 26.0636 * lz * z * pow(sh, 2) -
4648 1.861685 * z * pow(lz, 2) * pow(sh, 2) - 1.72206 * pow(sh, 3) -
4649 0.93084 * lz * pow(sh, 3) - 76.6479 * z * pow(sh, 3) -
4650 5.58505 * Lsh * z * pow(sh, 3) - 34.75145 * lz * z * pow(sh, 3) -
4651 1.861685 * z * pow(lz, 2) * pow(sh, 3) -
4652 0.00295505 * pow(sh, 3) * pow(z, -3) -
4653 0.0199466 * pow(sh, 2) * pow(z, -2) +
4654 0.00369382 * pow(sh, 3) * pow(z, -2) - 0.186168 * sh * pow(z, -1) +
4655 0.0620562 * pow(sh, 2) * pow(z, -1) +
4656 0.0871741 * pow(sh, 3) * pow(z, -1) + 26.7517 * pow(z, 2) -
4657 1.86168 * Lsh * pow(z, 2) - 7.44675 * lz * pow(z, 2) -
4658 3.72337 * Lsh * lz * pow(z, 2) + 66.1439 * sh * pow(z, 2) -
4659 7.44674 * Lsh * sh * pow(z, 2) - 33.5103 * lz * sh * pow(z, 2) -
4660 14.8935 * Lsh * lz * sh * pow(z, 2) -
4661 7.44675 * pow(lz, 2) * pow(z, 2) -
4662 20.478525 * sh * pow(lz, 2) * pow(z, 2) +
4663 108.713 * pow(sh, 2) * pow(z, 2) -
4664 22.3402 * Lsh * pow(sh, 2) * pow(z, 2) -
4665 81.914 * lz * pow(sh, 2) * pow(z, 2) -
4666 33.5103 * Lsh * lz * pow(sh, 2) * pow(z, 2) -
4667 39.0955 * pow(lz, 2) * pow(sh, 2) * pow(z, 2) +
4668 148.481 * pow(sh, 3) * pow(z, 2) -
4669 49.6449 * Lsh * pow(sh, 3) * pow(z, 2) -
4670 155.761 * lz * pow(sh, 3) * pow(z, 2) -
4671 59.574 * Lsh * lz * pow(sh, 3) * pow(z, 2) -
4672 63.29725 * pow(lz, 2) * pow(sh, 3) * pow(z, 2) -
4673 23.6892 * pow(z, 3) - 1.65483 * Lsh * pow(z, 3) +
4674 17.3757 * lz * pow(z, 3) + 4.96449 * Lsh * lz * pow(z, 3) -
4675 63.7828 * sh * pow(z, 3) - 3.72337 * Lsh * sh * pow(z, 3) +
4676 67.0205 * lz * sh * pow(z, 3) + 22.3402 * Lsh * lz * sh * pow(z, 3) -
4677 106.832 * pow(sh, 2) * pow(z, 3) +
4678 165.0695 * lz * pow(sh, 2) * pow(z, 3) +
4679 59.574 * Lsh * lz * pow(sh, 2) * pow(z, 3) -
4680 135.118 * pow(sh, 3) * pow(z, 3) +
4681 18.6168 * Lsh * pow(sh, 3) * pow(z, 3) +
4682 326.4155 * lz * pow(sh, 3) * pow(z, 3) +
4683 124.1125 * Lsh * lz * pow(sh, 3) * pow(z, 3);
4684 } else {
4685 if (0 <= maxpow) {
4686 if (sh < .900001)
4687 res += (-3.5165152336478345 * lmu -
4688 0.05171345931835051 * pow(-1 + sh, -2)*
4689 (130. - 269. * sh + 121. * pow(sh, 2)) +
4690 0.10342691863670102 * Lsh * pow(-1 + sh, -3)*
4691 (-8. + 33. * sh - 51. * pow(sh, 2) + 17. * pow(sh, 3))) *
4692 pow(z, 0);
4693 else
4694 res += (-5.636767065700205 - 1.3704066719362884 * (1. - sh) -
4695 3.5165152336478345 * log(muh) -
4696 0.5998761280928658 * pow(1. - sh, 2) -
4697 0.36888934313756694 * pow(1. - sh, 3) -
4698 0.26226111511449185 * pow(1. - sh, 4)) * pow(z, 0);
4699 }
4700
4701 if (1 <= maxpow) {
4702 if (sh < .900001)
4703 res += 0.;
4704 else
4705 res += 0.;
4706 }
4707
4708 if (2 <= maxpow) {
4709 if (sh < .900001)
4710 res += (17.902805978847187 * sh * pow(-1 + sh, -3) -
4711 14.893476283684944 * Li3sh * sh * pow(-1 + sh, -3) +
4712 1.861684535460618 * Li2sh * (-7. + 5. * sh) *
4713 pow(-1 + sh, -3) + 1.241123023640412 * sh * pow(Lsh, 3) *
4714 pow(-1 + sh, -3) - 3.723369070921236 * pow(Lsh, 2) *
4715 pow(-1 + sh, -2) - Lsh *
4716 (-7.446738141842472 * Li2sh * sh * pow(-1 + sh, -3) +
4717 1.861684535460618 * pow(-1 + sh, -3)*
4718 (-5. + Lshb * (7. - 5. * sh) +
4719 sh * (3. - 2. * pow(3.141592653589793, 2)) + pow(sh, 2)
4720 )) - 0.310280755910103 * pow(-1 + sh, -3) *
4721 pow(sh, -1)*(-306. +
4722 sh * (912. - 11. * pow(3.141592653589793, 2)) +
4723 5. * (-180. + pow(3.141592653589793, 2)) * pow(sh, 2) +
4724 (294. + 4. * pow(3.141592653589793, 2)) * pow(sh, 3))) *
4725 pow(z, 1);
4726 else
4727 res += (-101.4595749819256 - 99.28872579089392 * (1. - sh) -
4728 98.33919598335144 * pow(1. - sh, 2) -
4729 97.78315475935152 * pow(1. - sh, 3) -
4730 97.41019960703451 * pow(1. - sh, 4)) * pow(z, 1);
4731 }
4732
4733 if (3 <= maxpow) {
4734 if (sh < .900001)
4735 res += 0.;
4736 else
4737 res += 0.;
4738 }
4739
4740 if (4 <= maxpow) {
4741 if (sh < .900001)
4742 res += (-1.861684535460618 * Li2sh * (3. + 2. * sh) * pow(-1 + sh, -3) +
4743 1.861684535460618 * pow(Lsh, 2) * pow(-1 + sh, -2) +
4744 22.340214425527417 * lmu * pow(sh, -2) -
4745 lz * (-13.031791748224327 * Lsh * pow(-1 + sh, -3) -
4746 0.930842267730309 * pow(-1 + sh, -2) * pow(sh, -2)*
4747 (193. - 393. * sh + 186. * pow(sh, 2))) +
4748 0.1551403779550515 * pow(-1 + sh, -3) * pow(sh, -2)*
4749 (441. - 1368. * sh +
4750 3. * (437. + 2. * pow(3.141592653589793, 2)) * pow(sh, 2) +
4751 4. * (-111. + pow(3.141592653589793, 2)) * pow(sh, 3) +
4752 24. * pow(sh, 4)) -
4753 0.930842267730309 * Lsh * pow(-1 + sh, -4) * pow(sh, -2)*
4754 (191. - 777. * sh + (1175. - 6. * Lshb) * pow(sh, 2) +
4755 (-797. + 2. * Lshb) * pow(sh, 3) +
4756 (202. + 4. * Lshb) * pow(sh, 4))) * pow(z, 2);
4757 else
4758 res += (-74.72594871501649 + 29.277574993084137 * (1. - sh) +
4759 223.8210232757528 * pow(1. - sh, 2) +
4760 478.4917845842381 * pow(1. - sh, 3) +
4761 778.1470920996388 * pow(1. - sh, 4) +
4762 log(muh)*(22.340214425527417 +
4763 44.680428851054835 * (1. - sh) +
4764 67.02064327658225 * pow(1. - sh, 2) +
4765 89.36085770210967 * pow(1. - sh, 3) +
4766 111.70107212763709 * pow(1. - sh, 4)) +
4767 log(z)*(177.48059238057894 +
4768 356.0471674068432 * (1. - sh) +
4769 535.0481354913816 * pow(1. - sh, 2) +
4770 714.2663001050572 * pow(1. - sh, 3) +
4771 893.6085770210967 * pow(1. - sh, 4))) * pow(z, 2);
4772 }
4773
4774 if (5 <= maxpow) {
4775 if (sh < .900001)
4776 res += 0.;
4777 else
4778 res += 0.;
4779 }
4780
4781 if (6 <= maxpow) {
4782 if (sh < .900001)
4783 res += (29.786952567369887 * lmu * pow(sh, -3) +
4784 3.723369070921236 * pow(Lsh, 2) * pow(-1 + sh, -3) *
4785 pow(sh, -1) - 1.241123023640412 * Li2sh * pow(-1 + sh, -4) *
4786 pow(sh, -1)*(3. + sh + 2. * pow(sh, 2)) -
4787 0.10342691863670102 * Lsh * pow(-1 + sh, -5) * pow(sh, -4)*
4788 (12. - 3754. * sh + 18707. * pow(sh, 2) -
4789 (37645. + 36. * Lshb) * pow(sh, 3) +
4790 6. * (6335. + 4. * Lshb) * pow(sh, 4) -
4791 6. * (3213. + 2. * Lshb) * pow(sh, 5) +
4792 24. * (163. + Lshb) * pow(sh, 6)) -
4793 lz * (-1.241123023640412 * Lsh * pow(-1 + sh, -4) *
4794 pow(sh, -1)*(3. + sh + 2. * pow(sh, 2)) +
4795 0.10342691863670102 * pow(-1 + sh, -3) * pow(sh, -4)*
4796 (-6. + 3748. * sh - 11253. * pow(sh, 2) +
4797 11385. * pow(sh, 3) - 3841. * pow(sh, 4) +
4798 27. * pow(sh, 5) + 12. * pow(sh, 6))) +
4799 0.0172378197727835 * pow(-1 + sh, -4) * pow(sh, -4)*
4800 (30. + 12740. * sh - 51314. * pow(sh, 2) +
4801 36. * (2123. + pow(3.141592653589793, 2)) * pow(sh, 3) +
4802 (-50297. + 12. * pow(3.141592653589793, 2)) *
4803 pow(sh, 4) + 8. * (1474. +
4804 3. * pow(3.141592653589793, 2)) * pow(sh, 5) +
4805 381. * pow(sh, 6) + 24. * pow(sh, 7))) * pow(z, 3);
4806 else
4807 res += (211.9165849406685 + 1019.1512736698835 * (1. - sh) +
4808 2614.8727490925203 * pow(1. - sh, 2) +
4809 5126.049113728145 * pow(1. - sh, 3) +
4810 8646.890723525932 * pow(1. - sh, 4) +
4811 log(muh)*(29.786952567369887 +
4812 89.36085770210967 * (1. - sh) +
4813 178.72171540421934 * pow(1. - sh, 2) +
4814 297.8695256736989 * pow(1. - sh, 3) +
4815 446.80428851054836 * pow(1. - sh, 4)) +
4816 log(z)*(378.2322414544156 +
4817 1142.5157994121814 * (1. - sh) +
4818 2290.864877035473 * pow(1. - sh, 2) +
4819 3822.6086768805603 * pow(1. - sh, 3) +
4820 5737.100041942259 * pow(1. - sh, 4))) * pow(z, 3);
4821 }
4822
4823 if (7 <= maxpow) {
4824 if (sh < .900001)
4825 res += 0.;
4826 else
4827 res += 0.;
4828 }
4829
4830 if (8 <= maxpow) {
4831 if (sh < .900001)
4832 res += (67.02064327658225 * lmu * pow(sh, -4) +
4833 6.2056151182020605 * Li2sh * pow(-1 + sh, -3) * pow(sh, -2) +
4834 6.2056151182020605 * pow(Lsh, 2) * pow(-1 + sh, -3) *
4835 pow(sh, -2) - lz *
4836 (6.2056151182020605 * Lsh * pow(-1 + sh, -3) * pow(sh, -2) +
4837 0.10342691863670102 * pow(-1 + sh, -2) * pow(sh, -6)*
4838 (3. + 19. * sh - 9836. * pow(sh, 2) +
4839 19672. * pow(sh, 3) - 9987. * pow(sh, 4) +
4840 39. * pow(sh, 5) + 30. * pow(sh, 6))) +
4841 0.10342691863670102 * Lsh * pow(-1 + sh, -6) * pow(sh, -6)*
4842 (6. + 14. * sh - 9909. * pow(sh, 2) + 59043. * pow(sh, 3) -
4843 3. * (49203. + 20. * Lshb) * pow(sh, 4) +
4844 3. * (65783. + 60. * Lshb) * pow(sh, 5) -
4845 3. * (49547. + 60. * Lshb) * pow(sh, 6) +
4846 (59839. + 60. * Lshb) * pow(sh, 7) - 10062. * pow(sh, 8)) -
4847 0.00861890988639175 * pow(-1 + sh, -5) * pow(sh, -6)*
4848 (21. - 10. * sh + 97976. * pow(sh, 2) -
4849 490846. * pow(sh, 3) +
4850 (981523. + 120. * pow(3.141592653589793, 2)) *
4851 pow(sh, 4) - 8. * (122341. +
4852 30. * pow(3.141592653589793, 2)) * pow(sh, 5) +
4853 2. * (242981. + 60. * pow(3.141592653589793, 2)) *
4854 pow(sh, 6) - 94596. * pow(sh, 7) - 678. * pow(sh, 8) -
4855 408. * pow(sh, 9) + 144. * pow(sh, 10))) * pow(z, 4);
4856 else
4857 res += (818.5206340908517 + 4293.785518767847 * (1. - sh) +
4858 12756.23214766427 * pow(1. - sh, 2) +
4859 28863.589912766278 * pow(1. - sh, 3) +
4860 55512.63989848175 * pow(1. - sh, 4) +
4861 log(muh)*(67.02064327658225 +
4862 268.082573106329 * (1. - sh) +
4863 670.2064327658226 * pow(1. - sh, 2) +
4864 1340.4128655316451 * pow(1. - sh, 3) +
4865 2345.722514680379 * pow(1. - sh, 4)) +
4866 log(z)*(997.2423494950712 +
4867 4001.6909089725987 * (1. - sh) +
4868 10016.483362289946 * pow(1. - sh, 2) +
4869 20040.827170396282 * pow(1. - sh, 3) +
4870 35069.73361639894 * pow(1. - sh, 4))) * pow(z, 4);
4871 }
4872
4873 if (9 <= maxpow) {
4874 if (sh < .900001)
4875 res += 0.;
4876 else
4877 res += 0.;
4878 }
4879
4880 if (10 <= maxpow) {
4881 if (sh < .900001)
4882 res += (178.72171540421934 * lmu * pow(sh, -5) +
4883 13.031791748224327 * Li2sh * pow(-1 + sh, -3) * pow(sh, -3) +
4884 13.031791748224327 * pow(Lsh, 2) * pow(-1 + sh, -3) *
4885 pow(sh, -3) - lz *
4886 (13.031791748224327 * Lsh * pow(-1 + sh, -3) * pow(sh, -3) +
4887 0.0103426918636701 * pow(-1 + sh, -2) * pow(sh, -8)*
4888 (18. + 153. * sh + 543. * pow(sh, 2) -
4889 302141. * pow(sh, 3) + 603346. * pow(sh, 4) -
4890 304124. * pow(sh, 5) + 60. * pow(sh, 6) +
4891 690. * pow(sh, 7) + 195. * pow(sh, 8))) -
4892 0.0103426918636701 * Lsh * pow(-1 + sh, -7) * pow(sh, -8)*
4893 (36. + 126. * sh - 84. * pow(sh, 2) - 303968. * pow(sh, 3) +
4894 2.117159e6 * pow(sh, 4) -
4895 180. * (35233. + 7. * Lshb) * pow(sh, 5) +
4896 2. * (5.286917e6 + 2520. * Lshb) * pow(sh, 6) -
4897 56. * (189131. + 135. * Lshb) * pow(sh, 7) +
4898 24. * (265547. + 210. * Lshb) * pow(sh, 8) -
4899 7. * (304727. + 180. * Lshb) * pow(sh, 9) +
4900 305864. * pow(sh, 10)) -
4901 0.00017237819772783502 * pow(-1 + sh, -6) * pow(sh, -8)*
4902 (-486. + 108. * sh + 8742. * pow(sh, 2) -
4903 1.6340578e7 * pow(sh, 3) + 9.7955934e7 * pow(sh, 4) -
4904 2.44785504e8 * pow(sh, 5) +
4905 12600. * pow(3.141592653589793, 2) * pow(-1 + sh, 3) *
4906 pow(sh, 5) + 3.26063492e8 * pow(sh, 6) -
4907 2.44009482e8 * pow(sh, 7) + 9.7070643e7 * pow(sh, 8) -
4908 1.5960394e7 * pow(sh, 9) + 92700. * pow(sh, 10) -
4909 88650. * pow(sh, 11) + 4275. * pow(sh, 12) +
4910 5400. * pow(sh, 13))) * pow(z, 5);
4911 else
4912 res += (2736.4139567610805 + 16812.602775356263 * (1. - sh) +
4913 58181.13183757553 * pow(1. - sh, 2) +
4914 151135.2971056933 * pow(1. - sh, 3) +
4915 329016.24546199996 * pow(1. - sh, 4) +
4916 log(muh)*(178.72171540421934 +
4917 893.6085770210967 * (1. - sh) +
4918 2680.8257310632903 * pow(1. - sh, 2) +
4919 6255.260039147677 * pow(1. - sh, 3) +
4920 12510.520078295354 * pow(1. - sh, 4)) +
4921 log(z)*(3064.787823810179 +
4922 15358.380282956916 * (1. - sh) +
4923 46110.04743391064 * pow(1. - sh, 2) +
4924 107597.09199613279 * pow(1. - sh, 3) +
4925 215122.81941840626 * pow(1. - sh, 4))) * pow(z, 5);
4926 }
4927
4928 if (11 <= maxpow) {
4929 if (sh < .900001)
4930 res += 0.;
4931 else
4932 res += 0.;
4933 }
4934
4935 if (12 <= maxpow) {
4936 if (sh < .900001)
4937 res += (521.2716699289731 * lmu * pow(sh, -6) +
4938 31.276300195738386 * Li2sh * pow(-1 + sh, -3) * pow(sh, -4) +
4939 31.276300195738386 * pow(Lsh, 2) * pow(-1 + sh, -3) *
4940 pow(sh, -4) - lz *
4941 (31.276300195738386 * Lsh * pow(-1 + sh, -3) * pow(sh, -4) +
4942 0.0020685383727340203 * pow(-1 + sh, -2) * pow(sh, -10)*
4943 (60. + 636. * sh + 2976. * pow(sh, 2) +
4944 7776. * pow(sh, 3) - 4.948624e6 * pow(sh, 4) +
4945 9.874856e6 * pow(sh, 5) - 4.959625e6 * pow(sh, 6) -
4946 4665. * pow(sh, 7) + 6585. * pow(sh, 8) +
4947 4185. * pow(sh, 9) + 720. * pow(sh, 10))) -
4948 0.0020685383727340203 * Lsh * pow(-1 + sh, -8) * pow(sh, -10)*
4949 (-120. - 552. * sh - 120. * pow(sh, 2) + 3480. * pow(sh, 3) +
4950 4.96582e6 * pow(sh, 4) - 3.962954e7 * pow(sh, 5) +
4951 (1.38486043e8 + 15120. * Lshb) * pow(sh, 6) -
4952 5. * (5.5369147e7 + 15120. * Lshb) * pow(sh, 7) +
4953 160. * (2.163772e6 + 945. * Lshb) * pow(sh, 8) -
4954 160. * (1.733072e6 + 945. * Lshb) * pow(sh, 9) +
4955 10. * (1.3891091e7 + 7560. * Lshb) * pow(sh, 10) -
4956 2. * (1.9896743e7 + 7560. * Lshb) * pow(sh, 11) +
4957 4.99004e6 * pow(sh, 12)) -
4958 0.000034475639545567 * pow(-1 + sh, -7) * pow(sh, -10)*
4959 (1320. - 96. * sh - 30636. * pow(sh, 2) -
4960 70896. * pow(sh, 3) + 2.79790864e8 * pow(sh, 4) -
4961 1.954972576e9 * pow(sh, 5) + 5.859826086e9 * pow(sh, 6) +
4962 151200. * pow(3.141592653589793, 2) * pow(-1 + sh, 4) *
4963 pow(sh, 6) - 9.758058674e9 * pow(sh, 7) +
4964 9.746085686e9 * pow(sh, 8) - 5.835456624e9 * pow(sh, 9) +
4965 1.937908841e9 * pow(sh, 10) - 2.7490172e8 * pow(sh, 11) -
4966 545670. * pow(sh, 12) + 1.17158e6 * pow(sh, 13) -
4967 783395. * pow(sh, 14) + 77910. * pow(sh, 15) +
4968 33600. * pow(sh, 16))) * pow(z, 6);
4969 else
4970 res += (9385.786258697912 + 66570.34555920382 * (1. - sh) +
4971 263383.6903024927 * pow(1. - sh, 2) +
4972 772694.2159831354 * pow(1. - sh, 3) +
4973 1.8782424783479243e6 * pow(1. - sh, 4) +
4974 log(muh)*(521.2716699289731 +
4975 3127.6300195738386 * (1. - sh) +
4976 10946.705068508434 * pow(1. - sh, 2) +
4977 29191.213516022493 * pow(1. - sh, 3) +
4978 65680.23041105061 * pow(1. - sh, 4)) +
4979 log(z)*(10043.374361135488 +
4980 60362.48367588531 * (1. - sh) +
4981 211373.05579784894 * pow(1. - sh, 2) +
4982 563598.0400557054 * pow(1. - sh, 3) +
4983 1.2674832355395108e6 * pow(1. - sh, 4))) * pow(z, 6);
4984 }
4985
4986 if (13 <= maxpow) {
4987 if (sh < .900001)
4988 res += 0.;
4989 else
4990 res += 0.;
4991 }
4992
4993 if (14 <= maxpow) {
4994 if (sh < .900001)
4995 res += (1608.495438637974 * lmu * pow(sh, -7) +
4996 81.9141195602672 * Li2sh * pow(-1 + sh, -3) * pow(sh, -5) +
4997 81.9141195602672 * pow(Lsh, 2) * pow(-1 + sh, -3) *
4998 pow(sh, -5) - lz *
4999 (81.9141195602672 * Lsh * pow(-1 + sh, -3) * pow(sh, -5) +
5000 0.0029550548181914577 * pow(-1 + sh, -2) * pow(sh, -12)*
5001 (30. + 380. * sh + 2186. * pow(sh, 2) +
5002 7436. * pow(sh, 3) + 15906. * pow(sh, 4) -
5003 1.1774748e7 * pow(sh, 5) + 2.3488224e7 * pow(sh, 6) -
5004 1.1772349e7 * pow(sh, 7) - 16681. * pow(sh, 8) +
5005 9569. * pow(sh, 9) + 8694. * pow(sh, 10) +
5006 3234. * pow(sh, 11) + 399. * pow(sh, 12))) -
5007 0.0029550548181914577 * Lsh * pow(-1 + sh, -9) * pow(sh, -12)*
5008 (60. + 340. * sh + 312. * pow(sh, 2) - 1872. * pow(sh, 3) -
5009 4980. * pow(sh, 4) - 1.1794584e7 * pow(sh, 5) +
5010 1.06052526e8 * pow(sh, 6) -
5011 11. * (3.8516327e7 + 2520. * Lshb) * pow(sh, 7) +
5012 6. * (1.64650903e8 + 27720. * Lshb) * pow(sh, 8) -
5013 3. * (4.93896521e8 + 138600. * Lshb) * pow(sh, 9) +
5014 (1.482302069e9 + 554400. * Lshb) * pow(sh, 10) -
5015 3. * (3.29703527e8 + 138600. * Lshb) * pow(sh, 11) +
5016 6. * (7.0752587e7 + 27720. * Lshb) * pow(sh, 12) -
5017 2. * (5.3167621e7 + 13860. * Lshb) * pow(sh, 13) +
5018 1.1839332e7 * pow(sh, 14)) -
5019 7.035844805217756e-6 * pow(-1 + sh, -8) * pow(sh, -12)*
5020 (-3900. - 100. * sh + 116036. * pow(sh, 2) +
5021 329570. * pow(sh, 3) - 93490. * pow(sh, 4) -
5022 4.806231988e9 * pow(sh, 5) +
5023 3.8385624164e10 * pow(sh, 6) -
5024 1.34210338702e11 * pow(sh, 7) +
5025 1.9404e6 * pow(3.141592653589793, 2) * pow(-1 + sh, 5) *
5026 pow(sh, 7) + 2.6818147667e11 * pow(sh, 8) -
5027 3.3489192085e11 * pow(sh, 9) +
5028 2.67551973133e11 * pow(sh, 10) -
5029 1.33499331779e11 * pow(sh, 11) +
5030 3.8005781539e10 * pow(sh, 12) -
5031 4.717142506e9 * pow(sh, 13) + 8.064665e6 * pow(sh, 14) -
5032 1.8561445e7 * pow(sh, 15) + 1.7389365e7 * pow(sh, 16) -
5033 7.700448e6 * pow(sh, 17) + 658266. * pow(sh, 18) +
5034 264600. * pow(sh, 19))) * pow(z, 7);
5035 else
5036 res += (32964.04475533845 + 265614.39905471785 * (1. - sh) +
5037 1.1828276243428339e6 * pow(1. - sh, 2) +
5038 3.866649964984975e6 * pow(1. - sh, 3) +
5039 1.0377006787766315e7 * pow(1. - sh, 4) +
5040 log(muh)*(1608.495438637974 +
5041 11259.468070465819 * (1. - sh) +
5042 45037.872281863274 * pow(1. - sh, 2) +
5043 135113.61684558983 * pow(1. - sh, 3) +
5044 337784.0421139746 * pow(1. - sh, 4)) +
5045 log(z)*(34149.58569205566 +
5046 239368.34385367524 * (1. - sh) +
5047 957793.7506378699 * pow(1. - sh, 2) +
5048 2.872774404811201e6 * pow(1. - sh, 3) +
5049 7.177895380884164e6 * pow(1. - sh, 4))) * pow(z, 7);
5050 }
5051
5052 if (15 <= maxpow) {
5053 if (sh < .900001)
5054 res += 0.;
5055 else
5056 res += 0.;
5057 }
5058
5059 if (16 <= maxpow) {
5060 if (sh < .900001)
5061 res += (5160.589532296834 * lmu * pow(sh, -8) +
5062 228.18933306074433 * Li2sh * pow(-1 + sh, -3) * pow(sh, -6) +
5063 228.18933306074433 * pow(Lsh, 2) * pow(-1 + sh, -3) *
5064 pow(sh, -6) - lz *
5065 (228.18933306074433 * Lsh * pow(-1 + sh, -3) * pow(sh, -6) +
5066 0.0002110753441565327 * pow(-1 + sh, -2) * pow(sh, -14)*
5067 (315. + 4635. * sh + 31515. * pow(sh, 2) +
5068 130299. * pow(sh, 3) + 359619. * pow(sh, 4) +
5069 665379. * pow(sh, 5) - 5.74307971e8 * pow(sh, 6) +
5070 1.145449229e9 * pow(sh, 7) -
5071 5.73346648e8 * pow(sh, 8) - 941808. * pow(sh, 9) +
5072 284172. * pow(sh, 10) + 360612. * pow(sh, 11) +
5073 176862. * pow(sh, 12) + 48090. * pow(sh, 13) +
5074 4620. * pow(sh, 14))) -
5075 0.0004221506883130654 * Lsh * pow(-1 + sh, -10) * pow(sh, -14)*
5076 (-315. - 2115. * sh - 3255. * pow(sh, 2) +
5077 9681. * pow(sh, 3) + 37863. * pow(sh, 4) +
5078 21231. * pow(sh, 5) + 2.8741643e8 * pow(sh, 6) -
5079 2.87288225e9 * pow(sh, 7) +
5080 6. * (2.152635949e9 + 90090. * Lshb) * pow(sh, 8) -
5081 42. * (8.19483989e8 + 90090. * Lshb) * pow(sh, 9) +
5082 84. * (7.16809256e8 + 135135. * Lshb) * pow(sh, 10) -
5083 4620. * (1.5639938e7 + 4095. * Lshb) * pow(sh, 11) +
5084 1050. * (5.7368567e7 + 18018. * Lshb) * pow(sh, 12) -
5085 84. * (4.10079749e8 + 135135. * Lshb) * pow(sh, 13) +
5086 84. * (1.53948637e8 + 45045. * Lshb) * pow(sh, 14) -
5087 4. * (7.19449781e8 + 135135. * Lshb) * pow(sh, 15) +
5088 2.88262142e8 * pow(sh, 16)) -
5089 2.5128017161491987e-7 * pow(-1 + sh, -9) * pow(sh, -14)*
5090 (70875. + 6750. * sh - 2.654475e6 * pow(sh, 2) -
5091 9.126108e6 * pow(sh, 3) - 678627. * pow(sh, 4) +
5092 4.643019e7 * pow(sh, 5) + 4.80171685205e11 * pow(sh, 6) -
5093 4.31617055958e12 * pow(sh, 7) +
5094 1.7247170032713e13 * pow(sh, 8) +
5095 1.513512e8 * pow(3.141592653589793, 2) * pow(-1 + sh, 6) *
5096 pow(sh, 8) - 4.0207542010218e13 * pow(sh, 9) +
5097 6.0256405965915e13 * pow(sh, 10) -
5098 6.019185138228e13 * pow(sh, 11) +
5099 4.0071063595575e13 * pow(sh, 12) -
5100 1.7137898822466e13 * pow(sh, 13) +
5101 4.270529322855e12 * pow(sh, 14) -
5102 4.71606339008e11 * pow(sh, 15) -
5103 1.14148692e9 * pow(sh, 16) + 2.22118512e9 * pow(sh, 17) -
5104 2.487344244e9 * pow(sh, 18) +
5105 1.56858156e9 * pow(sh, 19) - 5.01486552e8 * pow(sh, 20) +
5106 3.056844e7 * pow(sh, 21) + 1.397088e7 * pow(sh, 22))) *
5107 pow(z, 8);
5108 else
5109 res += (117820.12630257728 + 1.064052936704897e6 * (1. - sh) +
5110 5.267123900507657e6 * pow(1. - sh, 2) +
5111 1.8980221399425097e7 * pow(1. - sh, 3) +
5112 5.572450251051496e7 * pow(1. - sh, 4) +
5113 log(muh)*(5160.589532296834 +
5114 41284.71625837467 * (1. - sh) +
5115 185781.22316268602 * pow(1. - sh, 2) +
5116 619270.7438756201 * pow(1. - sh, 3) +
5117 1.702994545657955e6 * pow(1. - sh, 4)) +
5118 log(z)*(119002.39202187635 +
5119 953068.8159722548 * (1. - sh) +
5120 4.289809675723369e6 * pow(1. - sh, 2) +
5121 1.4295562598631674e7 * pow(1. - sh, 3) +
5122 3.9289141445572205e7 * pow(1. - sh, 4))) * pow(z, 8);
5123 }
5124
5125 if (17 <= maxpow) {
5126 if (sh < .900001)
5127 res += 0.;
5128 else
5129 res += 0.;
5130 }
5131
5132 if (18 <= maxpow) {
5133 if (sh < .900001)
5134 res += (17038.136868535577 * lmu * pow(sh, -9) +
5135 665.5522214271709 * Li2sh * pow(-1 + sh, -3) * pow(sh, -7) +
5136 665.5522214271709 * pow(Lsh, 2) * pow(-1 + sh, -3) *
5137 pow(sh, -7) - lz *
5138 (665.5522214271709 * Lsh * pow(-1 + sh, -3) * pow(sh, -7) +
5139 0.0006156364204565536 * pow(-1 + sh, -2) * pow(sh, -16)*
5140 (84. + 1407. * sh + 11019. * pow(sh, 2) +
5141 53355. * pow(sh, 3) + 177339. * pow(sh, 4) +
5142 420771. * pow(sh, 5) + 695955. * pow(sh, 6) -
5143 6.98315357e8 * pow(sh, 7) +
5144 1.392698929e9 * pow(sh, 8) -
5145 6.96490484e8 * pow(sh, 9) - 1.2204e6 * pow(sh, 10) +
5146 196344. * pow(sh, 11) + 374004. * pow(sh, 12) +
5147 218268. * pow(sh, 13) + 79164. * pow(sh, 14) +
5148 17172. * pow(sh, 15) + 1350. * pow(sh, 16))) -
5149 0.0006156364204565536 * Lsh * pow(-1 + sh, -11) * pow(sh, -16)*
5150 (168. + 1302. * sh + 2760. * pow(sh, 2) -
5151 4440. * pow(sh, 3) - 27552. * pow(sh, 4) -
5152 26796. * pow(sh, 5) + 59136. * pow(sh, 6) -
5153 6.98823656e8 * pow(sh, 7) + 7.683499582e9 * pow(sh, 8) -
5154 (3.8389427147e10 + 1.08108e6 * Lshb) * pow(sh, 9) +
5155 36. * (3.197114839e9 + 240240. * Lshb) * pow(sh, 10) -
5156 7920. * (2.9052853e7 + 3822. * Lshb) * pow(sh, 11) +
5157 2520. * (1.27812301e8 + 24024. * Lshb) * pow(sh, 12) -
5158 84. * (3.834736693e9 + 900900. * Lshb) * pow(sh, 13) +
5159 240. * (9.59022487e8 + 252252. * Lshb) * pow(sh, 14) -
5160 24. * (4.798056467e9 + 1.26126e6 * Lshb) * pow(sh, 15) +
5161 208. * (1.84702757e8 + 41580. * Lshb) * pow(sh, 16) -
5162 (7.692281497e9 + 1.08108e6 * Lshb) * pow(sh, 17) +
5163 7.0015448e8 * pow(sh, 18)) -
5164 4.886003336956775e-7 * pow(-1 + sh, -10) * pow(sh, -16)*
5165 (-24990. - 3675. * sh + 1.155555e6 * pow(sh, 2) +
5166 4.697175e6 * pow(sh, 3) + 2.300739e6 * pow(sh, 4) -
5167 2.4304707e7 * pow(sh, 5) - 4.9414911e7 * pow(sh, 6) -
5168 8.93125212787e11 * pow(sh, 7) +
5169 8.923013880433e12 * pow(sh, 8) -
5170 4.0116829560699e13 * pow(sh, 9) +
5171 2.270268e8 * pow(3.141592653589793, 2) * pow(-1 + sh, 7) *
5172 pow(sh, 9) + 1.06887699006279e14 * pow(sh, 10) -
5173 1.86895650533025e14 * pow(sh, 11) +
5174 2.24067349455873e14 * pow(sh, 12) -
5175 1.86515351192835e14 * pow(sh, 13) +
5176 1.06425772402197e14 * pow(sh, 14) -
5177 3.9828263213811e13 * pow(sh, 15) +
5178 8.822814467806e12 * pow(sh, 16) -
5179 8.77298288866e11 * pow(sh, 17) +
5180 1.45210023e9 * pow(sh, 18) -
5181 4.602427326e9 * pow(sh, 19) +
5182 6.429483144e9 * pow(sh, 20) -
5183 5.36052951e9 * pow(sh, 21) + 2.64447351e9 * pow(sh, 22) -
5184 6.66882918e8 * pow(sh, 23) + 2.7794799e7 * pow(sh, 24) +
5185 1.513512e7 * pow(sh, 25))) * pow(z, 9);
5186 else
5187 res += (426695.7585784732 + 4.271204351874848e6 * (1. - sh) +
5188 2.32655866080789e7 * pow(1. - sh, 2) +
5189 9.160929759130552e7 * pow(1. - sh, 3) +
5190 2.9201125110288244e8 * pow(1. - sh, 4) +
5191 log(muh)*(17038.136868535577 +
5192 153343.2318168202 * (1. - sh) +
5193 766716.159084101 * pow(1. - sh, 2) +
5194 2.8112925833083703e6 * pow(1. - sh, 3) +
5195 8.43387774992511e6 * pow(1. - sh, 4)) +
5196 log(z)*(422113.76138518966 +
5197 3.8025545371882077e6 * (1. - sh) +
5198 1.9015929172070913e7 * pow(1. - sh, 2) +
5199 6.970448898501809e7 * pow(1. - sh, 3) +
5200 2.0898441977024493e8 * pow(1. - sh, 4))) * pow(z, 9);
5201 }
5202
5203 if (19 <= maxpow) {
5204 if (sh < .900001)
5205 res += 0.;
5206 else
5207 res += 0.;
5208 }
5209
5210 if (20 <= maxpow) {
5211 if (sh < .900001)
5212 res += (57503.711931307575 * lmu * pow(sh, -10) +
5213 2011.4467136465612 * Li2sh * pow(-1 + sh, -3) * pow(sh, -8) +
5214 2011.4467136465612 * pow(Lsh, 2) * pow(-1 + sh, -3) *
5215 pow(sh, -8) - lz *
5216 (2011.4467136465612 * Lsh * pow(-1 + sh, -3) * pow(sh, -8) +
5217 0.00008208485606087382 * pow(-1 + sh, -2) * pow(sh, -18)*
5218 (504. + 9464. * sh + 83804. * pow(sh, 2) +
5219 463964. * pow(sh, 3) + 1.792004e6 * pow(sh, 4) +
5220 5.082116e6 * pow(sh, 5) + 1.0736996e7 * pow(sh, 6) +
5221 1.6220516e7 * pow(sh, 7) -
5222 1.8827468068e10 * pow(sh, 8) +
5223 3.7548741164e10 * pow(sh, 9) -
5224 1.8766552383e10 * pow(sh, 10) -
5225 3.3805539e7 * pow(sh, 11) + 2.425761e6 * pow(sh, 12) +
5226 8.640081e6 * pow(sh, 13) + 5.776731e6 * pow(sh, 14) +
5227 2.476035e6 * pow(sh, 15) + 730935. * pow(sh, 16) +
5228 132615. * pow(sh, 17) + 8820. * pow(sh, 18))) +
5229 0.00008208485606087382 * Lsh * pow(-1 + sh, -12) *
5230 pow(sh, -18)*(1008. + 8848. * sh + 23688. * pow(sh, 2) -
5231 17352. * pow(sh, 3) - 212592. * pow(sh, 4) -
5232 311184. * pow(sh, 5) + 400176. * pow(sh, 6) +
5233 1.492176e6 * pow(sh, 7) - 1.8840602088e10 * pow(sh, 8) +
5234 2.25961747704e11 * pow(sh, 9) -
5235 3. * (4.14012625571e11 + 8.16816e6 * Lshb) * pow(sh, 10) +
5236 117. * (3.5366173433e10 + 1.88496e6 * Lshb) *
5237 pow(sh, 11) - 36. *
5238 (2.58507743869e11 + 2.450448e7 * Lshb) * pow(sh, 12) +
5239 1848. * (8.055409123e9 + 1.11384e6 * Lshb) * pow(sh, 13) -
5240 5040. * (3.445710547e9 + 612612. * Lshb) * pow(sh, 14) +
5241 504. * (2.9538397129e10 + 6.12612e6 * Lshb) *
5242 pow(sh, 15) - 2688. * (3.462637184e9 + 765765. * Lshb) *
5243 pow(sh, 16) + 1224. * (3.381399457e9 + 720720. * Lshb) *
5244 pow(sh, 17) - 18. *
5245 (6.9029521727e10 + 1.225224e7 * Lshb) * pow(sh, 18) +
5246 (2.26114032686e11 + 2.450448e7 * Lshb) * pow(sh, 19) -
5247 1.8862020144e10 * pow(sh, 20)) -
5248 3.257335557971183e-8 * pow(-1 + sh, -11) * pow(sh, -18)*
5249 (268128. + 50176. * sh - 1.5037316e7 * pow(sh, 2) -
5250 7.0758368e7 * pow(sh, 3) - 6.454424e7 * pow(sh, 4) +
5251 3.47363296e8 * pow(sh, 5) + 9.86787592e8 * pow(sh, 6) +
5252 3.5646688e7 * pow(sh, 7) +
5253 4.8969050829328e13 * pow(sh, 8) -
5254 5.38246850652224e14 * pow(sh, 9) +
5255 2.689062929610038e15 * pow(sh, 10) +
5256 1.02918816e10 * pow(3.141592653589793, 2) *
5257 pow(-1 + sh, 8) * pow(sh, 10) -
5258 8.060902410374074e15 * pow(sh, 11) +
5259 1.6109269666327124e16 * pow(sh, 12) -
5260 2.2534391970484576e16 * pow(sh, 13) +
5261 2.2513346650300896e16 * pow(sh, 14) -
5262 1.6062787755766024e16 * pow(sh, 15) +
5263 8.019705052502612e15 * pow(sh, 16) -
5264 2.667905230770352e15 * pow(sh, 17) +
5265 5.32021578063623e14 * pow(sh, 18) -
5266 4.8123135181584e13 * pow(sh, 19) -
5267 9.5864935068e10 * pow(sh, 20) +
5268 2.69818915464e11 * pow(sh, 21) -
5269 4.54966309854e11 * pow(sh, 22) +
5270 4.78236408048e11 * pow(sh, 23) -
5271 3.2126306742e11 * pow(sh, 24) +
5272 1.3173020316e11 * pow(sh, 25) -
5273 2.7741591765e10 * pow(sh, 26) +
5274 8.0713269e8 * pow(sh, 27) + 5.189184e8 * pow(sh, 28))) *
5275 pow(z, 10);
5276 else
5277 res += (1.5612166947024823e6 + 1.7161599197470605e7 * (1. - sh) +
5278 1.0201302929387844e8 * pow(1. - sh, 2) +
5279 4.357191898792429e8 * pow(1. - sh, 3) +
5280 1.4983564371913476e9 * pow(1. - sh, 4) +
5281 log(muh)*(57503.711931307575 +
5282 575037.1193130758 * (1. - sh) +
5283 3.1627041562219164e6 * pow(1. - sh, 2) +
5284 1.2650816624887666e7 * pow(1. - sh, 3) +
5285 4.1115154030884914e7 * pow(1. - sh, 4)) +
5286 log(z)*(1.517643412993728e6 +
5287 1.5188579863273544e7 * (1. - sh) +
5288 8.354722944715922e7 * pow(1. - sh, 2) +
5289 3.340855718739629e8 * pow(1. - sh, 3) +
5290 1.0851066958008096e9 * pow(1. - sh, 4))) * pow(z, 10);
5291 }
5292 }
5293 return res;
5294}
5295
5296double F_1::DeltaF_19re(double muh, double z, double sh, int maxpow)
5297{
5298 double lz = log(z);
5299 double lmu = log(muh);
5300 double Lsh = log(sh);
5301
5302
5303 double res = 0;
5304
5305 if (sh < 0.4) {
5306 res = 0.09029982363315697 * (0.6666666666666666 + lmu - 0.5 * lz)*
5307 (105. + pow(sh, 3) * pow(z, -3) + 4.5 * pow(sh, 2) * pow(z, -2) +
5308 21. * sh * pow(z, -1));
5309 } else {
5310 if (0 <= maxpow)
5311 res += 0.;
5312
5313 if (1 <= maxpow)
5314 res += 0.;
5315
5316 if (2 <= maxpow)
5317 res += (-37.925925925925924 * pow(sh, -1) -
5318 56.888888888888886 * lmu * pow(sh, -1) +
5319 28.444444444444443 * lz * pow(sh, -1)) * pow(z, 1);
5320
5321 if (3 <= maxpow)
5322 res += 0.;
5323
5324 if (4 <= maxpow)
5325 res += (-75.85185185185185 * Lsh * pow(sh, -2) -
5326 113.77777777777777 * lmu * Lsh * pow(sh, -2) -
5327 56.888888888888886 * pow(lz, 2) * pow(sh, -2) -
5328 lz * (-75.85185185185185 * pow(sh, -2) -
5329 113.77777777777777 * lmu * pow(sh, -2) -
5330 56.888888888888886 * Lsh * pow(sh, -2))) * pow(z, 2);
5331
5332 if (5 <= maxpow)
5333 res += 0.;
5334
5335 if (6 <= maxpow)
5336 res += (151.7037037037037 * pow(sh, -3) -
5337 151.7037037037037 * Lsh * pow(sh, -3) -
5338 113.77777777777777 * pow(lz, 2) * pow(sh, -3) -
5339 lz * (-37.925925925925924 * pow(sh, -3) -
5340 227.55555555555554 * lmu * pow(sh, -3) -
5341 113.77777777777777 * Lsh * pow(sh, -3)) -
5342 lmu * (-227.55555555555554 * pow(sh, -3) +
5343 227.55555555555554 * Lsh * pow(sh, -3))) * pow(z, 3);
5344
5345 if (7 <= maxpow)
5346 res += 0.;
5347
5348 if (8 <= maxpow)
5349 res += (530.9629629629629 * pow(sh, -4) -
5350 455.1111111111111 * Lsh * pow(sh, -4) -
5351 341.3333333333333 * pow(lz, 2) * pow(sh, -4) -
5352 lz * (-56.888888888888886 * pow(sh, -4) -
5353 682.6666666666666 * lmu * pow(sh, -4) -
5354 341.3333333333333 * Lsh * pow(sh, -4)) -
5355 lmu * (-796.4444444444445 * pow(sh, -4) +
5356 682.6666666666666 * Lsh * pow(sh, -4))) * pow(z, 4);
5357
5358 if (9 <= maxpow)
5359 res += 0.;
5360
5361 if (10 <= maxpow)
5362 res += (1871.0123456790122 * pow(sh, -5) -
5363 1517.037037037037 * Lsh * pow(sh, -5) -
5364 1137.7777777777778 * pow(lz, 2) * pow(sh, -5) -
5365 lz * (-113.77777777777777 * pow(sh, -5) -
5366 2275.5555555555557 * lmu * pow(sh, -5) -
5367 1137.7777777777778 * Lsh * pow(sh, -5)) -
5368 lmu * (-2806.5185185185187 * pow(sh, -5) +
5369 2275.5555555555557 * Lsh * pow(sh, -5))) * pow(z, 5);
5370
5371 if (11 <= maxpow)
5372 res += 0.;
5373
5374 if (12 <= maxpow)
5375 res += (6738.172839506173 * pow(sh, -6) -
5376 5309.62962962963 * Lsh * pow(sh, -6) -
5377 3982.222222222222 * pow(lz, 2) * pow(sh, -6) -
5378 lz * (-256. * pow(sh, -6) -
5379 7964.444444444444 * lmu * pow(sh, -6) -
5380 3982.222222222222 * Lsh * pow(sh, -6)) -
5381 lmu * (-10107.25925925926 * pow(sh, -6) +
5382 7964.444444444444 * Lsh * pow(sh, -6))) * pow(z, 6);
5383
5384 if (13 <= maxpow)
5385 res += 0.;
5386
5387 if (14 <= maxpow)
5388 res += (24682.192592592593 * pow(sh, -7) -
5389 19114.666666666668 * Lsh * pow(sh, -7) -
5390 14336. * pow(lz, 2) * pow(sh, -7) -
5391 lz * (-603.0222222222222 * pow(sh, -7) -
5392 28672. * lmu * pow(sh, -7) - 14336. * Lsh * pow(sh, -7)) -
5393 lmu * (-37023.28888888889 * pow(sh, -7) +
5394 28672. * Lsh * pow(sh, -7))) * pow(z, 7);
5395
5396 if (15 <= maxpow)
5397 res += 0.;
5398
5399 if (16 <= maxpow)
5400 res += (91563.2987654321 * pow(sh, -8) -
5401 70087.11111111111 * Lsh * pow(sh, -8) -
5402 52565.333333333336 * pow(lz, 2) * pow(sh, -8) -
5403 lz * (-1414.637037037037 * pow(sh, -8) -
5404 105130.66666666667 * lmu * pow(sh, -8) -
5405 52565.333333333336 * Lsh * pow(sh, -8)) -
5406 lmu * (-137344.94814814813 * pow(sh, -8) +
5407 105130.66666666667 * Lsh * pow(sh, -8))) * pow(z, 8);
5408
5409 if (17 <= maxpow)
5410 res += 0.;
5411
5412 if (18 <= maxpow)
5413 res += (342952.95097001764 * pow(sh, -9) -
5414 260323.55555555556 * Lsh * pow(sh, -9) -
5415 195242.66666666666 * pow(lz, 2) * pow(sh, -9) -
5416 lz * (-3108.842328042328 * pow(sh, -9) -
5417 390485.3333333333 * lmu * pow(sh, -9) -
5418 195242.66666666666 * Lsh * pow(sh, -9)) -
5419 lmu * (-514429.42645502643 * pow(sh, -9) +
5420 390485.3333333333 * Lsh * pow(sh, -9))) * pow(z, 9);
5421
5422 if (19 <= maxpow)
5423 res += 0.;
5424
5425 if (20 <= maxpow)
5426 res += (1.2942086772486772e6 * pow(sh, -10) -
5427 976213.3333333334 * Lsh * pow(sh, -10) -
5428 732160. * pow(lz, 2) * pow(sh, -10) -
5429 lz * (-5556.825396825397 * pow(sh, -10) -
5430 1.46432e6 * lmu * pow(sh, -10) - 732160. * Lsh * pow(sh, -10))
5431 - lmu * (-1.9413130158730159e6 * pow(sh, -10) +
5432 1.46432e6 * Lsh * pow(sh, -10))) * pow(z, 10);
5433
5434 }
5435 return res;
5436}
5437
5438double F_1::DeltaF_19im(double muh, double z, double sh, int maxpow)
5439{
5440 double lz = log(z);
5441 double lmu = log(muh);
5442
5443
5444 double res = 0;
5445
5446 if (sh < 0.4) {
5447 res = 0.;
5448 } else {
5449 if (0 <= maxpow)
5450 res += 0.;
5451
5452 if (1 <= maxpow)
5453 res += 0.;
5454
5455 if (2 <= maxpow)
5456 res += 0.;
5457
5458 if (3 <= maxpow)
5459 res += 0.;
5460
5461 if (4 <= maxpow)
5462 res += (238.2956205389591 * pow(sh, -2) +
5463 357.4434308084387 * lmu * pow(sh, -2) -
5464 178.72171540421934 * lz * pow(sh, -2)) * pow(z, 2);
5465
5466 if (5 <= maxpow)
5467 res += 0.;
5468
5469 if (6 <= maxpow)
5470 res += (476.5912410779182 * pow(sh, -3) +
5471 714.8868616168774 * lmu * pow(sh, -3) -
5472 357.4434308084387 * lz * pow(sh, -3)) * pow(z, 3);
5473
5474 if (7 <= maxpow)
5475 res += 0.;
5476
5477 if (8 <= maxpow)
5478 res += (1429.7737232337547 * pow(sh, -4) +
5479 2144.660584850632 * lmu * pow(sh, -4) -
5480 1072.330292425316 * lz * pow(sh, -4)) * pow(z, 4);
5481
5482 if (9 <= maxpow)
5483 res += 0.;
5484
5485 if (10 <= maxpow)
5486 res += (4765.912410779182 * pow(sh, -5) +
5487 7148.868616168774 * lmu * pow(sh, -5) -
5488 3574.434308084387 * lz * pow(sh, -5)) * pow(z, 5);
5489
5490 if (11 <= maxpow)
5491 res += 0.;
5492
5493 if (12 <= maxpow)
5494 res += (16680.69343772714 * pow(sh, -6) +
5495 25021.04015659071 * lmu * pow(sh, -6) -
5496 12510.520078295354 * lz * pow(sh, -6)) * pow(z, 6);
5497
5498 if (13 <= maxpow)
5499 res += 0.;
5500
5501 if (14 <= maxpow)
5502 res += (60050.496375817704 * pow(sh, -7) +
5503 90075.74456372655 * lmu * pow(sh, -7) -
5504 45037.872281863274 * lz * pow(sh, -7)) * pow(z, 7);
5505
5506 if (15 <= maxpow)
5507 res += 0.;
5508
5509 if (16 <= maxpow)
5510 res += (220185.1533779982 * pow(sh, -8) +
5511 330277.73006699735 * lmu * pow(sh, -8) -
5512 165138.86503349867 * lz * pow(sh, -8)) * pow(z, 8);
5513
5514 if (17 <= maxpow)
5515 res += 0.;
5516
5517 if (18 <= maxpow)
5518 res += (817830.5696897077 * pow(sh, -9) +
5519 1.2267458545345615e6 * lmu * pow(sh, -9) -
5520 613372.9272672808 * lz * pow(sh, -9)) * pow(z, 9);
5521
5522 if (19 <= maxpow)
5523 res += 0.;
5524
5525 if (20 <= maxpow)
5526 res += (3.066864636336404e6 * pow(sh, -10) +
5527 4.600296954504606e6 * lmu * pow(sh, -10) -
5528 2.300148477252303e6 * lz * pow(sh, -10)) * pow(z, 10);
5529
5530 }
5531 return res;
5532}
F_1.h
F_1::F_17im
double F_17im(double muh, double z, double sh, int maxpow=20)
Definition: F_1.cpp:1889
F_1::DeltaF_19re
double DeltaF_19re(double muh, double z, double sh, int maxpow=20)
Definition: F_1.cpp:5296
F_1::F_19im
double F_19im(double muh, double z, double sh, int maxpow=20)
Definition: F_1.cpp:4628
F_1::F_19re
double F_19re(double muh, double z, double sh, int maxpow=20)
Definition: F_1.cpp:2475
F_1::F_17re
double F_17re(double muh, double z, double sh, int maxpow=20)
Definition: F_1.cpp:21
F_1::DeltaF_19im
double DeltaF_19im(double muh, double z, double sh, int maxpow=20)
Definition: F_1.cpp:5438
F_1::~F_1
~F_1()
The default destructor.
Definition: F_1.cpp:18
F_1::F_1
F_1()
The default constructor.
Definition: F_1.cpp:15
Li4
cd Li4(cd x)
Definition: hpl.h:1021
Cl2
double Cl2(double x)
Definition: hpl.h:1026
Li3
cd Li3(cd x)
Definition: hpl.h:1016
Li2
cd Li2(cd x)
Definition: hpl.h:1011
Cl3
double Cl3(double x)
Definition: hpl.h:1031