a Code for the Combination of Indirect and Direct Constraints on High Energy Physics Models Logo
Public Member Functions | List of all members
F_2 Class Reference

#include <F_2.h>

Detailed Description

Definition at line 15 of file F_2.h.

Public Member Functions

double DeltaF_29im (double muh, double z, double sh, int maxpow=20)
 
double DeltaF_29re (double muh, double z, double sh, int maxpow=20)
 
 F_2 ()
 The default constructor. More...
 
double F_27im (double muh, double z, double sh, int maxpow=20)
 
double F_27re (double muh, double z, double sh, int maxpow=20)
 
double F_29im (double muh, double z, double sh, int maxpow=20)
 
double F_29re (double muh, double z, double sh, int maxpow=20)
 
 ~F_2 ()
 The default destructor. More...
 

Constructor & Destructor Documentation

◆ F_2()

F_2::F_2 ( )

The default constructor.

Definition at line 15 of file F_2.cpp.

16{}

◆ ~F_2()

F_2::~F_2 ( )

The default destructor.

Definition at line 18 of file F_2.cpp.

19{}

Member Function Documentation

◆ DeltaF_29im()

double F_2::DeltaF_29im ( double  muh,
double  z,
double  sh,
int  maxpow = 20 
)

Definition at line 5314 of file F_2.cpp.

5315{
5316 double lz = log(z);
5317 double lmu = log(muh);
5318
5319
5320 double res = 0;
5321
5322 if (sh < 0.4) {
5323 res = 0.;
5324 } else {
5325 if (0 <= maxpow)
5326 res += 0.;
5327
5328 if (1 <= maxpow)
5329 res += 0.;
5330
5331 if (2 <= maxpow)
5332 res += 0.;
5333
5334 if (3 <= maxpow)
5335 res += 0.;
5336
5337 if (4 <= maxpow)
5338 res += (178.72171540421934 * pow(sh, -2) +
5339 268.082573106329 * lmu * pow(sh, -2) -
5340 134.0412865531645 * lz * pow(sh, -2)) * pow(z, 2);
5341
5342 if (5 <= maxpow)
5343 res += 0.;
5344
5345 if (6 <= maxpow)
5346 res += (357.4434308084387 * pow(sh, -3) +
5347 536.165146212658 * lmu * pow(sh, -3) -
5348 268.082573106329 * lz * pow(sh, -3)) * pow(z, 3);
5349
5350 if (7 <= maxpow)
5351 res += 0.;
5352
5353 if (8 <= maxpow)
5354 res += (1072.330292425316 * pow(sh, -4) +
5355 1608.495438637974 * lmu * pow(sh, -4) -
5356 804.247719318987 * lz * pow(sh, -4)) * pow(z, 4);
5357
5358 if (9 <= maxpow)
5359 res += 0.;
5360
5361 if (10 <= maxpow)
5362 res += (3574.434308084387 * pow(sh, -5) +
5363 5361.651462126581 * lmu * pow(sh, -5) -
5364 2680.8257310632903 * lz * pow(sh, -5)) * pow(z, 5);
5365
5366 if (11 <= maxpow)
5367 res += 0.;
5368
5369 if (12 <= maxpow)
5370 res += (12510.520078295354 * pow(sh, -6) +
5371 18765.78011744303 * lmu * pow(sh, -6) -
5372 9382.890058721516 * lz * pow(sh, -6)) * pow(z, 6);
5373
5374 if (13 <= maxpow)
5375 res += 0.;
5376
5377 if (14 <= maxpow)
5378 res += (45037.872281863274 * pow(sh, -7) +
5379 67556.80842279491 * lmu * pow(sh, -7) -
5380 33778.40421139746 * lz * pow(sh, -7)) * pow(z, 7);
5381
5382 if (15 <= maxpow)
5383 res += 0.;
5384
5385 if (16 <= maxpow)
5386 res += (165138.86503349867 * pow(sh, -8) +
5387 247708.297550248 * lmu * pow(sh, -8) -
5388 123854.148775124 * lz * pow(sh, -8)) * pow(z, 8);
5389
5390 if (17 <= maxpow)
5391 res += 0.;
5392
5393 if (18 <= maxpow)
5394 res += (613372.9272672808 * pow(sh, -9) +
5395 920059.3909009212 * lmu * pow(sh, -9) -
5396 460029.6954504606 * lz * pow(sh, -9)) * pow(z, 9);
5397
5398 if (19 <= maxpow)
5399 res += 0.;
5400
5401 if (20 <= maxpow)
5402 res += (2.300148477252303e6 * pow(sh, -10) +
5403 3.4502227158784545e6 * lmu * pow(sh, -10) -
5404 1.7251113579392273e6 * lz * pow(sh, -10)) * pow(z, 10);
5405
5406 }
5407 return res;
5408}

◆ DeltaF_29re()

double F_2::DeltaF_29re ( double  muh,
double  z,
double  sh,
int  maxpow = 20 
)

Definition at line 5177 of file F_2.cpp.

5178{
5179 double lz = log(z);
5180 double lmu = log(muh);
5181 double Lsh = log(sh);
5182
5183
5184 double res = 0;
5185
5186 if (sh < 0.4) {
5187 res = 0.06772486772486773 * (0.6666666666666666 + lmu - 0.5 * lz)*
5188 (105. + pow(sh, 3) * pow(z, -3) + 4.5 * pow(sh, 2) * pow(z, -2) +
5189 21. * sh * pow(z, -1));
5190 } else {
5191 if (0 <= maxpow)
5192 res += 0.;
5193
5194 if (1 <= maxpow)
5195 res += 0.;
5196
5197 if (2 <= maxpow)
5198 res += (-28.444444444444443 * pow(sh, -1) -
5199 42.666666666666664 * lmu * pow(sh, -1) +
5200 21.333333333333332 * lz * pow(sh, -1)) * pow(z, 1);
5201
5202 if (3 <= maxpow)
5203 res += 0.;
5204
5205 if (4 <= maxpow)
5206 res += (-56.888888888888886 * Lsh * pow(sh, -2) -
5207 85.33333333333333 * lmu * Lsh * pow(sh, -2) -
5208 42.666666666666664 * pow(lz, 2) * pow(sh, -2) -
5209 lz * (-56.888888888888886 * pow(sh, -2) -
5210 85.33333333333333 * lmu * pow(sh, -2) -
5211 42.666666666666664 * Lsh * pow(sh, -2))) * pow(z, 2);
5212
5213 if (5 <= maxpow)
5214 res += 0.;
5215
5216 if (6 <= maxpow)
5217 res += (113.77777777777777 * pow(sh, -3) -
5218 113.77777777777777 * Lsh * pow(sh, -3) -
5219 85.33333333333333 * pow(lz, 2) * pow(sh, -3) -
5220 lz * (-28.444444444444443 * pow(sh, -3) -
5221 170.66666666666666 * lmu * pow(sh, -3) -
5222 85.33333333333333 * Lsh * pow(sh, -3)) -
5223 lmu * (-170.66666666666666 * pow(sh, -3) +
5224 170.66666666666666 * Lsh * pow(sh, -3))) * pow(z, 3);
5225
5226 if (7 <= maxpow)
5227 res += 0.;
5228
5229 if (8 <= maxpow)
5230 res += (398.22222222222223 * pow(sh, -4) -
5231 341.3333333333333 * Lsh * pow(sh, -4) -
5232 256. * pow(lz, 2) * pow(sh, -4) -
5233 lz * (-42.666666666666664 * pow(sh, -4) -
5234 512. * lmu * pow(sh, -4) - 256. * Lsh * pow(sh, -4)) -
5235 lmu * (-597.3333333333334 * pow(sh, -4) +
5236 512. * Lsh * pow(sh, -4))) * pow(z, 4);
5237
5238 if (9 <= maxpow)
5239 res += 0.;
5240
5241 if (10 <= maxpow)
5242 res += (1403.2592592592594 * pow(sh, -5) -
5243 1137.7777777777778 * Lsh * pow(sh, -5) -
5244 853.3333333333334 * pow(lz, 2) * pow(sh, -5) -
5245 lz * (-85.33333333333333 * pow(sh, -5) -
5246 1706.6666666666667 * lmu * pow(sh, -5) -
5247 853.3333333333334 * Lsh * pow(sh, -5)) -
5248 lmu * (-2104.8888888888887 * pow(sh, -5) +
5249 1706.6666666666667 * Lsh * pow(sh, -5))) * pow(z, 5);
5250
5251 if (11 <= maxpow)
5252 res += 0.;
5253
5254 if (12 <= maxpow)
5255 res += (5053.62962962963 * pow(sh, -6) -
5256 3982.222222222222 * Lsh * pow(sh, -6) -
5257 2986.6666666666665 * pow(lz, 2) * pow(sh, -6) -
5258 lz * (-192. * pow(sh, -6) -
5259 5973.333333333333 * lmu * pow(sh, -6) -
5260 2986.6666666666665 * Lsh * pow(sh, -6)) -
5261 lmu * (-7580.444444444444 * pow(sh, -6) +
5262 5973.333333333333 * Lsh * pow(sh, -6))) * pow(z, 6);
5263
5264 if (13 <= maxpow)
5265 res += 0.;
5266
5267 if (14 <= maxpow)
5268 res += (18511.644444444446 * pow(sh, -7) - 14336. * Lsh * pow(sh, -7) -
5269 10752. * pow(lz, 2) * pow(sh, -7) -
5270 lz * (-452.26666666666665 * pow(sh, -7) -
5271 21504. * lmu * pow(sh, -7) - 10752. * Lsh * pow(sh, -7)) -
5272 lmu * (-27767.466666666667 * pow(sh, -7) +
5273 21504. * Lsh * pow(sh, -7))) * pow(z, 7);
5274
5275 if (15 <= maxpow)
5276 res += 0.;
5277
5278 if (16 <= maxpow)
5279 res += (68672.47407407407 * pow(sh, -8) -
5280 52565.333333333336 * Lsh * pow(sh, -8) -
5281 39424. * pow(lz, 2) * pow(sh, -8) -
5282 lz * (-1060.9777777777779 * pow(sh, -8) -
5283 78848. * lmu * pow(sh, -8) - 39424. * Lsh * pow(sh, -8)) -
5284 lmu * (-103008.71111111112 * pow(sh, -8) +
5285 78848. * Lsh * pow(sh, -8))) * pow(z, 8);
5286
5287 if (17 <= maxpow)
5288 res += 0.;
5289
5290 if (18 <= maxpow)
5291 res += (257214.71322751322 * pow(sh, -9) -
5292 195242.66666666666 * Lsh * pow(sh, -9) -
5293 146432. * pow(lz, 2) * pow(sh, -9) -
5294 lz * (-2331.631746031746 * pow(sh, -9) -
5295 292864. * lmu * pow(sh, -9) - 146432. * Lsh * pow(sh, -9)) -
5296 lmu * (-385822.06984126987 * pow(sh, -9) +
5297 292864. * Lsh * pow(sh, -9))) * pow(z, 9);
5298
5299 if (19 <= maxpow)
5300 res += 0.;
5301
5302 if (20 <= maxpow)
5303 res += (970656.5079365079 * pow(sh, -10) - 732160. * Lsh * pow(sh, -10) -
5304 549120. * pow(lz, 2) * pow(sh, -10) -
5305 lz * (-4167.619047619048 * pow(sh, -10) -
5306 1.09824e6 * lmu * pow(sh, -10) - 549120. * Lsh * pow(sh, -10))
5307 - lmu * (-1.455984761904762e6 * pow(sh, -10) +
5308 1.09824e6 * Lsh * pow(sh, -10))) * pow(z, 10);
5309
5310 }
5311 return res;
5312}

◆ F_27im()

double F_2::F_27im ( double  muh,
double  z,
double  sh,
int  maxpow = 20 
)

Definition at line 1850 of file F_2.cpp.

1851{
1852 double lz = log(z);
1853 double Lsh = log(sh);
1854 double Lshb = log(1. - sh);
1855 double Li2sh = real(Li2(sh));
1856 double Li3sh = real(Li3(sh));
1857
1858
1859 double res = 0;
1860
1861 if (sh < 0.4) {
1862 res = 3.10281 - 8.37758 * sh - 2.792525 * lz * sh - 9.55118 * z -
1863 5.58505 * lz * z - 34.6839 * sh * z - 5.58505 * Lsh * sh * z -
1864 39.0954 * lz * sh * z - 5.58505 * z * pow(lz, 2) -
1865 5.58505 * sh * z * pow(lz, 2) - 9.54113 * pow(sh, 2) -
1866 2.792525 * lz * pow(sh, 2) - 88.6728 * z * pow(sh, 2) -
1867 11.1701 * Lsh * z * pow(sh, 2) - 67.0205 * lz * z * pow(sh, 2) -
1868 5.58505 * z * pow(lz, 2) * pow(sh, 2) - 9.82039 * pow(sh, 3) -
1869 2.792525 * lz * pow(sh, 3) - 154.918 * z * pow(sh, 3) -
1870 16.7552 * Lsh * z * pow(sh, 3) - 93.084 * lz * z * pow(sh, 3) -
1871 5.58505 * z * pow(lz, 2) * pow(sh, 3) -
1872 0.015514 * pow(sh, 3) * pow(z, -2) +
1873 0.15514 * pow(sh, 3) * pow(z, -1) + 18.3741 * pow(z, 2) +
1874 91.4251 * sh * pow(z, 2) - 33.5103 * lz * sh * pow(z, 2) -
1875 22.3402 * Lsh * lz * sh * pow(z, 2) -
1876 5.58505 * pow(lz, 2) * pow(z, 2) -
1877 27.92525 * sh * pow(lz, 2) * pow(z, 2) +
1878 196.813 * pow(sh, 2) * pow(z, 2) -
1879 22.3402 * Lsh * pow(sh, 2) * pow(z, 2) -
1880 117.286 * lz * pow(sh, 2) * pow(z, 2) -
1881 67.0205 * Lsh * lz * pow(sh, 2) * pow(z, 2) -
1882 67.02075 * pow(lz, 2) * pow(sh, 2) * pow(z, 2) +
1883 314.524 * pow(sh, 3) * pow(z, 2) -
1884 78.1908 * Lsh * pow(sh, 3) * pow(z, 2) -
1885 266.221 * lz * pow(sh, 3) * pow(z, 2) -
1886 134.0415 * Lsh * lz * pow(sh, 3) * pow(z, 2) -
1887 122.87125 * pow(lz, 2) * pow(sh, 3) * pow(z, 2) -
1888 17.3757 * pow(z, 3) + 7.44675 * lz * pow(z, 3) -
1889 94.1903 * sh * pow(z, 3) - 11.1701 * Lsh * sh * pow(z, 3) +
1890 74.4675 * lz * sh * pow(z, 3) + 22.3402 * Lsh * lz * sh * pow(z, 3) -
1891 209.21 * pow(sh, 2) * pow(z, 3) -
1892 22.3402 * Lsh * pow(sh, 2) * pow(z, 3) +
1893 242.019 * lz * pow(sh, 2) * pow(z, 3) +
1894 89.361 * Lsh * lz * pow(sh, 2) * pow(z, 3) -
1895 325.499 * pow(sh, 3) * pow(z, 3) -
1896 11.1701 * Lsh * pow(sh, 3) * pow(z, 3) +
1897 554.78 * lz * pow(sh, 3) * pow(z, 3) +
1898 223.402 * Lsh * lz * pow(sh, 3) * pow(z, 3);
1899 } else {
1900 if (0 <= maxpow) {
1901 if (sh < .900001)
1902 res += (-2.792526803190927 * Lsh * sh * (-1. + 2. * sh) * pow(-1 + sh, -3) +
1903 0.1551403779550515 * pow(-1 + sh, -2)*
1904 (20. - 49. * sh + 47. * pow(sh, 2))) * pow(z, 0);
1905 else
1906 res += (4.964492094561648 - 0.6981317007977318 * (1. - sh) -
1907 0.32579479370560815 * pow(1. - sh, 2) -
1908 0.18616845354606182 * pow(1. - sh, 3) -
1909 0.11967972013675403 * pow(1. - sh, 4)) * pow(z, 0);
1910 }
1911
1912 if (1 <= maxpow) {
1913 if (sh < .900001)
1914 res += 0.;
1915 else
1916 res += 0.;
1917 }
1918
1919 if (2 <= maxpow) {
1920 if (sh < .900001)
1921 res += (53.70841793654156 * sh * pow(-1 + sh, -3) -
1922 44.680428851054835 * Li3sh * sh * pow(-1 + sh, -3) +
1923 5.585053606381854 * Li2sh * (-5. + 3. * sh) *
1924 pow(-1 + sh, -3) + 3.723369070921236 * sh * pow(Lsh, 3) *
1925 pow(-1 + sh, -3) - 11.170107212763709 * pow(Lsh, 2) *
1926 pow(-1 + sh, -2) - Lsh *
1927 (-22.340214425527417 * Li2sh * sh * pow(-1 + sh, -3) -
1928 5.585053606381854 * pow(-1 + sh, -3)*
1929 (3. + Lshb * (-5. + 3. * sh) +
1930 2. * sh * pow(3.141592653589793, 2) - 2. * pow(sh, 2)))\
1931 - 0.930842267730309 * pow(-1 + sh, -3)*
1932 (-6. * (2. - 5. * sh + 3. * pow(sh, 2)) +
1933 pow(3.141592653589793, 2)*
1934 (-9. + 3. * sh + 4. * pow(sh, 2)))) * pow(z, 1);
1935 else
1936 res += (-25.126044626684017 - 16.441531762218297 * (1. - sh) -
1937 12.739670260838084 * pow(1. - sh, 2) -
1938 10.578200186941283 * pow(1. - sh, 3) -
1939 9.130437128725532 * pow(1. - sh, 4)) * pow(z, 1);
1940 }
1941
1942 if (3 <= maxpow) {
1943 if (sh < .900001)
1944 res += 0.;
1945 else
1946 res += 0.;
1947 }
1948
1949 if (4 <= maxpow) {
1950 if (sh < .900001)
1951 res += (-5.585053606381854 * Li2sh * (-2. + 7. * sh) * pow(-1 + sh, -3) -
1952 5.585053606381854 * pow(Lsh, 2) * pow(-1 + sh, -2) -
1953 lz * (-39.09537524467298 * Lsh * sh * pow(-1 + sh, -3) +
1954 2.792526803190927 * pow(-1 + sh, -2) * pow(sh, -2)*
1955 (2. - 7. * sh + 15. * pow(sh, 2) + 4. * pow(sh, 3))) +
1956 0.4654211338651545 * pow(-1 + sh, -3) * pow(sh, -2)*
1957 (-18. + 63. * sh - 2. *
1958 (63. + 2. * pow(3.141592653589793, 2)) * pow(sh, 2) +
1959 (9. + 14. * pow(3.141592653589793, 2)) * pow(sh, 3) +
1960 36. * pow(sh, 4)) -
1961 2.792526803190927 * Lsh * pow(-1 + sh, -4) * pow(sh, -2)*
1962 (-4. + 13. * sh + (-21. + 4. * Lshb) * pow(sh, 2) +
1963 (11. - 18. * Lshb) * pow(sh, 3) +
1964 (-5. + 14. * Lshb) * pow(sh, 4))) * pow(z, 2);
1965 else
1966 res += (-9.153282299348039 - 18.43843391995787 * (1. - sh) -
1967 29.484428830357537 * pow(1. - sh, 2) -
1968 43.167588536881716 * pow(1. - sh, 3) +
1969 log(z)*(-3.723369070921236 -
1970 6.050474740247009 * (1. - sh) -
1971 10.332349171806431 * pow(1. - sh, 2) -
1972 15.265813190777068 * pow(1. - sh, 3) -
1973 20.4785298900668 * pow(1. - sh, 4)) -
1974 59.199668549550246 * pow(1. - sh, 4)) * pow(z, 2);
1975 }
1976
1977 if (5 <= maxpow) {
1978 if (sh < .900001)
1979 res += 0.;
1980 else
1981 res += 0.;
1982 }
1983
1984 if (6 <= maxpow) {
1985 if (sh < .900001)
1986 res += (11.170107212763709 * pow(Lsh, 2) * pow(-1 + sh, -3) * pow(sh, -1) -
1987 11.170107212763709 * Li2sh * pow(-1 + sh, -4) * pow(sh, -1)*
1988 (1. - sh + 2. * pow(sh, 2)) -
1989 0.930842267730309 * Lsh * pow(-1 + sh, -5) * pow(sh, -4)*
1990 (4. + 4. * sh - 71. * pow(sh, 2) +
1991 (155. - 12. * Lshb) * pow(sh, 3) +
1992 2. * (-83. + 12. * Lshb) * pow(sh, 4) +
1993 (98. - 36. * Lshb) * pow(sh, 5) +
1994 12. * (-3. + 2. * Lshb) * pow(sh, 6)) -
1995 lz * (-11.170107212763709 * Lsh * pow(-1 + sh, -4) *
1996 pow(sh, -1)*(1. - sh + 2. * pow(sh, 2)) -
1997 0.930842267730309 * pow(-1 + sh, -3) * pow(sh, -4)*
1998 (2. + 6. * sh - 45. * pow(sh, 2) + 61. * pow(sh, 3) -
1999 41. * pow(sh, 4) - 11. * pow(sh, 5) + 4. * pow(sh, 6))) -
2000 0.1551403779550515 * pow(-1 + sh, -4) * pow(sh, -4)*
2001 (-10. + 10. * sh + 54. * pow(sh, 2) +
2002 (46. - 12. * pow(3.141592653589793, 2)) * pow(sh, 3) +
2003 3. * (-53. + 4. * pow(3.141592653589793, 2)) * pow(sh, 4) -
2004 24. * (-10. + pow(3.141592653589793, 2)) * pow(sh, 5) -
2005 141. * pow(sh, 6) + 32. * pow(sh, 7))) * pow(z, 3);
2006 else
2007 res += (-13.97814805375014 - 45.88121537642694 * (1. - sh) -
2008 113.65495437342528 * pow(1. - sh, 2) -
2009 229.22586075329383 * pow(1. - sh, 3) +
2010 log(z)*(-0.930842267730309 -
2011 18.430676901060117 * (1. - sh) -
2012 51.75483008580519 * pow(1. - sh, 2) -
2013 103.16391875788196 * pow(1. - sh, 3) -
2014 174.70579590629714 * pow(1. - sh, 4)) -
2015 403.9971955539516 * pow(1. - sh, 4)) * pow(z, 3);
2016 }
2017
2018 if (7 <= maxpow) {
2019 if (sh < .900001)
2020 res += 0.;
2021 else
2022 res += 0.;
2023 }
2024
2025 if (8 <= maxpow) {
2026 if (sh < .900001)
2027 res += (18.61684535460618 * Li2sh * pow(-1 + sh, -3) * pow(sh, -2) +
2028 18.61684535460618 * pow(Lsh, 2) * pow(-1 + sh, -3) *
2029 pow(sh, -2) - lz *
2030 (18.61684535460618 * Lsh * pow(-1 + sh, -3) * pow(sh, -2) +
2031 0.310280755910103 * pow(-1 + sh, -2) * pow(sh, -6)*
2032 (3. + 19. * sh + 43. * pow(sh, 2) - 260. * pow(sh, 3) +
2033 225. * pow(sh, 4) - 105. * pow(sh, 5) + 15. * pow(sh, 6)))
2034 + 0.310280755910103 * Lsh * pow(-1 + sh, -6) * pow(sh, -6)*
2035 (6. + 14. * sh - 30. * pow(sh, 2) - 405. * pow(sh, 3) +
2036 (1569. - 60. * Lshb) * pow(sh, 4) +
2037 15. * (-169. + 12. * Lshb) * pow(sh, 5) +
2038 (2235. - 180. * Lshb) * pow(sh, 6) +
2039 (-1037. + 60. * Lshb) * pow(sh, 7) + 213. * pow(sh, 8)) -
2040 0.025856729659175254 * pow(-1 + sh, -5) * pow(sh, -6)*
2041 (21. - 10. * sh - 307. * pow(sh, 2) + 1247. * pow(sh, 3) +
2042 (-3143. + 120. * pow(3.141592653589793, 2)) *
2043 pow(sh, 4) + (3526. -
2044 240. * pow(3.141592653589793, 2)) * pow(sh, 5) +
2045 (397. + 120. * pow(3.141592653589793, 2)) * pow(sh, 6) -
2046 2577. * pow(sh, 7) + 1140. * pow(sh, 8) +
2047 138. * pow(sh, 9) - 72. * pow(sh, 10))) * pow(z, 4);
2048 else
2049 res += (-17.996283842785974 - 135.35554718355516 * (1. - sh) -
2050 472.35812505085903 * pow(1. - sh, 2) -
2051 1200.9383413133833 * pow(1. - sh, 3) +
2052 log(z)*(-14.893476283684944 -
2053 84.70664636345812 * (1. - sh) -
2054 265.29004630313807 * pow(1. - sh, 2) -
2055 624.2848808911273 * pow(1. - sh, 3) -
2056 1241.9208884413238 * pow(1. - sh, 4)) -
2057 2545.7015752257666 * pow(1. - sh, 4)) * pow(z, 4);
2058 }
2059
2060 if (9 <= maxpow) {
2061 if (sh < .900001)
2062 res += 0.;
2063 else
2064 res += 0.;
2065 }
2066
2067 if (10 <= maxpow) {
2068 if (sh < .900001)
2069 res += (39.09537524467298 * Li2sh * pow(-1 + sh, -3) * pow(sh, -3) +
2070 39.09537524467298 * pow(Lsh, 2) * pow(-1 + sh, -3) *
2071 pow(sh, -3) - lz *
2072 (39.09537524467298 * Lsh * pow(-1 + sh, -3) * pow(sh, -3) +
2073 0.09308422677303091 * pow(-1 + sh, -2) * pow(sh, -8)*
2074 (6. + 51. * sh + 181. * pow(sh, 2) + 301. * pow(sh, 3) -
2075 2324. * pow(sh, 4) + 2220. * pow(sh, 5) -
2076 880. * pow(sh, 6) - 70. * pow(sh, 7) + 95. * pow(sh, 8)))\
2077 + 0.09308422677303091 * Lsh * pow(-1 + sh, -7) * pow(sh, -8)*
2078 (-12. - 42. * sh + 28. * pow(sh, 2) + 308. * pow(sh, 3) +
2079 2793. * pow(sh, 4) +
2080 2. * (-8339. + 210. * Lshb) * pow(sh, 5) +
2081 (37042. - 1680. * Lshb) * pow(sh, 6) +
2082 168. * (-266. + 15. * Lshb) * pow(sh, 7) -
2083 8. * (-3959. + 210. * Lshb) * pow(sh, 8) +
2084 3. * (-4351. + 140. * Lshb) * pow(sh, 9) + 2720. * pow(sh, 10)
2085 ) - 0.001551403779550515 * pow(-1 + sh, -6) * pow(sh, -8)*
2086 (-162. + 36. * sh + 2914. * pow(sh, 2) + 5862. * pow(sh, 3) -
2087 97530. * pow(sh, 4) + 329152. * pow(sh, 5) +
2088 4200. * pow(3.141592653589793, 2) * pow(-1 + sh, 3) *
2089 pow(sh, 5) - 497696. * pow(sh, 6) +
2090 286926. * pow(sh, 7) + 114303. * pow(sh, 8) -
2091 259230. * pow(sh, 9) + 141000. * pow(sh, 10) -
2092 22550. * pow(sh, 11) + 2975. * pow(sh, 12) -
2093 600. * pow(sh, 13))) * pow(z, 5);
2094 else
2095 res += (-45.438400411920945 - 460.45774991614974 * (1. - sh) -
2096 2000.8969832546916 * pow(1. - sh, 2) -
2097 6063.926888543121 * pow(1. - sh, 3) +
2098 log(z)*(-57.71222059927916 -
2099 352.7892194697871 * (1. - sh) -
2100 1274.7884856566582 * pow(1. - sh, 2) -
2101 3472.041658634053 * pow(1. - sh, 3) -
2102 7917.744329314009 * pow(1. - sh, 4)) -
2103 14922.183969640308 * pow(1. - sh, 4)) * pow(z, 5);
2104 }
2105
2106 if (11 <= maxpow) {
2107 if (sh < .900001)
2108 res += 0.;
2109 else
2110 res += 0.;
2111 }
2112
2113 if (12 <= maxpow) {
2114 if (sh < .900001)
2115 res += (93.82890058721516 * Li2sh * pow(-1 + sh, -3) * pow(sh, -4) +
2116 93.82890058721516 * pow(Lsh, 2) * pow(-1 + sh, -3) *
2117 pow(sh, -4) - lz *
2118 (93.82890058721516 * Lsh * pow(-1 + sh, -3) * pow(sh, -4) +
2119 0.01861684535460618 * pow(-1 + sh, -2) * pow(sh, -10)*
2120 (20. + 212. * sh + 992. * pow(sh, 2) +
2121 2592. * pow(sh, 3) + 3492. * pow(sh, 4) -
2122 33768. * pow(sh, 5) + 34250. * pow(sh, 6) -
2123 12355. * pow(sh, 7) - 1855. * pow(sh, 8) +
2124 795. * pow(sh, 9) + 585. * pow(sh, 10))) +
2125 0.01861684535460618 * Lsh * pow(-1 + sh, -8) * pow(sh, -10)*
2126 (40. + 184. * sh + 40. * pow(sh, 2) - 1160. * pow(sh, 3) -
2127 2240. * pow(sh, 4) - 33740. * pow(sh, 5) -
2128 6. * (-44969. + 840. * Lshb) * pow(sh, 6) +
2129 315. * (-2447. + 80. * Lshb) * pow(sh, 7) -
2130 15. * (-80189. + 3360. * Lshb) * pow(sh, 8) +
2131 40. * (-28549. + 1260. * Lshb) * pow(sh, 9) +
2132 (669980. - 25200. * Lshb) * pow(sh, 10) +
2133 (-228338. + 5040. * Lshb) * pow(sh, 11) +
2134 35770. * pow(sh, 12)) +
2135 0.00031028075591010303 * pow(-1 + sh, -7) * pow(sh, -10)*
2136 (-440. + 32. * sh + 10212. * pow(sh, 2) +
2137 23632. * pow(sh, 3) - 7888. * pow(sh, 4) -
2138 1.620528e6 * pow(sh, 5) + 7.571238e6 * pow(sh, 6) -
2139 50400. * pow(3.141592653589793, 2) * pow(-1 + sh, 4) *
2140 pow(sh, 6) - 1.5372042e7 * pow(sh, 7) +
2141 1.5504288e7 * pow(sh, 8) - 5.560242e6 * pow(sh, 9) -
2142 3.213542e6 * pow(sh, 10) + 3.254015e6 * pow(sh, 11) -
2143 18260. * pow(sh, 12) - 907710. * pow(sh, 13) +
2144 366640. * pow(sh, 14) - 57405. * pow(sh, 15) +
2145 2800. * pow(sh, 16))) * pow(z, 6);
2146 else
2147 res += (-136.29525461574005 - 1645.5778674786802 * (1. - sh) -
2148 8473.793189820017 * pow(1. - sh, 2) -
2149 29701.229294840534 * pow(1. - sh, 3) +
2150 log(z)*(-214.0937215779711 -
2151 1463.749466005911 * (1. - sh) -
2152 5989.876908617766 * pow(1. - sh, 2) -
2153 18449.107577961182 * pow(1. - sh, 3) -
2154 47241.17592958092 * pow(1. - sh, 4)) -
2155 83004.51592284124 * pow(1. - sh, 4)) * pow(z, 6);
2156 }
2157
2158 if (13 <= maxpow) {
2159 if (sh < .900001)
2160 res += 0.;
2161 else
2162 res += 0.;
2163 }
2164
2165 if (14 <= maxpow) {
2166 if (sh < .900001)
2167 res += (245.7423586808016 * Li2sh * pow(-1 + sh, -3) * pow(sh, -5) +
2168 245.7423586808016 * pow(Lsh, 2) * pow(-1 + sh, -3) *
2169 pow(sh, -5) - lz *
2170 (245.7423586808016 * Lsh * pow(-1 + sh, -3) * pow(sh, -5) +
2171 0.008865164454574373 * pow(-1 + sh, -2) * pow(sh, -12)*
2172 (30. + 380. * sh + 2186. * pow(sh, 2) +
2173 7436. * pow(sh, 3) + 15906. * pow(sh, 4) +
2174 18216. * pow(sh, 5) - 217404. * pow(sh, 6) +
2175 230279. * pow(sh, 7) - 78421. * pow(sh, 8) -
2176 14581. * pow(sh, 9) + 3024. * pow(sh, 10) +
2177 3864. * pow(sh, 11) + 1365. * pow(sh, 12))) +
2178 0.008865164454574373 * Lsh * pow(-1 + sh, -9) * pow(sh, -12)*
2179 (-60. - 340. * sh - 312. * pow(sh, 2) + 1872. * pow(sh, 3) +
2180 4980. * pow(sh, 4) + 1620. * pow(sh, 5) +
2181 203850. * pow(sh, 6) +
2182 (-1.895519e6 + 27720. * Lshb) * pow(sh, 7) +
2183 (6.594942e6 - 166320. * Lshb) * pow(sh, 8) +
2184 33. * (-385051. + 12600. * Lshb) * pow(sh, 9) +
2185 (1.5286135e7 - 554400. * Lshb) * pow(sh, 10) +
2186 15. * (-794279. + 27720. * Lshb) * pow(sh, 11) -
2187 6. * (-990013. + 27720. * Lshb) * pow(sh, 12) +
2188 2. * (-882383. + 13860. * Lshb) * pow(sh, 13) +
2189 249228. * pow(sh, 14)) +
2190 0.000021107534415653267 * pow(-1 + sh, -8) * pow(sh, -12)*
2191 (3900. + 100. * sh - 116036. * pow(sh, 2) -
2192 329570. * pow(sh, 3) + 93490. * pow(sh, 4) +
2193 1.36222e6 * pow(sh, 5) + 7.515214e7 * pow(sh, 6) -
2194 4.58367722e8 * pow(sh, 7) -
2195 1.9404e6 * pow(3.141592653589793, 2) * pow(-1 + sh, 5) *
2196 pow(sh, 7) + 1.185571378e9 * pow(sh, 8) -
2197 1.64901962e9 * pow(sh, 9) + 1.210803485e9 * pow(sh, 10) -
2198 2.77663825e8 * pow(sh, 11) - 2.28715591e8 * pow(sh, 12) +
2199 1.81552504e8 * pow(sh, 13) - 5.1683975e7 * pow(sh, 14) +
2200 3.0412585e7 * pow(sh, 15) - 3.0028425e7 * pow(sh, 16) +
2201 1.2629064e7 * pow(sh, 17) - 2.061822e6 * pow(sh, 18) +
2202 52920. * pow(sh, 19))) * pow(z, 7);
2203 else
2204 res += (-456.36056641072724 - 6103.669051411126 * (1. - sh) -
2205 35945.35613138051 * pow(1. - sh, 2) -
2206 142439.61797330706 * pow(1. - sh, 3) +
2207 log(z)*(-790.9056468148526 -
2208 6067.540181822064 * (1. - sh) -
2209 27711.918984145486 * pow(1. - sh, 2) -
2210 94930.08698994012 * pow(1. - sh, 3) -
2211 268847.72545040335 * pow(1. - sh, 4)) -
2212 444531.89353893884 * pow(1. - sh, 4)) * pow(z, 7);
2213 }
2214
2215 if (15 <= maxpow) {
2216 if (sh < .900001)
2217 res += 0.;
2218 else
2219 res += 0.;
2220 }
2221
2222 if (16 <= maxpow) {
2223 if (sh < .900001)
2224 res += (684.5679991822329 * Li2sh * pow(-1 + sh, -3) * pow(sh, -6) +
2225 684.5679991822329 * pow(Lsh, 2) * pow(-1 + sh, -3) *
2226 pow(sh, -6) - lz *
2227 (684.5679991822329 * Lsh * pow(-1 + sh, -3) * pow(sh, -6) +
2228 0.001899678097408794 * pow(-1 + sh, -2) * pow(sh, -14)*
2229 (105. + 1545. * sh + 10505. * pow(sh, 2) +
2230 43433. * pow(sh, 3) + 119873. * pow(sh, 4) +
2231 221793. * pow(sh, 5) + 221793. * pow(sh, 6) -
2232 3.231657e6 * pow(sh, 7) + 3.541034e6 * pow(sh, 8) -
2233 1.160656e6 * pow(sh, 9) - 243376. * pow(sh, 10) +
2234 26124. * pow(sh, 11) + 54544. * pow(sh, 12) +
2235 27790. * pow(sh, 13) + 6790. * pow(sh, 14))) +
2236 0.003799356194817588 * Lsh * pow(-1 + sh, -10) * pow(sh, -14)*
2237 (105. + 705. * sh + 1085. * pow(sh, 2) - 3227. * pow(sh, 3) -
2238 12621. * pow(sh, 4) - 7077. * pow(sh, 5) +
2239 23415. * pow(sh, 6) - 1.52775e6 * pow(sh, 7) +
2240 (1.5332677e7 - 180180. * Lshb) * pow(sh, 8) +
2241 154. * (-404281. + 8190. * Lshb) * pow(sh, 9) -
2242 3276. * (-43597. + 1155. * Lshb) * pow(sh, 10) +
2243 140. * (-1.492544e6 + 45045. * Lshb) * pow(sh, 11) -
2244 35. * (-5.843231e6 + 180180. * Lshb) * pow(sh, 12) +
2245 84. * (-1.606567e6 + 45045. * Lshb) * pow(sh, 13) -
2246 14. * (-4.169089e6 + 90090. * Lshb) * pow(sh, 14) +
2247 4. * (-3.790859e6 + 45045. * Lshb) * pow(sh, 15) +
2248 1.820973e6 * pow(sh, 16)) -
2249 2.2615215445342784e-6 * pow(-1 + sh, -9) * pow(sh, -14)*
2250 (23625. + 2250. * sh - 884825. * pow(sh, 2) -
2251 3.042036e6 * pow(sh, 3) - 226209. * pow(sh, 4) +
2252 1.547673e7 * pow(sh, 5) + 1.7445585e7 * pow(sh, 6) +
2253 2.27462355e9 * pow(sh, 7) -
2254 1.6881630069e10 * pow(sh, 8) +
2255 5.04504e7 * pow(3.141592653589793, 2) * pow(-1 + sh, 6) *
2256 pow(sh, 8) + 5.3231013434e10 * pow(sh, 9) -
2257 9.3745467315e10 * pow(sh, 10) +
2258 9.75051387e10 * pow(sh, 11) -
2259 5.4985329535e10 * pow(sh, 12) +
2260 7.700748318e9 * pow(sh, 13) +
2261 9.422168487e9 * pow(sh, 14) -
2262 5.032015758e9 * pow(sh, 15) - 1.2563586e8 * pow(sh, 16) +
2263 1.23426506e9 * pow(sh, 17) -
2264 1.153426148e9 * pow(sh, 18) +
2265 7.67036928e8 * pow(sh, 19) - 2.79185592e8 * pow(sh, 20) +
2266 4.285204e7 * pow(sh, 21) - 776160. * pow(sh, 22))) *
2267 pow(z, 8);
2268 else
2269 res += (-1629.163092036405 - 23281.294285910375 * (1. - sh) -
2270 152825.6982845202 * pow(1. - sh, 2) -
2271 672700.699177929 * pow(1. - sh, 3) +
2272 log(z)*(-2934.014827885934 -
2273 25115.05522563147 * (1. - sh) -
2274 126608.1387084309 * pow(1. - sh, 2) -
2275 476515.47051732504 * pow(1. - sh, 3) -
2276 1.475709220012137e6 * pow(1. - sh, 4)) -
2277 2.313374280493185e6 * pow(1. - sh, 4)) * pow(z, 8);
2278 }
2279
2280 if (17 <= maxpow) {
2281 if (sh < .900001)
2282 res += 0.;
2283 else
2284 res += 0.;
2285 }
2286
2287 if (18 <= maxpow) {
2288 if (sh < .900001)
2289 res += (1996.656664281513 * Li2sh * pow(-1 + sh, -3) * pow(sh, -7) +
2290 1996.656664281513 * pow(Lsh, 2) * pow(-1 + sh, -3) *
2291 pow(sh, -7) - lz *
2292 (1996.656664281513 * Lsh * pow(-1 + sh, -3) * pow(sh, -7) +
2293 0.005540727784108982 * pow(-1 + sh, -2) * pow(sh, -16)*
2294 (28. + 469. * sh + 3673. * pow(sh, 2) +
2295 17785. * pow(sh, 3) + 59113. * pow(sh, 4) +
2296 140257. * pow(sh, 5) + 231985. * pow(sh, 6) +
2297 205777. * pow(sh, 7) - 3.632057e6 * pow(sh, 8) +
2298 4.091364e6 * pow(sh, 9) - 1.304928e6 * pow(sh, 10) -
2299 297432. * pow(sh, 11) + 14292. * pow(sh, 12) +
2300 58644. * pow(sh, 13) + 35460. * pow(sh, 14) +
2301 12780. * pow(sh, 15) + 2430. * pow(sh, 16))) -
2302 0.005540727784108982 * Lsh * pow(-1 + sh, -11) * pow(sh, -16)*
2303 (56. + 434. * sh + 920. * pow(sh, 2) - 1480. * pow(sh, 3) -
2304 9184. * pow(sh, 4) - 8932. * pow(sh, 5) +
2305 19712. * pow(sh, 6) + 36344. * pow(sh, 7) -
2306 3.49657e6 * pow(sh, 8) -
2307 7. * (-5.358061e6 + 51480. * Lshb) * pow(sh, 9) +
2308 20. * (-8.630911e6 + 144144. * Lshb) * pow(sh, 10) -
2309 880. * (-521011. + 11466. * Lshb) * pow(sh, 11) +
2310 56. * (-1.4125987e7 + 360360. * Lshb) * pow(sh, 12) -
2311 140. * (-6.677771e6 + 180180. * Lshb) * pow(sh, 13) +
2312 112. * (-6.885077e6 + 180180. * Lshb) * pow(sh, 14) -
2313 56. * (-7.869671e6 + 180180. * Lshb) * pow(sh, 15) +
2314 16. * (-1.0503341e7 + 180180. * Lshb) * pow(sh, 16) +
2315 (3.8989933e7 - 360360. * Lshb) * pow(sh, 17) -
2316 4.262544e6 * pow(sh, 18)) +
2317 4.3974030032610975e-6 * pow(-1 + sh, -10) * pow(sh, -16)*
2318 (8330. + 1225. * sh - 385185. * pow(sh, 2) -
2319 1.565725e6 * pow(sh, 3) - 766913. * pow(sh, 4) +
2320 8.101569e6 * pow(sh, 5) + 1.6471637e7 * pow(sh, 6) -
2321 1.4354375e7 * pow(sh, 7) + 3.953480265e9 * pow(sh, 8) -
2322 3.3767434535e10 * pow(sh, 9) -
2323 7.56756e7 * pow(3.141592653589793, 2) * pow(-1 + sh, 7) *
2324 pow(sh, 9) + 1.25322516107e11 * pow(sh, 10) -
2325 2.66443744245e11 * pow(sh, 11) +
2326 3.52730324065e11 * pow(sh, 12) -
2327 2.89748672815e11 * pow(sh, 13) +
2328 1.29737902497e11 * pow(sh, 14) -
2329 9.132479783e9 * pow(sh, 15) -
2330 2.0967436048e10 * pow(sh, 16) +
2331 9.674219718e9 * pow(sh, 17) -
2332 2.08073817e9 * pow(sh, 18) +
2333 2.119593546e9 * pow(sh, 19) -
2334 2.784214188e9 * pow(sh, 20) +
2335 2.248987986e9 * pow(sh, 21) -
2336 1.186673418e9 * pow(sh, 22) + 3.6469845e8 * pow(sh, 23) -
2337 5.0148315e7 * pow(sh, 24) + 720720. * pow(sh, 25))) *
2338 pow(z, 9);
2339 else
2340 res += (-6036.39383687799 - 90657.25321279526 * (1. - sh) -
2341 651118.7801087499 * pow(1. - sh, 2) -
2342 3.139904668840056e6 * pow(1. - sh, 3) +
2343 log(z)*(-10946.705068508434 -
2344 103756.33337255889 * (1. - sh) -
2345 572261.3476707039 * pow(1. - sh, 2) -
2346 2.3444993879405814e6 * pow(1. - sh, 3) -
2347 7.869957280883137e6 * pow(1. - sh, 4)) -
2348 1.1770925711253678e7 * pow(1. - sh, 4)) * pow(z, 9);
2349 }
2350
2351 if (19 <= maxpow) {
2352 if (sh < .900001)
2353 res += 0.;
2354 else
2355 res += 0.;
2356 }
2357
2358 if (20 <= maxpow) {
2359 if (sh < .900001)
2360 res += (6034.340140939684 * Li2sh * pow(-1 + sh, -3) * pow(sh, -8) +
2361 6034.340140939684 * pow(Lsh, 2) * pow(-1 + sh, -3) *
2362 pow(sh, -8) - lz *
2363 (6034.340140939684 * Lsh * pow(-1 + sh, -3) * pow(sh, -8) +
2364 0.00024625456818262145 * pow(-1 + sh, -2) * pow(sh, -18)*
2365 (504. + 9464. * sh + 83804. * pow(sh, 2) +
2366 463964. * pow(sh, 3) + 1.792004e6 * pow(sh, 4) +
2367 5.082116e6 * pow(sh, 5) + 1.0736996e7 * pow(sh, 6) +
2368 1.6220516e7 * pow(sh, 7) + 1.2878996e7 * pow(sh, 8) -
2369 2.73934804e8 * pow(sh, 9) +
2370 3.15821466e8 * pow(sh, 10) -
2371 9.8670339e7 * pow(sh, 11) -
2372 2.3977539e7 * pow(sh, 12) + 157761. * pow(sh, 13) +
2373 4.274181e6 * pow(sh, 14) + 2.899395e6 * pow(sh, 15) +
2374 1.241235e6 * pow(sh, 16) + 359415. * pow(sh, 17) +
2375 56385. * pow(sh, 18))) +
2376 0.00024625456818262145 * Lsh * pow(-1 + sh, -12) *
2377 pow(sh, -18)*(1008. + 8848. * sh + 23688. * pow(sh, 2) -
2378 17352. * pow(sh, 3) - 212592. * pow(sh, 4) -
2379 311184. * pow(sh, 5) + 400176. * pow(sh, 6) +
2380 1.492176e6 * pow(sh, 7) - 255024. * pow(sh, 8) -
2381 2.64398904e8 * pow(sh, 9) -
2382 6. * (-5.11641281e8 + 4.08408e6 * Lshb) * pow(sh, 10) +
2383 9. * (-1.747237201e9 + 2.450448e7 * Lshb) * pow(sh, 11) -
2384 1989. * (-2.3808319e7 + 443520. * Lshb) * pow(sh, 12) +
2385 1848. * (-5.0928893e7 + 1.11384e6 * Lshb) * pow(sh, 13) -
2386 13104. * (-9.960259e6 + 235620. * Lshb) * pow(sh, 14) +
2387 3528. * (-3.6704249e7 + 875160. * Lshb) * pow(sh, 15) -
2388 168. * (-5.49270061e8 + 1.225224e7 * Lshb) * pow(sh, 16) +
2389 72. * (-6.45450961e8 + 1.225224e7 * Lshb) * pow(sh, 17) -
2390 288. * (-5.4964186e7 + 765765. * Lshb) * pow(sh, 18) +
2391 (-3.301634542e9 + 2.450448e7 * Lshb) * pow(sh, 19) +
2392 3.2083623e8 * pow(sh, 20)) -
2393 9.77200667391355e-8 * pow(-1 + sh, -11) * pow(sh, -18)*
2394 (268128. + 50176. * sh - 1.5037316e7 * pow(sh, 2) -
2395 7.0758368e7 * pow(sh, 3) - 6.454424e7 * pow(sh, 4) +
2396 3.47363296e8 * pow(sh, 5) + 9.86787592e8 * pow(sh, 6) +
2397 3.5646688e7 * pow(sh, 7) - 4.264570016e9 * pow(sh, 8) +
2398 6.1791288328e11 * pow(sh, 9) -
2399 5.890389956722e12 * pow(sh, 10) +
2400 1.02918816e10 * pow(3.141592653589793, 2) *
2401 pow(-1 + sh, 8) * pow(sh, 10) +
2402 2.5054270208126e13 * pow(sh, 11) -
2403 6.2290275001696e13 * pow(sh, 12) +
2404 9.9547394852612e13 * pow(sh, 13) -
2405 1.0492568190538e14 * pow(sh, 14) +
2406 7.0557905411966e13 * pow(sh, 15) -
2407 2.5585687891288e13 * pow(sh, 16) +
2408 2.41116416108e11 * pow(sh, 17) +
2409 4.002654161834e12 * pow(sh, 18) -
2410 1.418993445915e12 * pow(sh, 19) -
2411 5.1123112488e10 * pow(sh, 20) +
2412 3.91122982404e11 * pow(sh, 21) -
2413 5.60776090644e11 * pow(sh, 22) +
2414 5.66827442118e11 * pow(sh, 23) -
2415 3.8373727824e11 * pow(sh, 24) +
2416 1.699988427e11 * pow(sh, 25) -
2417 4.480654338e10 * pow(sh, 26) +
2418 5.447537865e9 * pow(sh, 27) - 6.48648e7 * pow(sh, 28))) *
2419 pow(z, 10);
2420 else
2421 res += (-22861.233438269435 - 358348.4866943795 * (1. - sh) -
2422 2.7784028263374018e6 * pow(1. - sh, 2) -
2423 1.4518829460769238e7 * pow(1. - sh, 3) +
2424 log(z)*(-41067.519729237596 -
2425 427724.1939873684 * (1. - sh) -
2426 2.5624965034840526e6 * pow(1. - sh, 2) -
2427 1.1344087093543807e7 * pow(1. - sh, 3) -
2428 4.098677600641895e7 * pow(1. - sh, 4)) -
2429 5.88118166357725e7 * pow(1. - sh, 4)) * pow(z, 10);
2430 }
2431 }
2432 return res;
2433}
Li3
cd Li3(cd x)
Definition: hpl.h:1016
Li2
cd Li2(cd x)
Definition: hpl.h:1011

◆ F_27re()

double F_2::F_27re ( double  muh,
double  z,
double  sh,
int  maxpow = 20 
)

Definition at line 21 of file F_2.cpp.

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 = 6.85597 + 5.135802469135802 * lmu + 12.4502 * sh +
39 0.0987654 * Lsh * sh + 1.333335 * lz * sh + 13.2214 * z +
40 15.6523 * lz * z + 155.555 * sh * z - 6.22222 * Lsh * sh * z +
41 10.20305 * lz * sh * z - 1.77778 * Lsh * lz * sh * z -
42 0.88889 * z * lz2 + 6.73755 * sh * z * lz2 -
43 0.29629625 * z * lz3 - 0.29629625 * sh * z * lz3 +
44 0.148148125 * sh * z * pow(lz, 4) + 116.815 * sh2 +
45 0.0987654 * Lsh * sh2 + 35.03385 * lz * sh2 +
46 542.972 * z * sh2 - 14.2222 * Lsh * z * sh2 -
47 44.79855 * lz * z * sh2 - 3.555555 * Lsh * lz * z * sh2 +
48 4.44445 * lz2 * sh2 +
49 36.657 * z * lz2 * sh2 +
50 0.29629625 * lz3 * sh2 -
51 0.88888875 * z * lz3 * sh2 +
52 0.444444375 * z * pow(lz, 4) * sh2 + 251.971 * sh3 +
53 0.0987654 * Lsh * sh3 + 90.6275 * lz * sh3 +
54 1136.13 * z * sh3 - 23.1111 * Lsh * z * sh3 -
55 127.97 * lz * z * sh3 - 5.33335 * Lsh * lz * z * sh3 +
56 9.333325 * lz2 * sh3 +
57 86.6475 * z * lz2 * sh3 +
58 0.88888875 * lz3 * sh3 -
59 2.074075 * z * lz3 * sh3 +
60 0.8888875 * z * pow(lz, 4) * sh3 +
61 0.000646678 * sh3 * pow(z, -2) -
62 0.0333333 * sh2 * pow(z, -1) -
63 5.68087 * sh3 * pow(z, -1) -
64 1.466665 * lz * sh3 * pow(z, -1) -
65 0.14814825 * lz2 * sh3 * pow(z, -1) +
66 sh3*(23.3946 * pow(z, -0.5) - 959.179 * sqrtz) -
67 70.1839 * sh * sqrtz - 421.103 * sh2 * sqrtz -
68 11.6973 * pow(z, 1.5) - 11.182 * z2 +
69 13.9904 * lz * z2 - 68.5374 * sh * z2 +
70 27.9808 * Lsh * sh * z2 + 102.242 * lz * sh * z2 -
71 15.55555 * sh * lz2 * z2 -
72 3.55555 * Lsh * sh * lz2 * z2 -
73 0.29629625 * lz3 * z2 -
74 1.777775 * sh * lz3 * z2 -
75 143.29 * sh2 * z2 +
76 83.9424 * Lsh * sh2 * z2 +
77 248.3745 * lz * sh2 * z2 -
78 7.1111 * Lsh * lz * sh2 * z2 -
79 48.4445 * lz2 * sh2 * z2 -
80 10.666675 * Lsh * lz2 * sh2 * z2 -
81 4.44445 * lz3 * sh2 * z2 -
82 271.07 * sh3 * z2 +
83 164.329 * Lsh * sh3 * z2 +
84 435.5445 * lz * sh3 * z2 -
85 24.8889 * Lsh * lz * sh3 * z2 -
86 106.37025 * lz2 * sh3 * z2 -
87 21.333325 * Lsh * lz2 * sh3 * z2 -
88 8.2963 * lz3 * sh3 * z2 + 7.26787 * z3 -
89 8.98765 * lz * z3 - 70.5057 * sh * z3 -
90 40.4253 * Lsh * sh * z3 - 56.869 * lz * sh * z3 -
91 3.555555 * Lsh * lz * sh * z3 +
92 6.222225 * lz2 * z3 +
93 21.925925 * sh * lz2 * z3 +
94 3.55555 * Lsh * sh * lz2 * z3 -
95 228.849 * sh2 * z3 -
96 165.257 * Lsh * sh2 * z3 -
97 115.931 * lz * sh2 * z3 -
98 7.1111 * Lsh * lz * sh2 * z3 +
99 62.37025 * lz2 * sh2 * z3 +
100 14.222225 * Lsh * lz2 * sh2 * z3 -
101 464.161 * sh3 * z3 -
102 416.697 * Lsh * sh3 * z3 -
103 175.3475 * lz * sh3 * z3 -
104 3.555555 * Lsh * lz * sh3 * z3 +
105 144.14825 * lz2 * sh3 * z3 +
106 35.5555 * 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 += (5.135802469135802 * lmu +
121 1.7777777777777777 * sh * pow(ash, 2) * pow(-1 + sh, -4) -
122 0.04938271604938271 * Lsh * sh *
123 (-29. + 18. * Lshb * (-1. + sh) + 47. * sh) * pow(-1 + sh, -2)\
124 - 0.8888888888888888 * Li2sh * sh * pow(-1 + sh, -1) +
125 0.4444444444444444 * pow(Lsh, 2) * pow(-1 + sh, -3) *
126 pow(sh, 3) + 0.09876543209876543 * ash * sqrt4sh * sqrtsh *
127 pow(-1 + sh, -3) * pow(sh, -1)*
128 (-4. + 9. * sh - 15. * pow(sh, 2) + 4. * pow(sh, 3)) +
129 0.00823045267489712 * pow(-1 + sh, -4)*
130 (pow(-1 + sh, 2)*(785. - 1600. * sh + 833. * pow(sh, 2)) +
131 6. * sh * pow(3.141592653589793, 2)*
132 (-4. + 9. * sh - 9. * pow(sh, 2) + 3. * pow(sh, 3)))) *
133 pow(z, 0);
134 else
135 res += (4.505947183821596 + 1.3035683102929574 * (1. - sh) +
136 5.135802469135802 * log(muh) +
137 0.39579451138872057 * pow(1. - sh, 2) +
138 0.18777843689890833 * pow(1. - sh, 3) +
139 0.10631777305882502 * pow(1. - sh, 4)) * pow(z, 0);
140 }
141
142 if (1 <= maxpow) {
143 if (sh < .900001)
144 res += 0.;
145 else
146 res += 0.;
147 }
148
149 if (2 <= maxpow) {
150 if (sh < .900001)
151 res += (5.333333333333333 * ash * (1. + sh) * sqrt4sh * sqrtsh *
152 pow(-1 + sh, -3) - 0.2962962962962963 * sh * pow(Lsh, 4) *
153 pow(-1 + sh, -3) + 1.7777777777777777 * Li2sh *
154 (-1. + 4. * sh) * pow(-1 + sh, -2) -
155 0.5925925925925926 * (-3. + sh) * pow(Lsh, 3) *
156 pow(-1 + sh, -2) - lz *
157 (16. * pow(Lsh, 2) * pow(9 - 9 * sh, -1) +
158 1.7777777777777777 * Lsh *
159 (2. + 2. * Lshb * (-1. + sh) + sh) * pow(-1 + sh, -2) +
160 3.5555555555555554 * Li2sh * pow(-1 + sh, -1) -
161 0.5925925925925926 * (9. + pow(3.141592653589793, 2)) *
162 pow(-1 + sh, -1)) -
163 1.7777777777777777 * Li3sh * pow(-1 + sh, -3)*
164 (1. + 5. * sh - 4. * pow(sh, 2)) +
165 2.1369900500615007 * pow(-1 + sh, -3)*
166 (-5. + 5. * sh + 2. * pow(sh, 2)) -
167 pow(Lsh, 2)*(3.5555555555555554 * Li2sh * sh *
168 pow(-1 + sh, -3) +
169 0.2962962962962963 * 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 * (17.095920400492005 * sh * pow(-1 + sh, -3) -
174 14.222222222222221 * Li3sh * sh * pow(-1 + sh, -3) +
175 1.7777777777777777 * Li2sh * pow(-1 + sh, -3)*
176 (-3. - sh + 2. * pow(sh, 2)) -
177 0.2962962962962963 * 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 10.666666666666666 * pow(ash, 2) * pow(-1 + sh, -4)*
183 (-1. - 3. * pow(sh, 2) + pow(sh, 3)) -
184 0.05925925925925926 * 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 pow(z, 1);
191 else
192 res += (9.093880269665448 + 0.4118591346297644 * (1. - sh) -
193 1.1764123627041028 * pow(1. - sh, 2) -
194 1.9623078784430308 * pow(1. - sh, 3) +
195 log(z)*(-2.6666666666666665 -
196 1.7777777777777777 * (1. - sh) -
197 1.4320987654320987 * pow(1. - sh, 2) -
198 1.2296296296296296 * pow(1. - sh, 3) -
199 1.0903703703703704 * pow(1. - sh, 4)) -
200 2.3203834816527733 * pow(1. - sh, 4)) * pow(z, 1);
201 }
202
203 if (3 <= maxpow) {
204 if (sh < .900001)
205 res += -1.1851851851851851 * (2. + sh) * pow(3.141592653589793, 2) *
206 pow(sh, -1) * pow(z, 1.5);
207 else
208 res += (-35.09192675942883 - 23.39461783961922 * (1. - sh) -
209 23.39461783961922 * pow(1. - sh, 2) -
210 23.39461783961922 * pow(1. - sh, 3) -
211 23.39461783961922 * pow(1. - sh, 4)) * pow(z, 1.5);
212 }
213
214 if (4 <= maxpow) {
215 if (sh < .900001)
216 res += (1.7777777777777777 * Li3sh * (5. + 3. * sh) * pow(-1 + sh, -3) -
217 1.7777777777777777 * Li3shb * (1. + 6. * sh) *
218 pow(-1 + sh, -3) - 0.8888888888888888 * pow(Lsh, 3) *
219 pow(-1 + sh, -3) + 5.333333333333333 * ash * (-3. + sh) *
220 sqrt4sh * sqrtsh * pow(-1 + sh, -3) * pow(sh, 2) -
221 2.1369900500615007 * pow(-1 + sh, -4)*
222 (-5. + 8. * sh + 3. * pow(sh, 2)) -
223 1.7777777777777777 * Li2sh * pow(-1 + sh, -3) * pow(sh, -1)*
224 (3. - 10. * sh + 8. * pow(sh, 2)) +
225 5.333333333333333 * pow(ash, 2) * pow(-1 + sh, -4) * pow(sh, 2)*
226 (2. + 9. * sh - 6. * pow(sh, 2) + pow(sh, 3)) -
227 1.7777777777777777 * cl2 * sqrt4sh * sqrtsh * pow(-1 + sh, -3)*
228 (-4. - 3. * pow(sh, 2) + pow(sh, 3)) -
229 Lsh * (32. * sh * pow(ash, 2) * pow(-1 + sh, -4) +
230 1.7777777777777777 * Li2sh * (4. + sh) *
231 pow(-1 + sh, -3) +
232 1.7777777777777777 * ash * sqrt4sh * sqrtsh *
233 pow(-1 + sh, -3)*(-4. - 3. * pow(sh, 2) + pow(sh, 3)) +
234 0.14814814814814814 * pow(-1 + sh, -3) * pow(sh, -2)*
235 (-18. + (57. + 36. * Lshb) * sh -
236 6. * (5. + 20. * Lshb + pow(3.141592653589793, 2)) *
237 pow(sh, 2) + (-93. + 96. * Lshb +
238 50. * pow(3.141592653589793, 2)) * pow(sh, 3))) +
239 0.4444444444444444 * pow(Lsh, 2) * pow(-1 + sh, -4) *
240 pow(sh, -2)*(-4. + 7. * sh + (5. + 6. * Lshb) * pow(sh, 2) -
241 (25. + 8. * Lshb) * pow(sh, 3) +
242 (11. + 2. * Lshb) * pow(sh, 4)) -
243 pow(lz, 2)*(-0.8888888888888888 * Lsh * (1. + 6. * sh) *
244 pow(-1 + sh, -3) +
245 0.4444444444444444 * pow(-1 + sh, -2) * pow(sh, -2)*
246 (1. - 2. * sh + 8. * pow(sh, 2) + 10. * pow(sh, 3) -
247 4. * pow(sh, 4) + pow(sh, 5))) -
248 lz * (64. * sh * pow(ash, 2) * pow(-1 + sh, -4) +
249 1.7777777777777777 * Li2sh * (1. + 6. * sh) *
250 pow(-1 + sh, -3) +
251 0.8888888888888888 * pow(Lsh, 2) * pow(-1 + sh, -2) +
252 3.5555555555555554 * ash * sqrt4sh * sqrtsh *
253 pow(-1 + sh, -3)*(-4. - 3. * pow(sh, 2) + pow(sh, 3)) +
254 0.8888888888888888 * Lsh * pow(-1 + sh, -3) * pow(sh, -2)*
255 (2. - 3. * sh + 2. * (1. + Lshb) * pow(sh, 2) +
256 3. * (-1. + 4. * Lshb) * pow(sh, 3)) -
257 0.14814814814814814 * pow(-1 + sh, -4) * pow(sh, -2)*
258 (2. * pow(3.141592653589793, 2) * pow(sh, 2)*
259 (-1. + sh + 6. * pow(sh, 2)) +
260 3. * pow(-1 + sh, 2)*
261 (3. - 8. * sh + 8. * pow(sh, 2) + 20. * pow(sh, 3) -
262 14. * pow(sh, 4) + 3. * pow(sh, 5)))) -
263 0.07407407407407407 * pow(-1 + sh, -4) * pow(sh, -2)*
264 (-432. * cl3 * pow(sh, 3) +
265 3. * pow(-1 + sh, 2)*
266 (7. - 64. * sh + 108. * pow(sh, 2) + 64. * pow(sh, 3) -
267 42. * pow(sh, 4) + 7. * pow(sh, 5)) +
268 2. * pow(3.141592653589793, 2)*
269 (-6. + 45. * sh - 133. * pow(sh, 2) + 157. * pow(sh, 3) -
270 59. * pow(sh, 4) + 12. * pow(sh, 5) - 12. * pow(sh, 6) +
271 2. * pow(sh, 7)))) * pow(z, 2);
272 else
273 res += pow(z, 2)*(3.8858229319704556 +
274 5.647852916167452 * (1. - sh) +
275 5.03115350102676 * pow(1. - sh, 2) +
276 6.6118231676761265 * pow(1. - sh, 3) +
277 log(z)*(-10.515810650303592 -
278 3.3659736724084177 * (1. - sh) -
279 7.052871337161167 * pow(1. - sh, 2) -
280 9.929763758132738 * pow(1. - sh, 3) -
281 12.684606769216838 * pow(1. - sh, 4)) +
282 9.708947367679775 * pow(1. - sh, 4) +
283 (-0.5925925925925926 -
284 0.6666666666666666 * (1. - sh) -
285 1.4222222222222223 * pow(1. - sh, 2) -
286 1.8074074074074074 * pow(1. - sh, 3) -
287 2.2222222222222223 * pow(1. - sh, 4)) * pow(log(z), 2));
288 }
289
290 if (5 <= maxpow) {
291 if (sh < .900001)
292 res += -0.1580246913580247 * pow(3.141592653589793, 2) * pow(sh, -3)*
293 (3. + 14. * sh + 3. * pow(sh, 2)) * pow(z, 2.5);
294 else
295 res += (-31.192823786158957 - 62.385647572317914 * (1. - sh) -
296 98.25739492640072 * pow(1. - sh, 2) -
297 138.80806584840735 * pow(1. - sh, 3) -
298 184.03766033833784 * pow(1. - sh, 4)) * pow(z, 2.5);
299 }
300
301 if (6 <= maxpow) {
302 if (sh < .900001)
303 res += (-7.111111111111111 * Li3shb * sh * pow(-1 + sh, -4) +
304 3.5555555555555554 * Li3sh * pow(-1 + sh, -3) * pow(sh, -1) -
305 1.1851851851851851 * pow(Lsh, 3) * pow(-1 + sh, -3) *
306 pow(sh, -1) + 4.273980100123001 * pow(-1 + sh, -4) *
307 pow(sh, -1)*(1. - sh + 2. * pow(sh, 2)) +
308 1.7777777777777777 * Li2sh * pow(-1 + sh, -4) * pow(sh, -2)*
309 (4. - 14. * sh + 18. * pow(sh, 2) - 11. * pow(sh, 3) +
310 pow(sh, 4)) + 1.1851851851851851 * cl2 * sh * sqrt4sh *
311 sqrtsh * pow(-1 + sh, -3)*
312 (-9. - sh + 9. * pow(sh, 2) - 6. * pow(sh, 3) +
313 pow(sh, 4)) + 0.3950617283950617 * ash * sh * sqrt4sh *
314 sqrtsh * pow(-1 + sh, -3)*
315 (27. - sh + 9. * pow(sh, 2) - 6. * pow(sh, 3) +
316 pow(sh, 4)) - 3.5555555555555554 * sh * pow(ash, 2) *
317 pow(-1 + sh, -4)*(-6. + 27. * sh - 30. * pow(sh, 3) +
318 27. * pow(sh, 4) - 9. * pow(sh, 5) + pow(sh, 6)) -
319 Lsh * (-21.333333333333332 * sh * pow(ash, 2) *
320 pow(-1 + sh, -4) +
321 3.5555555555555554 * Li2sh * pow(-1 + sh, -3) *
322 pow(sh, -1) - 1.1851851851851851 * ash * sh * sqrt4sh *
323 sqrtsh * pow(-1 + sh, -3)*
324 (-9. - sh + 9. * pow(sh, 2) - 6. * pow(sh, 3) +
325 pow(sh, 4)) - 0.04938271604938271 * pow(-1 + sh, -4) *
326 pow(sh, -4)*(-10. + 10. * sh +
327 6. * (23. + 24. * Lshb) * pow(sh, 2) -
328 2. * (67. + 252. * Lshb +
329 30. * pow(3.141592653589793, 2)) * pow(sh, 3) +
330 (-163. + 648. * Lshb +
331 60. * pow(3.141592653589793, 2)) * pow(sh, 4) -
332 12. * (-5. + 33. * Lshb +
333 6. * pow(3.141592653589793, 2)) * pow(sh, 5) +
334 9. * (-5. + 4. * Lshb) * pow(sh, 6))) -
335 0.14814814814814814 * pow(Lsh, 2) * pow(-1 + sh, -5) *
336 pow(sh, -4)*(-4. - 4. * sh + 47. * pow(sh, 2) +
337 (-47. + 12. * Lshb) * pow(sh, 3) -
338 2. * (13. + 12. * Lshb) * pow(sh, 4) +
339 4. * (19. + 3. * Lshb) * pow(sh, 5) - 36. * pow(sh, 6) +
340 6. * pow(sh, 7)) - pow(lz, 2)*
341 (-3.5555555555555554 * Lsh * sh * pow(-1 + sh, -4) -
342 0.14814814814814814 * pow(-1 + sh, -3) * pow(sh, -4)*
343 (1. + 3. * sh - 18. * pow(sh, 2) + 25. * pow(sh, 3) -
344 36. * pow(sh, 4) + 26. * pow(sh, 5) - 27. * pow(sh, 6) -
345 22. * pow(sh, 7) + 38. * pow(sh, 8) - 16. * pow(sh, 9) +
346 2. * pow(sh, 10))) -
347 lz * (7.111111111111111 * Li2sh * sh * pow(-1 + sh, -4) -
348 42.666666666666664 * sh * pow(ash, 2) * pow(-1 + sh, -4) -
349 1.7777777777777777 * pow(Lsh, 2) * pow(-1 + sh, -3) *
350 pow(sh, -1) - 2.3703703703703702 * ash * sh * sqrt4sh *
351 sqrtsh * pow(-1 + sh, -3)*
352 (-9. - sh + 9. * pow(sh, 2) - 6. * pow(sh, 3) +
353 pow(sh, 4)) - 0.2962962962962963 * Lsh *
354 pow(-1 + sh, -4) * pow(sh, -4)*
355 (2. + 4. * sh - 27. * pow(sh, 2) + 22. * pow(sh, 3) +
356 14. * pow(sh, 4) - 12. * (1. + 2. * Lshb) * pow(sh, 5) +
357 9. * pow(sh, 6)) -
358 0.04938271604938271 * pow(-1 + sh, -3) * pow(sh, -4)*
359 (-5. + 57. * pow(sh, 2) - 46. * pow(sh, 3) -
360 85. * pow(sh, 4) + 164. * pow(sh, 5) - 73. * pow(sh, 6) +
361 102. * pow(sh, 7) - 40. * pow(sh, 8) - 4. * pow(sh, 9) +
362 2. * pow(sh, 10))) +
363 0.00823045267489712 * pow(-1 + sh, -4) * pow(sh, -4)*
364 (-19. + 46. * sh + 1365. * pow(sh, 2) - 4435. * pow(sh, 3) +
365 3757. * pow(sh, 4) + (610. - 2592. * cl3) * pow(sh, 5) -
366 3103. * pow(sh, 6) + 2113. * pow(sh, 7) +
367 594. * pow(sh, 8) - 1548. * pow(sh, 9) +
368 714. * pow(sh, 10) - 94. * pow(sh, 11) +
369 6. * pow(3.141592653589793, 2)*
370 (6. + 12. * sh - 195. * pow(sh, 2) + 442. * pow(sh, 3) -
371 434. * pow(sh, 4) + 124. * pow(sh, 5) +
372 137. * pow(sh, 6) - 16. * pow(sh, 7) -
373 120. * pow(sh, 8) + 108. * pow(sh, 9) -
374 36. * pow(sh, 10) + 4. * pow(sh, 11)))) * pow(z, 3);
375 else
376 res += pow(z, 3)*(-12.335307775922313 +
377 30.140289422045853 * (1. - sh) +
378 46.569840149902745 * pow(1. - sh, 2) +
379 80.11596831781813 * pow(1. - sh, 3) +
380 log(z)*(-16.636559572212125 +
381 1.4762567309815953 * (1. - sh) -
382 23.052042837781816 * pow(1. - sh, 2) -
383 49.522893482074544 * pow(1. - sh, 3) -
384 78.97537511261919 * pow(1. - sh, 4)) +
385 147.9535188895975 * pow(1. - sh, 4) +
386 (1.3333333333333333 -
387 0.26666666666666666 * (1. - sh) -
388 5.807407407407408 * pow(1. - sh, 2) -
389 10.137566137566138 * pow(1. - sh, 3) -
390 16.084656084656086 * pow(1. - sh, 4)) * pow(log(z), 2));
391 }
392
393 if (7 <= maxpow) {
394 if (sh < .900001)
395 res += -0.013544973544973546 * pow(3.141592653589793, 2) * pow(sh, -5)*
396 (15. + 108. * sh + 314. * pow(sh, 2) + 108. * pow(sh, 3) +
397 15. * pow(sh, 4)) * pow(z, 3.5);
398 else
399 res += (-74.8627770867815 - 224.58833126034452 * (1. - sh) -
400 471.6354956467235 * pow(1. - sh, 2) -
401 838.4631033719528 * pow(1. - sh, 3) -
402 1349.5352405197486 * pow(1. - sh, 4)) * pow(z, 3.5);
403 }
404
405 if (8 <= maxpow) {
406 if (sh < .900001)
407 res += (-7.123300166871669 * pow(-1 + sh, -3) * pow(sh, -2) +
408 5.925925925925926 * Li3sh * pow(-1 + sh, -3) * pow(sh, -2) -
409 1.9753086419753085 * pow(Lsh, 3) * pow(-1 + sh, -3) *
410 pow(sh, -2) - 1.7777777777777777 * cl2 * sh * sqrt4sh * sqrtsh *
411 (8. + 6. * sh - 6. * pow(sh, 2) + pow(sh, 3)) +
412 0.2962962962962963 * Li2sh * pow(-1 + sh, -5) * pow(sh, -3)*
413 (-50. + 230. * sh - 420. * pow(sh, 2) + 380. * pow(sh, 3) -
414 146. * pow(sh, 4) + 15. * pow(sh, 5)) -
415 0.2962962962962963 * ash * sh * sqrt4sh * sqrtsh *
416 pow(-1 + sh, -3)*(16. + 72. * sh + 18. * pow(sh, 2) -
417 203. * pow(sh, 3) + 189. * pow(sh, 4) - 63. * pow(sh, 5) +
418 7. * pow(sh, 6)) + 5.333333333333333 * pow(ash, 2) *
419 pow(-1 + sh, -4) * pow(sh, 2)*
420 (36. - 60. * sh + 99. * pow(sh, 3) - 112. * pow(sh, 4) +
421 54. * pow(sh, 5) - 12. * pow(sh, 6) + pow(sh, 7)) -
422 Lsh * (5.925925925925926 * Li2sh * pow(-1 + sh, -3) *
423 pow(sh, -2) + 1.7777777777777777 * ash * sh * sqrt4sh *
424 sqrtsh * (8. + 6. * sh - 6. * pow(sh, 2) + pow(sh, 3)) -
425 0.00823045267489712 * pow(-1 + sh, -5) * pow(sh, -6)*
426 (21. - 10. * sh - 307. * pow(sh, 2) -
427 (283. + 1800. * Lshb) * pow(sh, 3) +
428 5. * (437. + 1656. * Lshb +
429 120. * pow(3.141592653589793, 2)) * pow(sh, 4) -
430 2. * (1081. + 7560. * Lshb +
431 600. * pow(3.141592653589793, 2)) * pow(sh, 5) +
432 (253. + 13680. * Lshb +
433 600. * pow(3.141592653589793, 2)) * pow(sh, 6) +
434 (861. - 5256. * Lshb) * pow(sh, 7) +
435 6. * (49. + 90. * Lshb) * pow(sh, 8) - 78. * pow(sh, 9)))\
436 - 0.04938271604938271 * pow(Lsh, 2) * pow(-1 + sh, -6) *
437 pow(sh, -6)*(6. + 14. * sh - 30. * pow(sh, 2) -
438 255. * pow(sh, 3) + 729. * pow(sh, 4) +
439 60. * Lshb * pow(-1 + sh, 3) * pow(sh, 4) -
440 585. * pow(sh, 5) - 165. * pow(sh, 6) + 541. * pow(sh, 7) -
441 270. * pow(sh, 8) + 45. * pow(sh, 9)) -
442 0.024691358024691357 * pow(lz, 2) * pow(sh, -6)*
443 (3. + 25. * sh + 90. * pow(sh, 2) - 60. * pow(sh, 3) +
444 5. * pow(sh, 4) - 3. * pow(sh, 5) - 144. * pow(sh, 6) -
445 252. * pow(sh, 7) + 72. * pow(sh, 8) + 288. * pow(sh, 9) -
446 144. * pow(sh, 10) + 18. * pow(sh, 11)) -
447 lz * (-2.962962962962963 * pow(Lsh, 2) * pow(-1 + sh, -3) *
448 pow(sh, -2) + 3.5555555555555554 * ash * sh * sqrt4sh *
449 sqrtsh * (8. + 6. * sh - 6. * pow(sh, 2) + pow(sh, 3)) -
450 0.09876543209876543 * Lsh * pow(-1 + sh, -5) * pow(sh, -6)*
451 (-3. - 10. * sh + 5. * pow(sh, 2) + 185. * pow(sh, 3) -
452 425. * pow(sh, 4) + 343. * pow(sh, 5) -
453 125. * pow(sh, 6) + 3. * pow(sh, 7) - 15. * pow(sh, 8) +
454 15. * pow(sh, 9)) -
455 0.0008230452674897119 * pow(-1 + sh, -4) * pow(sh, -6)*
456 (105. + 55. * sh - 1480. * pow(sh, 2) + 90. * pow(sh, 3) +
457 10470. * pow(sh, 4) - 25782. * pow(sh, 5) +
458 43242. * pow(sh, 6) - 52678. * pow(sh, 7) +
459 52987. * pow(sh, 8) - 14283. * pow(sh, 9) -
460 23976. * pow(sh, 10) + 3240. * pow(sh, 11) +
461 28080. * pow(sh, 12) - 22680. * pow(sh, 13) +
462 6480. * pow(sh, 14) - 630. * pow(sh, 15))) -
463 0.000013717421124828532 * pow(-1 + sh, -5) * pow(sh, -6)*
464 (-2775. + 5550. * sh + 34425. * pow(sh, 2) +
465 1.48905e6 * pow(sh, 3) - 7.4002e6 * pow(sh, 4) +
466 1.4083748e7 * pow(sh, 5) - 1.4200216e7 * pow(sh, 6) +
467 9.34426e6 * pow(sh, 7) - 5.568515e6 * pow(sh, 8) +
468 141850. * pow(sh, 9) + 4.948647e6 * pow(sh, 10) -
469 27324. * pow(sh, 11) - 8.9613e6 * pow(sh, 12) +
470 9.8388e6 * pow(sh, 13) - 4.6764e6 * pow(sh, 14) +
471 1.03725e6 * pow(sh, 15) - 86850. * pow(sh, 16) +
472 1200. * pow(3.141592653589793, 2)*
473 (9. + 30. * sh - 15. * pow(sh, 2) - 1245. * pow(sh, 3) +
474 4325. * pow(sh, 4) - 6463. * pow(sh, 5) +
475 5357. * pow(sh, 6) - 2657. * pow(sh, 7) +
476 295. * pow(sh, 8) + 1405. * pow(sh, 9) -
477 1014. * pow(sh, 10) - 1782. * pow(sh, 11) +
478 3798. * pow(sh, 12) - 2988. * pow(sh, 13) +
479 1188. * pow(sh, 14) - 234. * pow(sh, 15) +
480 18. * pow(sh, 16)))) * pow(z, 4);
481 else
482 res += pow(z, 4)*(-24.99645604544183 +
483 176.89749924459056 * (1. - sh) +
484 310.586379087356 * pow(1. - sh, 2) +
485 603.5051355323303 * pow(1. - sh, 3) +
486 log(z)*(-36.21914373721251 +
487 37.13272398412609 * (1. - sh) -
488 85.48808015010837 * pow(1. - sh, 2) -
489 255.76022141568095 * pow(1. - sh, 3) -
490 462.83148077351 * pow(1. - sh, 4)) +
491 1307.9886664553635 * pow(1. - sh, 4) +
492 (2.5185185185185186 -
493 1.4814814814814814 * (1. - sh) -
494 30.666666666666668 * pow(1. - sh, 2) -
495 58.46913580246913 * pow(1. - sh, 3) -
496 107.30864197530865 * pow(1. - sh, 4)) * pow(log(z), 2));
497 }
498
499 if (9 <= maxpow) {
500 if (sh < .900001)
501 res += -0.0032249937011841773 * pow(3.141592653589793, 2) * pow(sh, -7)*
502 (35. + 330. * sh + 1389. * pow(sh, 2) + 3212. * pow(sh, 3) +
503 1389. * pow(sh, 4) + 330. * pow(sh, 5) + 35. * pow(sh, 6)) *
504 pow(z, 4.5);
505 else
506 res += (-213.8936488193757 - 855.5745952775028 * (1. - sh) -
507 2235.1886301624763 * pow(1. - sh, 2) -
508 4759.133686231109 * pow(1. - sh, 3) -
509 8947.24772070335 * pow(1. - sh, 4)) * pow(z, 4.5);
510 }
511
512 if (10 <= maxpow) {
513 if (sh < .900001)
514 res += (-14.958930350430506 * pow(-1 + sh, -3) * pow(sh, -3) +
515 12.444444444444445 * Li3sh * pow(-1 + sh, -3) * pow(sh, -3) -
516 4.148148148148148 * pow(Lsh, 3) * pow(-1 + sh, -3) *
517 pow(sh, -3) + 3.5555555555555554 * cl2 * sqrt4sh * sqrtsh *
518 pow(sh, 2)*(-20. - 11. * sh + 24. * pow(sh, 2) -
519 9. * pow(sh, 3) + pow(sh, 4)) +
520 0.11851851851851852 * ash * sqrt4sh * sqrtsh * pow(-1 + sh, -3) *
521 pow(sh, 2)*(630. - 1853. * sh - 99. * pow(sh, 2) +
522 4458. * pow(sh, 3) - 5217. * pow(sh, 4) +
523 2538. * pow(sh, 5) - 564. * pow(sh, 6) + 47. * pow(sh, 7)) -
524 0.5925925925925926 * Li2sh * pow(-1 + sh, -6) * pow(sh, -4)*
525 (-63. + 355. * sh - 826. * pow(sh, 2) + 1008. * pow(sh, 3) -
526 665. * pow(sh, 4) + 213. * pow(sh, 5) - 7. * pow(sh, 7) +
527 pow(sh, 8)) - 10.666666666666666 * pow(ash, 2) *
528 pow(-1 + sh, -4) * pow(sh, 2)*
529 (10. - 90. * sh + 165. * pow(sh, 2) - 333. * pow(sh, 4) +
530 445. * pow(sh, 5) - 275. * pow(sh, 6) + 90. * pow(sh, 7) -
531 15. * pow(sh, 8) + pow(sh, 9)) -
532 Lsh * (12.444444444444445 * Li2sh * pow(-1 + sh, -3) *
533 pow(sh, -3) - 3.5555555555555554 * ash * sqrt4sh * sqrtsh *
534 pow(sh, 2)*(-20. - 11. * sh + 24. * pow(sh, 2) -
535 9. * pow(sh, 3) + pow(sh, 4)) -
536 0.0004938271604938272 * pow(-1 + sh, -6) * pow(sh, -8)*
537 (-162. + 36. * sh + 2914. * pow(sh, 2) +
538 5862. * pow(sh, 3) +
539 30. * (-767. + 2520. * Lshb) * pow(sh, 4) -
540 8. * (2131. + 53250. * Lshb +
541 2625. * pow(3.141592653589793, 2)) * pow(sh, 5) +
542 8. * (12113. + 123900. * Lshb +
543 7875. * pow(3.141592653589793, 2)) * pow(sh, 6) -
544 18. * (5693. + 67200. * Lshb +
545 3500. * pow(3.141592653589793, 2)) * pow(sh, 7) +
546 3. * (15101. + 266000. * Lshb +
547 7000. * pow(3.141592653589793, 2)) * pow(sh, 8) -
548 50. * (259. + 5112. * Lshb) * pow(sh, 9) +
549 9600. * pow(sh, 10) +
550 150. * (11. + 56. * Lshb) * pow(sh, 11) -
551 25. * (25. + 48. * Lshb) * pow(sh, 12))) -
552 0.014814814814814815 * pow(Lsh, 2) * pow(-1 + sh, -7) *
553 pow(sh, -8)*(-12. - 42. * sh + 28. * pow(sh, 2) +
554 308. * pow(sh, 3) + 1533. * pow(sh, 4) -
555 8318. * pow(sh, 5) +
556 420. * Lshb * pow(-1 + sh, 4) * pow(sh, 5) +
557 13422. * pow(sh, 6) - 8008. * pow(sh, 7) -
558 1788. * pow(sh, 8) + 4507. * pow(sh, 9) -
559 1540. * pow(sh, 10) - 140. * pow(sh, 11) +
560 160. * pow(sh, 12) - 20. * pow(sh, 13)) -
561 0.007407407407407408 * pow(lz, 2) * pow(sh, -8)*
562 (6. + 63. * sh + 301. * pow(sh, 2) + 840. * pow(sh, 3) -
563 630. * pow(sh, 4) + 99. * pow(sh, 5) - 153. * pow(sh, 6) -
564 6. * pow(sh, 7) - 1200. * pow(sh, 8) - 1440. * pow(sh, 9) -
565 3360. * pow(sh, 10) + 2400. * pow(sh, 11) +
566 5400. * pow(sh, 12) - 4800. * pow(sh, 13) +
567 1320. * pow(sh, 14) - 120. * pow(sh, 15)) -
568 lz * (-6.222222222222222 * pow(Lsh, 2) * pow(-1 + sh, -3) *
569 pow(sh, -3) - 7.111111111111111 * ash * sqrt4sh * sqrtsh *
570 pow(sh, 2)*(-20. - 11. * sh + 24. * pow(sh, 2) -
571 9. * pow(sh, 3) + pow(sh, 4)) -
572 0.02962962962962963 * Lsh * pow(-1 + sh, -6) * pow(sh, -8)*
573 (6. + 27. * sh + 13. * pow(sh, 2) - 141. * pow(sh, 3) -
574 1380. * pow(sh, 4) + 5549. * pow(sh, 5) -
575 8207. * pow(sh, 6) + 6207. * pow(sh, 7) -
576 2809. * pow(sh, 8) + 1080. * pow(sh, 9) -
577 30. * pow(sh, 10) - 30. * pow(sh, 11) + 35. * pow(sh, 12))
578 + 0.00007054673721340387 * pow(-1 + sh, -5) *
579 pow(sh, -8)*(567. + 441. * sh - 9758. * pow(sh, 2) -
580 30275. * pow(sh, 3) + 166495. * pow(sh, 4) -
581 20923. * pow(sh, 5) - 866054. * pow(sh, 6) +
582 1.788427e6 * pow(sh, 7) - 1.255755e6 * pow(sh, 8) -
583 458890. * pow(sh, 9) + 1.258076e6 * pow(sh, 10) -
584 55832. * pow(sh, 11) + 524481. * pow(sh, 12) -
585 2.826e6 * pow(sh, 13) + 901320. * pow(sh, 14) +
586 5.25168e6 * pow(sh, 15) - 7.8771e6 * pow(sh, 16) +
587 5.0799e6 * pow(sh, 17) - 1.7073e6 * pow(sh, 18) +
588 290640. * pow(sh, 19) - 19740. * pow(sh, 20))) -
589 8.398421096833795e-8 * pow(-1 + sh, -6) * pow(sh, -8)*
590 (161406. - 318843. * sh - 1.910657e6 * pow(sh, 2) +
591 738969. * pow(sh, 3) - 6.33135615e8 * pow(sh, 4) +
592 3.654733992e9 * pow(sh, 5) - 8.580730746e9 * pow(sh, 6) +
593 1.0387902666e10 * pow(sh, 7) -
594 6.272402572e9 * pow(sh, 8) + 4.35513965e8 * pow(sh, 9) +
595 2.310469467e9 * pow(sh, 10) -
596 2.213537811e9 * pow(sh, 11) +
597 4.191847021e9 * pow(sh, 12) -
598 8.659496442e9 * pow(sh, 13) +
599 5.00515056e9 * pow(sh, 14) +
600 1.057709688e10 * pow(sh, 15) -
601 2.294859924e10 * pow(sh, 16) +
602 2.03364504e10 * pow(sh, 17) -
603 1.00250472e10 * pow(sh, 18) +
604 2.83732932e9 * pow(sh, 19) - 4.2896364e8 * pow(sh, 20) +
605 2.674812e7 * pow(sh, 21) -
606 58800. * pow(3.141592653589793, 2)*
607 (18. + 81. * sh + 39. * pow(sh, 2) - 423. * pow(sh, 3) -
608 9810. * pow(sh, 4) + 47729. * pow(sh, 5) -
609 95467. * pow(sh, 6) + 103887. * pow(sh, 7) -
610 63289. * pow(sh, 8) + 15730. * pow(sh, 9) +
611 8388. * pow(sh, 10) - 21404. * pow(sh, 11) +
612 46029. * pow(sh, 12) - 50988. * pow(sh, 13) -
613 20160. * pow(sh, 14) + 133320. * pow(sh, 15) -
614 179760. * pow(sh, 16) + 130200. * pow(sh, 17) -
615 56400. * pow(sh, 18) + 14520. * pow(sh, 19) -
616 2040. * pow(sh, 20) + 120. * pow(sh, 21)))) * pow(z, 5);
617 else
618 res += pow(z, 5)*(-56.97595269013286 +
619 864.4668402137501 * (1. - sh) +
620 1722.9691178723424 * pow(1. - sh, 2) +
621 3775.432090316476 * pow(1. - sh, 3) +
622 log(z)*(-109.64319713305599 +
623 219.04552007798918 * (1. - sh) -
624 343.43648455706074 * pow(1. - sh, 2) -
625 1304.051993190421 * pow(1. - sh, 3) -
626 2520.1905777627526 * pow(1. - sh, 4)) +
627 9467.150417064422 * pow(1. - sh, 4) +
628 (9.481481481481481 - 1.7777777777777777 * (1. - sh) -
629 150. * pow(1. - sh, 2) -
630 309.9259259259259 * pow(1. - sh, 3) -
631 648.8888888888889 * pow(1. - sh, 4)) * pow(log(z), 2));
632 }
633
634 if (11 <= maxpow) {
635 if (sh < .900001)
636 res += -0.0002280298576594873 * pow(3.141592653589793, 2) * pow(sh, -9)*
637 (315. + 3640. * sh + 19380. * pow(sh, 2) + 62088. * pow(sh, 3) +
638 124834. * pow(sh, 4) + 62088. * pow(sh, 5) +
639 19380. * pow(sh, 6) + 3640. * pow(sh, 7) + 315. * pow(sh, 8)) *
640 pow(z, 5.5);
641 else
642 res += (-665.4469074380578 - 3327.234537190289 * (1. - sh) -
643 10380.971756033703 * pow(1. - sh, 2) -
644 25686.25062710903 * pow(1. - sh, 3) -
645 55072.86137879326 * pow(1. - sh, 4)) * pow(z, 5.5);
646 }
647
648 if (12 <= maxpow) {
649 if (sh < .900001)
650 res += (-35.90143284103321 * pow(-1 + sh, -3) * pow(sh, -4) +
651 29.866666666666667 * Li3sh * pow(-1 + sh, -3) * pow(sh, -4) -
652 9.955555555555556 * pow(Lsh, 3) * pow(-1 + sh, -3) *
653 pow(sh, -4) - 4.148148148148148 * cl2 * sqrt4sh * sqrtsh *
654 pow(sh, 2)*(-8. + 102. * sh + 39. * pow(sh, 2) -
655 168. * pow(sh, 3) + 102. * pow(sh, 4) - 24. * pow(sh, 5) +
656 2. * pow(sh, 6)) - 0.03950617283950617 * ash * sqrt4sh *
657 sqrtsh * pow(-1 + sh, -3) * pow(sh, 2)*
658 (1236. - 20412. * sh + 48897. * pow(sh, 2) -
659 963. * pow(sh, 3) - 119097. * pow(sh, 4) +
660 165591. * pow(sh, 5) - 103846. * pow(sh, 6) +
661 34110. * pow(sh, 7) - 5685. * pow(sh, 8) + 379. * pow(sh, 9))
662 + 12.444444444444445 * pow(ash, 2) * pow(-1 + sh, -4) *
663 pow(sh, 3)*(-90. + 560. * sh - 999. * pow(sh, 2) +
664 2278. * pow(sh, 4) - 3456. * pow(sh, 5) +
665 2565. * pow(sh, 6) - 1092. * pow(sh, 7) +
666 270. * pow(sh, 8) - 36. * pow(sh, 9) + 2. * pow(sh, 10)) -
667 0.02962962962962963 * Li2sh * pow(-1 + sh, -7) * pow(sh, -5)*
668 (3528. - 23478. * sh + 66420. * pow(sh, 2) -
669 102960. * pow(sh, 3) + 93240. * pow(sh, 4) -
670 47628. * pow(sh, 5) + 10808. * pow(sh, 6) -
671 135. * pow(sh, 9) + 30. * pow(sh, 10)) -
672 Lsh * (29.866666666666667 * Li2sh * pow(-1 + sh, -3) *
673 pow(sh, -4) + 4.148148148148148 * ash * sqrt4sh * sqrtsh *
674 pow(sh, 2)*(-8. + 102. * sh + 39. * pow(sh, 2) -
675 168. * pow(sh, 3) + 102. * pow(sh, 4) -
676 24. * pow(sh, 5) + 2. * pow(sh, 6)) +
677 0.00009876543209876543 * pow(-1 + sh, -7) * pow(sh, -10)*
678 (-440. + 32. * sh + 10212. * pow(sh, 2) +
679 23632. * pow(sh, 3) - 7888. * pow(sh, 4) +
680 168. * (-2921. + 6300. * Lshb) * pow(sh, 5) -
681 18. * (-60791. + 391300. * Lshb +
682 14000. * pow(3.141592653589793, 2)) * pow(sh, 6) +
683 6. * (-91207. + 3.321e6 * Lshb +
684 168000. * pow(3.141592653589793, 2)) * pow(sh, 7) -
685 216. * (3607. + 143000. * Lshb +
686 7000. * pow(3.141592653589793, 2)) * pow(sh, 8) +
687 6. * (202093. + 4.662e6 * Lshb +
688 168000. * pow(3.141592653589793, 2)) * pow(sh, 9) -
689 6. * (113557. + 2.3814e6 * Lshb +
690 42000. * pow(3.141592653589793, 2)) * pow(sh, 10) +
691 15. * (16441. + 216160. * Lshb) * pow(sh, 11) -
692 20060. * pow(sh, 12) - 42310. * pow(sh, 13) -
693 45. * (23. + 900. * Lshb) * pow(sh, 14) +
694 45. * (41. + 200. * Lshb) * pow(sh, 15))) -
695 0.002962962962962963 * pow(Lsh, 2) * pow(-1 + sh, -8) *
696 pow(sh, -10)*(40. + 184. * sh + 40. * pow(sh, 2) -
697 1160. * pow(sh, 3) - 2240. * pow(sh, 4) -
698 16100. * pow(sh, 5) + 134784. * pow(sh, 6) +
699 5040. * Lshb * pow(-1 + sh, 5) * pow(sh, 6) -
700 321315. * pow(sh, 7) + 355935. * pow(sh, 8) -
701 160960. * pow(sh, 9) - 34360. * pow(sh, 10) +
702 63842. * pow(sh, 11) - 18270. * pow(sh, 12) -
703 675. * pow(sh, 14) + 825. * pow(sh, 15) - 150. * pow(sh, 16))
704 - 0.002962962962962963 * pow(lz, 2) * pow(sh, -10)*
705 (10. + 126. * sh + 738. * pow(sh, 2) + 2646. * pow(sh, 3) +
706 6300. * pow(sh, 4) - 5040. * pow(sh, 5) +
707 1194. * pow(sh, 6) - 873. * pow(sh, 7) -
708 1791. * pow(sh, 8) - 10. * pow(sh, 9) -
709 8400. * pow(sh, 10) - 9100. * pow(sh, 11) -
710 11200. * pow(sh, 12) - 46900. * pow(sh, 13) +
711 47600. * pow(sh, 14) + 86450. * pow(sh, 15) -
712 116200. * pow(sh, 16) + 51100. * pow(sh, 17) -
713 9800. * pow(sh, 18) + 700. * pow(sh, 19)) -
714 lz * (-14.933333333333334 * pow(Lsh, 2) * pow(-1 + sh, -3) *
715 pow(sh, -4) + 8.296296296296296 * ash * sqrt4sh * sqrtsh *
716 pow(sh, 2)*(-8. + 102. * sh + 39. * pow(sh, 2) -
717 168. * pow(sh, 3) + 102. * pow(sh, 4) -
718 24. * pow(sh, 5) + 2. * pow(sh, 6)) -
719 0.005925925925925926 * Lsh * pow(-1 + sh, -7) *
720 pow(sh, -10)*(-20. - 112. * sh - 132. * pow(sh, 2) +
721 448. * pow(sh, 3) + 1568. * pow(sh, 4) +
722 16548. * pow(sh, 5) - 99448. * pow(sh, 6) +
723 212137. * pow(sh, 7) - 240168. * pow(sh, 8) +
724 162112. * pow(sh, 9) - 68488. * pow(sh, 10) +
725 15610. * pow(sh, 11) - 980. * pow(sh, 12) +
726 20. * pow(sh, 13) - 105. * pow(sh, 14) +
727 135. * pow(sh, 15)) +
728 4.703115814226925e-6 * pow(-1 + sh, -6) * pow(sh, -10)*
729 (-4620. - 4284. * sh + 102942. * pow(sh, 2) +
730 351078. * pow(sh, 3) + 268254. * pow(sh, 4) -
731 1.062621e7 * pow(sh, 5) + 2.1816102e7 * pow(sh, 6) +
732 1.1713284e7 * pow(sh, 7) - 9.2176614e7 * pow(sh, 8) +
733 1.30993468e8 * pow(sh, 9) -
734 9.7705975e7 * pow(sh, 10) +
735 8.3020137e7 * pow(sh, 11) -
736 1.22513471e8 * pow(sh, 12) +
737 1.48849691e8 * pow(sh, 13) -
738 1.22190192e8 * pow(sh, 14) -
739 1.1648879e8 * pow(sh, 15) + 5.630639e8 * pow(sh, 16) -
740 4.247208e8 * pow(sh, 17) - 8.672076e8 * pow(sh, 18) +
741 2.255526e9 * pow(sh, 19) - 2.3724372e9 * pow(sh, 20) +
742 1.4385273e9 * pow(sh, 21) - 5.355966e8 * pow(sh, 22) +
743 1.205778e8 * pow(sh, 23) - 1.5036e7 * pow(sh, 24) +
744 795900. * pow(sh, 25))) +
745 3.732631598592798e-9 * pow(-1 + sh, -7) * pow(sh, -10)*
746 (1.60524e6 - 3.372768e6 * sh - 2.1255318e7 * pow(sh, 2) +
747 5.1364152e7 * pow(sh, 3) + 1.37438532e8 * pow(sh, 4) -
748 4.2259525308e10 * pow(sh, 5) +
749 2.74794978024e11 * pow(sh, 6) -
750 7.61157740601e11 * pow(sh, 7) +
751 1.144773779814e12 * pow(sh, 8) -
752 9.93234387676e11 * pow(sh, 9) +
753 5.07224614904e11 * pow(sh, 10) -
754 2.38950893986e11 * pow(sh, 11) +
755 2.88773890244e11 * pow(sh, 12) -
756 3.74015495266e11 * pow(sh, 13) +
757 2.45587937594e11 * pow(sh, 14) +
758 5.02610946089e11 * pow(sh, 15) -
759 1.90653668497e12 * pow(sh, 16) +
760 2.1081380789e12 * pow(sh, 17) +
761 1.1357177076e12 * pow(sh, 18) -
762 6.24126592845e12 * pow(sh, 19) +
763 8.68889605815e12 * pow(sh, 20) -
764 6.88407273225e12 * pow(sh, 21) +
765 3.47059394955e12 * pow(sh, 22) -
766 1.1307208248e12 * pow(sh, 23) +
767 2.301705126e11 * pow(sh, 24) -
768 2.65567113e10 * pow(sh, 25) + 1.3226913e9 * pow(sh, 26) -
769 264600. * pow(3.141592653589793, 2)*
770 (60. + 336. * sh + 396. * pow(sh, 2) -
771 1344. * pow(sh, 3) - 4704. * pow(sh, 4) -
772 127764. * pow(sh, 5) + 807808. * pow(sh, 6) -
773 2.054287e6 * pow(sh, 7) + 2.890968e6 * pow(sh, 8) -
774 2.434312e6 * pow(sh, 9) + 1.206688e6 * pow(sh, 10) -
775 345954. * pow(sh, 11) + 158816. * pow(sh, 12) -
776 132224. * pow(sh, 13) - 435459. * pow(sh, 14) +
777 2.009791e6 * pow(sh, 15) - 3.32854e6 * pow(sh, 16) +
778 895300. * pow(sh, 17) + 6.5037e6 * pow(sh, 18) -
779 1.38369e7 * pow(sh, 19) + 1.50031e7 * pow(sh, 20) -
780 1.02879e7 * pow(sh, 21) + 4.6809e6 * pow(sh, 22) -
781 1.4084e6 * pow(sh, 23) + 268800. * pow(sh, 24) -
782 29400. * pow(sh, 25) + 1400. * pow(sh, 26)))) * pow(z, 6);
783 else
784 res += pow(z, 6)*(-148.4028349176458 +
785 3950.7161319928528 * (1. - sh) +
786 8850.818659636407 * pow(1. - sh, 2) +
787 21640.381586260777 * pow(1. - sh, 3) +
788 log(z)*(-362.06949684400286 +
789 1092.1268744485408 * (1. - sh) -
790 1419.5191669853152 * pow(1. - sh, 2) -
791 6512.814281606066 * pow(1. - sh, 3) -
792 12931.837463384778 * pow(1. - sh, 4)) +
793 61716.884755626575 * pow(1. - sh, 4) +
794 (36.888888888888886 + 6. * (1. - sh) -
795 722.9481481481481 * pow(1. - sh, 2) -
796 1587.2296296296297 * pow(1. - sh, 3) -
797 3724.4444444444443 * pow(1. - sh, 4)) * pow(log(z), 2));
798 }
799
800 if (13 <= maxpow) {
801 if (sh < .900001)
802 res += -0.00007175764751522327 * pow(3.141592653589793, 2) *
803 pow(sh, -11)*(693. + 9450. * sh + 60305. * pow(sh, 2) +
804 238200. * pow(sh, 3) + 642234. * pow(sh, 4) +
805 1.173308e6 * pow(sh, 5) + 642234. * pow(sh, 6) +
806 238200. * pow(sh, 7) + 60305. * pow(sh, 8) +
807 9450. * pow(sh, 9) + 693. * pow(sh, 10)) * pow(z, 6.5);
808 else
809 res += (-2177.8262425245525 - 13066.957455147318 * (1. - sh) -
810 47367.72077490902 * pow(1. - sh, 2) -
811 133391.85735462885 * pow(1. - sh, 3) -
812 320723.8039660712 * pow(1. - sh, 4)) * pow(z, 6.5);
813 }
814
815 if (14 <= maxpow) {
816 if (sh < .900001)
817 res += (-94.02756220270605 * pow(-1 + sh, -3) * pow(sh, -5) +
818 78.22222222222223 * Li3sh * pow(-1 + sh, -3) * pow(sh, -5) -
819 26.074074074074073 * pow(Lsh, 3) * pow(-1 + sh, -3) *
820 pow(sh, -5) + 2.1333333333333333 * cl2 * sqrt4sh * sqrtsh *
821 pow(sh, 3)*(252. - 1383. * sh - 342. * pow(sh, 2) +
822 2808. * pow(sh, 3) - 2380. * pow(sh, 4) +
823 870. * pow(sh, 5) - 150. * pow(sh, 6) + 10. * pow(sh, 7)) +
824 0.033862433862433865 * ash * sqrt4sh * sqrtsh *
825 pow(-1 + sh, -3) * pow(sh, 3)*
826 (-28035. + 242727. * sh - 521748. * pow(sh, 2) +
827 32319. * pow(sh, 3) + 1.309096e6 * pow(sh, 4) -
828 2.07882e6 * pow(sh, 5) + 1.572282e6 * pow(sh, 6) -
829 674165. * pow(sh, 7) + 166995. * pow(sh, 8) -
830 22266. * pow(sh, 9) + 1237. * pow(sh, 10)) -
831 0.35555555555555557 * Li2sh * pow(-1 + sh, -8) * pow(sh, -6)*
832 (-880. + 6748. * sh - 22484. * pow(sh, 2) +
833 42350. * pow(sh, 3) - 48950. * pow(sh, 4) +
834 34980. * pow(sh, 5) - 14476. * pow(sh, 6) +
835 2770. * pow(sh, 7) - 11. * pow(sh, 11) + 3. * pow(sh, 12)) -
836 6.4 * pow(ash, 2) * pow(-1 + sh, -4) * pow(sh, 3)*
837 (-70. + 1890. * sh - 9345. * pow(sh, 2) +
838 15946. * pow(sh, 3) - 39510. * pow(sh, 5) +
839 66255. * pow(sh, 6) - 56700. * pow(sh, 7) +
840 29358. * pow(sh, 8) - 9520. * pow(sh, 9) +
841 1890. * pow(sh, 10) - 210. * pow(sh, 11) + 10. * pow(sh, 12))
842 - 0.0014109347442680777 * pow(Lsh, 2) * pow(-1 + sh, -9) *
843 pow(sh, -12)*(-60. - 340. * sh - 312. * pow(sh, 2) +
844 1872. * pow(sh, 3) + 4980. * pow(sh, 4) +
845 1620. * pow(sh, 5) + 92970. * pow(sh, 6) -
846 934391. * pow(sh, 7) +
847 27720. * Lshb * pow(-1 + sh, 6) * pow(sh, 7) +
848 2.91171e6 * pow(sh, 8) - 4.537599e6 * pow(sh, 9) +
849 3.782335e6 * pow(sh, 10) - 1.339005e6 * pow(sh, 11) -
850 291378. * pow(sh, 12) + 408230. * pow(sh, 13) -
851 99792. * pow(sh, 14) - 1386. * pow(sh, 17) +
852 1764. * pow(sh, 18) - 378. * pow(sh, 19)) -
853 Lsh * (78.22222222222223 * Li2sh * pow(-1 + sh, -3) *
854 pow(sh, -5) - 2.1333333333333333 * ash * sqrt4sh * sqrtsh *
855 pow(sh, 3)*(252. - 1383. * sh - 342. * pow(sh, 2) +
856 2808. * pow(sh, 3) - 2380. * pow(sh, 4) +
857 870. * pow(sh, 5) - 150. * pow(sh, 6) + 10. * pow(sh, 7))\
858 + 6.718736877467037e-6 * pow(-1 + sh, -9) * pow(sh, -12)*
859 (-3900. + 3800. * sh + 116136. * pow(sh, 2) +
860 213534. * pow(sh, 3) - 423060. * pow(sh, 4) -
861 1.26873e6 * pow(sh, 5) - 2.15436e7 * pow(sh, 6) +
862 1.26680142e8 * pow(sh, 7) -
863 9.702e6 * pow(3.141592653589793, 2) * pow(-1 + sh, 6) *
864 pow(sh, 7) - 2.855415e8 * pow(sh, 8) +
865 3.38516298e8 * pow(sh, 9) -
866 2.13687865e8 * pow(sh, 10) +
867 4.999881e7 * pow(sh, 11) + 1.8377766e7 * pow(sh, 12) +
868 52920. * Lshb * (-1. + sh) * pow(sh, 6)*
869 (-880. + 6748. * sh - 22484. * pow(sh, 2) +
870 42350. * pow(sh, 3) - 48950. * pow(sh, 4) +
871 34980. * pow(sh, 5) - 14476. * pow(sh, 6) +
872 2770. * pow(sh, 7) - 11. * pow(sh, 11) +
873 3. * pow(sh, 12)) - 1.1952947e7 * pow(sh, 13) -
874 421029. * pow(sh, 14) + 1.28772e6 * pow(sh, 15) +
875 235690. * pow(sh, 16) - 631953. * pow(sh, 17) +
876 26754. * pow(sh, 18) + 17934. * pow(sh, 19))) +
877 0.0014109347442680777 * pow(lz, 2) * pow(sh, -12)*
878 (-15. - 220. * sh - 1518. * pow(sh, 2) - 6534. * pow(sh, 3) -
879 19503. * pow(sh, 4) - 41580. * pow(sh, 5) +
880 34650. * pow(sh, 6) - 11094. * pow(sh, 7) +
881 2061. * pow(sh, 8) + 13740. * pow(sh, 9) +
882 12253. * pow(sh, 10) + 15. * pow(sh, 11) +
883 52920. * pow(sh, 12) + 55188. * pow(sh, 13) +
884 61992. * pow(sh, 14) + 49140. * pow(sh, 15) +
885 706860. * pow(sh, 16) - 807030. * pow(sh, 17) -
886 1.307124e6 * pow(sh, 18) + 2.391984e6 * pow(sh, 19) -
887 1.45908e6 * pow(sh, 20) + 434700. * pow(sh, 21) -
888 64260. * pow(sh, 22) + 3780. * pow(sh, 23)) -
889 lz * (-39.111111111111114 * pow(Lsh, 2) * pow(-1 + sh, -3) *
890 pow(sh, -5) - 4.266666666666667 * ash * sqrt4sh * sqrtsh *
891 pow(sh, 3)*(252. - 1383. * sh - 342. * pow(sh, 2) +
892 2808. * pow(sh, 3) - 2380. * pow(sh, 4) +
893 870. * pow(sh, 5) - 150. * pow(sh, 6) + 10. * pow(sh, 7))\
894 - 0.0028218694885361554 * Lsh * pow(-1 + sh, -8) *
895 pow(sh, -12)*(30. + 200. * sh + 356. * pow(sh, 2) -
896 580. * pow(sh, 3) - 3070. * pow(sh, 4) -
897 3880. * pow(sh, 5) - 95410. * pow(sh, 6) +
898 738379. * pow(sh, 7) - 2.056331e6 * pow(sh, 8) +
899 3.10735e6 * pow(sh, 9) - 2.878135e6 * pow(sh, 10) +
900 1.70477e6 * pow(sh, 11) - 636256. * pow(sh, 12) +
901 132944. * pow(sh, 13) - 2380. * pow(sh, 14) -
902 2065. * pow(sh, 15) + 315. * pow(sh, 16) -
903 168. * pow(sh, 17) + 231. * pow(sh, 18)) -
904 2.035980871959708e-7 * pow(-1 + sh, -7) * pow(sh, -12)*
905 (-64350. - 66000. * sh + 1.848594e6 * pow(sh, 2) +
906 7.286499e6 * pow(sh, 3) + 5.743914e6 * pow(sh, 4) -
907 1.6732716e7 * pow(sh, 5) - 8.36674146e8 * pow(sh, 6) +
908 3.086059581e9 * pow(sh, 7) -
909 2.920757103e9 * pow(sh, 8) -
910 4.213007403e9 * pow(sh, 9) +
911 1.3030540952e10 * pow(sh, 10) -
912 1.3445244908e10 * pow(sh, 11) +
913 5.400217599e9 * pow(sh, 12) +
914 4.838723267e9 * pow(sh, 13) -
915 1.4220596345e10 * pow(sh, 14) +
916 1.7384453508e10 * pow(sh, 15) -
917 7.769749144e9 * pow(sh, 16) -
918 1.428417884e9 * pow(sh, 17) -
919 4.8744289353e10 * pow(sh, 18) +
920 1.85048020584e11 * pow(sh, 19) -
921 2.17589171184e11 * pow(sh, 20) -
922 1.46917624392e11 * pow(sh, 21) +
923 8.1335313675e11 * pow(sh, 22) -
924 1.2454621641e12 * pow(sh, 23) +
925 1.1155514832e12 * pow(sh, 24) -
926 6.5679027876e11 * pow(sh, 25) +
927 2.615261418e11 * pow(sh, 26) -
928 6.977252898e10 * pow(sh, 27) +
929 1.19369943e10 * pow(sh, 28) -
930 1.18203624e9 * pow(sh, 29) + 5.143446e7 * pow(sh, 30)))
931 + 1.4689616680805973e-11 * pow(-1 + sh, -8) * pow(sh, -12)*
932 (-2.074545e8 + 4.76982e8 * sh +
933 3.223561968e9 * pow(sh, 2) -
934 1.2229671465e10 * pow(sh, 3) -
935 5.5118379195e10 * pow(sh, 4) +
936 5.758493697e10 * pow(sh, 5) +
937 3.34335296988e13 * pow(sh, 6) -
938 2.46183339844728e14 * pow(sh, 7) +
939 7.88493088730853e14 * pow(sh, 8) -
940 1.41978242154342e15 * pow(sh, 9) +
941 1.554606048182275e15 * pow(sh, 10) -
942 1.04527795567331e15 * pow(sh, 11) +
943 4.00804930228849e14 * pow(sh, 12) +
944 4.89753913432e12 * pow(sh, 13) -
945 2.6147112177326e14 * pow(sh, 14) +
946 4.2032307297505e14 * pow(sh, 15) -
947 3.35740716930395e14 * pow(sh, 16) +
948 2.57962579027846e14 * pow(sh, 17) -
949 1.575614131965377e15 * pow(sh, 18) +
950 5.472481687455111e15 * pow(sh, 19) -
951 8.337459144709044e15 * pow(sh, 20) +
952 1.620077584398966e15 * pow(sh, 21) +
953 1.7052028891101666e16 * pow(sh, 22) -
954 3.5835539060836744e16 * pow(sh, 23) +
955 4.028199224768888e16 * pow(sh, 24) -
956 2.974451143108045e16 * pow(sh, 25) +
957 1.5207708416925024e16 * pow(sh, 26) -
958 5.427604622626956e15 * pow(sh, 27) +
959 1.32696547935336e15 * pow(sh, 28) -
960 2.1153689203878e14 * pow(sh, 29) +
961 1.97724893751e13 * pow(sh, 30) -
962 8.2047522942e11 * pow(sh, 31) +
963 3.20166e7 * pow(3.141592653589793, 2)*
964 (90. + 600. * sh + 1068. * pow(sh, 2) -
965 1740. * pow(sh, 3) - 9210. * pow(sh, 4) -
966 11640. * pow(sh, 5) - 771330. * pow(sh, 6) +
967 5.877289e6 * pow(sh, 7) - 1.8209993e7 * pow(sh, 8) +
968 3.175429e7 * pow(sh, 9) - 3.4335085e7 * pow(sh, 10) +
969 2.335241e7 * pow(sh, 11) - 9.338992e6 * pow(sh, 12) +
970 1.311716e6 * pow(sh, 13) + 1.360208e6 * pow(sh, 14) -
971 2.228227e6 * pow(sh, 15) + 3.717793e6 * pow(sh, 16) -
972 1.4308436e7 * pow(sh, 17) +
973 4.9487425e7 * pow(sh, 18) -
974 9.6430764e7 * pow(sh, 19) +
975 7.2149616e7 * pow(sh, 20) +
976 1.14281496e8 * pow(sh, 21) -
977 4.10382504e8 * pow(sh, 22) +
978 6.13666368e8 * pow(sh, 23) -
979 5.83391592e8 * pow(sh, 24) +
980 3.84934788e8 * pow(sh, 25) -
981 1.80700632e8 * pow(sh, 26) +
982 6.0198768e7 * pow(sh, 27) - 1.389528e7 * pow(sh, 28) +
983 2.10924e6 * pow(sh, 29) - 189000. * pow(sh, 30) +
984 7560. * pow(sh, 31)))) * pow(z, 7);
985 else
986 res += pow(z, 7)*(-430.12069962932856 +
987 17443.091811249233 * (1. - sh) +
988 43453.89662587411 * pow(1. - sh, 2) +
989 117398.73976032245 * pow(1. - sh, 3) +
990 log(z)*(-1257.7516577920273 +
991 5061.433581940173 * (1. - sh) -
992 6031.581645793054 * pow(1. - sh, 2) -
993 32080.9522764348 * pow(1. - sh, 3) -
994 63495.86311123482 * pow(1. - sh, 4)) +
995 375562.95132859563 * pow(1. - sh, 4) +
996 (142.96296296296296 + 62.19259259259259 * (1. - sh) -
997 3445.866666666667 * pow(1. - sh, 2) -
998 7951.792592592593 * pow(1. - sh, 3) -
999 20635.85185185185 * pow(1. - sh, 4)) * pow(log(z), 2));
1000 }
1001
1002 if (15 <= maxpow) {
1003 if (sh < .900001)
1004 res += -0.000012143601887191631 * pow(3.141592653589793, 2) *
1005 pow(sh, -13)*(3003. + 47124. * sh + 349398. * pow(sh, 2) +
1006 1.62554e6 * pow(sh, 3) + 5.297685e6 * pow(sh, 4) +
1007 1.265412e7 * pow(sh, 5) + 2.15477e7 * pow(sh, 6) +
1008 1.265412e7 * pow(sh, 7) + 5.297685e6 * pow(sh, 8) +
1009 1.62554e6 * pow(sh, 9) + 349398. * pow(sh, 10) +
1010 47124. * pow(sh, 11) + 3003. * pow(sh, 12)) * pow(z, 7.5);
1011 else
1012 res += (-7371.104205467717 - 51597.729438274015 * (1. - sh) -
1013 213024.91153801704 * pow(1. - sh, 2) -
1014 672244.7035386559 * pow(1. - sh, 3) -
1015 1.789717263773643e6 * pow(1. - sh, 4)) * pow(z, 7.5);
1016 }
1017
1018 if (16 <= maxpow) {
1019 if (sh < .900001)
1020 res += (-261.9339232789668 * pow(-1 + sh, -3) * pow(sh, -6) +
1021 217.9047619047619 * Li3sh * pow(-1 + sh, -3) * pow(sh, -6) -
1022 72.63492063492063 * pow(Lsh, 3) * pow(-1 + sh, -3) *
1023 pow(sh, -6) - 11.733333333333333 * cl2 * sqrt4sh * sqrtsh *
1024 pow(sh, 3)*(16. - 564. * sh + 2004. * pow(sh, 2) +
1025 294. * pow(sh, 3) - 4650. * pow(sh, 4) +
1026 5035. * pow(sh, 5) - 2500. * pow(sh, 6) +
1027 660. * pow(sh, 7) - 90. * pow(sh, 8) + 5. * pow(sh, 9)) -
1028 0.004232804232804233 * ash * sqrt4sh * sqrtsh *
1029 pow(-1 + sh, -3) * pow(sh, 3)*
1030 (-85472. + 3.302568e6 * sh - 2.0385756e7 * pow(sh, 2) +
1031 4.0397342e7 * pow(sh, 3) - 3.614472e6 * pow(sh, 4) -
1032 1.04197295e8 * pow(sh, 5) + 1.83802625e8 * pow(sh, 6) -
1033 1.60798287e8 * pow(sh, 7) + 8.4097289e7 * pow(sh, 8) -
1034 2.7378339e7 * pow(sh, 9) + 5.441121e6 * pow(sh, 10) -
1035 604569. * pow(sh, 11) + 28789. * pow(sh, 12)) +
1036 35.2 * pow(ash, 2) * pow(-1 + sh, -4) * pow(sh, 4)*
1037 (280. - 3850. * sh + 16128. * pow(sh, 2) -
1038 26340. * pow(sh, 3) + 69345. * pow(sh, 5) -
1039 126120. * pow(sh, 6) + 121044. * pow(sh, 7) -
1040 73080. * pow(sh, 8) + 29050. * pow(sh, 9) -
1041 7600. * pow(sh, 10) + 1260. * pow(sh, 11) -
1042 120. * pow(sh, 12) + 5. * pow(sh, 13)) -
1043 0.008465608465608466 * Li2sh * pow(-1 + sh, -9) * pow(sh, -7)*
1044 (115830. - 1.00518e6 * sh + 3.85476e6 * pow(sh, 2) -
1045 8.55036e6 * pow(sh, 3) + 1.203202e7 * pow(sh, 4) -
1046 1.104103e7 * pow(sh, 5) + 6.48648e6 * pow(sh, 6) -
1047 2.24796e6 * pow(sh, 7) + 352374. * pow(sh, 8) -
1048 455. * pow(sh, 13) + 140. * pow(sh, 14)) -
1049 0.0006046863189720333 * pow(Lsh, 2) * pow(-1 + sh, -10) *
1050 pow(sh, -14)*(105. + 705. * sh + 1085. * pow(sh, 2) -
1051 3227. * pow(sh, 3) - 12621. * pow(sh, 4) -
1052 7077. * pow(sh, 5) + 23415. * pow(sh, 6) -
1053 716940. * pow(sh, 7) + 7.485607e6 * pow(sh, 8) +
1054 180180. * Lshb * pow(-1 + sh, 7) * pow(sh, 8) -
1055 2.8239694e7 * pow(sh, 9) + 5.5987932e7 * pow(sh, 10) -
1056 6.48795e7 * pow(sh, 11) + 4.3001735e7 * pow(sh, 12) -
1057 1.2259058e7 * pow(sh, 13) - 2.773834e6 * pow(sh, 14) +
1058 3.038902e6 * pow(sh, 15) - 645645. * pow(sh, 16) -
1059 3185. * pow(sh, 20) + 4165. * pow(sh, 21) -
1060 980. * pow(sh, 22)) -
1061 Lsh * (217.9047619047619 * Li2sh * pow(-1 + sh, -3) *
1062 pow(sh, -6) + 11.733333333333333 * ash * sqrt4sh * sqrtsh *
1063 pow(sh, 3)*(16. - 564. * sh + 2004. * pow(sh, 2) +
1064 294. * pow(sh, 3) - 4650. * pow(sh, 4) +
1065 5035. * pow(sh, 5) - 2500. * pow(sh, 6) +
1066 660. * pow(sh, 7) - 90. * pow(sh, 8) + 5. * pow(sh, 9)) +
1067 7.198646654428967e-7 * pow(-1 + sh, -10) * pow(sh, -14)*
1068 (23625. - 21375. * sh - 887075. * pow(sh, 2) -
1069 2.157211e6 * pow(sh, 3) + 2.815827e6 * pow(sh, 4) +
1070 1.5702939e7 * pow(sh, 5) + 1.968855e6 * pow(sh, 6) +
1071 6.76166505e8 * pow(sh, 7) -
1072 5.205552799e9 * pow(sh, 8) -
1073 2.52252e8 * pow(3.141592653589793, 2) *
1074 pow(-1 + sh, 7) * pow(sh, 8) +
1075 1.6194341023e10 * pow(sh, 9) -
1076 2.8421717709e10 * pow(sh, 10) +
1077 3.1333900255e10 * pow(sh, 11) -
1078 2.2556366595e10 * pow(sh, 12) +
1079 1.0744617653e10 * pow(sh, 13) -
1080 3.487224951e9 * pow(sh, 14) +
1081 11760. * Lshb * (-1. + sh) * pow(sh, 7)*
1082 (115830. - 1.00518e6 * sh + 3.85476e6 * pow(sh, 2) -
1083 8.55036e6 * pow(sh, 3) + 1.203202e7 * pow(sh, 4) -
1084 1.104103e7 * pow(sh, 5) + 6.48648e6 * pow(sh, 6) -
1085 2.24796e6 * pow(sh, 7) + 352374. * pow(sh, 8) -
1086 455. * pow(sh, 13) + 140. * pow(sh, 14)) +
1087 8.24604343e8 * pow(sh, 15) -
1088 1.3509349e8 * pow(sh, 16) + 4.36884e6 * pow(sh, 17) +
1089 1.4825832e7 * pow(sh, 18) + 986076. * pow(sh, 19) -
1090 6.077568e6 * pow(sh, 20) + 658000. * pow(sh, 21) +
1091 119000. * pow(sh, 22))) -
1092 0.0001511715797430083 * pow(lz, 2) * pow(sh, -14)*
1093 (105. + 1755. * sh + 13910. * pow(sh, 2) +
1094 69498. * pow(sh, 3) + 244959. * pow(sh, 4) +
1095 642213. * pow(sh, 5) + 1.26126e6 * pow(sh, 6) -
1096 1.08108e6 * pow(sh, 7) + 433071. * pow(sh, 8) +
1097 67773. * pow(sh, 9) - 377694. * pow(sh, 10) -
1098 501530. * pow(sh, 11) - 344895. * pow(sh, 12) -
1099 105. * pow(sh, 13) - 1.55232e6 * pow(sh, 14) -
1100 1.591128e6 * pow(sh, 15) - 1.707552e6 * pow(sh, 16) -
1101 1.9404e6 * pow(sh, 17) + 3.10464e6 * pow(sh, 18) -
1102 5.588352e7 * pow(sh, 19) + 6.4731744e7 * pow(sh, 20) +
1103 9.7485696e7 * pow(sh, 21) - 2.250864e8 * pow(sh, 22) +
1104 1.751211e8 * pow(sh, 23) - 7.101864e7 * pow(sh, 24) +
1105 1.610532e7 * pow(sh, 25) - 1.9404e6 * pow(sh, 26) +
1106 97020. * pow(sh, 27)) -
1107 lz * (-108.95238095238095 * pow(Lsh, 2) * pow(-1 + sh, -3) *
1108 pow(sh, -6) + 23.466666666666665 * ash * sqrt4sh * sqrtsh *
1109 pow(sh, 3)*(16. - 564. * sh + 2004. * pow(sh, 2) +
1110 294. * pow(sh, 3) - 4650. * pow(sh, 4) +
1111 5035. * pow(sh, 5) - 2500. * pow(sh, 6) +
1112 660. * pow(sh, 7) - 90. * pow(sh, 8) + 5. * pow(sh, 9)) -
1113 0.0006046863189720333 * Lsh * pow(-1 + sh, -9) *
1114 pow(sh, -14)*(-105. - 810. * sh - 1895. * pow(sh, 2) +
1115 1332. * pow(sh, 3) + 13953. * pow(sh, 4) +
1116 21030. * pow(sh, 5) - 2385. * pow(sh, 6) +
1117 1.39023e6 * pow(sh, 7) - 1.2340463e7 * pow(sh, 8) +
1118 4.2069858e7 * pow(sh, 9) - 7.9546665e7 * pow(sh, 10) +
1119 9.44649e7 * pow(sh, 11) - 7.3941065e7 * pow(sh, 12) +
1120 3.83046e7 * pow(sh, 13) - 1.2446415e7 * pow(sh, 14) +
1121 1.976646e6 * pow(sh, 15) + 12600. * pow(sh, 16) -
1122 15820. * pow(sh, 17) - 9744. * pow(sh, 18) +
1123 2604. * pow(sh, 19) - 630. * pow(sh, 20) +
1124 910. * pow(sh, 21)) +
1125 8.390031065768027e-10 * pow(-1 + sh, -8) * pow(sh, -14)*
1126 (-1.0135125e7 - 1.1100375e7 * sh +
1127 3.6848955e8 * pow(sh, 2) +
1128 1.673522994e9 * pow(sh, 3) +
1129 1.770566655e9 * pow(sh, 4) -
1130 4.868950515e9 * pow(sh, 5) -
1131 1.235310648e10 * pow(sh, 6) -
1132 6.7286773554e11 * pow(sh, 7) +
1133 3.536335413468e12 * pow(sh, 8) -
1134 6.50817484746e12 * pow(sh, 9) +
1135 2.54454845502e12 * pow(sh, 10) +
1136 9.21737859458e12 * pow(sh, 11) -
1137 1.734525157846e13 * pow(sh, 12) +
1138 1.3825678158092e13 * pow(sh, 13) -
1139 6.1111523809e12 * pow(sh, 14) +
1140 5.967579184772e12 * pow(sh, 15) -
1141 1.5549203270443e13 * pow(sh, 16) +
1142 2.5319186594687e13 * pow(sh, 17) -
1143 2.6298770135182e13 * pow(sh, 18) +
1144 2.5191363944162e13 * pow(sh, 19) -
1145 5.842005220263e12 * pow(sh, 20) -
1146 1.75096058403693e14 * pow(sh, 21) +
1147 6.63423072171552e14 * pow(sh, 22) -
1148 1.020989867585688e15 * pow(sh, 23) +
1149 8.1473828147712e13 * pow(sh, 24) +
1150 2.68267039048008e15 * pow(sh, 25) -
1151 5.80722293943792e15 * pow(sh, 26) +
1152 7.01674940414448e15 * pow(sh, 27) -
1153 5.70997655452224e15 * pow(sh, 28) +
1154 3.30275638300608e15 * pow(sh, 29) -
1155 1.37813214547008e15 * pow(sh, 30) +
1156 4.1220913139406e14 * pow(sh, 31) -
1157 8.614194412824e13 * pow(sh, 32) +
1158 1.192739023476e13 * pow(sh, 33) -
1159 9.8172946872e11 * pow(sh, 34) +
1160 3.631041414e10 * pow(sh, 35))) -
1161 2.3282359489865765e-15 * pow(-1 + sh, -9) * pow(sh, -14)*
1162 (-7.34806697625e11 + 1.86465740175e12 * sh +
1163 1.3539275231625e13 * pow(sh, 2) -
1164 6.7027116030732e13 * pow(sh, 3) -
1165 3.63276406618983e14 * pow(sh, 4) -
1166 7.707518005473e13 * pow(sh, 5) +
1167 2.669628886797015e15 * pow(sh, 6) +
1168 6.770358403959922e17 * pow(sh, 7) -
1169 5.635158490072595e18 * pow(sh, 8) +
1170 2.0599256704963682e19 * pow(sh, 9) -
1171 4.3339042510046585e19 * pow(sh, 10) +
1172 5.744182115659437e19 * pow(sh, 11) -
1173 4.931522650068433e19 * pow(sh, 12) +
1174 2.7187236012238836e19 * pow(sh, 13) -
1175 9.574972725219654e18 * pow(sh, 14) +
1176 3.9829978513193257e18 * pow(sh, 15) -
1177 7.101765583473753e18 * pow(sh, 16) +
1178 1.3106460108909054e19 * pow(sh, 17) -
1179 1.6417164883861897e19 * pow(sh, 18) +
1180 1.614980340692014e19 * pow(sh, 19) -
1181 1.6686933598961236e18 * pow(sh, 20) -
1182 1.0406361743628665e20 * pow(sh, 21) +
1183 4.1780318877359584e20 * pow(sh, 22) -
1184 7.917494561077571e20 * pow(sh, 23) +
1185 5.495025478671567e20 * pow(sh, 24) +
1186 9.680750952822325e20 * pow(sh, 25) -
1187 3.329447282273382e21 * pow(sh, 26) +
1188 5.025975451497482e21 * pow(sh, 27) -
1189 4.956441109581607e21 * pow(sh, 28) +
1190 3.485807792682049e21 * pow(sh, 29) -
1191 1.7988128583543858e21 * pow(sh, 30) +
1192 6.841200805238499e20 * pow(sh, 31) -
1193 1.8949802366821115e20 * pow(sh, 32) +
1194 3.71347919316412e19 * pow(sh, 33) -
1195 4.870681746866896e18 * pow(sh, 34) +
1196 3.8293915404046304e17 * pow(sh, 35) -
1197 1.362249094884678e16 * pow(sh, 36) +
1198 4.32864432e10 * pow(3.141592653589793, 2)*
1199 (315. + 2430. * sh + 5685. * pow(sh, 2) -
1200 3996. * pow(sh, 3) - 41859. * pow(sh, 4) -
1201 63090. * pow(sh, 5) + 7155. * pow(sh, 6) -
1202 1.119771e7 * pow(sh, 7) + 9.7239319e7 * pow(sh, 8) -
1203 3.54595974e8 * pow(sh, 9) +
1204 7.40399865e8 * pow(sh, 10) -
1205 9.8372572e8 * pow(sh, 11) +
1206 8.60053945e8 * pow(sh, 12) -
1207 4.8766596e8 * pow(sh, 13) +
1208 1.66863615e8 * pow(sh, 14) -
1209 3.4122042e7 * pow(sh, 15) + 2.632797e7 * pow(sh, 16) -
1210 5.075218e7 * pow(sh, 17) + 5.5929402e7 * pow(sh, 18) +
1211 5.4364188e7 * pow(sh, 19) -
1212 7.17712236e8 * pow(sh, 20) +
1213 2.87081535e9 * pow(sh, 21) -
1214 6.45842757e9 * pow(sh, 22) +
1215 7.27388046e9 * pow(sh, 23) +
1216 2.42462682e9 * pow(sh, 24) -
1217 2.5172149464e10 * pow(sh, 25) +
1218 5.057866044e10 * pow(sh, 26) -
1219 6.234146226e10 * pow(sh, 27) +
1220 5.421545514e10 * pow(sh, 28) -
1221 3.47700276e10 * pow(sh, 29) +
1222 1.6675099056e10 * pow(sh, 30) -
1223 5.96740914e9 * pow(sh, 31) +
1224 1.5692985e9 * pow(sh, 32) - 2.939706e8 * pow(sh, 33) +
1225 3.706164e7 * pow(sh, 34) - 2.81358e6 * pow(sh, 35) +
1226 97020. * pow(sh, 36)))) * pow(z, 8);
1227 else
1228 res += pow(z, 8)*(-1367.476272678532 +
1229 75386.10953505589 * (1. - sh) +
1230 206788.6029072873 * pow(1. - sh, 2) +
1231 612243.1048388471 * pow(1. - sh, 3) +
1232 log(z)*(-4510.122303044576 +
1233 22547.161714277718 * (1. - sh) -
1234 26241.580654085326 * pow(1. - sh, 2) -
1235 156447.1717665157 * pow(1. - sh, 3) -
1236 301356.1551343778 * pow(1. - sh, 4)) +
1237 2.1731813355501974e6 * pow(1. - sh, 4) +
1238 (551.1111111111111 + 358.4888888888889 * (1. - sh) -
1239 16247.2 * pow(1. - sh, 2) -
1240 39192.26666666667 * pow(1. - sh, 3) -
1241 111361.85396825397 * pow(1. - sh, 4)) * pow(log(z), 2));
1242 }
1243
1244 if (17 <= maxpow) {
1245 if (sh < .900001)
1246 res += -4.333599104840935e-6 * pow(3.141592653589793, 2) * pow(sh, -15)*
1247 (6435. + 114114. * sh + 962577. * pow(sh, 2) +
1248 5.137524e6 * pow(sh, 3) + 1.9445755e7 * pow(sh, 4) +
1249 5.526435e7 * pow(sh, 5) + 1.20557265e8 * pow(sh, 6) +
1250 1.9446652e8 * pow(sh, 7) + 1.20557265e8 * pow(sh, 8) +
1251 5.526435e7 * pow(sh, 9) + 1.9445755e7 * pow(sh, 10) +
1252 5.137524e6 * pow(sh, 11) + 962577. * pow(sh, 12) +
1253 114114. * pow(sh, 13) + 6435. * pow(sh, 14)) * pow(z, 8.5);
1254 else
1255 res += (-25553.161245621417 - 204425.28996497134 * (1. - sh) -
1256 946744.6241502736 * pow(1. - sh, 2) -
1257 3.307856723245693e6 * pow(1. - sh, 3) -
1258 9.654303733111342e6 * pow(1. - sh, 4)) * pow(z, 8.5);
1259 }
1260
1261 if (18 <= maxpow) {
1262 if (sh < .900001)
1263 res += (-763.9739428969865 * pow(-1 + sh, -3) * pow(sh, -7) +
1264 635.5555555555555 * Li3sh * pow(-1 + sh, -3) * pow(sh, -7) -
1265 211.85185185185185 * pow(Lsh, 3) * pow(-1 + sh, -3) *
1266 pow(sh, -7) + 24.211640211640212 * cl2 * sqrt4sh * sqrtsh *
1267 pow(sh, 4)*(-216. + 3134. * sh - 8598. * pow(sh, 2) -
1268 651. * pow(sh, 3) + 21696. * pow(sh, 4) -
1269 28281. * pow(sh, 5) + 17655. * pow(sh, 6) -
1270 6279. * pow(sh, 7) + 1302. * pow(sh, 8) -
1271 147. * pow(sh, 9) + 7. * pow(sh, 10)) +
1272 0.0009406231628453851 * ash * sqrt4sh * sqrtsh *
1273 pow(-1 + sh, -3) * pow(sh, 4)*
1274 (1.1439036e7 - 2.01476662e8 * sh +
1275 9.97505748e8 * pow(sh, 2) - 1.852234251e9 * pow(sh, 3) +
1276 2.01151369e8 * pow(sh, 4) + 4.889181924e9 * pow(sh, 5) -
1277 9.389910087e9 * pow(sh, 6) + 9.234375093e9 * pow(sh, 7) -
1278 5.644419255e9 * pow(sh, 8) + 2.256993135e9 * pow(sh, 9) -
1279 5.91888983e8 * pow(sh, 10) + 9.8193564e7 * pow(sh, 11) -
1280 9.351768e6 * pow(sh, 12) + 389657. * pow(sh, 13)) -
1281 72.63492063492063 * pow(ash, 2) * pow(-1 + sh, -4) * pow(sh, 4)*
1282 (42. - 2268. * sh + 21546. * pow(sh, 2) -
1283 79506. * pow(sh, 3) + 124821. * pow(sh, 4) -
1284 344253. * pow(sh, 6) + 669627. * pow(sh, 7) -
1285 706482. * pow(sh, 8) + 483252. * pow(sh, 9) -
1286 225666. * pow(sh, 10) + 72738. * pow(sh, 11) -
1287 15939. * pow(sh, 12) + 2268. * pow(sh, 13) -
1288 189. * pow(sh, 14) + 7. * pow(sh, 15)) -
1289 0.12698412698412698 * Li2sh * pow(-1 + sh, -10) * pow(sh, -8)*
1290 (-25025. + 242385. * sh - 1.05138e6 * pow(sh, 2) +
1291 2.68422e6 * pow(sh, 3) - 4.45263e6 * pow(sh, 4) +
1292 4.98771e6 * pow(sh, 5) - 3.78378e6 * pow(sh, 6) +
1293 1.88188e6 * pow(sh, 7) - 559845. * pow(sh, 8) +
1294 77077. * pow(sh, 9) - 30. * pow(sh, 15) + 10. * pow(sh, 16))\
1295 - pow(Lsh, 2)*(317.77777777777777 * Lshb *
1296 pow(-1 + sh, -3) * pow(sh, -7) -
1297 0.0008818342151675485 * pow(-1 + sh, -11) * pow(sh, -16)*
1298 (56. + 434. * sh + 920. * pow(sh, 2) -
1299 1480. * pow(sh, 3) - 9184. * pow(sh, 4) -
1300 8932. * pow(sh, 5) + 19712. * pow(sh, 6) +
1301 36344. * pow(sh, 7) - 1.69477e6 * pow(sh, 8) +
1302 1.8252907e7 * pow(sh, 9) - 7.946714e7 * pow(sh, 10) +
1303 1.8952648e8 * pow(sh, 11) -
1304 2.77202072e8 * pow(sh, 12) +
1305 2.5518346e8 * pow(sh, 13) -
1306 1.39581344e8 * pow(sh, 14) +
1307 3.2774056e7 * pow(sh, 15) + 7.750744e6 * pow(sh, 16) -
1308 6.868451e6 * pow(sh, 17) + 1.287e6 * pow(sh, 18) +
1309 2160. * pow(sh, 23) - 2880. * pow(sh, 24) +
1310 720. * pow(sh, 25))) -
1311 Lsh * (635.5555555555555 * Li2sh * pow(-1 + sh, -3) *
1312 pow(sh, -7) - 24.211640211640212 * ash * sqrt4sh * sqrtsh *
1313 pow(sh, 4)*(-216. + 3134. * sh - 8598. * pow(sh, 2) -
1314 651. * pow(sh, 3) + 21696. * pow(sh, 4) -
1315 28281. * pow(sh, 5) + 17655. * pow(sh, 6) -
1316 6279. * pow(sh, 7) + 1302. * pow(sh, 8) -
1317 147. * pow(sh, 9) + 7. * pow(sh, 10)) +
1318 1.3997368494722993e-6 * pow(-1 + sh, -11) * pow(sh, -16)*
1319 (-8330. + 7105. * sh + 386410. * pow(sh, 2) +
1320 1.18054e6 * pow(sh, 3) - 798812. * pow(sh, 4) -
1321 8.868482e6 * pow(sh, 5) - 8.370068e6 * pow(sh, 6) +
1322 3.0826012e7 * pow(sh, 7) - 1.26704984e9 * pow(sh, 8) +
1323 1.111592408e10 * pow(sh, 9) -
1324 3.78378e8 * pow(3.141592653589793, 2) *
1325 pow(-1 + sh, 8) * pow(sh, 9) -
1326 4.2458337922e10 * pow(sh, 10) +
1327 9.4156125152e10 * pow(sh, 11) -
1328 1.3584221371e11 * pow(sh, 12) +
1329 1.3440382928e11 * pow(sh, 13) -
1330 9.3541794472e10 * pow(sh, 14) +
1331 4.634995316e10 * pow(sh, 15) -
1332 1.6372744375e10 * pow(sh, 16) +
1333 90720. * Lshb * (-1. + sh) * pow(sh, 8)*
1334 (-25025. + 242385. * sh - 1.05138e6 * pow(sh, 2) +
1335 2.68422e6 * pow(sh, 3) - 4.45263e6 * pow(sh, 4) +
1336 4.98771e6 * pow(sh, 5) - 3.78378e6 * pow(sh, 6) +
1337 1.88188e6 * pow(sh, 7) - 559845. * pow(sh, 8) +
1338 77077. * pow(sh, 9) - 30. * pow(sh, 15) +
1339 10. * pow(sh, 16)) + 4.01052785e9 * pow(sh, 17) -
1340 5.55450048e8 * pow(sh, 18) -
1341 2.6939556e7 * pow(sh, 19) + 8.322174e6 * pow(sh, 20) +
1342 8.304786e6 * pow(sh, 21) - 145404. * pow(sh, 22) -
1343 3.19446e6 * pow(sh, 23) + 483165. * pow(sh, 24) +
1344 45765. * pow(sh, 25))) -
1345 0.0004409171075837742 * pow(lz, 2) * pow(sh, -16)*
1346 (28. + 525. * sh + 4695. * pow(sh, 2) + 26650. * pow(sh, 3) +
1347 107718. * pow(sh, 4) + 329043. * pow(sh, 5) +
1348 782353. * pow(sh, 6) + 1.44144e6 * pow(sh, 7) -
1349 1.26126e6 * pow(sh, 8) + 599831. * pow(sh, 9) +
1350 230937. * pow(sh, 10) - 340854. * pow(sh, 11) -
1351 604990. * pow(sh, 12) - 577095. * pow(sh, 13) -
1352 354945. * pow(sh, 14) - 28. * pow(sh, 15) -
1353 1.729728e6 * pow(sh, 16) - 1.757184e6 * pow(sh, 17) -
1354 1.839552e6 * pow(sh, 18) - 2.004288e6 * pow(sh, 19) -
1355 2.855424e6 * pow(sh, 20) + 2.6138112e7 * pow(sh, 21) -
1356 1.80276096e8 * pow(sh, 22) + 2.04107904e8 * pow(sh, 23) +
1357 2.91953376e8 * pow(sh, 24) - 8.04076416e8 * pow(sh, 25) +
1358 7.54586976e8 * pow(sh, 26) - 3.86127456e8 * pow(sh, 27) +
1359 1.18294176e8 * pow(sh, 28) - 2.1717696e7 * pow(sh, 29) +
1360 2.210208e6 * pow(sh, 30) - 96096. * pow(sh, 31)) -
1361 lz * (-317.77777777777777 * pow(Lsh, 2) * pow(-1 + sh, -3) *
1362 pow(sh, -7) - 48.423280423280424 * ash * sqrt4sh * sqrtsh *
1363 pow(sh, 4)*(-216. + 3134. * sh - 8598. * pow(sh, 2) -
1364 651. * pow(sh, 3) + 21696. * pow(sh, 4) -
1365 28281. * pow(sh, 5) + 17655. * pow(sh, 6) -
1366 6279. * pow(sh, 7) + 1302. * pow(sh, 8) -
1367 147. * pow(sh, 9) + 7. * pow(sh, 10)) -
1368 0.001763668430335097 * Lsh * pow(-1 + sh, -10) *
1369 pow(sh, -16)*(28. + 245. * sh + 705. * pow(sh, 2) -
1370 35. * pow(sh, 3) - 4627. * pow(sh, 4) -
1371 9093. * pow(sh, 5) + 763. * pow(sh, 6) +
1372 18935. * pow(sh, 7) - 1.594215e6 * pow(sh, 8) +
1373 1.5443423e7 * pow(sh, 9) - 6.1656473e7 * pow(sh, 10) +
1374 1.39716843e8 * pow(sh, 11) -
1375 2.03006125e8 * pow(sh, 12) +
1376 1.99413865e8 * pow(sh, 13) -
1377 1.34518335e8 * pow(sh, 14) +
1378 6.1151573e7 * pow(sh, 15) -
1379 1.7326475e7 * pow(sh, 16) + 2.392884e6 * pow(sh, 17) +
1380 25200. * pow(sh, 18) + 3024. * pow(sh, 19) -
1381 7560. * pow(sh, 20) - 3276. * pow(sh, 21) +
1382 1260. * pow(sh, 22) - 180. * pow(sh, 23) +
1383 270. * pow(sh, 24)) +
1384 4.894184788364682e-9 * pow(-1 + sh, -9) * pow(sh, -16)*
1385 (1.19119e6 + 1.366365e6 * sh -
1386 5.371509e7 * pow(sh, 2) - 2.77613765e8 * pow(sh, 3) -
1387 3.87282324e8 * pow(sh, 4) +
1388 7.71242043e8 * pow(sh, 5) +
1389 3.126686134e9 * pow(sh, 6) +
1390 1.074010509e9 * pow(sh, 7) +
1391 3.93846095214e11 * pow(sh, 8) -
1392 2.613136199245e12 * pow(sh, 9) +
1393 6.74269843533e12 * pow(sh, 10) -
1394 7.676937500739e12 * pow(sh, 11) +
1395 1.9905569996e10 * pow(sh, 12) +
1396 1.1323630699581e13 * pow(sh, 13) -
1397 1.5234053867994e13 * pow(sh, 14) +
1398 9.845078305115e12 * pow(sh, 15) -
1399 2.700610570998e12 * pow(sh, 16) -
1400 3.170609780136e12 * pow(sh, 17) +
1401 1.1930111549088e13 * pow(sh, 18) -
1402 2.3203039225488e13 * pow(sh, 19) +
1403 2.8131676788624e13 * pow(sh, 20) -
1404 1.8366269990976e13 * pow(sh, 21) -
1405 5.86498925406e12 * pow(sh, 22) -
1406 2.8811545081488e13 * pow(sh, 23) +
1407 4.5661550453265e14 * pow(sh, 24) -
1408 1.732122473878368e15 * pow(sh, 25) +
1409 3.197952696667872e15 * pow(sh, 26) -
1410 1.902641717625792e15 * pow(sh, 27) -
1411 5.333806838035104e15 * pow(sh, 28) +
1412 1.7146879255828608e16 * pow(sh, 29) -
1413 2.675706192884525e16 * pow(sh, 30) +
1414 2.8039050515059584e16 * pow(sh, 31) -
1415 2.1385006944917616e16 * pow(sh, 32) +
1416 1.2221439347413296e16 * pow(sh, 33) -
1417 5.277310784521776e15 * pow(sh, 34) +
1418 1.713784020076128e15 * pow(sh, 35) -
1419 4.11671384988864e14 * pow(sh, 36) +
1420 7.0855642249392e13 * pow(sh, 37) -
1421 8.252635735344e12 * pow(sh, 38) +
1422 5.81797087872e11 * pow(sh, 39) -
1423 1.8722239536e10 * pow(sh, 40))) +
1424 6.7906881845441814e-15 * pow(-1 + sh, -10) * pow(sh, -16)*
1425 (-1.522039519e11 + 4.26276275425e11 * sh +
1426 3.315607505925e12 * pow(sh, 2) -
1427 1.9935815474575e13 * pow(sh, 3) -
1428 1.24680380503679e14 * pow(sh, 4) -
1429 9.4734104241777e13 * pow(sh, 5) +
1430 6.72219759402191e14 * pow(sh, 6) +
1431 2.120473984303675e15 * pow(sh, 7) +
1432 7.662945656754339e17 * pow(sh, 8) -
1433 7.132526555906264e18 * pow(sh, 9) +
1434 2.9416202534538686e19 * pow(sh, 10) -
1435 7.102049557437948e19 * pow(sh, 11) +
1436 1.107461387150374e20 * pow(sh, 12) -
1437 1.1592296841795374e20 * pow(sh, 13) +
1438 8.202599046107015e19 * pow(sh, 14) -
1439 3.867573016059e19 * pow(sh, 15) +
1440 1.1583790708091849e19 * pow(sh, 16) +
1441 5.455110631455277e16 * pow(sh, 17) -
1442 9.021690519674575e18 * pow(sh, 18) +
1443 2.0989006324251304e19 * pow(sh, 19) -
1444 3.024958551383288e19 * pow(sh, 20) +
1445 2.6235194397528736e19 * pow(sh, 21) -
1446 4.751003778396708e18 * pow(sh, 22) +
1447 3.1013412939244257e19 * pow(sh, 23) -
1448 4.4030880872708604e20 * pow(sh, 24) +
1449 1.8521539756313275e21 * pow(sh, 25) -
1450 4.09723866666257e21 * pow(sh, 26) +
1451 4.4398535867110675e21 * pow(sh, 27) +
1452 1.6558648776187506e21 * pow(sh, 28) -
1453 1.5447456223820402e22 * pow(sh, 29) +
1454 3.0926810843136838e22 * pow(sh, 30) -
1455 3.877106240961276e22 * pow(sh, 31) +
1456 3.495116951810053e22 * pow(sh, 32) -
1457 2.3715466598184745e22 * pow(sh, 33) +
1458 1.231700538915695e22 * pow(sh, 34) -
1459 4.908204594473572e21 * pow(sh, 35) +
1460 1.4885933408647808e21 * pow(sh, 36) -
1461 3.372012167296045e20 * pow(sh, 37) +
1462 5.517431714182939e19 * pow(sh, 38) -
1463 6.150944761142205e18 * pow(sh, 39) +
1464 4.174745980836151e17 * pow(sh, 40) -
1465 1.2998152420597344e16 * pow(sh, 41) +
1466 4.32864432e10 * pow(3.141592653589793, 2)*
1467 (84. + 735. * sh + 2115. * pow(sh, 2) -
1468 105. * pow(sh, 3) - 13881. * pow(sh, 4) -
1469 27279. * pow(sh, 5) + 2289. * pow(sh, 6) +
1470 56805. * pow(sh, 7) - 1.2530385e7 * pow(sh, 8) +
1471 1.20589919e8 * pow(sh, 9) -
1472 5.04052193e8 * pow(sh, 10) +
1473 1.226945139e9 * pow(sh, 11) -
1474 1.939059325e9 * pow(sh, 12) +
1475 2.078426665e9 * pow(sh, 13) -
1476 1.520105055e9 * pow(sh, 14) +
1477 7.36103333e8 * pow(sh, 15) -
1478 2.14713611e8 * pow(sh, 16) +
1479 1.9961346e7 * pow(sh, 17) +
1480 3.7191526e7 * pow(sh, 18) -
1481 8.4336034e7 * pow(sh, 19) +
1482 1.23678654e8 * pow(sh, 20) -
1483 1.54538642e8 * pow(sh, 21) +
1484 5.6921303e8 * pow(sh, 22) -
1485 3.377351682e9 * pow(sh, 23) +
1486 1.3338367312e10 * pow(sh, 24) -
1487 3.3040152232e10 * pow(sh, 25) +
1488 4.7430542016e10 * pow(sh, 26) -
1489 1.4900494752e10 * pow(sh, 27) -
1490 1.03195325376e11 * pow(sh, 28) +
1491 2.85860573856e11 * pow(sh, 29) -
1492 4.41409041216e11 * pow(sh, 30) +
1493 4.79314177056e11 * pow(sh, 31) -
1494 3.90721421376e11 * pow(sh, 32) +
1495 2.45176465248e11 * pow(sh, 33) -
1496 1.19414737728e11 * pow(sh, 34) +
1497 4.5058851552e10 * pow(sh, 35) -
1498 1.3033582848e10 * pow(sh, 36) +
1499 2.831770656e9 * pow(sh, 37) -
1500 4.46462016e8 * pow(sh, 38) +
1501 4.8144096e7 * pow(sh, 39) - 3.171168e6 * pow(sh, 40) +
1502 96096. * pow(sh, 41)))) * pow(z, 9);
1503 else
1504 res += pow(z, 9)*(-4690.616436608783 +
1505 321124.035320987 * (1. - sh) +
1506 961535.3725143364 * pow(1. - sh, 2) +
1507 3.097773872353616e6 * pow(1. - sh, 3) +
1508 log(z)*(-16520.037265205938 +
1509 98045.98792298837 * (1. - sh) -
1510 116206.46863444796 * pow(1. - sh, 2) -
1511 756704.7491730026 * pow(1. - sh, 3) -
1512 1.3920173353150578e6 * pow(1. - sh, 4)) +
1513 1.2094091231182646e7 * pow(1. - sh, 4) +
1514 (2118.6666666666665 + 1750. * (1. - sh) -
1515 75789.11111111111 * pow(1. - sh, 2) -
1516 190615.42857142858 * pow(1. - sh, 3) -
1517 588434.7301587302 * pow(1. - sh, 4)) * pow(log(z), 2));
1518 }
1519
1520 if (19 <= maxpow) {
1521 if (sh < .900001)
1522 res += -2.0125073242295363e-7 * pow(3.141592653589793, 2) * pow(sh, -17)*
1523 (109395. + 2.16216e6 * sh + 2.0430696e7 * pow(sh, 2) +
1524 1.22866128e8 * pow(sh, 3) + 5.27900436e8 * pow(sh, 4) +
1525 1.72236568e9 * pow(sh, 5) + 4.41295356e9 * pow(sh, 6) +
1526 8.96714376e9 * pow(sh, 7) + 1.385377093e10 * pow(sh, 8) +
1527 8.96714376e9 * pow(sh, 9) + 4.41295356e9 * pow(sh, 10) +
1528 1.72236568e9 * pow(sh, 11) + 5.27900436e8 * pow(sh, 12) +
1529 1.22866128e8 * pow(sh, 13) + 2.0430696e7 * pow(sh, 14) +
1530 2.16216e6 * pow(sh, 15) + 109395. * pow(sh, 16)) * pow(z, 9.5);
1531 else
1532 res += (-90187.62792572267 - 811688.6513315039 * (1. - sh) -
1533 4.166668410168387e6 * pow(1. - sh, 2) -
1534 1.596321014285291e7 * pow(1. - sh, 3) -
1535 5.066289998727471e7 * pow(1. - sh, 4)) * pow(z, 9.5);
1536 }
1537
1538 if (20 <= maxpow) {
1539 if (sh < .900001)
1540 res += (-2308.8990274220037 * pow(-1 + sh, -3) * pow(sh, -8) +
1541 1920.79012345679 * Li3sh * pow(-1 + sh, -3) * pow(sh, -8) -
1542 640.2633744855967 * pow(Lsh, 3) * pow(-1 + sh, -3) *
1543 pow(sh, -8) - 18.158730158730158 * cl2 * sqrt4sh * sqrtsh *
1544 pow(sh, 4)*(-80. + 5340. * sh - 47370. * pow(sh, 2) +
1545 109970. * pow(sh, 3) + 2889. * pow(sh, 4) -
1546 292716. * pow(sh, 5) + 440556. * pow(sh, 6) -
1547 328734. * pow(sh, 7) + 146475. * pow(sh, 8) -
1548 40768. * pow(sh, 9) + 6972. * pow(sh, 10) -
1549 672. * pow(sh, 11) + 28. * pow(sh, 12)) -
1550 0.0028218694885361554 * ash * sqrt4sh * sqrtsh *
1551 pow(-1 + sh, -3) * pow(sh, 4)*
1552 (1.1035e6 - 7.72587e7 * sh + 8.84076615e8 * pow(sh, 2) -
1553 3.732489695e9 * pow(sh, 3) + 6.571169658e9 * pow(sh, 4) -
1554 8.05040586e8 * pow(sh, 5) -
1555 1.7678698868e10 * pow(sh, 6) +
1556 3.6419080572e10 * pow(sh, 7) -
1557 3.9440395638e10 * pow(sh, 8) +
1558 2.7362254298e10 * pow(sh, 9) -
1559 1.2874702995e10 * pow(sh, 10) +
1560 4.165441731e9 * pow(sh, 11) -
1561 9.14198644e8 * pow(sh, 12) + 1.30140756e8 * pow(sh, 13) -
1562 1.0845063e7 * pow(sh, 14) + 401669. * pow(sh, 15)) +
1563 54.476190476190474 * pow(ash, 2) * pow(-1 + sh, -4) *
1564 pow(sh, 5)*(-1890. + 45864. * sh - 340200. * pow(sh, 2) +
1565 1.13508e6 * pow(sh, 3) - 1.721265e6 * pow(sh, 4) +
1566 4.925592e6 * pow(sh, 6) - 1.01388e7 * pow(sh, 7) +
1567 1.158381e7 * pow(sh, 8) - 8.79228e6 * pow(sh, 9) +
1568 4.68432e6 * pow(sh, 10) - 1.782648e6 * pow(sh, 11) +
1569 482895. * pow(sh, 12) - 91000. * pow(sh, 13) +
1570 11340. * pow(sh, 14) - 840. * pow(sh, 15) + 28. * pow(sh, 16)
1571 ) - 0.003527336860670194 * Li2sh * pow(-1 + sh, -11) *
1572 pow(sh, -9)*(2.994992e6 - 3.202199e7 * sh +
1573 1.54990836e8 * pow(sh, 2) - 4.47615168e8 * pow(sh, 3) +
1574 8.5514352e8 * pow(sh, 4) - 1.130787504e9 * pow(sh, 5) +
1575 1.04997984e9 * pow(sh, 6) - 6.77511744e8 * pow(sh, 7) +
1576 2.91603312e8 * pow(sh, 8) - 7.589582e7 * pow(sh, 9) +
1577 9.069632e6 * pow(sh, 10) - 1071. * pow(sh, 17) +
1578 378. * pow(sh, 18)) -
1579 0.00003919263178522438 * pow(Lsh, 2) * pow(-1 + sh, -12) *
1580 pow(sh, -18)*(1008. + 8848. * sh + 23688. * pow(sh, 2) -
1581 17352. * pow(sh, 3) - 212592. * pow(sh, 4) -
1582 311184. * pow(sh, 5) + 400176. * pow(sh, 6) +
1583 1.492176e6 * pow(sh, 7) - 255024. * pow(sh, 8) -
1584 1.29624264e8 * pow(sh, 9) + 1.494083496e9 * pow(sh, 10) +
1585 2.450448e7 * Lshb * pow(-1 + sh, 9) * pow(sh, 10) -
1586 7.309557639e9 * pow(sh, 11) +
1587 2.0237476311e10 * pow(sh, 12) -
1588 3.5492453304e10 * pow(sh, 13) +
1589 4.1152337856e10 * pow(sh, 14) -
1590 3.1358059992e10 * pow(sh, 15) +
1591 1.4540248968e10 * pow(sh, 16) -
1592 2.862291672e9 * pow(sh, 17) -
1593 7.07775372e8 * pow(sh, 18) + 5.21810798e8 * pow(sh, 19) -
1594 8.729721e7 * pow(sh, 20) - 48195. * pow(sh, 26) +
1595 65205. * pow(sh, 27) - 17010. * pow(sh, 28)) -
1596 Lsh * (1920.79012345679 * Li2sh * pow(-1 + sh, -3) *
1597 pow(sh, -8) + 18.158730158730158 * ash * sqrt4sh * sqrtsh *
1598 pow(sh, 4)*(-80. + 5340. * sh - 47370. * pow(sh, 2) +
1599 109970. * pow(sh, 3) + 2889. * pow(sh, 4) -
1600 292716. * pow(sh, 5) + 440556. * pow(sh, 6) -
1601 328734. * pow(sh, 7) + 146475. * pow(sh, 8) -
1602 40768. * pow(sh, 9) + 6972. * pow(sh, 10) -
1603 672. * pow(sh, 11) + 28. * pow(sh, 12)) +
1604 3.110526332160665e-8 * pow(-1 + sh, -12) * pow(sh, -18)*
1605 (268128. - 217952. * sh - 1.5087492e7 * pow(sh, 2) -
1606 5.5721052e7 * pow(sh, 3) + 6.214128e6 * pow(sh, 4) +
1607 4.11907536e8 * pow(sh, 5) +
1608 6.39424296e8 * pow(sh, 6) -
1609 9.51140904e8 * pow(sh, 7) -
1610 4.300216704e9 * pow(sh, 8) +
1611 2.10516991776e11 * pow(sh, 9) -
1612 2.032987285082e12 * pow(sh, 10) -
1613 5.1459408e10 * pow(3.141592653589793, 2) *
1614 pow(-1 + sh, 9) * pow(sh, 10) +
1615 9.023354904168e12 * pow(sh, 11) -
1616 2.3780297815902e13 * pow(sh, 12) +
1617 4.1583846173268e13 * pow(sh, 13) -
1618 5.1006645964512e13 * pow(sh, 14) +
1619 4.5153977310666e13 * pow(sh, 15) -
1620 2.9201144245014e13 * pow(sh, 16) +
1621 1.3766871963636e13 * pow(sh, 17) -
1622 4.614035001354e12 * pow(sh, 18) +
1623 113400. * Lshb * (-1. + sh) * pow(sh, 9)*
1624 (2.994992e6 - 3.202199e7 * sh +
1625 1.54990836e8 * pow(sh, 2) -
1626 4.47615168e8 * pow(sh, 3) +
1627 8.5514352e8 * pow(sh, 4) -
1628 1.130787504e9 * pow(sh, 5) +
1629 1.04997984e9 * pow(sh, 6) -
1630 6.77511744e8 * pow(sh, 7) +
1631 2.91603312e8 * pow(sh, 8) -
1632 7.589582e7 * pow(sh, 9) +
1633 9.069632e6 * pow(sh, 10) - 1071. * pow(sh, 17) +
1634 378. * pow(sh, 18)) +
1635 1.002872187451e12 * pow(sh, 19) -
1636 9.8190802773e10 * pow(sh, 20) -
1637 3.808374948e9 * pow(sh, 21) -
1638 9.21449088e8 * pow(sh, 22) +
1639 6.24678642e8 * pow(sh, 23) +
1640 3.85332282e8 * pow(sh, 24) - 3.60261e7 * pow(sh, 25) -
1641 1.46109825e8 * pow(sh, 26) + 2.65041e7 * pow(sh, 27) +
1642 1.598625e6 * pow(sh, 28))) -
1643 0.00003919263178522438 * pow(lz, 2) * pow(sh, -18)*
1644 (252. + 5236. * sh + 52122. * pow(sh, 2) +
1645 330990. * pow(sh, 3) + 1.50586e6 * pow(sh, 4) +
1646 5.221788e6 * pow(sh, 5) + 1.4306214e7 * pow(sh, 6) +
1647 3.1500898e7 * pow(sh, 7) + 5.513508e7 * pow(sh, 8) -
1648 4.900896e7 * pow(sh, 9) + 2.668511e7 * pow(sh, 10) +
1649 1.4613135e7 * pow(sh, 11) - 8.763045e6 * pow(sh, 12) -
1650 2.218345e7 * pow(sh, 13) - 2.506596e7 * pow(sh, 14) -
1651 2.0910477e7 * pow(sh, 15) - 1.2190381e7 * pow(sh, 16) -
1652 252. * pow(sh, 17) - 6.48648e7 * pow(sh, 18) -
1653 6.555978e7 * pow(sh, 19) - 6.764472e7 * pow(sh, 20) -
1654 7.18146e7 * pow(sh, 21) - 7.87644e7 * pow(sh, 22) -
1655 3.081078e8 * pow(sh, 23) + 4.33296864e9 * pow(sh, 24) -
1656 2.046808764e10 * pow(sh, 25) +
1657 2.24524872e10 * pow(sh, 26) +
1658 3.088433205e10 * pow(sh, 27) -
1659 9.73829142e10 * pow(sh, 28) +
1660 1.059717087e11 * pow(sh, 29) -
1661 6.5108043e10 * pow(sh, 30) +
1662 2.507429925e10 * pow(sh, 31) -
1663 6.1945884e9 * pow(sh, 32) + 9.567558e8 * pow(sh, 33) -
1664 8.432424e7 * pow(sh, 34) + 3.24324e6 * pow(sh, 35)) -
1665 lz * (-960.395061728395 * pow(Lsh, 2) * pow(-1 + sh, -3) *
1666 pow(sh, -8) + 36.317460317460316 * ash * sqrt4sh * sqrtsh *
1667 pow(sh, 4)*(-80. + 5340. * sh - 47370. * pow(sh, 2) +
1668 109970. * pow(sh, 3) + 2889. * pow(sh, 4) -
1669 292716. * pow(sh, 5) + 440556. * pow(sh, 6) -
1670 328734. * pow(sh, 7) + 146475. * pow(sh, 8) -
1671 40768. * pow(sh, 9) + 6972. * pow(sh, 10) -
1672 672. * pow(sh, 11) + 28. * pow(sh, 12)) -
1673 0.00007838526357044875 * Lsh * pow(-1 + sh, -11) *
1674 pow(sh, -18)*(-504. - 4928. * sh - 16772. * pow(sh, 2) -
1675 8096. * pow(sh, 3) + 98200. * pow(sh, 4) +
1676 253792. * pow(sh, 5) + 53704. * pow(sh, 6) -
1677 692384. * pow(sh, 7) - 564872. * pow(sh, 8) +
1678 1.224454e8 * pow(sh, 9) -
1679 1.288450948e9 * pow(sh, 10) +
1680 5.852563529e9 * pow(sh, 11) -
1681 1.5415053304e10 * pow(sh, 12) +
1682 2.6502321608e10 * pow(sh, 13) -
1683 3.144127168e10 * pow(sh, 14) +
1684 2.6331569936e10 * pow(sh, 15) -
1685 1.5529376128e10 * pow(sh, 16) +
1686 6.238441328e9 * pow(sh, 17) -
1687 1.555660876e9 * pow(sh, 18) +
1688 1.7969985e8 * pow(sh, 19) + 864864. * pow(sh, 20) +
1689 769608. * pow(sh, 21) - 13608. * pow(sh, 22) -
1690 222264. * pow(sh, 23) - 69120. * pow(sh, 24) +
1691 36360. * pow(sh, 25) - 3465. * pow(sh, 26) +
1692 5355. * pow(sh, 27)) +
1693 1.2795254348665836e-11 * pow(-1 + sh, -10) * pow(sh, -18)*
1694 (-3.25909584e8 - 3.86898512e8 * sh +
1695 1.7890959086e10 * pow(sh, 2) +
1696 1.0389775539e11 * pow(sh, 3) +
1697 1.8235127911e11 * pow(sh, 4) -
1698 2.39868807178e11 * pow(sh, 5) -
1699 1.439309125254e12 * pow(sh, 6) -
1700 1.482637674518e12 * pow(sh, 7) +
1701 3.70094717993e12 * pow(sh, 8) -
1702 5.3120395014687e14 * pow(sh, 9) +
1703 4.14643042172931e15 * pow(sh, 10) -
1704 1.345200523191798e16 * pow(sh, 11) +
1705 2.254936255887042e16 * pow(sh, 12) -
1706 1.699263013683648e16 * pow(sh, 13) -
1707 6.14963216664132e15 * pow(sh, 14) +
1708 2.740944223315607e16 * pow(sh, 15) -
1709 2.8637380687636936e16 * pow(sh, 16) +
1710 1.5526446414793194e16 * pow(sh, 17) -
1711 4.836946771691055e15 * pow(sh, 18) +
1712 5.380798436415755e15 * pow(sh, 19) -
1713 1.974903378165775e16 * pow(sh, 20) +
1714 4.525406630722413e16 * pow(sh, 21) -
1715 6.653785922015247e16 * pow(sh, 22) +
1716 6.66839502419495e16 * pow(sh, 23) -
1717 6.049729378013662e16 * pow(sh, 24) +
1718 7.411696572018171e16 * pow(sh, 25) +
1719 2.463627215549949e17 * pow(sh, 26) -
1720 2.690872861043421e18 * pow(sh, 27) +
1721 1.035946806297679e19 * pow(sh, 28) -
1722 2.182665348950866e19 * pow(sh, 29) +
1723 2.151768755011101e19 * pow(sh, 30) +
1724 1.6939887428138682e19 * pow(sh, 31) -
1725 1.0333267615804637e20 * pow(sh, 32) +
1726 2.0555129789476546e20 * pow(sh, 33) -
1727 2.6641684480745528e20 * pow(sh, 34) +
1728 2.5331099541938533e20 * pow(sh, 35) -
1729 1.8430954123554472e20 * pow(sh, 36) +
1730 1.0440880163165341e20 * pow(sh, 37) -
1731 4.6274661819032445e19 * pow(sh, 38) +
1732 1.5988086524017488e19 * pow(sh, 39) -
1733 4.2570217606020905e18 * pow(sh, 40) +
1734 8.554234587216317e17 * pow(sh, 41) -
1735 1.252838056241772e17 * pow(sh, 42) +
1736 1.26021689978184e16 * pow(sh, 43) -
1737 7.7738941071792e14 * pow(sh, 44) +
1738 2.214605244852e13 * pow(sh, 45))) -
1739 2.088639195553766e-18 * pow(-1 + sh, -11) * pow(sh, -18)*
1740 (-3.16414088198208e14 + 9.74539823921664e14 * sh +
1741 8.087033764735926e15 * pow(sh, 2) -
1742 5.684694862939435e16 * pow(sh, 3) -
1743 4.0319420043801754e17 * pow(sh, 4) -
1744 4.882604186351892e17 * pow(sh, 5) +
1745 1.9325128069129482e18 * pow(sh, 6) +
1746 6.292691026868566e18 * pow(sh, 7) +
1747 6.880478820028293e18 * pow(sh, 8) +
1748 8.434058124662613e21 * pow(sh, 9) -
1749 8.666666875206849e22 * pow(sh, 10) +
1750 3.988848694569122e23 * pow(sh, 11) -
1751 1.0892247798831997e24 * pow(sh, 12) +
1752 1.956951254970254e24 * pow(sh, 13) -
1753 2.420742712936919e24 * pow(sh, 14) +
1754 2.0958116597163414e24 * pow(sh, 15) -
1755 1.2670164385119088e24 * pow(sh, 16) +
1756 5.268571590407634e23 * pow(sh, 17) -
1757 1.5075131737158982e23 * pow(sh, 18) +
1758 5.5099869108338715e22 * pow(sh, 19) -
1759 1.2335610340065616e23 * pow(sh, 20) +
1760 3.125948051315389e23 * pow(sh, 21) -
1761 5.329144661412522e23 * pow(sh, 22) +
1762 6.337672351589234e23 * pow(sh, 23) -
1763 6.415906398957901e23 * pow(sh, 24) +
1764 7.960742052832872e23 * pow(sh, 25) +
1765 1.0407339222184654e24 * pow(sh, 26) -
1766 1.8365456331044262e25 * pow(sh, 27) +
1767 8.185263022637105e25 * pow(sh, 28) -
1768 2.0381593674174775e26 * pow(sh, 29) +
1769 2.86653881719294e26 * pow(sh, 30) -
1770 8.60180283451487e25 * pow(sh, 31) -
1771 6.102598804051836e26 * pow(sh, 32) +
1772 1.677905797647036e27 * pow(sh, 33) -
1773 2.6085143775451684e27 * pow(sh, 34) +
1774 2.8903964656452616e27 * pow(sh, 35) -
1775 2.4393048290135273e27 * pow(sh, 36) +
1776 1.610228894638015e27 * pow(sh, 37) -
1777 8.401871973947814e26 * pow(sh, 38) +
1778 3.469550828380025e26 * pow(sh, 39) -
1779 1.1272782566287204e26 * pow(sh, 40) +
1780 2.8443789274384395e25 * pow(sh, 41) -
1781 5.451981703535345e24 * pow(sh, 42) +
1782 7.659728477371017e23 * pow(sh, 43) -
1783 7.427478422398451e22 * pow(sh, 44) +
1784 4.435813069347255e21 * pow(sh, 45) -
1785 1.2279937968685318e20 * pow(sh, 46) +
1786 6.2548910424e12 * pow(3.141592653589793, 2)*
1787 (1512. + 14784. * sh + 50316. * pow(sh, 2) +
1788 24288. * pow(sh, 3) - 294600. * pow(sh, 4) -
1789 761376. * pow(sh, 5) - 161112. * pow(sh, 6) +
1790 2.077152e6 * pow(sh, 7) + 1.694616e6 * pow(sh, 8) -
1791 9.4319148e8 * pow(sh, 9) +
1792 9.967342612e9 * pow(sh, 10) -
1793 4.6850139311e10 * pow(sh, 11) +
1794 1.30210149496e11 * pow(sh, 12) -
1795 2.38833139832e11 * pow(sh, 13) +
1796 3.0372906844e11 * pow(sh, 14) -
1797 2.72391022736e11 * pow(sh, 15) +
1798 1.70802069088e11 * pow(sh, 16) -
1799 7.1983905728e10 * pow(sh, 17) +
1800 1.8589933516e10 * pow(sh, 18) -
1801 2.99998765e9 * pow(sh, 19) +
1802 3.44063258e9 * pow(sh, 20) -
1803 8.9705161e9 * pow(sh, 21) +
1804 1.535557394e10 * pow(sh, 22) -
1805 1.759879618e10 * pow(sh, 23) +
1806 1.0323785e9 * pow(sh, 24) +
1807 1.54134820988e11 * pow(sh, 25) -
1808 1.050042005659e12 * pow(sh, 26) +
1809 4.280975184059e12 * pow(sh, 27) -
1810 1.1452618278108e13 * pow(sh, 28) +
1811 1.942055517402e13 * pow(sh, 29) -
1812 1.455317517654e13 * pow(sh, 30) -
1813 2.304660776418e13 * pow(sh, 31) +
1814 9.97892002107e13 * pow(sh, 32) -
1815 1.907859269745e14 * pow(sh, 33) +
1816 2.504750279031e14 * pow(sh, 34) -
1817 2.483138624967e14 * pow(sh, 35) +
1818 1.926820640745e14 * pow(sh, 36) -
1819 1.188407379159e14 * pow(sh, 37) +
1820 5.85603387369e13 * pow(sh, 38) -
1821 2.301507374166e13 * pow(sh, 39) +
1822 7.15907863242e12 * pow(sh, 40) -
1823 1.73763555966e12 * pow(sh, 41) +
1824 3.216402189e11 * pow(sh, 42) -
1825 4.378374e10 * pow(sh, 43) +
1826 4.12540128e9 * pow(sh, 44) -
1827 2.3999976e8 * pow(sh, 45) + 6.48648e6 * pow(sh, 46)))) *
1828 pow(z, 10);
1829 else
1830 res += pow(z, 10)*(-17049.22407154544 +
1831 1.353794886924289e6 * (1. - sh) +
1832 4.391392784391852e6 * pow(1. - sh, 2) +
1833 1.5300364856715955e7 * pow(1. - sh, 3) +
1834 log(z)*(-61419.777963609034 +
1835 419629.83709526435 * (1. - sh) -
1836 520544.42467293935 * pow(1. - sh, 2) -
1837 3.6331088115191273e6 * pow(1. - sh, 3) -
1838 6.288069761175393e6 * pow(1. - sh, 4)) +
1839 6.5229455380236745e7 * pow(1. - sh, 4) +
1840 (8139.7037037037035 + 7919.111111111111 * (1. - sh) -
1841 349917.4222222222 * pow(1. - sh, 2) -
1842 916483.2649029982 * pow(1. - sh, 3) -
1843 3.054749884303351e6 * pow(1. - sh, 4)) * pow(log(z), 2)
1844 );
1845 }
1846 }
1847 return res;
1848}
Li4
cd Li4(cd x)
Definition: hpl.h:1021
Cl2
double Cl2(double x)
Definition: hpl.h:1026
Cl3
double Cl3(double x)
Definition: hpl.h:1031

◆ F_29im()

double F_2::F_29im ( double  muh,
double  z,
double  sh,
int  maxpow = 20 
)

Definition at line 4517 of file F_2.cpp.

4518{
4519 double lz = log(z);
4520 double lmu = log(muh);
4521 double Lsh = log(sh);
4522 double Lshb = log(1. - sh);
4523 double Li2sh = real(Li2(sh));
4524 double Li3sh = real(Li3(sh));
4525
4526
4527 double res = 0;
4528
4529 if (sh < 0.4) {
4530 res = -22.0299 - 1.241123023640412 * lmu + 0.620562 * Lsh -
4531 5.58505 * lz + 1.86168 * sh + 5.58505 * lz * sh + 97.2931 * z +
4532 33.5103 * lz * z + 184.792 * sh * z + 11.1701 * Lsh * sh * z +
4533 100.531 * lz * sh * z + 11.1701 * z * pow(lz, 2) +
4534 11.1701 * sh * z * pow(lz, 2) + 8.19141 * pow(sh, 2) +
4535 5.58505 * lz * pow(sh, 2) + 313.249 * z * pow(sh, 2) +
4536 22.3402 * Lsh * z * pow(sh, 2) + 156.3815 * lz * z * pow(sh, 2) +
4537 11.1701 * z * pow(lz, 2) * pow(sh, 2) + 10.3323 * pow(sh, 3) +
4538 5.58505 * lz * pow(sh, 3) + 459.887 * z * pow(sh, 3) +
4539 33.5103 * Lsh * z * pow(sh, 3) + 208.5085 * lz * z * pow(sh, 3) +
4540 11.1701 * z * pow(lz, 2) * pow(sh, 3) +
4541 0.0177303 * pow(sh, 3) * pow(z, -3) +
4542 0.11968 * pow(sh, 2) * pow(z, -2) -
4543 0.0221629 * pow(sh, 3) * pow(z, -2) + 1.11701 * sh * pow(z, -1) -
4544 0.372337 * pow(sh, 2) * pow(z, -1) -
4545 0.523045 * pow(sh, 3) * pow(z, -1) - 160.51 * pow(z, 2) +
4546 11.1701 * Lsh * pow(z, 2) + 44.68045 * lz * pow(z, 2) +
4547 22.3402 * Lsh * lz * pow(z, 2) - 396.864 * sh * pow(z, 2) +
4548 44.6804 * Lsh * sh * pow(z, 2) + 201.062 * lz * sh * pow(z, 2) +
4549 89.361 * Lsh * lz * sh * pow(z, 2) + 44.6805 * pow(lz, 2) * pow(z, 2) +
4550 122.87125 * sh * pow(lz, 2) * pow(z, 2) -
4551 652.279 * pow(sh, 2) * pow(z, 2) +
4552 134.041 * Lsh * pow(sh, 2) * pow(z, 2) +
4553 491.4845 * lz * pow(sh, 2) * pow(z, 2) +
4554 201.062 * Lsh * lz * pow(sh, 2) * pow(z, 2) +
4555 234.57225 * pow(lz, 2) * pow(sh, 2) * pow(z, 2) -
4556 890.889 * pow(sh, 3) * pow(z, 2) +
4557 297.87 * Lsh * pow(sh, 3) * pow(z, 2) +
4558 934.565 * lz * pow(sh, 3) * pow(z, 2) +
4559 357.4435 * Lsh * lz * pow(sh, 3) * pow(z, 2) +
4560 379.7825 * pow(lz, 2) * pow(sh, 3) * pow(z, 2) +
4561 142.135 * pow(z, 3) + 9.92898 * Lsh * pow(z, 3) -
4562 104.2545 * lz * pow(z, 3) - 29.78695 * Lsh * lz * pow(z, 3) +
4563 382.697 * sh * pow(z, 3) + 22.3402 * Lsh * sh * pow(z, 3) -
4564 402.124 * lz * sh * pow(z, 3) - 134.0415 * Lsh * lz * sh * pow(z, 3) +
4565 640.989 * pow(sh, 2) * pow(z, 3) -
4566 990.415 * lz * pow(sh, 2) * pow(z, 3) -
4567 357.4435 * Lsh * lz * pow(sh, 2) * pow(z, 3) +
4568 810.709 * pow(sh, 3) * pow(z, 3) -
4569 111.701 * Lsh * pow(sh, 3) * pow(z, 3) -
4570 1958.49 * lz * pow(sh, 3) * pow(z, 3) -
4571 744.675 * Lsh * lz * pow(sh, 3) * pow(z, 3);
4572 } else {
4573 if (0 <= maxpow) {
4574 if (sh < .900001)
4575 res += (21.099091401887005 * lmu +
4576 0.310280755910103 * pow(-1 + sh, -2)*
4577 (76. - 161. * sh + 67. * pow(sh, 2)) -
4578 0.620561511820206 * Lsh * pow(-1 + sh, -3)*
4579 (-8. + 33. * sh - 51. * pow(sh, 2) + 17. * pow(sh, 3))) *
4580 pow(z, 0);
4581 else
4582 res += (17.065441575055665 + 8.22244003161773 * (1. - sh) +
4583 21.099091401887005 * log(muh) +
4584 3.5992567685571952 * pow(1. - sh, 2) +
4585 2.2133360588254014 * pow(1. - sh, 3) +
4586 1.573566690686951 * pow(1. - sh, 4)) * pow(z, 0);
4587 }
4588
4589 if (1 <= maxpow) {
4590 if (sh < .900001)
4591 res += 0.;
4592 else
4593 res += 0.;
4594 }
4595
4596 if (2 <= maxpow) {
4597 if (sh < .900001)
4598 res += (-107.41683587308312 * sh * pow(-1 + sh, -3) +
4599 89.36085770210967 * Li3sh * sh * pow(-1 + sh, -3) -
4600 11.170107212763709 * Li2sh * (-7. + 5. * sh) *
4601 pow(-1 + sh, -3) - 7.446738141842472 * sh * pow(Lsh, 3) *
4602 pow(-1 + sh, -3) + 22.340214425527417 * pow(Lsh, 2) *
4603 pow(-1 + sh, -2) - Lsh *
4604 (44.680428851054835 * Li2sh * sh * pow(-1 + sh, -3) +
4605 11.170107212763709 * pow(-1 + sh, -3)*
4606 (5. + Lshb * (-7. + 5. * sh) +
4607 sh * (-3. + 2. * pow(3.141592653589793, 2)) -
4608 pow(sh, 2))) +
4609 1.861684535460618 * pow(-1 + sh, -3) * pow(sh, -1)*
4610 (18. - sh * (60. + 11. * pow(3.141592653589793, 2)) +
4611 (72. + 5. * pow(3.141592653589793, 2)) * pow(sh, 2) +
4612 (-30. + 4. * pow(3.141592653589793, 2)) * pow(sh, 3))) *
4613 pow(z, 1);
4614 else
4615 res += (5.5716604023132 - 7.453434743876799 * (1. - sh) -
4616 13.15061358913166 * pow(1. - sh, 2) -
4617 16.48686093313114 * pow(1. - sh, 3) -
4618 18.724591847033217 * pow(1. - sh, 4)) * pow(z, 1);
4619 }
4620
4621 if (3 <= maxpow) {
4622 if (sh < .900001)
4623 res += 0.;
4624 else
4625 res += 0.;
4626 }
4627
4628 if (4 <= maxpow) {
4629 if (sh < .900001)
4630 res += (11.170107212763709 * Li2sh * (3. + 2. * sh) * pow(-1 + sh, -3) -
4631 11.170107212763709 * pow(Lsh, 2) * pow(-1 + sh, -2) -
4632 134.0412865531645 * lmu * pow(sh, -2) -
4633 lz * (78.19075048934596 * Lsh * pow(-1 + sh, -3) -
4634 5.585053606381854 * pow(-1 + sh, -2) * pow(sh, -2)*
4635 (23. - 39. * sh + 30. * pow(sh, 2))) -
4636 0.930842267730309 * pow(-1 + sh, -3) * pow(sh, -2)*
4637 (-315. + 900. * sh +
4638 (-957. + 6. * pow(3.141592653589793, 2)) * pow(sh, 2) +
4639 4. * (78. + pow(3.141592653589793, 2)) * pow(sh, 3) +
4640 24. * pow(sh, 4)) +
4641 5.585053606381854 * Lsh * pow(-1 + sh, -4) * pow(sh, -2)*
4642 (-25. + 87. * sh - (121. + 6. * Lshb) * pow(sh, 2) +
4643 (67. + 2. * Lshb) * pow(sh, 3) +
4644 2. * (-7. + 2. * Lshb) * pow(sh, 4))) * pow(z, 2);
4645 else
4646 res += (-255.36106211401477 - 376.7273797882516 * (1. - sh) -
4647 438.1474554206565 * pow(1. - sh, 2) -
4648 458.2075495484674 * pow(1. - sh, 3) +
4649 log(muh)*(-134.0412865531645 -
4650 268.082573106329 * (1. - sh) -
4651 402.1238596594935 * pow(1. - sh, 2) -
4652 536.165146212658 * pow(1. - sh, 3) -
4653 670.2064327658226 * pow(1. - sh, 4)) -
4654 446.58202617315146 * pow(1. - sh, 4) +
4655 log(z)*(141.48802469500697 +
4656 276.46015351590177 * (1. - sh) +
4657 408.8259239871517 * pow(1. - sh, 2) +
4658 539.8885152835793 * pow(1. - sh, 3) +
4659 670.2064327658226 * pow(1. - sh, 4))) * pow(z, 2);
4660 }
4661
4662 if (5 <= maxpow) {
4663 if (sh < .900001)
4664 res += 0.;
4665 else
4666 res += 0.;
4667 }
4668
4669 if (6 <= maxpow) {
4670 if (sh < .900001)
4671 res += (-178.72171540421934 * lmu * pow(sh, -3) -
4672 22.340214425527417 * pow(Lsh, 2) * pow(-1 + sh, -3) *
4673 pow(sh, -1) + 7.446738141842472 * Li2sh * pow(-1 + sh, -4) *
4674 pow(sh, -1)*(3. + sh + 2. * pow(sh, 2)) +
4675 0.620561511820206 * Lsh * pow(-1 + sh, -5) * pow(sh, -4)*
4676 (12. + 422. * sh - 2173. * pow(sh, 2) +
4677 (4115. - 36. * Lshb) * pow(sh, 3) +
4678 6. * (-625. + 4. * Lshb) * pow(sh, 4) -
4679 6. * (-267. + 2. * Lshb) * pow(sh, 5) +
4680 24. * (-11. + Lshb) * pow(sh, 6)) -
4681 lz * (7.446738141842472 * Lsh * pow(-1 + sh, -4) *
4682 pow(sh, -1)*(3. + sh + 2. * pow(sh, 2)) -
4683 0.620561511820206 * pow(-1 + sh, -3) * pow(sh, -4)*
4684 (-6. - 428. * sh + 1275. * pow(sh, 2) -
4685 1143. * pow(sh, 3) + 335. * pow(sh, 4) +
4686 27. * pow(sh, 5) + 12. * pow(sh, 6))) -
4687 0.10342691863670102 * pow(-1 + sh, -4) * pow(sh, -4)*
4688 (30. + 1796. * sh - 7538. * pow(sh, 2) +
4689 36. * (299. + pow(3.141592653589793, 2)) * pow(sh, 3) +
4690 (-6521. + 12. * pow(3.141592653589793, 2)) * pow(sh, 4) +
4691 8. * (106. + 3. * pow(3.141592653589793, 2)) * pow(sh, 5) +
4692 381. * pow(sh, 6) + 24. * pow(sh, 7))) * pow(z, 3);
4693 else
4694 res += (-139.59531208395535 - 127.73017597795302 * (1. - sh) +
4695 172.3157475693439 * pow(1. - sh, 2) +
4696 862.5554678942696 * pow(1. - sh, 3) +
4697 log(muh)*(-178.72171540421934 -
4698 536.165146212658 * (1. - sh) -
4699 1072.330292425316 * pow(1. - sh, 2) -
4700 1787.2171540421934 * pow(1. - sh, 3) -
4701 2680.8257310632903 * pow(1. - sh, 4)) +
4702 2025.5930676420699 * pow(1. - sh, 4) +
4703 log(z)*(322.07142463468693 +
4704 919.2998236104531 * (1. - sh) +
4705 1803.5999779542467 * pow(1. - sh, 2) +
4706 2978.9966723284447 * pow(1. - sh, 3) +
4707 4449.37284876415 * pow(1. - sh, 4))) * pow(z, 3);
4708 }
4709
4710 if (7 <= maxpow) {
4711 if (sh < .900001)
4712 res += 0.;
4713 else
4714 res += 0.;
4715 }
4716
4717 if (8 <= maxpow) {
4718 if (sh < .900001)
4719 res += (-402.1238596594935 * lmu * pow(sh, -4) -
4720 37.23369070921236 * Li2sh * pow(-1 + sh, -3) * pow(sh, -2) -
4721 37.23369070921236 * pow(Lsh, 2) * pow(-1 + sh, -3) *
4722 pow(sh, -2) - lz *
4723 (-37.23369070921236 * Lsh * pow(-1 + sh, -3) * pow(sh, -2) -
4724 0.620561511820206 * pow(-1 + sh, -2) * pow(sh, -6)*
4725 (3. + 19. * sh + 1126. * pow(sh, 2) - 2252. * pow(sh, 3) +
4726 975. * pow(sh, 4) + 39. * pow(sh, 5) + 30. * pow(sh, 6)))\
4727 - 0.620561511820206 * Lsh * pow(-1 + sh, -6) * pow(sh, -6)*
4728 (6. + 14. * sh + 1053. * pow(sh, 2) - 6729. * pow(sh, 3) +
4729 (16821. - 60. * Lshb) * pow(sh, 4) +
4730 3. * (-7297. + 60. * Lshb) * pow(sh, 5) -
4731 3. * (-5263. + 60. * Lshb) * pow(sh, 6) +
4732 (-5933. + 60. * Lshb) * pow(sh, 7) + 900. * pow(sh, 8)) +
4733 0.05171345931835051 * pow(-1 + sh, -5) * pow(sh, -6)*
4734 (21. - 10. * sh + 3476. * pow(sh, 2) - 18346. * pow(sh, 3) +
4735 (36523. + 120. * pow(3.141592653589793, 2)) *
4736 pow(sh, 4) - 16. *
4737 (2108. + 15. * pow(3.141592653589793, 2)) * pow(sh, 5) +
4738 2. * (6731. + 60. * pow(3.141592653589793, 2)) *
4739 pow(sh, 6) - 96. * pow(sh, 7) - 678. * pow(sh, 8) -
4740 408. * pow(sh, 9) + 144. * pow(sh, 10))) * pow(z, 4);
4741 else
4742 res += (-24.201898960988036 + 587.5698023025075 * (1. - sh) +
4743 2943.504986434556 * pow(1. - sh, 2) +
4744 8455.573910153013 * pow(1. - sh, 3) +
4745 log(muh)*(-402.1238596594935 -
4746 1608.495438637974 * (1. - sh) -
4747 4021.238596594935 * pow(1. - sh, 2) -
4748 8042.47719318987 * pow(1. - sh, 3) -
4749 14074.335088082273 * pow(1. - sh, 4)) +
4750 18802.085498788645 * pow(1. - sh, 4) +
4751 log(z)*(819.141195602672 +
4752 3200.2357164568025 * (1. - sh) +
4753 7927.052751991311 * pow(1. - sh, 2) +
4754 15806.942829084288 * pow(1. - sh, 3) +
4755 27672.433541664814 * pow(1. - sh, 4))) * pow(z, 4);
4756 }
4757
4758 if (9 <= maxpow) {
4759 if (sh < .900001)
4760 res += 0.;
4761 else
4762 res += 0.;
4763 }
4764
4765 if (10 <= maxpow) {
4766 if (sh < .900001)
4767 res += (-1072.330292425316 * lmu * pow(sh, -5) -
4768 78.19075048934596 * Li2sh * pow(-1 + sh, -3) * pow(sh, -3) -
4769 78.19075048934596 * pow(Lsh, 2) * pow(-1 + sh, -3) *
4770 pow(sh, -3) - lz *
4771 (-78.19075048934596 * Lsh * pow(-1 + sh, -3) * pow(sh, -3) -
4772 0.062056151182020604 * pow(-1 + sh, -2) * pow(sh, -8)*
4773 (18. + 153. * sh + 543. * pow(sh, 2) +
4774 34531. * pow(sh, 3) - 69998. * pow(sh, 4) +
4775 32548. * pow(sh, 5) + 60. * pow(sh, 6) +
4776 690. * pow(sh, 7) + 195. * pow(sh, 8))) -
4777 0.062056151182020604 * Lsh * pow(-1 + sh, -7) * pow(sh, -8)*
4778 (-36. - 126. * sh + 84. * pow(sh, 2) - 32704. * pow(sh, 3) +
4779 239545. * pow(sh, 4) +
4780 36. * (-20227. + 35. * Lshb) * pow(sh, 5) +
4781 (1.209686e6 - 5040. * Lshb) * pow(sh, 6) +
4782 56. * (-21289. + 135. * Lshb) * pow(sh, 7) +
4783 (696984. - 5040. * Lshb) * pow(sh, 8) +
4784 35. * (-6389. + 36. * Lshb) * pow(sh, 9) +
4785 30808. * pow(sh, 10)) -
4786 0.0010342691863670101 * pow(-1 + sh, -6) * pow(sh, -8)*
4787 (486. - 108. * sh - 8742. * pow(sh, 2) +
4788 126466. * pow(sh, 3) - 671262. * pow(sh, 4) +
4789 1.573824e6 * pow(sh, 5) -
4790 12600. * pow(3.141592653589793, 2) * pow(-1 + sh, 3) *
4791 pow(sh, 5) - 1.781252e6 * pow(sh, 6) +
4792 797802. * pow(sh, 7) + 214029. * pow(sh, 8) -
4793 253718. * pow(sh, 9) - 92700. * pow(sh, 10) +
4794 88650. * pow(sh, 11) - 4275. * pow(sh, 12) -
4795 5400. * pow(sh, 13))) * pow(z, 5);
4796 else
4797 res += (351.27268533709133 + 3865.7340081335415 * (1. - sh) +
4798 17368.68228224328 * pow(1. - sh, 2) +
4799 52713.83107089804 * pow(1. - sh, 3) +
4800 log(muh)*(-1072.330292425316 -
4801 5361.651462126581 * (1. - sh) -
4802 16084.95438637974 * pow(1. - sh, 2) -
4803 37531.56023488606 * pow(1. - sh, 3) -
4804 75063.12046977213 * pow(1. - sh, 4)) +
4805 127763.72928220684 * pow(1. - sh, 4) +
4806 log(z)*(2503.8415878921674 +
4807 12312.560956024709 * (1. - sh) +
4808 36728.24335783481 * pow(1. - sh, 2) +
4809 85657.34659956669 * pow(1. - sh, 3) +
4810 171742.8806422893 * pow(1. - sh, 4))) * pow(z, 5);
4811 }
4812
4813 if (11 <= maxpow) {
4814 if (sh < .900001)
4815 res += 0.;
4816 else
4817 res += 0.;
4818 }
4819
4820 if (12 <= maxpow) {
4821 if (sh < .900001)
4822 res += (-3127.6300195738386 * lmu * pow(sh, -6) -
4823 187.65780117443032 * Li2sh * pow(-1 + sh, -3) * pow(sh, -4) -
4824 187.65780117443032 * pow(Lsh, 2) * pow(-1 + sh, -3) *
4825 pow(sh, -4) - lz *
4826 (-187.65780117443032 * Lsh * pow(-1 + sh, -3) * pow(sh, -4) -
4827 0.01241123023640412 * pow(-1 + sh, -2) * pow(sh, -10)*
4828 (60. + 636. * sh + 2976. * pow(sh, 2) +
4829 7776. * pow(sh, 3) + 566576. * pow(sh, 4) -
4830 1.155544e6 * pow(sh, 5) + 555575. * pow(sh, 6) -
4831 4665. * pow(sh, 7) + 6585. * pow(sh, 8) +
4832 4185. * pow(sh, 9) + 720. * pow(sh, 10))) -
4833 0.01241123023640412 * Lsh * pow(-1 + sh, -8) * pow(sh, -10)*
4834 (120. + 552. * sh + 120. * pow(sh, 2) - 3480. * pow(sh, 3) +
4835 549380. * pow(sh, 4) - 4.49206e6 * pow(sh, 5) +
4836 (1.5939557e7 - 15120. * Lshb) * pow(sh, 6) +
4837 5. * (-6.401093e6 + 15120. * Lshb) * pow(sh, 7) -
4838 160. * (-249128. + 945. * Lshb) * pow(sh, 8) +
4839 160. * (-197248. + 945. * Lshb) * pow(sh, 9) +
4840 (1.551469e7 - 75600. * Lshb) * pow(sh, 10) +
4841 14. * (-309151. + 1080. * Lshb) * pow(sh, 11) +
4842 525160. * pow(sh, 12)) +
4843 0.00020685383727340204 * pow(-1 + sh, -7) * pow(sh, -10)*
4844 (1320. - 96. * sh - 30636. * pow(sh, 2) -
4845 70896. * pow(sh, 3) - 2.603936e6 * pow(sh, 4) +
4846 2.1791024e7 * pow(sh, 5) - 7.0464714e7 * pow(sh, 6) +
4847 151200. * pow(3.141592653589793, 2) * pow(-1 + sh, 4) *
4848 pow(sh, 6) + 1.25759326e8 * pow(sh, 7) -
4849 1.37732314e8 * pow(sh, 8) + 9.4834176e7 * pow(sh, 9) -
4850 3.8854759e7 * pow(sh, 10) + 7.49308e6 * pow(sh, 11) -
4851 545670. * pow(sh, 12) + 1.17158e6 * pow(sh, 13) -
4852 783395. * pow(sh, 14) + 77910. * pow(sh, 15) +
4853 33600. * pow(sh, 16))) * pow(z, 6);
4854 else
4855 res += (2099.7304538674402 + 19515.031680922508 * (1. - sh) +
4856 91328.97681100095 * pow(1. - sh, 2) +
4857 300670.6061024515 * pow(1. - sh, 3) +
4858 log(muh)*(-3127.6300195738386 -
4859 18765.78011744303 * (1. - sh) -
4860 65680.23041105061 * pow(1. - sh, 2) -
4861 175147.28109613495 * pow(1. - sh, 3) -
4862 394081.38246630365 * pow(1. - sh, 4)) +
4863 796731.7474127222 * pow(1. - sh, 4) +
4864 log(z)*(8190.17083300308 +
4865 48527.5999435842 * (1. - sh) +
4866 169220.42220904253 * pow(1. - sh, 2) +
4867 451635.111655464 * pow(1. - sh, 3) +
4868 1.0198531287397521e6 * pow(1. - sh, 4))) * pow(z, 6);
4869 }
4870
4871 if (13 <= maxpow) {
4872 if (sh < .900001)
4873 res += 0.;
4874 else
4875 res += 0.;
4876 }
4877
4878 if (14 <= maxpow) {
4879 if (sh < .900001)
4880 res += (-9650.972631827844 * lmu * pow(sh, -7) -
4881 491.4847173616032 * Li2sh * pow(-1 + sh, -3) * pow(sh, -5) -
4882 491.4847173616032 * pow(Lsh, 2) * pow(-1 + sh, -3) *
4883 pow(sh, -5) - lz *
4884 (-491.4847173616032 * Lsh * pow(-1 + sh, -3) * pow(sh, -5) -
4885 0.017730328909148746 * pow(-1 + sh, -2) * pow(sh, -12)*
4886 (30. + 380. * sh + 2186. * pow(sh, 2) +
4887 7436. * pow(sh, 3) + 15906. * pow(sh, 4) +
4888 1.352004e6 * pow(sh, 5) - 2.76528e6 * pow(sh, 6) +
4889 1.354403e6 * pow(sh, 7) - 16681. * pow(sh, 8) +
4890 9569. * pow(sh, 9) + 8694. * pow(sh, 10) +
4891 3234. * pow(sh, 11) + 399. * pow(sh, 12))) -
4892 0.017730328909148746 * Lsh * pow(-1 + sh, -9) * pow(sh, -12)*
4893 (-60. - 340. * sh - 312. * pow(sh, 2) + 1872. * pow(sh, 3) +
4894 4980. * pow(sh, 4) - 1.332168e6 * pow(sh, 5) +
4895 1.2088242e7 * pow(sh, 6) +
4896 5. * (-9.776695e6 + 5544. * Lshb) * pow(sh, 7) -
4897 30. * (-3.824725e6 + 5544. * Lshb) * pow(sh, 8) +
4898 3. * (-5.7427063e7 + 138600. * Lshb) * pow(sh, 9) +
4899 (1.71668683e8 - 554400. * Lshb) * pow(sh, 10) +
4900 3. * (-3.7845529e7 + 138600. * Lshb) * pow(sh, 11) -
4901 30. * (-1.601585e6 + 5544. * Lshb) * pow(sh, 12) +
4902 2. * (-5.902763e6 + 13860. * Lshb) * pow(sh, 13) +
4903 1.28742e6 * pow(sh, 14)) +
4904 0.000042215068831306535 * pow(-1 + sh, -8) * pow(sh, -12)*
4905 (-3900. - 100. * sh + 116036. * pow(sh, 2) +
4906 329570. * pow(sh, 3) - 93490. * pow(sh, 4) +
4907 1.05811916e8 * pow(sh, 5) - 9.10727068e8 * pow(sh, 6) +
4908 3.32689061e9 * pow(sh, 7) +
4909 1.9404e6 * pow(3.141592653589793, 2) * pow(-1 + sh, 5) *
4910 pow(sh, 7) - 6.892981954e9 * pow(sh, 8) +
4911 8.95115243e9 * pow(sh, 9) - 7.522485491e9 * pow(sh, 10) +
4912 4.037897533e9 * pow(sh, 11) -
4913 1.290569693e9 * pow(sh, 12) +
4914 1.94901398e8 * pow(sh, 13) + 8.064665e6 * pow(sh, 14) -
4915 1.8561445e7 * pow(sh, 15) + 1.7389365e7 * pow(sh, 16) -
4916 7.700448e6 * pow(sh, 17) + 658266. * pow(sh, 18) +
4917 264600. * pow(sh, 19))) * pow(z, 7);
4918 else
4919 res += (9578.002977728951 + 90591.13670883651 * (1. - sh) +
4920 454740.084732464 * pow(1. - sh, 2) +
4921 1.6274729201675933e6 * pow(1. - sh, 3) +
4922 log(muh)*(-9650.972631827844 -
4923 67556.80842279491 * (1. - sh) -
4924 270227.23369117966 * pow(1. - sh, 2) -
4925 810681.701073539 * pow(1. - sh, 3) -
4926 2.0267042526838474e6 * pow(1. - sh, 4)) +
4927 4.693965288441072e6 * pow(1. - sh, 4) +
4928 log(z)*(27844.116316492098 +
4929 192981.35015973114 * (1. - sh) +
4930 770003.1492999103 * pow(1. - sh, 2) +
4931 2.3136505305141844e6 * pow(1. - sh, 3) +
4932 5.808370113148497e6 * pow(1. - sh, 4))) * pow(z, 7);
4933 }
4934
4935 if (15 <= maxpow) {
4936 if (sh < .900001)
4937 res += 0.;
4938 else
4939 res += 0.;
4940 }
4941
4942 if (16 <= maxpow) {
4943 if (sh < .900001)
4944 res += (-30963.537193781 * lmu * pow(sh, -8) -
4945 1369.1359983644659 * Li2sh * pow(-1 + sh, -3) * pow(sh, -6) -
4946 1369.1359983644659 * pow(Lsh, 2) * pow(-1 + sh, -3) *
4947 pow(sh, -6) - lz *
4948 (-1369.1359983644659 * Lsh * pow(-1 + sh, -3) * pow(sh, -6) -
4949 0.001266452064939196 * pow(-1 + sh, -2) * pow(sh, -14)*
4950 (315. + 4635. * sh + 31515. * pow(sh, 2) +
4951 130299. * pow(sh, 3) + 359619. * pow(sh, 4) +
4952 665379. * pow(sh, 5) + 6.6151919e7 * pow(sh, 6) -
4953 1.35470551e8 * pow(sh, 7) + 6.7113242e7 * pow(sh, 8) -
4954 941808. * pow(sh, 9) + 284172. * pow(sh, 10) +
4955 360612. * pow(sh, 11) + 176862. * pow(sh, 12) +
4956 48090. * pow(sh, 13) + 4620. * pow(sh, 14))) -
4957 0.002532904129878392 * Lsh * pow(-1 + sh, -10) * pow(sh, -14)*
4958 (315. + 2115. * sh + 3255. * pow(sh, 2) -
4959 9681. * pow(sh, 3) - 37863. * pow(sh, 4) -
4960 21231. * pow(sh, 5) + 3.2813515e7 * pow(sh, 6) -
4961 3.294172e8 * pow(sh, 7) -
4962 39. * (-3.8321329e7 + 13860. * Lshb) * pow(sh, 8) +
4963 42. * (-9.5458711e7 + 90090. * Lshb) * pow(sh, 9) -
4964 42. * (-1.67531213e8 + 270270. * Lshb) * pow(sh, 10) +
4965 420. * (-2.0098649e7 + 45045. * Lshb) * pow(sh, 11) -
4966 2100. * (-3.338711e6 + 9009. * Lshb) * pow(sh, 12) +
4967 84. * (-4.7391601e7 + 135135. * Lshb) * pow(sh, 13) -
4968 21. * (-7.0412477e7 + 180180. * Lshb) * pow(sh, 14) +
4969 (-3.24500326e8 + 540540. * Lshb) * pow(sh, 15) +
4970 3.1967803e7 * pow(sh, 16)) -
4971 1.507681029689519e-6 * pow(-1 + sh, -9) * pow(sh, -14)*
4972 (-70875. - 6750. * sh + 2.654475e6 * pow(sh, 2) +
4973 9.126108e6 * pow(sh, 3) + 678627. * pow(sh, 4) -
4974 4.643019e7 * pow(sh, 5) + 1.5345996055e10 * pow(sh, 6) -
4975 1.4348857176e11 * pow(sh, 7) +
4976 5.91466492647e11 * pow(sh, 8) -
4977 1.513512e8 * pow(3.141592653589793, 2) * pow(-1 + sh, 6) *
4978 pow(sh, 8) - 1.415943215622e12 * pow(sh, 9) +
4979 2.178821872845e12 * pow(sh, 10) -
4980 2.24337645648e12 * pow(sh, 11) +
4981 1.552421630265e12 * pow(sh, 12) -
4982 7.00737702894e11 * pow(sh, 13) +
4983 1.89129808485e11 * pow(sh, 14) -
4984 2.3911342252e10 * pow(sh, 15) +
4985 1.14148692e9 * pow(sh, 16) - 2.22118512e9 * pow(sh, 17) +
4986 2.487344244e9 * pow(sh, 18) -
4987 1.56858156e9 * pow(sh, 19) + 5.01486552e8 * pow(sh, 20) -
4988 3.056844e7 * pow(sh, 21) - 1.397088e7 * pow(sh, 22))) *
4989 pow(z, 8);
4990 else
4991 res += (40161.85009597605 + 403454.99326336605 * (1. - sh) +
4992 2.1866803584763454e6 * pow(1. - sh, 2) +
4993 8.483425144271815e6 * pow(1. - sh, 3) +
4994 log(muh)*(-30963.537193781 -
4995 247708.297550248 * (1. - sh) -
4996 1.114687338976116e6 * pow(1. - sh, 2) -
4997 3.71562446325372e6 * pow(1. - sh, 3) -
4998 1.021796727394773e7 * pow(1. - sh, 4)) +
4999 2.6489409680208746e7 * pow(1. - sh, 4) +
5000 log(z)*(97097.39806997219 +
5001 770481.1057763142 * (1. - sh) +
5002 3.461164952904078e6 * pow(1. - sh, 2) +
5003 1.1560034432357585e7 * pow(1. - sh, 3) +
5004 3.1932028892972782e7 * pow(1. - sh, 4))) * pow(z, 8);
5005 }
5006
5007 if (17 <= maxpow) {
5008 if (sh < .900001)
5009 res += 0.;
5010 else
5011 res += 0.;
5012 }
5013
5014 if (18 <= maxpow) {
5015 if (sh < .900001)
5016 res += (-102228.82121121346 * lmu * pow(sh, -9) -
5017 3993.313328563026 * Li2sh * pow(-1 + sh, -3) * pow(sh, -7) -
5018 3993.313328563026 * pow(Lsh, 2) * pow(-1 + sh, -3) *
5019 pow(sh, -7) - lz *
5020 (-3993.313328563026 * Lsh * pow(-1 + sh, -3) * pow(sh, -7) -
5021 0.0036938185227393216 * pow(-1 + sh, -2) * pow(sh, -16)*
5022 (84. + 1407. * sh + 11019. * pow(sh, 2) +
5023 53355. * pow(sh, 3) + 177339. * pow(sh, 4) +
5024 420771. * pow(sh, 5) + 695955. * pow(sh, 6) +
5025 8.0686627e7 * pow(sh, 7) - 1.65305039e8 * pow(sh, 8) +
5026 8.25115e7 * pow(sh, 9) - 1.2204e6 * pow(sh, 10) +
5027 196344. * pow(sh, 11) + 374004. * pow(sh, 12) +
5028 218268. * pow(sh, 13) + 79164. * pow(sh, 14) +
5029 17172. * pow(sh, 15) + 1350. * pow(sh, 16))) -
5030 0.0036938185227393216 * Lsh * pow(-1 + sh, -11) * pow(sh, -16)*
5031 (-168. - 1302. * sh - 2760. * pow(sh, 2) +
5032 4440. * pow(sh, 3) + 27552. * pow(sh, 4) +
5033 26796. * pow(sh, 5) - 59136. * pow(sh, 6) -
5034 8.0178328e7 * pow(sh, 7) + 8.85522242e8 * pow(sh, 8) +
5035 (-4.455681973e9 + 1.08108e6 * Lshb) * pow(sh, 9) -
5036 36. * (-3.73310921e8 + 240240. * Lshb) * pow(sh, 10) +
5037 55440. * (-486509. + 546. * Lshb) * pow(sh, 11) -
5038 504. * (-7.5023647e7 + 120120. * Lshb) * pow(sh, 12) +
5039 84. * (-4.49774219e8 + 900900. * Lshb) * pow(sh, 13) -
5040 240. * (-1.12105241e8 + 252252. * Lshb) * pow(sh, 14) +
5041 24. * (-5.57582173e8 + 1.26126e6 * Lshb) * pow(sh, 15) +
5042 (4.426935664e9 - 8.64864e6 * Lshb) * pow(sh, 16) +
5043 (-8.76740327e8 + 1.08108e6 * Lshb) * pow(sh, 17) +
5044 7.8847504e7 * pow(sh, 18)) -
5045 2.9316020021740647e-6 * pow(-1 + sh, -10) * pow(sh, -16)*
5046 (24990. + 3675. * sh - 1.155555e6 * pow(sh, 2) -
5047 4.697175e6 * pow(sh, 3) - 2.300739e6 * pow(sh, 4) +
5048 2.4304707e7 * pow(sh, 5) + 4.9414911e7 * pow(sh, 6) -
5049 3.5555744717e10 * pow(sh, 7) +
5050 3.63795694607e11 * pow(sh, 8) -
5051 1.673813526981e12 * pow(sh, 9) -
5052 2.270268e8 * pow(3.141592653589793, 2) * pow(-1 + sh, 7) *
5053 pow(sh, 9) + 4.554015894201e12 * pow(sh, 10) -
5054 8.127350542815e12 * pow(sh, 11) +
5055 9.960251835135e12 * pow(sh, 12) -
5056 8.507649883005e12 * pow(sh, 13) +
5057 5.015942498283e12 * pow(sh, 14) -
5058 1.962379873869e12 * pow(sh, 15) +
5059 4.63995107234e11 * pow(sh, 16) -
5060 5.1382668638e10 * pow(sh, 17) -
5061 1.45210023e9 * pow(sh, 18) +
5062 4.602427326e9 * pow(sh, 19) -
5063 6.429483144e9 * pow(sh, 20) +
5064 5.36052951e9 * pow(sh, 21) - 2.64447351e9 * pow(sh, 22) +
5065 6.66882918e8 * pow(sh, 23) - 2.7794799e7 * pow(sh, 24) -
5066 1.513512e7 * pow(sh, 25))) * pow(z, 9);
5067 else
5068 res += (162348.40292881487 + 1.7529724360976778e6 * (1. - sh) +
5069 1.0256186898134898e7 * pow(1. - sh, 2) +
5070 4.2955517822645485e7 * pow(1. - sh, 3) +
5071 log(muh)*(-102228.82121121346 -
5072 920059.3909009212 * (1. - sh) -
5073 4.600296954504606e6 * pow(1. - sh, 2) -
5074 1.686775549985022e7 * pow(1. - sh, 3) -
5075 5.060326649955066e7 * pow(1. - sh, 4)) +
5076 1.4446294675132388e8 * pow(1. - sh, 4) +
5077 log(z)*(344809.38943874295 +
5078 3.08210039661968e6 * (1. - sh) +
5079 1.5391563066319158e7 * pow(1. - sh, 2) +
5080 5.6559239118621774e7 * pow(1. - sh, 3) +
5081 1.7045200046472126e8 * pow(1. - sh, 4))) * pow(z, 9);
5082 }
5083
5084 if (19 <= maxpow) {
5085 if (sh < .900001)
5086 res += 0.;
5087 else
5088 res += 0.;
5089 }
5090
5091 if (20 <= maxpow) {
5092 if (sh < .900001)
5093 res += (-345022.27158784546 * lmu * pow(sh, -10) -
5094 12068.680281879368 * Li2sh * pow(-1 + sh, -3) * pow(sh, -8) -
5095 12068.680281879368 * pow(Lsh, 2) * pow(-1 + sh, -3) *
5096 pow(sh, -8) - lz *
5097 (-12068.680281879368 * Lsh * pow(-1 + sh, -3) * pow(sh, -8) -
5098 0.0004925091363652429 * pow(-1 + sh, -2) * pow(sh, -18)*
5099 (504. + 9464. * sh + 83804. * pow(sh, 2) +
5100 463964. * pow(sh, 3) + 1.792004e6 * pow(sh, 4) +
5101 5.082116e6 * pow(sh, 5) + 1.0736996e7 * pow(sh, 6) +
5102 1.6220516e7 * pow(sh, 7) +
5103 2.181841484e9 * pow(sh, 8) -
5104 4.46987794e9 * pow(sh, 9) +
5105 2.242757169e9 * pow(sh, 10) -
5106 3.3805539e7 * pow(sh, 11) + 2.425761e6 * pow(sh, 12) +
5107 8.640081e6 * pow(sh, 13) + 5.776731e6 * pow(sh, 14) +
5108 2.476035e6 * pow(sh, 15) + 730935. * pow(sh, 16) +
5109 132615. * pow(sh, 17) + 8820. * pow(sh, 18))) -
5110 0.0004925091363652429 * Lsh * pow(-1 + sh, -12) * pow(sh, -18)*
5111 (1008. + 8848. * sh + 23688. * pow(sh, 2) -
5112 17352. * pow(sh, 3) - 212592. * pow(sh, 4) -
5113 311184. * pow(sh, 5) + 400176. * pow(sh, 6) +
5114 1.492176e6 * pow(sh, 7) + 2.168707464e9 * pow(sh, 8) -
5115 2.614996692e10 * pow(sh, 9) -
5116 39. * (-3.707091121e9 + 628320. * Lshb) * pow(sh, 10) +
5117 9. * (-5.3800645531e10 + 2.450448e7 * Lshb) *
5118 pow(sh, 11) - 36. *
5119 (-3.0370262471e10 + 2.450448e7 * Lshb) * pow(sh, 12) +
5120 120120. * (-1.4593549e7 + 17136. * Lshb) * pow(sh, 13) -
5121 1008. * (-2.029981021e9 + 3.06306e6 * Lshb) *
5122 pow(sh, 14) + 504. *
5123 (-3.476232167e9 + 6.12612e6 * Lshb) * pow(sh, 15) -
5124 2352. * (-4.64302499e8 + 875160. * Lshb) * pow(sh, 16) +
5125 72. * (-6.711321751e9 + 1.225224e7 * Lshb) * pow(sh, 17) -
5126 18. * (-8.004613297e9 + 1.225224e7 * Lshb) * pow(sh, 18) +
5127 (-2.5997681938e10 + 2.450448e7 * Lshb) * pow(sh, 19) +
5128 2.147289408e9 * pow(sh, 20)) +
5129 1.95440133478271e-7 * pow(-1 + sh, -11) * pow(sh, -18)*
5130 (268128. + 50176. * sh - 1.5037316e7 * pow(sh, 2) -
5131 7.0758368e7 * pow(sh, 3) - 6.454424e7 * pow(sh, 4) +
5132 3.47363296e8 * pow(sh, 5) + 9.86787592e8 * pow(sh, 6) +
5133 3.5646688e7 * pow(sh, 7) -
5134 2.256631448624e12 * pow(sh, 8) +
5135 2.5235654405248e13 * pow(sh, 9) -
5136 1.28349595677322e14 * pow(sh, 10) +
5137 1.02918816e10 * pow(3.141592653589793, 2) *
5138 pow(-1 + sh, 8) * pow(sh, 10) +
5139 3.91335165488006e14 * pow(sh, 11) -
5140 7.95205485397036e14 * pow(sh, 12) +
5141 1.131873241929248e15 * pow(sh, 13) -
5142 1.152918562112926e15 * pow(sh, 14) +
5143 8.41687395958136e14 * pow(sh, 15) -
5144 4.32532523359468e14 * pow(sh, 16) +
5145 1.49507294517008e14 * pow(sh, 17) -
5146 3.1460926993849e13 * pow(sh, 18) +
5147 3.102547096368e12 * pow(sh, 19) -
5148 9.5864935068e10 * pow(sh, 20) +
5149 2.69818915464e11 * pow(sh, 21) -
5150 4.54966309854e11 * pow(sh, 22) +
5151 4.78236408048e11 * pow(sh, 23) -
5152 3.2126306742e11 * pow(sh, 24) +
5153 1.3173020316e11 * pow(sh, 25) -
5154 2.7741591765e10 * pow(sh, 26) +
5155 8.0713269e8 * pow(sh, 27) + 5.189184e8 * pow(sh, 28))) *
5156 pow(z, 10);
5157 else
5158 res += (644254.0137035465 + 7.493223537446329e6 * (1. - sh) +
5159 4.720371172464203e7 * pow(1. - sh, 2) +
5160 2.125124872327622e8 * pow(1. - sh, 3) +
5161 log(muh)*(-345022.27158784546 -
5162 3.4502227158784545e6 * (1. - sh) -
5163 1.8976224937331498e7 * pow(1. - sh, 2) -
5164 7.590489974932599e7 * pow(1. - sh, 3) -
5165 2.466909241853095e8 * pow(1. - sh, 4)) +
5166 7.661513926733323e8 * pow(1. - sh, 4) +
5167 log(z)*(1.2414164251232008e6 +
5168 1.2341289851214426e7 * (1. - sh) +
5169 6.781685298675093e7 * pow(1. - sh, 2) +
5170 2.718874874350479e8 * pow(1. - sh, 3) +
5171 8.876628109013227e8 * pow(1. - sh, 4))) * pow(z, 10);
5172 }
5173 }
5174 return res;
5175}

◆ F_29re()

double F_2::F_29re ( double  muh,
double  z,
double  sh,
int  maxpow = 20 
)

Definition at line 2435 of file F_2.cpp.

2436{
2437 double lz = log(z);
2438 double lmu = log(muh);
2439 double Lsh = log(sh);
2440 double sh2 = pow(sh, 2);
2441 double sh3 = pow(sh, 3);
2442 double lz2 = pow(lz, 2);
2443 double lz3 = pow(lz, 3);
2444 double sqrtz = pow(z, 0.5);
2445 double z2 = pow(z, 2);
2446 double z3 = pow(z, 3);
2447
2448
2449 double res = 0;
2450
2451 if (sh < 0.4) {
2452 res = -24.2913 + 0.296296 * Lsh + 0.3950617283950617 * lmu * Lsh +
2453 lmu * (1.0534979423868314 - 7.111111111111111 * lz) -
2454 11.55555 * lz - 26.8464 * sh - 4.444445 * lz * sh - 86.7723 * z +
2455 3.55556 * Lsh * z - 28.77965 * lz * z - 428.313 * sh * z +
2456 16. * Lsh * sh * z - 25.4303 * lz * sh * z + 3.555555 * Lsh * lz * sh * z +
2457 6.320987654320987 * pow(lmu, 2) + 1.7777775 * z * lz2 -
2458 18.808425 * sh * z * lz2 + 0.5925925 * z * lz3 +
2459 0.5925925 * sh * z * lz3 - 0.29629625 * sh * z * pow(lz, 4) -
2460 222.769 * sh2 - 0.0987654 * Lsh * sh2 -
2461 66.186 * lz * sh2 - 1276.44 * z * sh2 +
2462 32. * Lsh * z * sh2 + 65.7645 * lz * z * sh2 +
2463 7.1111 * Lsh * lz * z * sh2 - 8. * lz2 * sh2 -
2464 85.7585 * z * lz2 * sh2 -
2465 0.5925925 * lz3 * sh2 +
2466 1.777775 * z * lz3 * sh2 -
2467 0.8888875 * z * pow(lz, 4) * sh2 - 478.485 * sh3 -
2468 0.131687 * Lsh * sh3 - 171.951 * lz * sh3 -
2469 2553.47 * z * sh3 + 49.7778 * Lsh * z * sh3 +
2470 206.4045 * lz * z * sh3 + 10.66665 * Lsh * lz * z * sh3 -
2471 16.8889 * lz2 * sh3 -
2472 194.03575 * z * lz2 * sh3 -
2473 1.777775 * lz3 * sh3 +
2474 4.14815 * z * lz3 * sh3 -
2475 1.777775 * z * pow(lz, 4) * sh3 +
2476 lmu * sh3*(-0.00125416421712718 +
2477 0.022574955908289243 * pow(z, -3)) -
2478 0.0142243 * sh3 * pow(z, -3) +
2479 lmu * sh2*(-0.008465608465608466 +
2480 0.1523809523809524 * pow(z, -2)) -
2481 0.0132191 * sh2 * pow(z, -2) +
2482 0.0288536 * sh3 * pow(z, -2) + 0.8462 * sh * pow(z, -1) +
2483 0.367901 * sh2 * pow(z, -1) +
2484 10.8601 * sh3 * pow(z, -1) +
2485 2.758375 * lz * sh3 * pow(z, -1) +
2486 0.2962975 * lz2 * sh3 * pow(z, -1) +
2487 lmu * sh * (-0.07901234567901234 +
2488 1.4222222222222223 * pow(z, -1)) +
2489 140.368 * sh * sqrtz + 842.206 * sh2 * sqrtz +
2490 sh3*(-46.7892 * pow(z, -0.5) + 1918.36 * sqrtz) -
2491 23.3946 * pow(z, 1.5) + 96.5187 * z2 -
2492 29.7586 * Lsh * z2 - 162.7315 * lz * z2 +
2493 3.555555 * Lsh * lz * z2 + 108.781 * sh * z2 -
2494 111.923 * Lsh * sh * z2 - 448.7875 * lz * sh * z2 +
2495 14.2222 * Lsh * lz * sh * z2 +
2496 23.1111 * lz2 * z2 +
2497 3.55555 * Lsh * lz2 * z2 +
2498 73.77775 * sh * lz2 * z2 +
2499 14.222225 * Lsh * sh * lz2 * z2 +
2500 2.9629625 * lz3 * z2 +
2501 8.2963 * sh * lz3 * z2 +
2502 268.098 * sh2 * z2 -
2503 244.716 * Lsh * sh2 * z2 -
2504 816.045 * lz * sh2 * z2 +
2505 42.66665 * Lsh * lz * sh2 * z2 +
2506 178.66675 * lz2 * sh2 * z2 +
2507 32. * Lsh * lz2 * sh2 * z2 +
2508 16. * lz3 * sh2 * z2 +
2509 527.368 * sh3 * z2 -
2510 421.619 * Lsh * sh3 * z2 -
2511 1252.835 * lz * sh3 * z2 +
2512 94.815 * Lsh * lz * sh3 * z2 +
2513 340.74 * lz2 * sh3 * z2 +
2514 56.889 * Lsh * lz2 * sh3 * z2 +
2515 26.074125 * lz3 * sh3 * z2 +
2516 88.3801 * z3 + 55.2172 * Lsh * z3 +
2517 85.7285 * lz * z3 + 3.160495 * Lsh * lz * z3 +
2518 437.34 * sh * z3 + 249.663 * Lsh * sh * z3 +
2519 204.405 * lz * sh * z3 + 7.1111 * Lsh * lz * sh * z3 -
2520 30.22225 * lz2 * z3 -
2521 4.74075 * Lsh * lz2 * z3 -
2522 95.4075 * sh * lz2 * z3 -
2523 21.333325 * Lsh * sh * lz2 * z3 +
2524 823.218 * sh2 * z3 +
2525 668.137 * Lsh * sh2 * z3 +
2526 298.311 * lz * sh2 * z3 -
2527 253.3325 * lz2 * sh2 * z3 -
2528 56.889 * Lsh * lz2 * sh2 * z3 +
2529 1675.61 * sh3 * z3 +
2530 1391.36 * Lsh * sh3 * z3 +
2531 440.5585 * lz * sh3 * z3 -
2532 35.55555 * Lsh * lz * sh3 * z3 -
2533 496.89 * lz2 * sh3 * z3 -
2534 118.5185 * Lsh * lz2 * sh3 * z3;
2535 } else {
2536 double Lshb = log(1. - sh);
2537 double sqrtsh = sqrt(sh);
2538 double sqrt4sh = sqrt(4. - sh);
2539 double Li2sh = real(Li2(sh));
2540 double Li3sh = real(Li3(sh));
2541 double Li3shb = real(Li3(1. - sh));
2542 double Li4sh = real(Li4(sh));
2543 double ash = asin(sqrtsh / 2.);
2544 double cl2 = Cl2(2. * ash);
2545 double cl3 = Cl3(2. * ash);
2546 if (0 <= maxpow) {
2547 if (sh < .900001)
2548 res += (8.547960200246003 + 6.320987654320987 * pow(lmu, 2) +
2549 0.19753086419753085 * Li2sh * (-8. + 17. * sh) *
2550 pow(-1 + sh, -1) + 0.19753086419753085 * cl2 * (2. + sh) *
2551 sqrt4sh * sqrtsh * pow(sh, -2) -
2552 lmu * (6.716049382716049 * Lsh -
2553 0.7901234567901234 * ash * (2. + sh) * sqrt4sh * sqrtsh *
2554 pow(sh, -2) + 0.3950617283950617 * (4. - 31. * sh) *
2555 pow(sh, -1)) - 0.8888888888888888 * pow(Lsh, 2) *
2556 pow(-1 + sh, -3) * pow(sh, 2) -
2557 Lsh * (-0.19753086419753085 * ash * (2. + sh) * sqrt4sh *
2558 sqrtsh * pow(sh, -2) -
2559 0.09876543209876543 * pow(-1 + sh, -2)*
2560 (-114. + 199. * sh - 67. * pow(sh, 2) +
2561 2. * Lshb * (8. - 25. * sh + 17. * pow(sh, 2)))) +
2562 0.19753086419753085 * ash * sqrt4sh * sqrtsh * pow(-1 + sh, -3) *
2563 pow(sh, -2)*(-4. + 3. * sh + 18. * pow(sh, 2) -
2564 16. * pow(sh, 3) + 5. * pow(sh, 4)) +
2565 0.5925925925925926 * pow(ash, 2) * pow(-1 + sh, -4) *
2566 pow(sh, -1)*(12. - 33. * sh + 18. * pow(sh, 2) -
2567 4. * pow(sh, 4) + pow(sh, 5)) -
2568 0.0054869684499314125 * pow(-1 + sh, -4) * pow(sh, -1)*
2569 (288. + 5. * sh * (79. + 60. * pow(3.141592653589793, 2)) -
2570 2. * (2257. + 618. * pow(3.141592653589793, 2)) *
2571 pow(sh, 2) + 6. * (1391. +
2572 306. * pow(3.141592653589793, 2)) * pow(sh, 3) -
2573 10. * (617. + 123. * pow(3.141592653589793, 2)) *
2574 pow(sh, 4) + (1655. +
2575 312. * pow(3.141592653589793, 2)) * pow(sh, 5))) *
2576 pow(z, 0);
2577 else
2578 res += pow(z, 0)*(-4.256813794434612 +
2579 6.247387287113509 * (1. - sh) +
2580 4.358260258488125 * pow(1. - sh, 2) +
2581 3.2040567770853476 * pow(1. - sh, 3) +
2582 2.512816857053804 * pow(1. - sh, 4) +
2583 log(muh)*(12.81635480205537 +
2584 6.816868131135554 * (1. - sh) +
2585 3.34395932171576 * pow(1. - sh, 2) +
2586 2.241420882666335 * pow(1. - sh, 3) +
2587 1.6783963168171898 * pow(1. - sh, 4)) +
2588 6.320987654320987 * pow(log(muh), 2));
2589 }
2590
2591 if (1 <= maxpow) {
2592 if (sh < .900001)
2593 res += 0.;
2594 else
2595 res += 0.;
2596 }
2597
2598 if (2 <= maxpow) {
2599 if (sh < .900001)
2600 res += (0.5925925925925926 * sh * pow(Lsh, 4) * pow(-1 + sh, -3) -
2601 3.5555555555555554 * Li2sh * (1. + 2. * sh) *
2602 pow(-1 + sh, -2) + 1.1851851851851851 * (-3. + sh) *
2603 pow(Lsh, 3) * pow(-1 + sh, -2) +
2604 42.666666666666664 * lmu * pow(sh, -1) -
2605 lz * (64. * Li2sh * pow(9 - 9 * sh, -1) -
2606 3.5555555555555554 * Lsh *
2607 (2. + 2. * Lshb * (-1. + sh) + sh) * pow(-1 + sh, -2) +
2608 3.5555555555555554 * pow(Lsh, 2) * pow(-1 + sh, -1) +
2609 1.1851851851851851 *
2610 (-18. + sh * (27. + pow(3.141592653589793, 2))) *
2611 pow(-1 + sh, -1) * pow(sh, -1)) -
2612 4.273980100123001 * pow(-1 + sh, -3)*
2613 (-3. + 3. * sh + 2. * pow(sh, 2)) +
2614 3.5555555555555554 * ash * sqrt4sh * sqrtsh * pow(-1 + sh, -3) *
2615 pow(sh, -1)*(2. - 11. * sh + 3. * pow(sh, 2)) -
2616 3.5555555555555554 * Li3sh * pow(-1 + sh, -3)*
2617 (-3. - 3. * sh + 4. * pow(sh, 2)) -
2618 pow(Lsh, 2)*(-7.111111111111111 * Li2sh * sh *
2619 pow(-1 + sh, -3) -
2620 0.5925925925925926 * pow(-1 + sh, -3)*
2621 (12. + 3. * Lshb * (-7. + 5. * sh) +
2622 2. * sh * (-6. + pow(3.141592653589793, 2)) +
2623 3. * pow(sh, 2))) +
2624 21.333333333333332 * pow(ash, 2) * pow(-1 + sh, -4)*
2625 (-1. + 8. * sh - 5. * pow(sh, 2) + pow(sh, 3)) -
2626 Lsh * (-34.19184080098401 * sh * pow(-1 + sh, -3) +
2627 28.444444444444443 * Li3sh * sh * pow(-1 + sh, -3) -
2628 3.5555555555555554 * Li2sh * pow(-1 + sh, -3)*
2629 (-5. + sh + 2. * pow(sh, 2)) +
2630 0.5925925925925926 * pow(-1 + sh, -3) * pow(sh, -1)*
2631 (36. - sh * (66. + 6. * Lshb +
2632 7. * pow(3.141592653589793, 2)) +
2633 (69. - 6. * Lshb + 5. * pow(3.141592653589793, 2)) *
2634 pow(sh, 2) + 3. * (-13. + 4. * Lshb) * pow(sh, 3))) +
2635 0.11851851851851852 * pow(-1 + sh, -4) * pow(sh, -1)*
2636 (-4. * (-1. + sh) * pow(3.141592653589793, 4) * pow(sh, 2) +
2637 15. * (-1. + sh)*(-56. + 156. * sh +
2638 3. * (-49. + 8. * Li4sh) * pow(sh, 2) + 47. * pow(sh, 3))\
2639 + 5. * pow(3.141592653589793, 2)*
2640 (-3. + 8. * sh - 10. * pow(sh, 2) + 2. * pow(sh, 4)))) *
2641 pow(z, 1);
2642 else
2643 res += (67.82325420628487 + 57.04716984919418 * (1. - sh) +
2644 51.233916954097545 * pow(1. - sh, 2) +
2645 45.87999913302814 * pow(1. - sh, 3) +
2646 log(z)*(-16. - 17.77777777777778 * (1. - sh) -
2647 18.469135802469136 * pow(1. - sh, 2) -
2648 18.874074074074073 * pow(1. - sh, 3) -
2649 19.152592592592594 * pow(1. - sh, 4)) +
2650 41.468913753494085 * pow(1. - sh, 4) +
2651 log(muh)*(42.666666666666664 +
2652 42.666666666666664 * (1. - sh) +
2653 42.666666666666664 * pow(1. - sh, 2) +
2654 42.666666666666664 * pow(1. - sh, 3) +
2655 42.666666666666664 * pow(1. - sh, 4))) * pow(z, 1);
2656 }
2657
2658 if (3 <= maxpow) {
2659 if (sh < .900001)
2660 res += -2.3703703703703702 * (-2. + sh) * pow(3.141592653589793, 2) *
2661 pow(sh, -1) * pow(z, 1.5);
2662 else
2663 res += (23.39461783961922 + 46.78923567923844 * (1. - sh) +
2664 46.78923567923844 * pow(1. - sh, 2) +
2665 46.78923567923844 * pow(1. - sh, 3) +
2666 46.78923567923844 * pow(1. - sh, 4)) * pow(z, 1.5);
2667 }
2668
2669 if (4 <= maxpow) {
2670 if (sh < .900001)
2671 res += (3.5555555555555554 * Li3shb * (6. + sh) * pow(-1 + sh, -3) +
2672 3.5555555555555554 * Li3sh * (-11. + 3. * sh) *
2673 pow(-1 + sh, -3) + 0.5925925925925926 * (2. + sh) *
2674 pow(Lsh, 3) * pow(-1 + sh, -3) -
2675 lmu * (-21.333333333333332 * pow(sh, -2) -
2676 42.666666666666664 * Lsh * pow(sh, -2)) -
2677 3.5555555555555554 * Li2sh * pow(-1 + sh, -3) * pow(sh, -2)*
2678 (-3. + 10. * sh - 9. * pow(sh, 2) + pow(sh, 3)) -
2679 3.5555555555555554 * cl2 * sqrt4sh * sqrtsh * pow(-1 + sh, -3) *
2680 pow(sh, -1)*(2. + 8. * pow(sh, 2) - 5. * pow(sh, 3) +
2681 pow(sh, 4)) + 3.5555555555555554 * ash * sqrt4sh * sqrtsh *
2682 pow(-1 + sh, -3) * pow(sh, -1)*
2683 (-2. - 4. * sh + 24. * pow(sh, 2) - 15. * pow(sh, 3) +
2684 3. * pow(sh, 4)) - 4.273980100123001 * pow(-1 + sh, -4) *
2685 pow(sh, -2)*(8. - 32. * sh + 57. * pow(sh, 2) -
2686 52. * pow(sh, 3) + 13. * pow(sh, 4)) -
2687 0.8888888888888888 * pow(Lsh, 2) * pow(-1 + sh, -4) *
2688 pow(sh, -2)*(-31. + 113. * sh +
2689 3. * (-53. + 2. * Lshb) * pow(sh, 2) +
2690 (87. - 8. * Lshb) * pow(sh, 3) +
2691 2. * (-8. + Lshb) * pow(sh, 4)) -
2692 Lsh * (3.5555555555555554 * Li2sh * (-7. + 2. * sh) *
2693 pow(-1 + sh, -3) +
2694 21.333333333333332 * pow(ash, 2) * pow(-1 + sh, -4)*
2695 (-1. - 3. * sh + pow(sh, 2)) +
2696 0.2962962962962963 * pow(-1 + sh, -3) * pow(sh, -2)*
2697 (333. - 1032. * sh +
2698 (1089. - 46. * pow(3.141592653589793, 2)) *
2699 pow(sh, 2) + 2. *
2700 (-153. + pow(3.141592653589793, 2)) * pow(sh, 3) +
2701 12. * Lshb * (-3. + 10. * sh - 9. * pow(sh, 2) +
2702 pow(sh, 3))) +
2703 3.5555555555555554 * ash * sqrt4sh * sqrtsh *
2704 pow(-1 + sh, -3) * pow(sh, -1)*
2705 (2. + 8. * pow(sh, 2) - 5. * pow(sh, 3) + pow(sh, 4))) +
2706 10.666666666666666 * pow(ash, 2) * pow(-1 + sh, -4)*
2707 (4. - 2. * sh - 24. * pow(sh, 2) + 23. * pow(sh, 3) -
2708 8. * pow(sh, 4) + pow(sh, 5)) -
2709 pow(lz, 2)*(1.7777777777777777 * Lsh * (6. + sh) *
2710 pow(-1 + sh, -3) +
2711 0.8888888888888888 * pow(-1 + sh, -2) * pow(sh, -2)*
2712 (-28. + 54. * sh - 47. * pow(sh, 2) + 12. * pow(sh, 3) -
2713 6. * pow(sh, 4) + pow(sh, 5))) -
2714 lz * (-3.5555555555555554 * Li2sh * (6. + sh) *
2715 pow(-1 + sh, -3) +
2716 1.7777777777777777 * pow(Lsh, 2) * pow(-1 + sh, -2) +
2717 42.666666666666664 * lmu * pow(sh, -2) +
2718 42.666666666666664 * pow(ash, 2) * pow(-1 + sh, -4)*
2719 (-1. - 3. * sh + pow(sh, 2)) -
2720 1.7777777777777777 * Lsh * pow(-1 + sh, -3) * pow(sh, -2)*
2721 (29. - 82. * sh + 3. * (25. + 4. * Lshb) * pow(sh, 2) +
2722 2. * (-12. + Lshb) * pow(sh, 3)) +
2723 7.111111111111111 * ash * sqrt4sh * sqrtsh *
2724 pow(-1 + sh, -3) * pow(sh, -1)*
2725 (2. + 8. * pow(sh, 2) - 5. * pow(sh, 3) + pow(sh, 4)) -
2726 0.2962962962962963 * pow(-1 + sh, -4) * pow(sh, -2)*
2727 (2. * pow(3.141592653589793, 2) * pow(sh, 2)*
2728 (4. - 11. * sh + pow(sh, 2)) +
2729 3. * pow(-1 + sh, 2)*
2730 (-108. + 216. * sh - 135. * pow(sh, 2) +
2731 32. * pow(sh, 3) - 20. * pow(sh, 4) + 3. * pow(sh, 5)))
2732 ) - 0.14814814814814814 * pow(-1 + sh, -4)*
2733 (-144. * cl3 * (-1. - 3. * sh + pow(sh, 2)) +
2734 pow(sh, -2)*(pow(-1 + sh, 2)*
2735 (-232. + 560. * sh - 757. * pow(sh, 2) +
2736 336. * pow(sh, 3) - 168. * pow(sh, 4) +
2737 21. * pow(sh, 5)) +
2738 2. * pow(3.141592653589793, 2)*
2739 (45. - 151. * sh + 211. * pow(sh, 2) -
2740 135. * pow(sh, 3) - 14. * pow(sh, 4) +
2741 52. * pow(sh, 5) - 16. * pow(sh, 6) + 2. * pow(sh, 7)))
2742 )) * pow(z, 2);
2743 else
2744 res += pow(z, 2)*(-165.12748700917908 -
2745 411.3508120821892 * (1. - sh) -
2746 670.1268907046218 * pow(1. - sh, 2) -
2747 925.5677817546755 * pow(1. - sh, 3) +
2748 log(muh)*(21.333333333333332 -
2749 42.666666666666664 * pow(1. - sh, 2) -
2750 99.55555555555556 * pow(1. - sh, 3) -
2751 167.11111111111111 * pow(1. - sh, 4)) +
2752 log(z)*(-92.67670236481818 -
2753 123.95171074367174 * (1. - sh) -
2754 143.75841383606902 * pow(1. - sh, 2) -
2755 143.67298964675717 * pow(1. - sh, 3) +
2756 log(muh)*(-42.666666666666664 -
2757 85.33333333333333 * (1. - sh) -
2758 128. * pow(1. - sh, 2) -
2759 170.66666666666666 * pow(1. - sh, 3) -
2760 213.33333333333334 * pow(1. - sh, 4)) -
2761 130.3275572508033 * pow(1. - sh, 4)) -
2762 1177.4249452560534 * pow(1. - sh, 4) +
2763 (26.074074074074073 +
2764 49.925925925925924 * (1. - sh) +
2765 74.4 * pow(1. - sh, 2) +
2766 99.61481481481482 * pow(1. - sh, 3) +
2767 124.74074074074075 * pow(1. - sh, 4)) * pow(log(z), 2));
2768 }
2769
2770 if (5 <= maxpow) {
2771 if (sh < .900001)
2772 res += 0.3160493827160494 * pow(3.141592653589793, 2) * pow(sh, -3)*
2773 (3. + 14. * sh + 3. * pow(sh, 2)) * pow(z, 2.5);
2774 else
2775 res += (62.385647572317914 + 124.77129514463583 * (1. - sh) +
2776 196.51478985280144 * pow(1. - sh, 2) +
2777 277.6161316968147 * pow(1. - sh, 3) +
2778 368.0753206766757 * pow(1. - sh, 4)) * pow(z, 2.5);
2779 }
2780
2781 if (6 <= maxpow) {
2782 if (sh < .900001)
2783 res += (4.7407407407407405 * Li3shb * (2. + sh) * pow(-1 + sh, -4) -
2784 lmu * (37.925925925925924 * pow(sh, -3) -
2785 56.888888888888886 * Lsh * pow(sh, -3)) -
2786 7.111111111111111 * Li3sh * pow(-1 + sh, -3) * pow(sh, -1) +
2787 2.3703703703703702 * pow(Lsh, 3) * pow(-1 + sh, -3) *
2788 pow(sh, -1) - 2.8493200667486676 * pow(-1 + sh, -4) *
2789 pow(sh, -1)*(3. + sh + 2. * pow(sh, 2)) +
2790 2.3703703703703702 * cl2 * sqrt4sh * sqrtsh * pow(-1 + sh, -3)*
2791 (4. + 15. * sh - 29. * pow(sh, 2) + 23. * pow(sh, 3) -
2792 8. * pow(sh, 4) + pow(sh, 5)) +
2793 0.7901234567901234 * ash * sqrt4sh * sqrtsh * pow(-1 + sh, -3)*
2794 (-8. - 21. * sh - 17. * pow(sh, 2) + 23. * pow(sh, 3) -
2795 8. * pow(sh, 4) + pow(sh, 5)) +
2796 0.3950617283950617 * Li2sh * pow(-1 + sh, -4) * pow(sh, -3)*
2797 (-36. + 144. * sh - 234. * pow(sh, 2) + 208. * pow(sh, 3) -
2798 73. * pow(sh, 4) + 9. * pow(sh, 5)) -
2799 Lsh * (14.222222222222221 * (2. + sh) * pow(ash, 2) *
2800 pow(-1 + sh, -4) -
2801 7.111111111111111 * Li2sh * pow(-1 + sh, -3) *
2802 pow(sh, -1) - 2.3703703703703702 * ash * sqrt4sh * sqrtsh *
2803 pow(-1 + sh, -3)*
2804 (4. + 15. * sh - 29. * pow(sh, 2) + 23. * pow(sh, 3) -
2805 8. * pow(sh, 4) + pow(sh, 5)) -
2806 0.03292181069958848 * pow(-1 + sh, -4) * pow(sh, -4)*
2807 (30. + (1508. - 432. * Lshb) * sh +
2808 2. * (-3427. + 864. * Lshb) * pow(sh, 2) +
2809 36. * (296. - 78. * Lshb +
2810 5. * pow(3.141592653589793, 2)) * pow(sh, 3) +
2811 (-6541. + 2496. * Lshb -
2812 36. * pow(3.141592653589793, 2)) * pow(sh, 4) +
2813 (1552. - 876. * Lshb +
2814 72. * pow(3.141592653589793, 2)) * pow(sh, 5) +
2815 27. * (3. + 4. * Lshb) * pow(sh, 6))) -
2816 2.3703703703703702 * pow(ash, 2) * pow(-1 + sh, -4)*
2817 (16. - 22. * sh - 171. * pow(sh, 2) + 336. * pow(sh, 3) -
2818 300. * pow(sh, 4) + 141. * pow(sh, 5) - 33. * pow(sh, 6) +
2819 3. * pow(sh, 7)) - 0.09876543209876543 * pow(Lsh, 2) *
2820 pow(-1 + sh, -5) * pow(sh, -4)*
2821 (12. + 494. * sh - 2533. * pow(sh, 2) +
2822 (4871. - 36. * Lshb) * pow(sh, 3) +
2823 (-4634. + 72. * Lshb) * pow(sh, 4) -
2824 4. * (-541. + 9. * Lshb) * pow(sh, 5) - 428. * pow(sh, 6) +
2825 18. * pow(sh, 7)) -
2826 pow(lz, 2)*(2.3703703703703702 * Lsh * (2. + sh) *
2827 pow(-1 + sh, -4) -
2828 0.09876543209876543 * pow(-1 + sh, -3) * pow(sh, -4)*
2829 (-3. - 491. * sh + 1482. * pow(sh, 2) -
2830 1467. * pow(sh, 3) + 572. * pow(sh, 4) -
2831 132. * pow(sh, 5) + 321. * pow(sh, 6) -
2832 378. * pow(sh, 7) + 222. * pow(sh, 8) -
2833 60. * pow(sh, 9) + 6. * pow(sh, 10))) -
2834 lz * (-4.7407407407407405 * Li2sh * (2. + sh) *
2835 pow(-1 + sh, -4) +
2836 28.444444444444443 * (2. + sh) * pow(ash, 2) *
2837 pow(-1 + sh, -4) +
2838 56.888888888888886 * lmu * pow(sh, -3) +
2839 3.5555555555555554 * pow(Lsh, 2) * pow(-1 + sh, -3) *
2840 pow(sh, -1) - 4.7407407407407405 * ash * sqrt4sh * sqrtsh *
2841 pow(-1 + sh, -3)*
2842 (4. + 15. * sh - 29. * pow(sh, 2) + 23. * pow(sh, 3) -
2843 8. * pow(sh, 4) + pow(sh, 5)) +
2844 0.19753086419753085 * Lsh * pow(-1 + sh, -4) * pow(sh, -4)*
2845 (6. + 494. * sh - 1991. * pow(sh, 2) +
2846 2886. * pow(sh, 3) -
2847 6. * (293. + 8. * Lshb) * pow(sh, 4) -
2848 6. * (-65. + 4. * Lshb) * pow(sh, 5) + 9. * pow(sh, 6)) -
2849 0.03292181069958848 * pow(-1 + sh, -3) * pow(sh, -4)*
2850 (15. + 1538. * sh - 4641. * pow(sh, 2) +
2851 4446. * pow(sh, 3) - 1361. * pow(sh, 4) +
2852 498. * pow(sh, 5) - 1215. * pow(sh, 6) +
2853 606. * pow(sh, 7) - 84. * pow(sh, 8) - 24. * pow(sh, 9) +
2854 6. * pow(sh, 10))) +
2855 0.01646090534979424 * pow(-1 + sh, -4) * pow(sh, -4)*
2856 (19. - 7836. * sh + 30701. * pow(sh, 2) -
2857 45359. * pow(sh, 3) + (31147. + 1728. * cl3) * pow(sh, 4) +
2858 12. * (-701. + 72. * cl3) * pow(sh, 5) - 343. * pow(sh, 6) -
2859 2371. * pow(sh, 7) + 4810. * pow(sh, 8) -
2860 3164. * pow(sh, 9) + 902. * pow(sh, 10) -
2861 94. * pow(sh, 11) +
2862 6. * pow(3.141592653589793, 2)*
2863 (-6. - 338. * sh + 1349. * pow(sh, 2) -
2864 1798. * pow(sh, 3) + 914. * pow(sh, 4) -
2865 42. * pow(sh, 5) - 299. * pow(sh, 6) +
2866 440. * pow(sh, 7) - 400. * pow(sh, 8) +
2867 188. * pow(sh, 9) - 44. * pow(sh, 10) + 4. * pow(sh, 11)))
2868 ) * pow(z, 3);
2869 else
2870 res += pow(z, 3)*(-563.8946426367565 -
2871 1680.2345038491285 * (1. - sh) -
2872 3329.6412593857735 * pow(1. - sh, 2) -
2873 5423.45927216734 * pow(1. - sh, 3) +
2874 log(muh)*(-37.925925925925924 -
2875 170.66666666666666 * (1. - sh) -
2876 426.6666666666667 * pow(1. - sh, 2) -
2877 824.8888888888889 * pow(1. - sh, 3) -
2878 1379.5555555555557 * pow(1. - sh, 4)) -
2879 7956.241038705334 * pow(1. - sh, 4) +
2880 log(z)*(-34.97995438478488 -
2881 30.044118068027284 * (1. - sh) +
2882 62.84401734242212 * pow(1. - sh, 2) +
2883 320.43564180164736 * pow(1. - sh, 3) +
2884 log(muh)*(-56.888888888888886 -
2885 170.66666666666666 * (1. - sh) -
2886 341.3333333333333 * pow(1. - sh, 2) -
2887 568.8888888888889 * pow(1. - sh, 3) -
2888 853.3333333333334 * pow(1. - sh, 4)) +
2889 749.5923384459219 * pow(1. - sh, 4)) +
2890 (54.22222222222222 + 150.45925925925926 * (1. - sh) +
2891 299.97037037037035 * pow(1. - sh, 2) +
2892 503.0405643738977 * pow(1. - sh, 3) +
2893 755.8095238095239 * pow(1. - sh, 4)) * pow(log(z), 2));
2894 }
2895
2896 if (7 <= maxpow) {
2897 if (sh < .900001)
2898 res += 0.02708994708994709 * pow(3.141592653589793, 2) * pow(sh, -5)*
2899 (15. + 108. * sh + 314. * pow(sh, 2) + 108. * pow(sh, 3) +
2900 15. * pow(sh, 4)) * pow(z, 3.5);
2901 else
2902 res += (149.725554173563 + 449.17666252068904 * (1. - sh) +
2903 943.270991293447 * pow(1. - sh, 2) +
2904 1676.9262067439056 * pow(1. - sh, 3) +
2905 2699.0704810394973 * pow(1. - sh, 4)) * pow(z, 3.5);
2906 }
2907
2908 if (8 <= maxpow) {
2909 if (sh < .900001)
2910 res += (-1. * lmu * (117.33333333333333 * pow(sh, -4) -
2911 128. * Lsh * pow(sh, -4)) +
2912 14.246600333743338 * pow(-1 + sh, -3) * pow(sh, -2) -
2913 11.851851851851851 * Li3sh * pow(-1 + sh, -3) * pow(sh, -2) +
2914 3.950617283950617 * pow(Lsh, 3) * pow(-1 + sh, -3) *
2915 pow(sh, -2) - 3.5555555555555554 * cl2 * sqrt4sh * sqrtsh *
2916 (-6. - 13. * sh + 20. * pow(sh, 2) - 8. * pow(sh, 3) +
2917 pow(sh, 4)) + 0.5925925925925926 * Li2sh *
2918 pow(-1 + sh, -5) * pow(sh, -4)*
2919 (54. - 268. * sh + 544. * pow(sh, 2) - 570. * pow(sh, 3) +
2920 292. * pow(sh, 4) - 58. * pow(sh, 5) - 6. * pow(sh, 6) +
2921 3. * pow(sh, 7)) - 0.5925925925925926 * ash * sqrt4sh *
2922 sqrtsh * pow(-1 + sh, -3)*
2923 (-6. - 41. * sh - 239. * pow(sh, 2) + 671. * pow(sh, 3) -
2924 680. * pow(sh, 4) + 329. * pow(sh, 5) - 77. * pow(sh, 6) +
2925 7. * pow(sh, 7)) + 10.666666666666666 * sh * pow(ash, 2) *
2926 pow(-1 + sh, -4)*(-24. - 3. * sh + 174. * pow(sh, 2) -
2927 390. * pow(sh, 3) + 411. * pow(sh, 4) - 241. * pow(sh, 5) +
2928 80. * pow(sh, 6) - 14. * pow(sh, 7) + pow(sh, 8)) -
2929 Lsh * (-11.851851851851851 * Li2sh * pow(-1 + sh, -3) *
2930 pow(sh, -2) + 3.5555555555555554 * ash * sqrt4sh * sqrtsh *
2931 (-6. - 13. * sh + 20. * pow(sh, 2) - 8. * pow(sh, 3) +
2932 pow(sh, 4)) - 0.01646090534979424 * pow(-1 + sh, -5) *
2933 pow(sh, -6)*(-21. + 10. * sh +
2934 2. * (-847. + 972. * Lshb) * pow(sh, 2) +
2935 (11470. - 9648. * Lshb) * pow(sh, 3) +
2936 (-27667. + 19584. * Lshb -
2937 600. * pow(3.141592653589793, 2)) * pow(sh, 4) +
2938 8. * (3982. - 2565. * Lshb +
2939 150. * pow(3.141592653589793, 2)) * pow(sh, 5) +
2940 2. * (-9179. + 5256. * Lshb -
2941 300. * pow(3.141592653589793, 2)) * pow(sh, 6) -
2942 6. * (-607. + 348. * Lshb) * pow(sh, 7) -
2943 6. * (7. + 36. * Lshb) * pow(sh, 8) +
2944 6. * (5. + 18. * Lshb) * pow(sh, 9))) -
2945 0.09876543209876543 * pow(Lsh, 2) * pow(-1 + sh, -6) *
2946 pow(sh, -6)*(-6. - 14. * sh - 1215. * pow(sh, 2) +
2947 7695. * pow(sh, 3) - 19257. * pow(sh, 4) -
2948 60. * Lshb * pow(-1 + sh, 3) * pow(sh, 4) +
2949 25233. * pow(sh, 5) - 18375. * pow(sh, 6) +
2950 6983. * pow(sh, 7) - 1056. * pow(sh, 8) - 27. * pow(sh, 9) +
2951 9. * pow(sh, 10)) -
2952 0.04938271604938271 * pow(lz, 2) * pow(sh, -6)*
2953 (-3. - 25. * sh - 2580. * pow(sh, 2) + 73. * pow(sh, 4) +
2954 3. * pow(sh, 5) + 180. * pow(sh, 6) + 36. * pow(sh, 7) -
2955 738. * pow(sh, 8) + 612. * pow(sh, 9) - 180. * pow(sh, 10) +
2956 18. * pow(sh, 11)) -
2957 lz * (128. * lmu * pow(sh, -4) +
2958 5.925925925925926 * pow(Lsh, 2) * pow(-1 + sh, -3) *
2959 pow(sh, -2) + 7.111111111111111 * ash * sqrt4sh * sqrtsh *
2960 (-6. - 13. * sh + 20. * pow(sh, 2) - 8. * pow(sh, 3) +
2961 pow(sh, 4)) + 0.19753086419753085 * Lsh *
2962 pow(-1 + sh, -5) * pow(sh, -6)*
2963 (-3. - 10. * sh - 1240. * pow(sh, 2) +
2964 6380. * pow(sh, 3) - 12722. * pow(sh, 4) +
2965 12478. * pow(sh, 5) - 6074. * pow(sh, 6) +
2966 1158. * pow(sh, 7) + 3. * pow(sh, 8) + 3. * pow(sh, 9)) +
2967 0.0016460905349794238 * pow(-1 + sh, -4) * pow(sh, -6)*
2968 (105. + 55. * sh + 18530. * pow(sh, 2) -
2969 72330. * pow(sh, 3) + 91890. * pow(sh, 4) -
2970 26202. * pow(sh, 5) - 21156. * pow(sh, 6) +
2971 1154. * pow(sh, 7) + 54349. * pow(sh, 8) -
2972 76131. * pow(sh, 9) + 4716. * pow(sh, 10) +
2973 82440. * pow(sh, 11) - 83970. * pow(sh, 12) +
2974 36900. * pow(sh, 13) - 7740. * pow(sh, 14) +
2975 630. * pow(sh, 15))) -
2976 0.000027434842249657064 * pow(-1 + sh, -5) * pow(sh, -6)*
2977 (2775. - 5550. * sh - 9.841575e6 * pow(sh, 2) +
2978 4.85214e7 * pow(sh, 3) - 9.54242e7 * pow(sh, 4) +
2979 9.3237052e7 * pow(sh, 5) - 4.3743086e7 * pow(sh, 6) +
2980 4.46555e6 * pow(sh, 7) + 7.670645e6 * pow(sh, 8) -
2981 4.88458e6 * pow(sh, 9) - 1.3483707e7 * pow(sh, 10) +
2982 3.4549776e7 * pow(sh, 11) - 3.627225e7 * pow(sh, 12) +
2983 2.100825e7 * pow(sh, 13) - 6.9246e6 * pow(sh, 14) +
2984 1.21095e6 * pow(sh, 15) - 86850. * pow(sh, 16) +
2985 1200. * pow(3.141592653589793, 2)*
2986 (-9. - 30. * sh - 2694. * pow(sh, 2) +
2987 13896. * pow(sh, 3) - 27086. * pow(sh, 4) +
2988 25318. * pow(sh, 5) - 11444. * pow(sh, 6) +
2989 2810. * pow(sh, 7) - 1033. * pow(sh, 8) -
2990 2857. * pow(sh, 9) + 10122. * pow(sh, 10) -
2991 14418. * pow(sh, 11) + 11736. * pow(sh, 12) -
2992 5778. * pow(sh, 13) + 1692. * pow(sh, 14) -
2993 270. * pow(sh, 15) + 18. * pow(sh, 16)))) * pow(z, 4);
2994 else
2995 res += pow(z, 4)*(-1424.5308091578474 -
2996 5728.7251525464435 * (1. - sh) -
2997 14040.07057463595 * pow(1. - sh, 2) -
2998 27178.850860660903 * pow(1. - sh, 3) +
2999 log(muh)*(-117.33333333333333 -
3000 597.3333333333334 * (1. - sh) -
3001 1749.3333333333333 * pow(1. - sh, 2) -
3002 3925.3333333333335 * pow(1. - sh, 3) -
3003 7509.333333333333 * pow(1. - sh, 4)) -
3004 46368.872894680535 * pow(1. - sh, 4) +
3005 log(z)*(34.25652635469211 +
3006 169.5621944588141 * (1. - sh) +
3007 865.728317571408 * pow(1. - sh, 2) +
3008 2770.286236159471 * pow(1. - sh, 3) +
3009 log(muh)*(-128. - 512. * (1. - sh) -
3010 1280. * pow(1. - sh, 2) -
3011 2560. * pow(1. - sh, 3) - 4480. * pow(1. - sh, 4)
3012 ) + 6293.656266280077 * pow(1. - sh, 4)) +
3013 (128.59259259259258 +
3014 497.77777777777777 * (1. - sh) +
3015 1274.962962962963 * pow(1. - sh, 2) +
3016 2588.641975308642 * pow(1. - sh, 3) +
3017 4550.617283950617 * pow(1. - sh, 4)) * pow(log(z), 2));
3018 }
3019
3020 if (9 <= maxpow) {
3021 if (sh < .900001)
3022 res += 0.006449987402368355 * pow(3.141592653589793, 2) * pow(sh, -7)*
3023 (35. + 330. * sh + 1389. * pow(sh, 2) + 3212. * pow(sh, 3) +
3024 1389. * pow(sh, 4) + 330. * pow(sh, 5) + 35. * pow(sh, 6)) *
3025 pow(z, 4.5);
3026 else
3027 res += (427.7872976387514 + 1711.1491905550056 * (1. - sh) +
3028 4470.377260324953 * pow(1. - sh, 2) +
3029 9518.267372462218 * pow(1. - sh, 3) +
3030 17894.4954414067 * pow(1. - sh, 4)) * pow(z, 4.5);
3031 }
3032
3033 if (10 <= maxpow) {
3034 if (sh < .900001)
3035 res += (-1. * lmu * (352.7111111111111 * pow(sh, -5) -
3036 341.3333333333333 * Lsh * pow(sh, -5)) +
3037 29.917860700861013 * pow(-1 + sh, -3) * pow(sh, -3) -
3038 24.88888888888889 * Li3sh * pow(-1 + sh, -3) * pow(sh, -3) +
3039 8.296296296296296 * pow(Lsh, 3) * pow(-1 + sh, -3) *
3040 pow(sh, -3) + 2.3703703703703702 * cl2 * sh * sqrt4sh * sqrtsh *
3041 (44. + 108. * sh - 221. * pow(sh, 2) + 132. * pow(sh, 3) -
3042 33. * pow(sh, 4) + 3. * pow(sh, 5)) +
3043 0.23703703703703705 * ash * sh * sqrt4sh * sqrtsh *
3044 pow(-1 + sh, -3)*(-496. + 326. * sh + 6147. * pow(sh, 2) -
3045 16495. * pow(sh, 3) + 18680. * pow(sh, 4) -
3046 11251. * pow(sh, 5) + 3760. * pow(sh, 6) -
3047 658. * pow(sh, 7) + 47. * pow(sh, 8)) +
3048 1.1851851851851851 * Li2sh * pow(-1 + sh, -6) * pow(sh, -5)*
3049 (-72. + 429. * sh - 1073. * pow(sh, 2) + 1442. * pow(sh, 3) -
3050 1092. * pow(sh, 4) + 435. * pow(sh, 5) - 47. * pow(sh, 6) -
3051 6. * pow(sh, 7) - pow(sh, 8) + pow(sh, 9)) -
3052 7.111111111111111 * sh * pow(ash, 2) * pow(-1 + sh, -4)*
3053 (-24. + 162. * sh + 114. * pow(sh, 2) - 1809. * pow(sh, 3) +
3054 4224. * pow(sh, 4) - 4957. * pow(sh, 5) +
3055 3423. * pow(sh, 6) - 1445. * pow(sh, 7) +
3056 366. * pow(sh, 8) - 51. * pow(sh, 9) + 3. * pow(sh, 10)) -
3057 Lsh * (-24.88888888888889 * Li2sh * pow(-1 + sh, -3) *
3058 pow(sh, -3) - 2.3703703703703702 * ash * sh * sqrt4sh *
3059 sqrtsh * (44. + 108. * sh - 221. * pow(sh, 2) +
3060 132. * pow(sh, 3) - 33. * pow(sh, 4) + 3. * pow(sh, 5)) +
3061 0.0003292181069958848 * pow(-1 + sh, -7) * pow(sh, -8)*
3062 (486. - 594. * sh - 8634. * pow(sh, 2) -
3063 132632. * pow(sh, 3) + 806792. * pow(sh, 4) -
3064 1.649394e6 * pow(sh, 5) +
3065 63000. * pow(3.141592653589793, 2) * pow(-1 + sh, 4) *
3066 pow(sh, 5) + 1.299724e6 * pow(sh, 6) +
3067 289454. * pow(sh, 7) - 1.252893e6 * pow(sh, 8) +
3068 839053. * pow(sh, 9) -
3069 3600. * Lshb * (-1. + sh) * pow(sh, 3)*
3070 (-72. + 429. * sh - 1073. * pow(sh, 2) +
3071 1442. * pow(sh, 3) - 1092. * pow(sh, 4) +
3072 435. * pow(sh, 5) - 47. * pow(sh, 6) -
3073 6. * pow(sh, 7) - pow(sh, 8) + pow(sh, 9)) -
3074 206662. * pow(sh, 10) + 15750. * pow(sh, 11) +
3075 75. * pow(sh, 12) - 525. * pow(sh, 13))) -
3076 0.009876543209876543 * pow(Lsh, 2) * pow(-1 + sh, -7) *
3077 pow(sh, -8)*(36. + 126. * sh - 84. * pow(sh, 2) +
3078 37024. * pow(sh, 3) - 269605. * pow(sh, 4) +
3079 818292. * pow(sh, 5) -
3080 1260. * Lshb * pow(-1 + sh, 4) * pow(sh, 5) -
3081 1.360586e6 * pow(sh, 6) + 1.344224e6 * pow(sh, 7) -
3082 788604. * pow(sh, 8) + 252535. * pow(sh, 9) -
3083 33268. * pow(sh, 10) - 300. * pow(sh, 11) -
3084 120. * pow(sh, 12) + 60. * pow(sh, 13)) +
3085 0.0049382716049382715 * pow(lz, 2) * pow(sh, -8)*
3086 (18. + 189. * sh + 903. * pow(sh, 2) + 78416. * pow(sh, 3) -
3087 630. * pow(sh, 4) - 1383. * pow(sh, 5) -
3088 1839. * pow(sh, 6) - 18. * pow(sh, 7) - 3120. * pow(sh, 8) -
3089 8160. * pow(sh, 9) - 1440. * pow(sh, 10) +
3090 46560. * pow(sh, 11) - 51720. * pow(sh, 12) +
3091 23040. * pow(sh, 13) - 4680. * pow(sh, 14) +
3092 360. * pow(sh, 15)) -
3093 lz * (341.3333333333333 * lmu * pow(sh, -5) +
3094 12.444444444444445 * pow(Lsh, 2) * pow(-1 + sh, -3) *
3095 pow(sh, -3) - 4.7407407407407405 * ash * sh * sqrt4sh *
3096 sqrtsh * (44. + 108. * sh - 221. * pow(sh, 2) +
3097 132. * pow(sh, 3) - 33. * pow(sh, 4) + 3. * pow(sh, 5)) +
3098 0.019753086419753086 * Lsh * pow(-1 + sh, -6) * pow(sh, -8)*
3099 (18. + 81. * sh + 39. * pow(sh, 2) + 37525. * pow(sh, 3) -
3100 231198. * pow(sh, 4) + 582087. * pow(sh, 5) -
3101 774221. * pow(sh, 6) + 575781. * pow(sh, 7) -
3102 227535. * pow(sh, 8) + 38728. * pow(sh, 9) -
3103 450. * pow(sh, 10) + 90. * pow(sh, 11) + 15. * pow(sh, 12)
3104 ) - 0.000047031158142269256 * pow(-1 + sh, -5) *
3105 pow(sh, -8)*(1701. + 1323. * sh - 29274. * pow(sh, 2) -
3106 957341. * pow(sh, 3) + 5.622085e6 * pow(sh, 4) -
3107 1.3372289e7 * pow(sh, 5) + 1.7244458e7 * pow(sh, 6) -
3108 1.2810919e7 * pow(sh, 7) + 6.090011e6 * pow(sh, 8) -
3109 4.03983e6 * pow(sh, 9) + 4.371768e6 * pow(sh, 10) +
3110 4.551324e6 * pow(sh, 11) - 1.1897697e7 * pow(sh, 12) -
3111 1.323264e7 * pow(sh, 13) + 6.277908e7 * pow(sh, 14) -
3112 8.508528e7 * pow(sh, 15) + 6.212682e7 * pow(sh, 16) -
3113 2.701314e7 * pow(sh, 17) + 6.98418e6 * pow(sh, 18) -
3114 990360. * pow(sh, 19) + 59220. * pow(sh, 20))) -
3115 1.679684219366759e-7 * pow(-1 + sh, -6) * pow(sh, -8)*
3116 (-161406. + 318843. * sh + 1.910657e6 * pow(sh, 2) +
3117 3.755399935e9 * pow(sh, 3) -
3118 2.2256359629e10 * pow(sh, 4) +
3119 5.4715328248e10 * pow(sh, 5) -
3120 7.1399970054e10 * pow(sh, 6) +
3121 5.2256870574e10 * pow(sh, 7) -
3122 2.1211105332e10 * pow(sh, 8) +
3123 5.981785659e9 * pow(sh, 9) -
3124 2.944201467e9 * pow(sh, 10) -
3125 1.246759469e9 * pow(sh, 11) +
3126 2.466843039e9 * pow(sh, 12) +
3127 1.8171607842e10 * pow(sh, 13) -
3128 6.053910752e10 * pow(sh, 14) +
3129 8.996385496e10 * pow(sh, 15) -
3130 7.96292826e10 * pow(sh, 16) +
3131 4.509057616e10 * pow(sh, 17) -
3132 1.647058952e10 * pow(sh, 18) +
3133 3.74875284e9 * pow(sh, 19) - 4.8245988e8 * pow(sh, 20) +
3134 2.674812e7 * pow(sh, 21) -
3135 58800. * pow(3.141592653589793, 2)*
3136 (-18. - 81. * sh - 39. * pow(sh, 2) -
3137 28525. * pow(sh, 3) + 176088. * pow(sh, 4) -
3138 439209. * pow(sh, 5) + 573427. * pow(sh, 6) -
3139 414687. * pow(sh, 7) + 157597. * pow(sh, 8) -
3140 24058. * pow(sh, 9) + 3132. * pow(sh, 10) -
3141 3736. * pow(sh, 11) - 77479. * pow(sh, 12) +
3142 318588. * pow(sh, 13) - 608560. * pow(sh, 14) +
3143 702440. * pow(sh, 15) - 529920. * pow(sh, 16) +
3144 267160. * pow(sh, 17) - 89120. * pow(sh, 18) +
3145 18840. * pow(sh, 19) - 2280. * pow(sh, 20) +
3146 120. * pow(sh, 21)))) * pow(z, 5);
3147 else
3148 res += pow(z, 5)*(-4202.986795121401 -
3149 21563.981801901395 * (1. - sh) -
3150 63115.765734768596 * pow(1. - sh, 2) -
3151 142119.7662710934 * pow(1. - sh, 3) +
3152 log(muh)*(-352.7111111111111 -
3153 2104.8888888888887 * (1. - sh) -
3154 7168. * pow(1. - sh, 2) -
3155 18432. * pow(1. - sh, 3) -
3156 39850.666666666664 * pow(1. - sh, 4)) -
3157 277830.4069154384 * pow(1. - sh, 4) +
3158 log(z)*(251.91238577751216 +
3159 956.915478778669 * (1. - sh) +
3160 4881.515489147685 * pow(1. - sh, 2) +
3161 16699.40413911222 * pow(1. - sh, 3) +
3162 log(muh)*(-341.3333333333333 -
3163 1706.6666666666667 * (1. - sh) -
3164 5120. * pow(1. - sh, 2) -
3165 11946.666666666666 * pow(1. - sh, 3) -
3166 23893.333333333332 * pow(1. - sh, 4)) +
3167 41147.84749220197 * pow(1. - sh, 4)) +
3168 (377.758024691358 + 1862.716049382716 * (1. - sh) +
3169 5810.814814814815 * pow(1. - sh, 2) +
3170 13779.160493827161 * pow(1. - sh, 3) +
3171 27666.172839506173 * pow(1. - sh, 4)) * pow(log(z), 2));
3172 }
3173
3174 if (11 <= maxpow) {
3175 if (sh < .900001)
3176 res += 0.0004560597153189746 * pow(3.141592653589793, 2) * pow(sh, -9)*
3177 (315. + 3640. * sh + 19380. * pow(sh, 2) + 62088. * pow(sh, 3) +
3178 124834. * pow(sh, 4) + 62088. * pow(sh, 5) +
3179 19380. * pow(sh, 6) + 3640. * pow(sh, 7) + 315. * pow(sh, 8)) *
3180 pow(z, 5.5);
3181 else
3182 res += (1330.8938148761156 + 6654.469074380578 * (1. - sh) +
3183 20761.943512067406 * pow(1. - sh, 2) +
3184 51372.50125421806 * pow(1. - sh, 3) +
3185 110145.72275758653 * pow(1. - sh, 4)) * pow(z, 5.5);
3186 }
3187
3188 if (12 <= maxpow) {
3189 if (sh < .900001)
3190 res += (-1. * lmu * (1097.4814814814815 * pow(sh, -6) -
3191 995.5555555555555 * Lsh * pow(sh, -6)) +
3192 71.80286568206643 * pow(-1 + sh, -3) * pow(sh, -4) -
3193 59.733333333333334 * Li3sh * pow(-1 + sh, -3) * pow(sh, -4) +
3194 19.91111111111111 * pow(Lsh, 3) * pow(-1 + sh, -3) *
3195 pow(sh, -4) - 2.765432098765432 * cl2 * sh * sqrt4sh * sqrtsh *
3196 (20. - 194. * sh - 657. * pow(sh, 2) + 1581. * pow(sh, 3) -
3197 1239. * pow(sh, 4) + 462. * pow(sh, 5) - 84. * pow(sh, 6) +
3198 6. * pow(sh, 7)) - 0.02633744855967078 * ash * sh * sqrt4sh *
3199 sqrtsh * pow(-1 + sh, -3)*
3200 (-3230. + 42428. * sh + 5415. * pow(sh, 2) -
3201 547510. * pow(sh, 3) + 1.454143e6 * pow(sh, 4) -
3202 1.806873e6 * pow(sh, 5) + 1.280646e6 * pow(sh, 6) -
3203 546171. * pow(sh, 7) + 138714. * pow(sh, 8) -
3204 19329. * pow(sh, 9) + 1137. * pow(sh, 10)) +
3205 8.296296296296296 * pow(ash, 2) * pow(-1 + sh, -4) * pow(sh, 2)*
3206 (210. - 870. * sh - 1395. * pow(sh, 2) +
3207 13113. * pow(sh, 3) - 31009. * pow(sh, 4) +
3208 39370. * pow(sh, 5) - 30843. * pow(sh, 6) +
3209 15585. * pow(sh, 7) - 5091. * pow(sh, 8) +
3210 1038. * pow(sh, 9) - 120. * pow(sh, 10) + 6. * pow(sh, 11))\
3211 + 0.019753086419753086 * Li2sh * pow(-1 + sh, -7) *
3212 pow(sh, -6)*(12600. - 87696. * sh + 262296. * pow(sh, 2) -
3213 436590. * pow(sh, 3) + 435240. * pow(sh, 4) -
3214 257040. * pow(sh, 5) + 79436. * pow(sh, 6) -
3215 8456. * pow(sh, 7) - 360. * pow(sh, 9) + 45. * pow(sh, 11))\
3216 - Lsh * (-59.733333333333334 * Li2sh * pow(-1 + sh, -3) *
3217 pow(sh, -4) + 2.765432098765432 * ash * sh * sqrt4sh *
3218 sqrtsh * (20. - 194. * sh - 657. * pow(sh, 2) +
3219 1581. * pow(sh, 3) - 1239. * pow(sh, 4) +
3220 462. * pow(sh, 5) - 84. * pow(sh, 6) + 6. * pow(sh, 7)) +
3221 0.00006584362139917696 * pow(-1 + sh, -8) * pow(sh, -10)*
3222 (-1320. + 1416. * sh + 30540. * pow(sh, 2) +
3223 40260. * pow(sh, 3) + 6.70004e6 * pow(sh, 4) -
3224 5.379436e7 * pow(sh, 5) + 1.79724938e8 * pow(sh, 6) +
3225 756000. * pow(3.141592653589793, 2) * pow(-1 + sh, 5) *
3226 pow(sh, 6) - 3.3536944e8 * pow(sh, 7) +
3227 3.8325104e8 * pow(sh, 8) - 2.7317989e8 * pow(sh, 9) +
3228 1.17246435e8 * pow(sh, 10) -
3229 2.7037239e7 * pow(sh, 11) -
3230 300. * Lshb * (-1. + sh) * pow(sh, 4)*
3231 (12600. - 87696. * sh + 262296. * pow(sh, 2) -
3232 436590. * pow(sh, 3) + 435240. * pow(sh, 4) -
3233 257040. * pow(sh, 5) + 79436. * pow(sh, 6) -
3234 8456. * pow(sh, 7) - 360. * pow(sh, 9) +
3235 45. * pow(sh, 11)) + 2.36385e6 * pow(sh, 12) -
3236 31650. * pow(sh, 13) + 60375. * pow(sh, 14) -
3237 3780. * pow(sh, 15) - 1215. * pow(sh, 16))) -
3238 0.0019753086419753087 * pow(Lsh, 2) * pow(-1 + sh, -8) *
3239 pow(sh, -10)*(-120. - 552. * sh - 120. * pow(sh, 2) +
3240 3480. * pow(sh, 3) - 612380. * pow(sh, 4) +
3241 4.99354e6 * pow(sh, 5) - 1.7689517e7 * pow(sh, 6) -
3242 15120. * Lshb * pow(-1 + sh, 5) * pow(sh, 6) +
3243 3.5499895e7 * pow(sh, 7) - 4.421963e7 * pow(sh, 8) +
3244 3.502108e7 * pow(sh, 9) - 1.719707e7 * pow(sh, 10) +
3245 4.767574e6 * pow(sh, 11) - 567440. * pow(sh, 12) +
3246 1800. * pow(sh, 13) - 1800. * pow(sh, 14) -
3247 225. * pow(sh, 15) + 225. * pow(sh, 16)) -
3248 0.0019753086419753087 * pow(lz, 2) * pow(sh, -10)*
3249 (-30. - 378. * sh - 2214. * pow(sh, 2) - 7938. * pow(sh, 3) -
3250 638000. * pow(sh, 4) + 7560. * pow(sh, 5) +
3251 6273. * pow(sh, 6) + 13689. * pow(sh, 7) +
3252 10908. * pow(sh, 8) + 30. * pow(sh, 9) +
3253 20300. * pow(sh, 10) + 27300. * pow(sh, 11) +
3254 113400. * pow(sh, 12) + 49700. * pow(sh, 13) -
3255 880950. * pow(sh, 14) + 1.19385e6 * pow(sh, 15) -
3256 706650. * pow(sh, 16) + 216300. * pow(sh, 17) -
3257 33600. * pow(sh, 18) + 2100. * pow(sh, 19)) -
3258 lz * (995.5555555555555 * lmu * pow(sh, -6) +
3259 29.866666666666667 * pow(Lsh, 2) * pow(-1 + sh, -3) *
3260 pow(sh, -4) + 5.530864197530864 * ash * sh * sqrt4sh *
3261 sqrtsh * (20. - 194. * sh - 657. * pow(sh, 2) +
3262 1581. * pow(sh, 3) - 1239. * pow(sh, 4) +
3263 462. * pow(sh, 5) - 84. * pow(sh, 6) + 6. * pow(sh, 7)) +
3264 0.003950617283950617 * Lsh * pow(-1 + sh, -7) *
3265 pow(sh, -10)*(-60. - 336. * sh - 396. * pow(sh, 2) +
3266 1344. * pow(sh, 3) - 614396. * pow(sh, 4) +
3267 4.375784e6 * pow(sh, 5) - 1.3247019e7 * pow(sh, 6) +
3268 2.2150786e7 * pow(sh, 7) - 2.2142404e7 * pow(sh, 8) +
3269 1.3260636e7 * pow(sh, 9) - 4.429894e6 * pow(sh, 10) +
3270 647380. * pow(sh, 11) - 2940. * pow(sh, 12) -
3271 1740. * pow(sh, 13) + 585. * pow(sh, 14) +
3272 45. * pow(sh, 15)) +
3273 9.40623162845385e-6 * pow(-1 + sh, -6) * pow(sh, -10)*
3274 (4620. + 4284. * sh - 102942. * pow(sh, 2) -
3275 351078. * pow(sh, 3) - 4.7830454e7 * pow(sh, 4) +
3276 3.0838269e8 * pow(sh, 5) - 8.19066822e8 * pow(sh, 6) +
3277 1.178613196e9 * pow(sh, 7) -
3278 9.89156856e8 * pow(sh, 8) +
3279 4.74656612e8 * pow(sh, 9) - 9.292233e7 * pow(sh, 10) -
3280 5.9056617e7 * pow(sh, 11) +
3281 8.9385341e7 * pow(sh, 12) -
3282 1.01542571e8 * pow(sh, 13) +
3283 3.36952887e8 * pow(sh, 14) -
3284 4.6151941e8 * pow(sh, 15) -
3285 1.1490745e9 * pow(sh, 16) +
3286 5.1849126e9 * pow(sh, 17) -
3287 8.94761595e9 * pow(sh, 18) +
3288 9.1281316e9 * pow(sh, 19) -
3289 6.0729627e9 * pow(sh, 20) +
3290 2.7087795e9 * pow(sh, 21) - 8.039283e8 * pow(sh, 22) +
3291 1.522416e8 * pow(sh, 23) - 1.66278e7 * pow(sh, 24) +
3292 795900. * pow(sh, 25))) -
3293 7.465263197185596e-9 * pow(-1 + sh, -7) * pow(sh, -10)*
3294 (1.60524e6 - 3.372768e6 * sh - 2.1255318e7 * pow(sh, 2) +
3295 5.1364152e7 * pow(sh, 3) -
3296 2.17838821368e11 * pow(sh, 4) +
3297 1.503468880032e12 * pow(sh, 5) -
3298 4.435848139401e12 * pow(sh, 6) +
3299 7.250465882724e12 * pow(sh, 7) -
3300 7.100583095886e12 * pow(sh, 8) +
3301 4.194932382824e12 * pow(sh, 9) -
3302 1.400004505326e12 * pow(sh, 10) +
3303 1.30381507564e11 * pow(sh, 11) +
3304 2.09548894394e11 * pow(sh, 12) -
3305 3.42677229216e11 * pow(sh, 13) +
3306 7.84252942969e11 * pow(sh, 14) -
3307 7.91328639346e11 * pow(sh, 15) -
3308 3.49537340577e12 * pow(sh, 16) +
3309 1.51956042427e13 * pow(sh, 17) -
3310 2.91706462341e13 * pow(sh, 18) +
3311 3.468763704735e13 * pow(sh, 19) -
3312 2.790223133985e13 * pow(sh, 20) +
3313 1.564098014115e13 * pow(sh, 21) -
3314 6.1223554161e12 * pow(sh, 22) +
3315 1.63963647855e12 * pow(sh, 23) -
3316 2.859293178e11 * pow(sh, 24) +
3317 2.92020939e10 * pow(sh, 25) - 1.3226913e9 * pow(sh, 26) +
3318 88200. * pow(3.141592653589793, 2)*
3319 (-180. - 1008. * sh - 1188. * pow(sh, 2) +
3320 4032. * pow(sh, 3) - 1.452588e6 * pow(sh, 4) +
3321 1.0340232e7 * pow(sh, 5) - 3.1138149e7 * pow(sh, 6) +
3322 5.1560286e7 * pow(sh, 7) - 5.0820204e7 * pow(sh, 8) +
3323 2.9901036e7 * pow(sh, 9) - 9.847894e6 * pow(sh, 10) +
3324 1.626412e6 * pow(sh, 11) - 564648. * pow(sh, 12) +
3325 1.515872e6 * pow(sh, 13) - 1.613573e6 * pow(sh, 14) -
3326 1.0017483e7 * pow(sh, 15) + 5.154742e7 * pow(sh, 16) -
3327 1.211917e8 * pow(sh, 17) + 1.785651e8 * pow(sh, 18) -
3328 1.800631e8 * pow(sh, 19) + 1.286215e8 * pow(sh, 20) -
3329 6.57363e7 * pow(sh, 21) + 2.38644e7 * pow(sh, 22) -
3330 5.9997e6 * pow(sh, 23) + 991200. * pow(sh, 24) -
3331 96600. * pow(sh, 25) + 4200. * pow(sh, 26)))) * pow(z, 6);
3332 else
3333 res += pow(z, 6)*(-13382.609103673856 -
3334 83909.57333198964 * (1. - sh) -
3335 285314.7964864959 * pow(1. - sh, 2) -
3336 733141.6984787509 * pow(1. - sh, 3) +
3337 log(muh)*(-1097.4814814814815 -
3338 7580.444444444444 * (1. - sh) -
3339 29518.222222222223 * pow(1. - sh, 2) -
3340 85684.14814814815 * pow(1. - sh, 3) -
3341 206727.11111111112 * pow(1. - sh, 4)) -
3342 1.6179936283094224e6 * pow(1. - sh, 4) +
3343 log(z)*(1155.1126760626482 +
3344 4506.419624502263 * (1. - sh) +
3345 25308.484542876675 * pow(1. - sh, 2) +
3346 94030.12199742932 * pow(1. - sh, 3) +
3347 log(muh)*(-995.5555555555555 -
3348 5973.333333333333 * (1. - sh) -
3349 20906.666666666668 * pow(1. - sh, 2) -
3350 55751.11111111111 * pow(1. - sh, 3) -
3351 125440. * pow(1. - sh, 4)) +
3352 250854.98047286444 * pow(1. - sh, 4)) +
3353 (1201.679012345679 + 7214.074074074074 * (1. - sh) +
3354 26538.192592592593 * pow(1. - sh, 2) +
3355 71813.39259259259 * pow(1. - sh, 3) +
3356 162002.66666666666 * pow(1. - sh, 4)) * pow(log(z), 2));
3357 }
3358
3359 if (13 <= maxpow) {
3360 if (sh < .900001)
3361 res += 0.00014351529503044654 * pow(3.141592653589793, 2) * pow(sh, -11)*
3362 (693. + 9450. * sh + 60305. * pow(sh, 2) +
3363 238200. * pow(sh, 3) + 642234. * pow(sh, 4) +
3364 1.173308e6 * pow(sh, 5) + 642234. * pow(sh, 6) +
3365 238200. * pow(sh, 7) + 60305. * pow(sh, 8) +
3366 9450. * pow(sh, 9) + 693. * pow(sh, 10)) * pow(z, 6.5);
3367 else
3368 res += (4355.652485049105 + 26133.914910294636 * (1. - sh) +
3369 94735.44154981805 * pow(1. - sh, 2) +
3370 266783.7147092577 * pow(1. - sh, 3) +
3371 641447.6079321424 * pow(1. - sh, 4)) * pow(z, 6.5);
3372 }
3373
3374 if (14 <= maxpow) {
3375 if (sh < .900001)
3376 res += (-1. * lmu * (3527.9238095238097 * pow(sh, -7) -
3377 3072. * Lsh * pow(sh, -7)) +
3378 188.0551244054121 * pow(-1 + sh, -3) * pow(sh, -5) -
3379 156.44444444444446 * Li3sh * pow(-1 + sh, -3) * pow(sh, -5) +
3380 52.148148148148145 * pow(Lsh, 3) * pow(-1 + sh, -3) *
3381 pow(sh, -5) + 4.266666666666667 * cl2 * sqrt4sh * sqrtsh *
3382 pow(sh, 2)*(-204. + 654. * sh + 3621. * pow(sh, 2) -
3383 9390. * pow(sh, 3) + 8928. * pow(sh, 4) -
3384 4384. * pow(sh, 5) + 1190. * pow(sh, 6) -
3385 170. * pow(sh, 7) + 10. * pow(sh, 8)) +
3386 0.06772486772486773 * ash * sqrt4sh * sqrtsh * pow(-1 + sh, -3) *
3387 pow(sh, 2)*(23244. - 145995. * sh - 135165. * pow(sh, 2) +
3388 2.214474e6 * pow(sh, 3) - 5.812671e6 * pow(sh, 4) +
3389 7.761562e6 * pow(sh, 5) - 6.239858e6 * pow(sh, 6) +
3390 3.192422e6 * pow(sh, 7) - 1.048133e6 * pow(sh, 8) +
3391 214001. * pow(sh, 9) - 24740. * pow(sh, 10) +
3392 1237. * pow(sh, 11)) +
3393 0.7111111111111111 * Li2sh * pow(-1 + sh, -8) * pow(sh, -7)*
3394 (-1080. + 8600. * sh - 29988. * pow(sh, 2) +
3395 59752. * pow(sh, 3) - 74250. * pow(sh, 4) +
3396 58630. * pow(sh, 5) - 28380. * pow(sh, 6) +
3397 7472. * pow(sh, 7) - 698. * pow(sh, 8) - 10. * pow(sh, 11) +
3398 pow(sh, 12) + pow(sh, 13)) -
3399 12.8 * pow(ash, 2) * pow(-1 + sh, -4) * pow(sh, 2)*
3400 (60. - 1390. * sh + 3920. * pow(sh, 2) +
3401 11563. * pow(sh, 3) - 80966. * pow(sh, 4) +
3402 191832. * pow(sh, 5) - 258720. * pow(sh, 6) +
3403 224115. * pow(sh, 7) - 130416. * pow(sh, 8) +
3404 51582. * pow(sh, 9) - 13684. * pow(sh, 10) +
3405 2330. * pow(sh, 11) - 230. * pow(sh, 12) + 10. * pow(sh, 13))
3406 - Lsh * (-156.44444444444446 * Li2sh * pow(-1 + sh, -3) *
3407 pow(sh, -5) - 4.266666666666667 * ash * sqrt4sh * sqrtsh *
3408 pow(sh, 2)*(-204. + 654. * sh + 3621. * pow(sh, 2) -
3409 9390. * pow(sh, 3) + 8928. * pow(sh, 4) -
3410 4384. * pow(sh, 5) + 1190. * pow(sh, 6) -
3411 170. * pow(sh, 7) + 10. * pow(sh, 8)) +
3412 0.000013437473754934073 * pow(-1 + sh, -9) * pow(sh, -12)*
3413 (3900. - 3800. * sh - 116136. * pow(sh, 2) -
3414 213534. * pow(sh, 3) + 423060. * pow(sh, 4) -
3415 1.71541326e8 * pow(sh, 5) +
3416 1.547854104e9 * pow(sh, 6) -
3417 6.099085398e9 * pow(sh, 7) +
3418 9.702e6 * pow(3.141592653589793, 2) * pow(-1 + sh, 6) *
3419 pow(sh, 7) + 1.3863208764e10 * pow(sh, 8) -
3420 2.0080171644e10 * pow(sh, 9) +
3421 1.9223278801e10 * pow(sh, 10) -
3422 1.2149332644e10 * pow(sh, 11) +
3423 4.878367842e9 * pow(sh, 12) -
3424 1.128611791e9 * pow(sh, 13) -
3425 52920. * Lshb * (-1. + sh) * pow(sh, 5)*
3426 (-1080. + 8600. * sh - 29988. * pow(sh, 2) +
3427 59752. * pow(sh, 3) - 74250. * pow(sh, 4) +
3428 58630. * pow(sh, 5) - 28380. * pow(sh, 6) +
3429 7472. * pow(sh, 7) - 698. * pow(sh, 8) -
3430 10. * pow(sh, 11) + pow(sh, 12) + pow(sh, 13)) +
3431 1.16995017e8 * pow(sh, 14) - 1.22745e6 * pow(sh, 15) -
3432 53410. * pow(sh, 16) + 252693. * pow(sh, 17) -
3433 23814. * pow(sh, 18) - 3234. * pow(sh, 19))) -
3434 0.0028218694885361554 * pow(Lsh, 2) * pow(-1 + sh, -9) *
3435 pow(sh, -12)*(60. + 340. * sh + 312. * pow(sh, 2) -
3436 1872. * pow(sh, 3) - 4980. * pow(sh, 4) +
3437 1.468248e6 * pow(sh, 5) - 1.3307922e7 * pow(sh, 6) +
3438 5.3745563e7 * pow(sh, 7) -
3439 27720. * Lshb * pow(-1 + sh, 6) * pow(sh, 7) -
3440 1.2604899e8 * pow(sh, 8) + 1.89165441e8 * pow(sh, 9) -
3441 1.88411563e8 * pow(sh, 10) + 1.24499847e8 * pow(sh, 11) -
3442 5.2564902e7 * pow(sh, 12) + 1.2834946e7 * pow(sh, 13) -
3443 1.375368e6 * pow(sh, 14) + 1260. * pow(sh, 16) -
3444 1386. * pow(sh, 17) + 126. * pow(sh, 19)) +
3445 0.0028218694885361554 * pow(lz, 2) * pow(sh, -12)*
3446 (15. + 220. * sh + 1518. * pow(sh, 2) + 6534. * pow(sh, 3) +
3447 19503. * pow(sh, 4) + 1.511448e6 * pow(sh, 5) -
3448 20790. * pow(sh, 6) - 6546. * pow(sh, 7) -
3449 24741. * pow(sh, 8) - 29490. * pow(sh, 9) -
3450 19183. * pow(sh, 10) - 15. * pow(sh, 11) -
3451 42336. * pow(sh, 12) - 50652. * pow(sh, 13) -
3452 42336. * pow(sh, 14) - 522396. * pow(sh, 15) -
3453 514080. * pow(sh, 16) + 5.330178e6 * pow(sh, 17) -
3454 8.247204e6 * pow(sh, 18) + 6.008688e6 * pow(sh, 19) -
3455 2.443392e6 * pow(sh, 20) + 570780. * pow(sh, 21) -
3456 71820. * pow(sh, 22) + 3780. * pow(sh, 23)) -
3457 lz * (3072. * lmu * pow(sh, -7) +
3458 78.22222222222223 * pow(Lsh, 2) * pow(-1 + sh, -3) *
3459 pow(sh, -5) - 8.533333333333333 * ash * sqrt4sh * sqrtsh *
3460 pow(sh, 2)*(-204. + 654. * sh + 3621. * pow(sh, 2) -
3461 9390. * pow(sh, 3) + 8928. * pow(sh, 4) -
3462 4384. * pow(sh, 5) + 1190. * pow(sh, 6) -
3463 170. * pow(sh, 7) + 10. * pow(sh, 8)) +
3464 0.005643738977072311 * Lsh * pow(-1 + sh, -8) *
3465 pow(sh, -12)*(30. + 200. * sh + 356. * pow(sh, 2) -
3466 580. * pow(sh, 3) - 3070. * pow(sh, 4) +
3467 1.465988e6 * pow(sh, 5) - 1.1840494e7 * pow(sh, 6) +
3468 4.1785315e7 * pow(sh, 7) - 8.3994971e7 * pow(sh, 8) +
3469 1.0527886e8 * pow(sh, 9) - 8.4349693e7 * pow(sh, 10) +
3470 4.2263834e7 * pow(sh, 11) -
3471 1.2154288e7 * pow(sh, 12) + 1.55972e6 * pow(sh, 13) -
3472 2380. * pow(sh, 14) - 2065. * pow(sh, 15) -
3473 945. * pow(sh, 16) + 462. * pow(sh, 17) +
3474 21. * pow(sh, 18)) -
3475 4.071961743919416e-7 * pow(-1 + sh, -7) * pow(sh, -12)*
3476 (64350. + 66000. * sh - 1.848594e6 * pow(sh, 2) -
3477 7.286499e6 * pow(sh, 3) - 5.743914e6 * pow(sh, 4) -
3478 5.685999132e9 * pow(sh, 5) +
3479 4.1685525882e10 * pow(sh, 6) -
3480 1.30007412909e11 * pow(sh, 7) +
3481 2.26326493503e11 * pow(sh, 8) -
3482 2.39590844427e11 * pow(sh, 9) +
3483 1.56064921276e11 * pow(sh, 10) -
3484 5.9156118388e10 * pow(sh, 11) +
3485 1.1660658501e10 * pow(sh, 12) -
3486 5.482108499e9 * pow(sh, 13) +
3487 1.2697937753e10 * pow(sh, 14) -
3488 1.820498844e10 * pow(sh, 15) +
3489 4.184087512e9 * pow(sh, 16) +
3490 6.5568484406e10 * pow(sh, 17) -
3491 9.5193663855e10 * pow(sh, 18) -
3492 3.83610629052e11 * pow(sh, 19) +
3493 1.851933873636e12 * pow(sh, 20) -
3494 3.850977196836e12 * pow(sh, 21) +
3495 4.997388254166e12 * pow(sh, 22) -
3496 4.45400972478e12 * pow(sh, 23) +
3497 2.82695858676e12 * pow(sh, 24) -
3498 1.2912095196e12 * pow(sh, 25) +
3499 4.2141221892e11 * pow(sh, 26) -
3500 9.582123474e10 * pow(sh, 27) +
3501 1.44039357e10 * pow(sh, 28) -
3502 1.28490516e9 * pow(sh, 29) + 5.143446e7 * pow(sh, 30)))
3503 + 2.9379233361611947e-11 * pow(-1 + sh, -8) * pow(sh, -12)*
3504 (2.074545e8 - 4.76982e8 * sh -
3505 3.223561968e9 * pow(sh, 2) +
3506 1.2229671465e10 * pow(sh, 3) +
3507 5.5118379195e10 * pow(sh, 4) -
3508 1.50774673843134e14 * pow(sh, 5) +
3509 1.186047300987252e15 * pow(sh, 6) -
3510 4.079182881529008e15 * pow(sh, 7) +
3511 8.005291590723075e15 * pow(sh, 8) -
3512 9.81400671207825e15 * pow(sh, 9) +
3513 7.724627706932279e15 * pow(sh, 10) -
3514 3.853787364524662e15 * pow(sh, 11) +
3515 1.164725088632579e15 * pow(sh, 12) -
3516 2.634808520857e14 * pow(sh, 13) +
3517 2.5170701729432e14 * pow(sh, 14) -
3518 4.0013657985217e14 * pow(sh, 15) +
3519 1.47801666642455e14 * pow(sh, 16) +
3520 1.2877818678578e15 * pow(sh, 17) -
3521 2.076397177767913e15 * pow(sh, 18) -
3522 8.385630050032431e15 * pow(sh, 19) +
3523 4.538622316201646e16 * pow(sh, 20) -
3524 1.061838620189715e17 * pow(sh, 21) +
3525 1.575009771316346e17 * pow(sh, 22) -
3526 1.6342684496066314e17 * pow(sh, 23) +
3527 1.2333678370646925e17 * pow(sh, 24) -
3528 6.8698738259084936e16 * pow(sh, 25) +
3529 2.8233898574272776e16 * pow(sh, 26) -
3530 8.447633225048556e15 * pow(sh, 27) +
3531 1.786675943700648e15 * pow(sh, 28) -
3532 2.5272282124782e14 * pow(sh, 29) +
3533 2.141343983394e13 * pow(sh, 30) -
3534 8.2047522942e11 * pow(sh, 31) +
3535 3.20166e7 * pow(3.141592653589793, 2)*
3536 (-90. - 600. * sh - 1068. * pow(sh, 2) +
3537 1740. * pow(sh, 3) + 9210. * pow(sh, 4) -
3538 3.558804e6 * pow(sh, 5) + 2.8685982e7 * pow(sh, 6) -
3539 1.00848529e8 * pow(sh, 7) +
3540 2.01465905e8 * pow(sh, 8) - 2.5035526e8 * pow(sh, 9) +
3541 1.98432319e8 * pow(sh, 10) -
3542 9.8218082e7 * pow(sh, 11) +
3543 2.7878488e7 * pow(sh, 12) - 3.151676e6 * pow(sh, 13) -
3544 1.140968e6 * pow(sh, 14) + 600307. * pow(sh, 15) +
3545 5.766227e6 * pow(sh, 16) - 8.667286e6 * pow(sh, 17) -
3546 7.4435635e7 * pow(sh, 18) +
3547 4.29448764e8 * pow(sh, 19) -
3548 1.174957056e9 * pow(sh, 20) +
3549 2.075532984e9 * pow(sh, 21) -
3550 2.59118244e9 * pow(sh, 22) +
3551 2.377353888e9 * pow(sh, 23) -
3552 1.631212128e9 * pow(sh, 24) +
3553 8.40926772e8 * pow(sh, 25) -
3554 3.23868888e8 * pow(sh, 26) +
3555 9.1648368e7 * pow(sh, 27) -
3556 1.8464544e7 * pow(sh, 28) + 2.50236e6 * pow(sh, 29) -
3557 204120. * pow(sh, 30) + 7560. * pow(sh, 31)))) * pow(z, 7);
3558 else
3559 res += pow(z, 7)*(-44491.606444877616 -
3560 330794.4598052619 * (1. - sh) -
3561 1.2804206866827896e6 * pow(1. - sh, 2) -
3562 3.6984879243897516e6 * pow(1. - sh, 3) +
3563 log(muh)*(-3527.9238095238097 -
3564 27767.466666666667 * (1. - sh) -
3565 121821.86666666667 * pow(1. - sh, 2) -
3566 394137.6 * pow(1. - sh, 3) -
3567 1.049856e6 * pow(1. - sh, 4)) -
3568 9.101629224853888e6 * pow(1. - sh, 4) +
3569 log(z)*(4793.772650900163 +
3570 20076.271464118738 * (1. - sh) +
3571 125799.80299624978 * pow(1. - sh, 2) +
3572 506715.246202913 * pow(1. - sh, 3) +
3573 log(muh)*(-3072. - 21504. * (1. - sh) -
3574 86016. * pow(1. - sh, 2) -
3575 258048. * pow(1. - sh, 3) -
3576 645120. * pow(1. - sh, 4)) +
3577 1.4556579496221067e6 * pow(1. - sh, 4)) +
3578 (4000.5164021164023 +
3579 28350.044444444444 * (1. - sh) +
3580 120184.65185185186 * pow(1. - sh, 2) +
3581 364920.47407407407 * pow(1. - sh, 3) +
3582 913431.7037037037 * pow(1. - sh, 4)) * pow(log(z), 2));
3583 }
3584
3585 if (15 <= maxpow) {
3586 if (sh < .900001)
3587 res += 0.000024287203774383262 * pow(3.141592653589793, 2) *
3588 pow(sh, -13)*(3003. + 47124. * sh + 349398. * pow(sh, 2) +
3589 1.62554e6 * pow(sh, 3) + 5.297685e6 * pow(sh, 4) +
3590 1.265412e7 * pow(sh, 5) + 2.15477e7 * pow(sh, 6) +
3591 1.265412e7 * pow(sh, 7) + 5.297685e6 * pow(sh, 8) +
3592 1.62554e6 * pow(sh, 9) + 349398. * pow(sh, 10) +
3593 47124. * pow(sh, 11) + 3003. * pow(sh, 12)) * pow(z, 7.5);
3594 else
3595 res += (14742.208410935435 + 103195.45887654803 * (1. - sh) +
3596 426049.8230760341 * pow(1. - sh, 2) +
3597 1.3444894070773118e6 * pow(1. - sh, 3) +
3598 3.579434527547286e6 * pow(1. - sh, 4)) * pow(z, 7.5);
3599 }
3600
3601 if (16 <= maxpow) {
3602 if (sh < .900001)
3603 res += (-1. * lmu * (11644.08888888889 * pow(sh, -8) -
3604 9856. * Lsh * pow(sh, -8)) +
3605 523.8678465579336 * pow(-1 + sh, -3) * pow(sh, -6) -
3606 435.8095238095238 * Li3sh * pow(-1 + sh, -3) * pow(sh, -6) +
3607 145.26984126984127 * pow(Lsh, 3) * pow(-1 + sh, -3) *
3608 pow(sh, -6) - 7.822222222222222 * cl2 * sqrt4sh * sqrtsh *
3609 pow(sh, 2)*(-42. + 1287. * sh - 1614. * pow(sh, 2) -
3610 19017. * pow(sh, 3) + 50556. * pow(sh, 4) -
3611 55330. * pow(sh, 5) + 33315. * pow(sh, 6) -
3612 11945. * pow(sh, 7) + 2550. * pow(sh, 8) -
3613 300. * pow(sh, 9) + 15. * pow(sh, 10)) -
3614 0.0028218694885361554 * ash * sqrt4sh * sqrtsh *
3615 pow(-1 + sh, -3) * pow(sh, 2)*
3616 (228522. - 7.741593e6 * sh + 3.0723729e7 * pow(sh, 2) +
3617 6.0003996e7 * pow(sh, 3) - 5.8092981e8 * pow(sh, 4) +
3618 1.504380659e9 * pow(sh, 5) - 2.124842634e9 * pow(sh, 6) +
3619 1.888618168e9 * pow(sh, 7) - 1.114436468e9 * pow(sh, 8) +
3620 4.4384322e8 * pow(sh, 9) - 1.18087858e8 * pow(sh, 10) +
3621 2.0123511e7 * pow(sh, 11) - 1.986441e6 * pow(sh, 12) +
3622 86367. * pow(sh, 13)) +
3623 23.466666666666665 * pow(ash, 2) * pow(-1 + sh, -4) *
3624 pow(sh, 3)*(-700. + 7875. * sh - 14966. * pow(sh, 2) -
3625 79023. * pow(sh, 3) + 455850. * pow(sh, 4) -
3626 1.077135e6 * pow(sh, 5) + 1.523775e6 * pow(sh, 6) -
3627 1.432728e6 * pow(sh, 7) + 934836. * pow(sh, 8) -
3628 430150. * pow(sh, 9) + 139230. * pow(sh, 10) -
3629 31025. * pow(sh, 11) + 4530. * pow(sh, 12) -
3630 390. * pow(sh, 13) + 15. * pow(sh, 14)) +
3631 0.016931216931216932 * Li2sh * pow(-1 + sh, -9) * pow(sh, -8)*
3632 (145530. - 1.30482e6 * sh + 5.20032e6 * pow(sh, 2) -
3633 1.208298e7 * pow(sh, 3) + 1.801254e7 * pow(sh, 4) -
3634 1.78178e7 * pow(sh, 5) + 1.163162e7 * pow(sh, 6) -
3635 4.77477e6 * pow(sh, 7) + 1.082136e6 * pow(sh, 8) -
3636 94842. * pow(sh, 9) - 420. * pow(sh, 13) +
3637 70. * pow(sh, 14) + 35. * pow(sh, 15)) -
3638 Lsh * (-435.8095238095238 * Li2sh * pow(-1 + sh, -3) *
3639 pow(sh, -6) + 7.822222222222222 * ash * sqrt4sh * sqrtsh *
3640 pow(sh, 2)*(-42. + 1287. * sh - 1614. * pow(sh, 2) -
3641 19017. * pow(sh, 3) + 50556. * pow(sh, 4) -
3642 55330. * pow(sh, 5) + 33315. * pow(sh, 6) -
3643 11945. * pow(sh, 7) + 2550. * pow(sh, 8) -
3644 300. * pow(sh, 9) + 15. * pow(sh, 10)) +
3645 4.799097769619311e-7 * pow(-1 + sh, -10) * pow(sh, -14)*
3646 (-70875. + 64125. * sh + 2.661225e6 * pow(sh, 2) +
3647 6.471633e6 * pow(sh, 3) - 8.447481e6 * pow(sh, 4) -
3648 4.7108817e7 * pow(sh, 5) +
3649 2.1458196025e10 * pow(sh, 6) -
3650 2.14166617315e11 * pow(sh, 7) +
3651 9.57541423647e11 * pow(sh, 8) +
3652 7.56756e8 * pow(3.141592653589793, 2) *
3653 pow(-1 + sh, 7) * pow(sh, 8) -
3654 2.521983619869e12 * pow(sh, 9) +
3655 4.337037789987e12 * pow(sh, 10) -
3656 5.090519317485e12 * pow(sh, 11) +
3657 4.129949513865e12 * pow(sh, 12) -
3658 2.286556939359e12 * pow(sh, 13) +
3659 8.27081528763e11 * pow(sh, 14) -
3660 1.76924790709e11 * pow(sh, 15) -
3661 35280. * Lshb * (-1. + sh) * pow(sh, 6)*
3662 (145530. - 1.30482e6 * sh + 5.20032e6 * pow(sh, 2) -
3663 1.208298e7 * pow(sh, 3) + 1.801254e7 * pow(sh, 4) -
3664 1.78178e7 * pow(sh, 5) + 1.163162e7 * pow(sh, 6) -
3665 4.77477e6 * pow(sh, 7) + 1.082136e6 * pow(sh, 8) -
3666 94842. * pow(sh, 9) - 420. * pow(sh, 13) +
3667 70. * pow(sh, 14) + 35. * pow(sh, 15)) +
3668 1.717636396e10 * pow(sh, 16) -
3669 1.22598e7 * pow(sh, 17) - 4.2757596e7 * pow(sh, 18) +
3670 2.333772e6 * pow(sh, 19) + 6.325704e6 * pow(sh, 20) -
3671 688800. * pow(sh, 21) - 54600. * pow(sh, 22))) -
3672 0.00040312421264802217 * pow(Lsh, 2) * pow(-1 + sh, -10) *
3673 pow(sh, -14)*(-315. - 2115. * sh - 3255. * pow(sh, 2) +
3674 9681. * pow(sh, 3) + 37863. * pow(sh, 4) +
3675 21231. * pow(sh, 5) - 3.5869645e7 * pow(sh, 6) +
3676 3.5987455e8 * pow(sh, 7) - 1.631139771e9 * pow(sh, 8) -
3677 540540. * Lshb * pow(-1 + sh, 7) * pow(sh, 8) +
3678 4.372215162e9 * pow(sh, 9) -
3679 7.668316866e9 * pow(sh, 10) +
3680 9.19386972e9 * pow(sh, 11) - 7.62973092e9 * pow(sh, 12) +
3681 4.325428674e9 * pow(sh, 13) -
3682 1.601657043e9 * pow(sh, 14) +
3683 3.49216864e8 * pow(sh, 15) - 3.3959485e7 * pow(sh, 16) +
3684 8820. * pow(sh, 19) - 10290. * pow(sh, 20) +
3685 735. * pow(sh, 21) + 735. * pow(sh, 22)) -
3686 0.00010078105316200554 * pow(lz, 2) * pow(sh, -14)*
3687 (-315. - 5265. * sh - 41730. * pow(sh, 2) -
3688 208494. * pow(sh, 3) - 734877. * pow(sh, 4) -
3689 1.926639e6 * pow(sh, 5) - 1.4698138e8 * pow(sh, 6) +
3690 2.16216e6 * pow(sh, 7) + 48987. * pow(sh, 8) +
3691 1.669041e6 * pow(sh, 9) + 2.629962e6 * pow(sh, 10) +
3692 2.41431e6 * pow(sh, 11) + 1.436625e6 * pow(sh, 12) +
3693 315. * pow(sh, 13) + 3.764376e6 * pow(sh, 14) +
3694 4.230072e6 * pow(sh, 15) + 5.006232e6 * pow(sh, 16) -
3695 7.37352e6 * pow(sh, 17) + 1.0643094e8 * pow(sh, 18) +
3696 1.95359472e8 * pow(sh, 19) -
3697 1.425010356e9 * pow(sh, 20) +
3698 2.406212424e9 * pow(sh, 21) -
3699 2.05080876e9 * pow(sh, 22) + 1.03141962e9 * pow(sh, 23) -
3700 3.2026302e8 * pow(sh, 24) + 6.054048e7 * pow(sh, 25) -
3701 6.40332e6 * pow(sh, 26) + 291060. * pow(sh, 27)) -
3702 lz * (9856. * lmu * pow(sh, -8) +
3703 217.9047619047619 * pow(Lsh, 2) * pow(-1 + sh, -3) *
3704 pow(sh, -6) + 15.644444444444444 * ash * sqrt4sh * sqrtsh *
3705 pow(sh, 2)*(-42. + 1287. * sh - 1614. * pow(sh, 2) -
3706 19017. * pow(sh, 3) + 50556. * pow(sh, 4) -
3707 55330. * pow(sh, 5) + 33315. * pow(sh, 6) -
3708 11945. * pow(sh, 7) + 2550. * pow(sh, 8) -
3709 300. * pow(sh, 9) + 15. * pow(sh, 10)) +
3710 0.00040312421264802217 * Lsh * pow(-1 + sh, -9) *
3711 pow(sh, -14)*(-315. - 2430. * sh - 5685. * pow(sh, 2) +
3712 3996. * pow(sh, 3) + 41859. * pow(sh, 4) +
3713 63090. * pow(sh, 5) - 7.1605955e7 * pow(sh, 6) +
3714 6.4801935e8 * pow(sh, 7) -
3715 2.609788929e9 * pow(sh, 8) +
3716 6.121801554e9 * pow(sh, 9) -
3717 9.217982115e9 * pow(sh, 10) +
3718 9.24507918e9 * pow(sh, 11) -
3719 6.181354605e9 * pow(sh, 12) +
3720 2.66089059e9 * pow(sh, 13) -
3721 6.71469273e8 * pow(sh, 14) +
3722 7.6209266e7 * pow(sh, 15) + 37800. * pow(sh, 16) -
3723 47460. * pow(sh, 17) - 29232. * pow(sh, 18) -
3724 9828. * pow(sh, 19) + 6930. * pow(sh, 20) +
3725 210. * pow(sh, 21)) -
3726 1.6780062131536054e-9 * pow(-1 + sh, -8) * pow(sh, -14)*
3727 (-1.0135125e7 - 1.1100375e7 * sh +
3728 3.6848955e8 * pow(sh, 2) +
3729 1.673522994e9 * pow(sh, 3) +
3730 1.770566655e9 * pow(sh, 4) -
3731 4.868950515e9 * pow(sh, 5) +
3732 6.12638023426e12 * pow(sh, 6) -
3733 5.053531208726e13 * pow(sh, 7) +
3734 1.81942427597788e14 * pow(sh, 8) -
3735 3.7509726864038e14 * pow(sh, 9) +
3736 4.863909914149e14 * pow(sh, 10) -
3737 4.0837905886362e14 * pow(sh, 11) +
3738 2.185978661919e14 * pow(sh, 12) -
3739 6.9223437871788e13 * pow(sh, 13) +
3740 9.478097027448e12 * pow(sh, 14) +
3741 4.822522515092e12 * pow(sh, 15) -
3742 1.3702469432263e13 * pow(sh, 16) +
3743 2.0211432885167e13 * pow(sh, 17) -
3744 1.5340657706842e13 * pow(sh, 18) +
3745 3.8517131981282e13 * pow(sh, 19) -
3746 1.98231128437323e14 * pow(sh, 20) +
3747 2.48611036890867e14 * pow(sh, 21) +
3748 1.312843416208632e15 * pow(sh, 22) -
3749 6.858549767677608e15 * pow(sh, 23) +
3750 1.6510967898168744e16 * pow(sh, 24) -
3751 2.57336419311972e16 * pow(sh, 25) +
3752 2.851348331813982e16 * pow(sh, 26) -
3753 2.336070503975208e16 * pow(sh, 27) +
3754 1.439716999494774e16 * pow(sh, 28) -
3755 6.70336841266092e15 * pow(sh, 29) +
3756 2.34397396677444e15 * pow(sh, 30) -
3757 6.0527470649646e14 * pow(sh, 31) +
3758 1.1182510300962e14 * pow(sh, 32) -
3759 1.396347000048e13 * pow(sh, 33) +
3760 1.054350297e12 * pow(sh, 34) -
3761 3.631041414e10 * pow(sh, 35))) -
3762 4.656471897973153e-15 * pow(-1 + sh, -9) * pow(sh, -14)*
3763 (7.34806697625e11 - 1.86465740175e12 * sh -
3764 1.3539275231625e13 * pow(sh, 2) +
3765 6.7027116030732e13 * pow(sh, 3) +
3766 3.63276406618983e14 * pow(sh, 4) +
3767 7.707518005473e13 * pow(sh, 5) -
3768 2.670939112625576e18 * pow(sh, 6) +
3769 2.358705949072117e19 * pow(sh, 7) -
3770 9.25798205589377e19 * pow(sh, 8) +
3771 2.1183909722959626e20 * pow(sh, 9) -
3772 3.1161735718840415e20 * pow(sh, 10) +
3773 3.06304944728649e20 * pow(sh, 11) -
3774 2.023336897561395e20 * pow(sh, 12) +
3775 8.778312486562154e19 * pow(sh, 13) -
3776 2.3206885685742117e19 * pow(sh, 14) +
3777 1.3935768215051139e18 * pow(sh, 15) +
3778 5.883932779473471e18 * pow(sh, 16) -
3779 1.0545119614382879e19 * pow(sh, 17) +
3780 1.1056449646096937e19 * pow(sh, 18) -
3781 2.3434959475666616e19 * pow(sh, 19) +
3782 1.0419598368525897e20 * pow(sh, 20) -
3783 1.688591180885733e20 * pow(sh, 21) -
3784 5.308738122339353e20 * pow(sh, 22) +
3785 3.5306726064196524e21 * pow(sh, 23) -
3786 9.689077766441178e21 * pow(sh, 24) +
3787 1.7097533811227756e22 * pow(sh, 25) -
3788 2.1588630869532427e22 * pow(sh, 26) +
3789 2.038422378040867e22 * pow(sh, 27) -
3790 1.4690695476739364e22 * pow(sh, 28) +
3791 8.14476034656345e21 * pow(sh, 29) -
3792 3.4697517653715583e21 * pow(sh, 30) +
3793 1.1250567404926722e21 * pow(sh, 31) -
3794 2.7233981875541377e20 * pow(sh, 32) +
3795 4.759269487750347e19 * pow(sh, 33) -
3796 5.663805036845516e18 * pow(sh, 34) +
3797 4.101841359381566e17 * pow(sh, 35) -
3798 1.362249094884678e16 * pow(sh, 36) +
3799 4.32864432e10 * pow(3.141592653589793, 2)*
3800 (-315. - 2430. * sh - 5685. * pow(sh, 2) +
3801 3996. * pow(sh, 3) + 41859. * pow(sh, 4) +
3802 63090. * pow(sh, 5) - 5.9090375e7 * pow(sh, 6) +
3803 5.3345259e8 * pow(sh, 7) -
3804 2.141709439e9 * pow(sh, 8) +
3805 5.001401214e9 * pow(sh, 9) -
3806 7.486485645e9 * pow(sh, 10) +
3807 7.45371022e9 * pow(sh, 11) -
3808 4.941375175e9 * pow(sh, 12) +
3809 2.10797493e9 * pow(sh, 13) -
3810 5.28751827e8 * pow(sh, 14) +
3811 6.6874034e7 * pow(sh, 15) - 2.302929e7 * pow(sh, 16) +
3812 4.790626e7 * pow(sh, 17) -
3813 1.24781262e8 * pow(sh, 18) +
3814 4.35359256e8 * pow(sh, 19) -
3815 5.45760408e8 * pow(sh, 20) -
3816 3.99911175e9 * pow(sh, 21) +
3817 2.559251793e10 * pow(sh, 22) -
3818 7.87509723e10 * pow(sh, 23) +
3819 1.60158041736e11 * pow(sh, 24) -
3820 2.35861111332e11 * pow(sh, 25) +
3821 2.6202440418e11 * pow(sh, 26) -
3822 2.2419142284e11 * pow(sh, 27) +
3823 1.491808626e11 * pow(sh, 28) -
3824 7.7359627884e10 * pow(sh, 29) +
3825 3.1118686368e10 * pow(sh, 30) -
3826 9.59731542e9 * pow(sh, 31) +
3827 2.22259884e9 * pow(sh, 32) -
3828 3.733653e8 * pow(sh, 33) + 4.288284e7 * pow(sh, 34) -
3829 3.00762e6 * pow(sh, 35) + 97020. * pow(sh, 36)))) *
3830 pow(z, 8);
3831 else
3832 res += pow(z, 8)*(-152175.3347907426 -
3833 1.3121004907612824e6 * (1. - sh) -
3834 5.692547653098881e6 * pow(1. - sh, 2) -
3835 1.8262414685026634e7 * pow(1. - sh, 3) +
3836 log(muh)*(-11644.08888888889 -
3837 103008.71111111112 * (1. - sh) -
3838 502963.2 * pow(1. - sh, 2) -
3839 1.794816e6 * pow(1. - sh, 3) -
3840 5.231424e6 * pow(1. - sh, 4)) -
3841 4.9606666429006e7 * pow(1. - sh, 4) +
3842 log(z)*(19181.53823244784 +
3843 86972.5498690609 * (1. - sh) +
3844 607120.085934602 * pow(1. - sh, 2) +
3845 2.6398902680343925e6 * pow(1. - sh, 3) +
3846 log(muh)*(-9856. - 78848. * (1. - sh) -
3847 354816. * pow(1. - sh, 2) -
3848 1.18272e6 * pow(1. - sh, 3) -
3849 3.25248e6 * pow(1. - sh, 4)) +
3850 8.124517405933031e6 * pow(1. - sh, 4)) +
3851 (13720.493827160493 +
3852 112232.75061728395 * (1. - sh) +
3853 538923.3777777777 * pow(1. - sh, 2) +
3854 1.8125184592592593e6 * pow(1. - sh, 3) +
3855 4.984340004232804e6 * pow(1. - sh, 4)) * pow(log(z), 2)
3856 );
3857 }
3858
3859 if (17 <= maxpow) {
3860 if (sh < .900001)
3861 res += 8.66719820968187e-6 * pow(3.141592653589793, 2) * pow(sh, -15)*
3862 (6435. + 114114. * sh + 962577. * pow(sh, 2) +
3863 5.137524e6 * pow(sh, 3) + 1.9445755e7 * pow(sh, 4) +
3864 5.526435e7 * pow(sh, 5) + 1.20557265e8 * pow(sh, 6) +
3865 1.9446652e8 * pow(sh, 7) + 1.20557265e8 * pow(sh, 8) +
3866 5.526435e7 * pow(sh, 9) + 1.9445755e7 * pow(sh, 10) +
3867 5.137524e6 * pow(sh, 11) + 962577. * pow(sh, 12) +
3868 114114. * pow(sh, 13) + 6435. * pow(sh, 14)) * pow(z, 8.5);
3869 else
3870 res += (51106.322491242834 + 408850.5799299427 * (1. - sh) +
3871 1.8934892483005472e6 * pow(1. - sh, 2) +
3872 6.615713446491386e6 * pow(1. - sh, 3) +
3873 1.9308607466222685e7 * pow(1. - sh, 4)) * pow(z, 8.5);
3874 }
3875
3876 if (18 <= maxpow) {
3877 if (sh < .900001)
3878 res += (-1. * lmu * (39253.5139329806 * pow(sh, -9) -
3879 32540.444444444445 * Lsh * pow(sh, -9)) +
3880 1527.947885793973 * pow(-1 + sh, -3) * pow(sh, -7) -
3881 1271.111111111111 * Li3sh * pow(-1 + sh, -3) * pow(sh, -7) +
3882 423.7037037037037 * pow(Lsh, 3) * pow(-1 + sh, -3) *
3883 pow(sh, -7) + 16.141093474426807 * cl2 * sqrt4sh * sqrtsh *
3884 pow(sh, 3)*(552. - 6504. * sh + 954. * pow(sh, 2) +
3885 96534. * pow(sh, 3) - 256765. * pow(sh, 4) +
3886 311884. * pow(sh, 5) - 219753. * pow(sh, 6) +
3887 97149. * pow(sh, 7) - 27453. * pow(sh, 8) +
3888 4830. * pow(sh, 9) - 483. * pow(sh, 10) + 21. * pow(sh, 11))\
3889 + 0.00062708210856359 * ash * sqrt4sh * sqrtsh *
3890 pow(-1 + sh, -3) * pow(sh, 3)*
3891 (-2.9602032e7 + 4.3918554e8 * sh -
3892 1.183665042e9 * pow(sh, 2) - 4.124801388e9 * pow(sh, 3) +
3893 2.9786749451e10 * pow(sh, 4) -
3894 7.6073083277e10 * pow(sh, 5) +
3895 1.12343648214e11 * pow(sh, 6) -
3896 1.08358670795e11 * pow(sh, 7) +
3897 7.1769426953e10 * pow(sh, 8) -
3898 3.3301199019e10 * pow(sh, 9) +
3899 1.0824913791e10 * pow(sh, 10) -
3900 2.416552923e9 * pow(sh, 11) +
3901 3.53029242e8 * pow(sh, 12) - 3.0393246e7 * pow(sh, 13) +
3902 1.168971e6 * pow(sh, 14)) -
3903 48.423280423280424 * pow(ash, 2) * pow(-1 + sh, -4) *
3904 pow(sh, 3)*(-112. + 5446. * sh - 40068. * pow(sh, 2) +
3905 45402. * pow(sh, 3) + 481386. * pow(sh, 4) -
3906 2.416545e6 * pow(sh, 5) + 5.68308e6 * pow(sh, 6) -
3907 8.356089e6 * pow(sh, 7) + 8.410689e6 * pow(sh, 8) -
3908 6.034798e6 * pow(sh, 9) + 3.142636e6 * pow(sh, 10) -
3909 1.191618e6 * pow(sh, 11) + 325686. * pow(sh, 12) -
3910 62481. * pow(sh, 13) + 7980. * pow(sh, 14) -
3911 609. * pow(sh, 15) + 21. * pow(sh, 16)) +
3912 0.02821869488536155 * Li2sh * pow(-1 + sh, -10) * pow(sh, -9)*
3913 (-288288. + 2.873871e6 * sh - 1.2889503e7 * pow(sh, 2) +
3914 3.423222e7 * pow(sh, 3) - 5.956146e7 * pow(sh, 4) +
3915 7.0825482e7 * pow(sh, 5) - 5.8121154e7 * pow(sh, 6) +
3916 3.2324292e7 * pow(sh, 7) - 1.153152e7 * pow(sh, 8) +
3917 2.327611e6 * pow(sh, 9) - 186043. * pow(sh, 10) -
3918 252. * pow(sh, 15) + 54. * pow(sh, 16) + 18. * pow(sh, 17))\
3919 - Lsh * (-1271.111111111111 * Li2sh * pow(-1 + sh, -3) *
3920 pow(sh, -7) - 16.141093474426807 * ash * sqrt4sh * sqrtsh *
3921 pow(sh, 3)*(552. - 6504. * sh + 954. * pow(sh, 2) +
3922 96534. * pow(sh, 3) - 256765. * pow(sh, 4) +
3923 311884. * pow(sh, 5) - 219753. * pow(sh, 6) +
3924 97149. * pow(sh, 7) - 27453. * pow(sh, 8) +
3925 4830. * pow(sh, 9) - 483. * pow(sh, 10) +
3926 21. * pow(sh, 11)) +
3927 9.331578996481995e-7 * pow(-1 + sh, -11) * pow(sh, -16)*
3928 (24990. - 21315. * sh - 1.15923e6 * pow(sh, 2) -
3929 3.54162e6 * pow(sh, 3) + 2.396436e6 * pow(sh, 4) +
3930 2.6605446e7 * pow(sh, 5) + 2.5110204e7 * pow(sh, 6) -
3931 4.6121470412e10 * pow(sh, 7) +
3932 5.06007096796e11 * pow(sh, 8) -
3933 2.5214921261e12 * pow(sh, 9) +
3934 1.135134e9 * pow(3.141592653589793, 2) *
3935 pow(-1 + sh, 8) * pow(sh, 9) +
3936 7.515033973326e12 * pow(sh, 10) -
3937 1.4885226217656e13 * pow(sh, 11) +
3938 2.0578551617862e13 * pow(sh, 12) -
3939 2.0264715219756e13 * pow(sh, 13) +
3940 1.4215757817264e13 * pow(sh, 14) -
3941 6.963287491704e12 * pow(sh, 15) +
3942 2.269595684207e12 * pow(sh, 16) -
3943 4.4385323008e11 * pow(sh, 17) -
3944 30240. * Lshb * (-1. + sh) * pow(sh, 7)*
3945 (-288288. + 2.873871e6 * sh -
3946 1.2889503e7 * pow(sh, 2) +
3947 3.423222e7 * pow(sh, 3) - 5.956146e7 * pow(sh, 4) +
3948 7.0825482e7 * pow(sh, 5) -
3949 5.8121154e7 * pow(sh, 6) +
3950 3.2324292e7 * pow(sh, 7) -
3951 1.153152e7 * pow(sh, 8) + 2.327611e6 * pow(sh, 9) -
3952 186043. * pow(sh, 10) - 252. * pow(sh, 15) +
3953 54. * pow(sh, 16) + 18. * pow(sh, 17)) +
3954 3.9661774136e10 * pow(sh, 18) +
3955 8.107722e7 * pow(sh, 19) - 2.4528798e7 * pow(sh, 20) -
3956 2.4018498e7 * pow(sh, 21) + 3.225852e6 * pow(sh, 22) +
3957 2.9835e6 * pow(sh, 23) - 343845. * pow(sh, 24) -
3958 18225. * pow(sh, 25))) -
3959 0.0005878894767783657 * pow(Lsh, 2) * pow(-1 + sh, -11) *
3960 pow(sh, -16)*(168. + 1302. * sh + 2760. * pow(sh, 2) -
3961 4440. * pow(sh, 3) - 27552. * pow(sh, 4) -
3962 26796. * pow(sh, 5) + 59136. * pow(sh, 6) +
3963 8.709724e7 * pow(sh, 7) - 9.61414058e8 * pow(sh, 8) +
3964 4.834002949e9 * pow(sh, 9) -
3965 1.08108e6 * Lshb * pow(-1 + sh, 8) * pow(sh, 9) -
3966 1.4570114508e10 * pow(sh, 10) +
3967 2.922310728e10 * pow(sh, 11) -
3968 4.0941204696e10 * pow(sh, 12) +
3969 4.087575366e10 * pow(sh, 13) -
3970 2.9075948544e10 * pow(sh, 14) +
3971 1.443451164e10 * pow(sh, 15) -
3972 4.759554808e9 * pow(sh, 16) +
3973 9.37068023e8 * pow(sh, 17) - 8.3312536e7 * pow(sh, 18) +
3974 6048. * pow(sh, 22) - 7344. * pow(sh, 23) +
3975 864. * pow(sh, 24) + 432. * pow(sh, 25)) -
3976 0.00029394473838918284 * pow(lz, 2) * pow(sh, -16)*
3977 (-84. - 1575. * sh - 14085. * pow(sh, 2) -
3978 79950. * pow(sh, 3) - 323154. * pow(sh, 4) -
3979 987129. * pow(sh, 5) - 2.347059e6 * pow(sh, 6) -
3980 1.78300736e8 * pow(sh, 7) + 2.7027e6 * pow(sh, 8) -
3981 473685. * pow(sh, 9) + 1.243629e6 * pow(sh, 10) +
3982 2.698722e6 * pow(sh, 11) + 2.985906e6 * pow(sh, 12) +
3983 2.433285e6 * pow(sh, 13) + 1.388619e6 * pow(sh, 14) +
3984 84. * pow(sh, 15) + 4.25568e6 * pow(sh, 16) +
3985 4.612608e6 * pow(sh, 17) + 5.189184e6 * pow(sh, 18) +
3986 7.605312e6 * pow(sh, 19) - 6.1281792e7 * pow(sh, 20) +
3987 2.75438592e8 * pow(sh, 21) + 8.71398528e8 * pow(sh, 22) -
3988 5.028236928e9 * pow(sh, 23) +
3989 8.99602704e9 * pow(sh, 24) -
3990 8.653636992e9 * pow(sh, 25) +
3991 5.137333344e9 * pow(sh, 26) -
3992 1.978438176e9 * pow(sh, 27) +
3993 4.97379168e8 * pow(sh, 28) - 7.8990912e7 * pow(sh, 29) +
3994 7.2072e6 * pow(sh, 30) - 288288. * pow(sh, 31)) -
3995 lz * (32540.444444444445 * lmu * pow(sh, -9) +
3996 635.5555555555555 * pow(Lsh, 2) * pow(-1 + sh, -3) *
3997 pow(sh, -7) - 32.282186948853614 * ash * sqrt4sh * sqrtsh *
3998 pow(sh, 3)*(552. - 6504. * sh + 954. * pow(sh, 2) +
3999 96534. * pow(sh, 3) - 256765. * pow(sh, 4) +
4000 311884. * pow(sh, 5) - 219753. * pow(sh, 6) +
4001 97149. * pow(sh, 7) - 27453. * pow(sh, 8) +
4002 4830. * pow(sh, 9) - 483. * pow(sh, 10) +
4003 21. * pow(sh, 11)) +
4004 0.0011757789535567313 * Lsh * pow(-1 + sh, -10) *
4005 pow(sh, -16)*(84. + 735. * sh + 2115. * pow(sh, 2) -
4006 105. * pow(sh, 3) - 13881. * pow(sh, 4) -
4007 27279. * pow(sh, 5) + 2289. * pow(sh, 6) +
4008 8.7045013e7 * pow(sh, 7) - 8.74124185e8 * pow(sh, 8) +
4009 3.955482141e9 * pow(sh, 9) -
4010 1.0600174539e10 * pow(sh, 10) +
4011 1.8626345409e10 * pow(sh, 11) -
4012 2.2429329447e10 * pow(sh, 12) +
4013 1.8752939835e10 * pow(sh, 13) -
4014 1.0757383293e10 * pow(sh, 14) +
4015 4.056843039e9 * pow(sh, 15) -
4016 9.10168681e8 * pow(sh, 16) +
4017 9.2636188e7 * pow(sh, 17) + 75600. * pow(sh, 18) +
4018 9072. * pow(sh, 19) - 22680. * pow(sh, 20) -
4019 9828. * pow(sh, 21) - 2268. * pow(sh, 22) +
4020 2484. * pow(sh, 23) + 54. * pow(sh, 24)) +
4021 3.2627898589097882e-9 * pow(-1 + sh, -9) * pow(sh, -16)*
4022 (-3.57357e6 - 4.099095e6 * sh +
4023 1.6114527e8 * pow(sh, 2) + 8.32841295e8 * pow(sh, 3) +
4024 1.161846972e9 * pow(sh, 4) -
4025 2.313726129e9 * pow(sh, 5) -
4026 9.380058402e9 * pow(sh, 6) +
4027 1.3161069788009e13 * pow(sh, 7) -
4028 1.20977154695826e14 * pow(sh, 8) +
4029 4.94447733407199e14 * pow(sh, 9) -
4030 1.180536055693566e15 * pow(sh, 10) +
4031 1.818479082421521e15 * pow(sh, 11) -
4032 1.879273746539124e15 * pow(sh, 12) +
4033 1.307997164466393e15 * pow(sh, 13) -
4034 5.94838522786482e14 * pow(sh, 14) +
4035 1.62091018204671e14 * pow(sh, 15) -
4036 2.194598322815e13 * pow(sh, 16) +
4037 9.520266140208e12 * pow(sh, 17) -
4038 3.1476144603672e13 * pow(sh, 18) +
4039 6.08108801358e13 * pow(sh, 19) -
4040 8.0522179628688e13 * pow(sh, 20) +
4041 7.1735262216768e13 * pow(sh, 21) +
4042 1.85972284144884e14 * pow(sh, 22) -
4043 1.24257330785952e15 * pow(sh, 23) +
4044 1.516348491395922e15 * pow(sh, 24) +
4045 9.623404446386016e15 * pow(sh, 25) -
4046 5.409785863372176e16 * pow(sh, 26) +
4047 1.4651551524606797e17 * pow(sh, 27) -
4048 2.639914855668742e17 * pow(sh, 28) +
4049 3.46785263569046e17 * pow(sh, 29) -
4050 3.4581010205224454e17 * pow(sh, 30) +
4051 2.67102371124581e17 * pow(sh, 31) -
4052 1.612804363486636e17 * pow(sh, 32) +
4053 7.625393556018638e16 * pow(sh, 33) -
4054 2.809203040360517e16 * pow(sh, 34) +
4055 7.968174811781184e15 * pow(sh, 35) -
4056 1.704011763662208e15 * pow(sh, 36) +
4057 2.65362784294608e14 * pow(sh, 37) -
4058 2.836102317048e13 * pow(sh, 38) +
4059 1.857724700832e12 * pow(sh, 39) -
4060 5.6166718608e10 * pow(sh, 40))) -
4061 1.3581376369088363e-14 * pow(-1 + sh, -10) * pow(sh, -16)*
4062 (-1.522039519e11 + 4.26276275425e11 * sh +
4063 3.315607505925e12 * pow(sh, 2) -
4064 1.9935815474575e13 * pow(sh, 3) -
4065 1.24680380503679e14 * pow(sh, 4) -
4066 9.4734104241777e13 * pow(sh, 5) +
4067 6.72219759402191e14 * pow(sh, 6) +
4068 2.6103747782620196e18 * pow(sh, 7) -
4069 2.5573475986293776e19 * pow(sh, 8) +
4070 1.1271511598880529e20 * pow(sh, 9) -
4071 2.943261559227364e20 * pow(sh, 10) +
4072 5.045168745362524e20 * pow(sh, 11) -
4073 5.941440025879828e20 * pow(sh, 12) +
4074 4.8854165231351536e20 * pow(sh, 13) -
4075 2.7897519097641733e20 * pow(sh, 14) +
4076 1.0745710257767067e20 * pow(sh, 15) -
4077 2.6239676246066704e19 * pow(sh, 16) +
4078 5.344996730119183e18 * pow(sh, 17) -
4079 8.145618788181729e18 * pow(sh, 18) +
4080 1.8132101139625396e19 * pow(sh, 19) -
4081 2.789986937416512e19 * pow(sh, 20) +
4082 2.916708794791665e19 * pow(sh, 21) +
4083 4.506612585214779e19 * pow(sh, 22) -
4084 3.9814881989842764e20 * pow(sh, 23) +
4085 7.61642854944141e20 * pow(sh, 24) +
4086 1.912231127650318e21 * pow(sh, 25) -
4087 1.5547276029752026e22 * pow(sh, 26) +
4088 4.875241535562659e22 * pow(sh, 27) -
4089 9.909337425361018e22 * pow(sh, 28) +
4090 1.4647795672750128e23 * pow(sh, 29) -
4091 1.651330016200192e23 * pow(sh, 30) +
4092 1.453924699389752e23 * pow(sh, 31) -
4093 1.011735575962528e23 * pow(sh, 32) +
4094 5.58883301567305e22 * pow(sh, 33) -
4095 2.447160559972393e22 * pow(sh, 34) +
4096 8.433457866753118e21 * pow(sh, 35) -
4097 2.2566304052798968e21 * pow(sh, 36) +
4098 4.585243554016694e20 * pow(sh, 37) -
4099 6.826335499960051e19 * pow(sh, 38) +
4100 7.011890262150629e18 * pow(sh, 39) -
4101 4.434709029248097e17 * pow(sh, 40) +
4102 1.2998152420597344e16 * pow(sh, 41) -
4103 4.32864432e10 * pow(3.141592653589793, 2)*
4104 (-84. - 735. * sh - 2115. * pow(sh, 2) +
4105 105. * pow(sh, 3) + 13881. * pow(sh, 4) +
4106 27279. * pow(sh, 5) - 2289. * pow(sh, 6) -
4107 7.2918901e7 * pow(sh, 7) + 7.30592797e8 * pow(sh, 8) -
4108 3.297157631e9 * pow(sh, 9) +
4109 8.805108353e9 * pow(sh, 10) -
4110 1.5403793139e10 * pow(sh, 11) +
4111 1.8449564077e10 * pow(sh, 12) -
4112 1.5329503273e10 * pow(sh, 13) +
4113 8.733035583e9 * pow(sh, 14) -
4114 3.270393893e9 * pow(sh, 15) +
4115 7.28627507e8 * pow(sh, 16) -
4116 6.571293e7 * pow(sh, 17) - 3.2675014e7 * pow(sh, 18) +
4117 7.242013e7 * pow(sh, 19) - 7.6735758e7 * pow(sh, 20) -
4118 2.40223726e8 * pow(sh, 21) +
4119 1.627847962e9 * pow(sh, 22) -
4120 2.273776974e9 * pow(sh, 23) -
4121 1.712105386e10 * pow(sh, 24) +
4122 1.18341944808e11 * pow(sh, 25) -
4123 3.9995878208e11 * pow(sh, 26) +
4124 9.10773328608e11 * pow(sh, 27) -
4125 1.531097366656e12 * pow(sh, 28) +
4126 1.98076916752e12 * pow(sh, 29) -
4127 2.016366553344e12 * pow(sh, 30) +
4128 1.634962897568e12 * pow(sh, 31) -
4129 1.06202452928e12 * pow(sh, 32) +
4130 5.53053223008e11 * pow(sh, 33) -
4131 2.30009473408e11 * pow(sh, 34) +
4132 7.5735678304e10 * pow(sh, 35) -
4133 1.945628256e10 * pow(sh, 36) +
4134 3.810741792e9 * pow(sh, 37) -
4135 5.48735616e8 * pow(sh, 38) +
4136 5.4678624e7 * pow(sh, 39) - 3.36336e6 * pow(sh, 40) +
4137 96096. * pow(sh, 41)))) * pow(z, 9);
4138 else
4139 res += pow(z, 9)*(-531170.0836599696 -
4140 5.221397600319266e6 * (1. - sh) -
4141 2.50820565037545e7 * pow(1. - sh, 2) -
4142 8.849720248983555e7 * pow(1. - sh, 3) +
4143 log(muh)*(-39253.5139329806 -
4144 385822.06984126987 * (1. - sh) -
4145 2.075542349206349e6 * pow(1. - sh, 2) -
4146 8.098428613756614e6 * pow(1. - sh, 3) -
4147 2.5637579174603175e7 * pow(1. - sh, 4)) -
4148 2.6309546792497513e8 * pow(1. - sh, 4) +
4149 log(z)*(75507.81523340371 +
4150 370284.8608070748 * (1. - sh) +
4151 2.8644751808652747e6 * pow(1. - sh, 2) +
4152 1.3385139112281743e7 * pow(1. - sh, 3) +
4153 log(muh)*(-32540.444444444445 -
4154 292864. * (1. - sh) -
4155 1.46432e6 * pow(1. - sh, 2) -
4156 5.369173333333333e6 * pow(1. - sh, 3) -
4157 1.610752e7 * pow(1. - sh, 4)) +
4158 4.39338775383846e7 * pow(1. - sh, 4)) +
4159 (48060.242210464436 + 446131.6613756614 * (1. - sh) +
4160 2.3941590476190476e6 * pow(1. - sh, 2) +
4161 8.828220007054674e6 * pow(1. - sh, 3) +
4162 2.6455532740740743e7 * pow(1. - sh, 4)) *
4163 pow(log(z), 2));
4164 }
4165
4166 if (19 <= maxpow) {
4167 if (sh < .900001)
4168 res += 4.0250146484590727e-7 * pow(3.141592653589793, 2) * pow(sh, -17)*
4169 (109395. + 2.16216e6 * sh + 2.0430696e7 * pow(sh, 2) +
4170 1.22866128e8 * pow(sh, 3) + 5.27900436e8 * pow(sh, 4) +
4171 1.72236568e9 * pow(sh, 5) + 4.41295356e9 * pow(sh, 6) +
4172 8.96714376e9 * pow(sh, 7) + 1.385377093e10 * pow(sh, 8) +
4173 8.96714376e9 * pow(sh, 9) + 4.41295356e9 * pow(sh, 10) +
4174 1.72236568e9 * pow(sh, 11) + 5.27900436e8 * pow(sh, 12) +
4175 1.22866128e8 * pow(sh, 13) + 2.0430696e7 * pow(sh, 14) +
4176 2.16216e6 * pow(sh, 15) + 109395. * pow(sh, 16)) * pow(z, 9.5);
4177 else
4178 res += (180375.25585144534 + 1.6233773026630078e6 * (1. - sh) +
4179 8.333336820336774e6 * pow(1. - sh, 2) +
4180 3.192642028570582e7 * pow(1. - sh, 3) +
4181 1.0132579997454941e8 * pow(1. - sh, 4)) * pow(z, 9.5);
4182 }
4183
4184 if (20 <= maxpow) {
4185 if (sh < .900001)
4186 res += (-1. * lmu * (134616.0761904762 * pow(sh, -10) -
4187 109824. * Lsh * pow(sh, -10)) +
4188 4617.798054844007 * pow(-1 + sh, -3) * pow(sh, -8) -
4189 3841.58024691358 * Li3sh * pow(-1 + sh, -3) * pow(sh, -8) +
4190 1280.5267489711935 * pow(Lsh, 3) * pow(-1 + sh, -3) *
4191 pow(sh, -8) - 36.317460317460316 * cl2 * sqrt4sh * sqrtsh *
4192 pow(sh, 3)*(72. - 4364. * sh + 28750. * pow(sh, 2) +
4193 23168. * pow(sh, 3) - 476659. * pow(sh, 4) +
4194 1.255353e6 * pow(sh, 5) - 1.649661e6 * pow(sh, 6) +
4195 1.316274e6 * pow(sh, 7) - 686175. * pow(sh, 8) +
4196 239883. * pow(sh, 9) - 55951. * pow(sh, 10) +
4197 8372. * pow(sh, 11) - 728. * pow(sh, 12) + 28. * pow(sh, 13))
4198 - 0.005643738977072311 * ash * sqrt4sh * sqrtsh *
4199 pow(-1 + sh, -3) * pow(sh, 3)*
4200 (-1.003446e6 + 6.399262e7 * sh -
4201 5.88476654e8 * pow(sh, 2) + 1.052685443e9 * pow(sh, 3) +
4202 6.558619027e9 * pow(sh, 4) -
4203 3.9015984112e10 * pow(sh, 5) +
4204 9.831642973e10 * pow(sh, 6) -
4205 1.5050270954e11 * pow(sh, 7) +
4206 1.55340604554e11 * pow(sh, 8) -
4207 1.13220265218e11 * pow(sh, 9) +
4208 5.9521934912e10 * pow(sh, 10) -
4209 2.2692174847e10 * pow(sh, 11) +
4210 6.219574195e9 * pow(sh, 12) -
4211 1.194652762e9 * pow(sh, 13) + 1.5263422e8 * pow(sh, 14) -
4212 1.1648401e7 * pow(sh, 15) + 401669. * pow(sh, 16)) +
4213 108.95238095238095 * pow(ash, 2) * pow(-1 + sh, -4) *
4214 pow(sh, 4)*(1638. - 34902. * sh + 187614. * pow(sh, 2) -
4215 73296. * pow(sh, 3) - 2.717613e6 * pow(sh, 4) +
4216 1.2278721e7 * pow(sh, 5) - 2.8715127e7 * pow(sh, 6) +
4217 4.3584072e7 * pow(sh, 7) - 4.6464222e7 * pow(sh, 8) +
4218 3.6125334e7 * pow(sh, 9) - 2.0866662e7 * pow(sh, 10) +
4219 9.012312e6 * pow(sh, 11) - 2.899701e6 * pow(sh, 12) +
4220 684873. * pow(sh, 13) - 115255. * pow(sh, 14) +
4221 13076. * pow(sh, 15) - 896. * pow(sh, 16) + 28. * pow(sh, 17)
4222 ) + 0.007054673721340388 * Li2sh * pow(-1 + sh, -11) *
4223 pow(sh, -10)*(3.891888e6 - 4.2698656e7 * sh +
4224 2.12860648e8 * pow(sh, 2) - 6.36197562e8 * pow(sh, 3) +
4225 1.265813472e9 * pow(sh, 4) - 1.758542016e9 * pow(sh, 5) +
4226 1.737624672e9 * pow(sh, 6) - 1.217575632e9 * pow(sh, 7) +
4227 5.89815408e8 * pow(sh, 8) - 1.86234048e8 * pow(sh, 9) +
4228 3.3715396e7 * pow(sh, 10) - 2.523664e6 * pow(sh, 11) -
4229 1008. * pow(sh, 17) + 252. * pow(sh, 18) + 63. * pow(sh, 19))
4230 - Lsh * (-3841.58024691358 * Li2sh * pow(-1 + sh, -3) *
4231 pow(sh, -8) + 36.317460317460316 * ash * sqrt4sh * sqrtsh *
4232 pow(sh, 3)*(72. - 4364. * sh + 28750. * pow(sh, 2) +
4233 23168. * pow(sh, 3) - 476659. * pow(sh, 4) +
4234 1.255353e6 * pow(sh, 5) - 1.649661e6 * pow(sh, 6) +
4235 1.316274e6 * pow(sh, 7) - 686175. * pow(sh, 8) +
4236 239883. * pow(sh, 9) - 55951. * pow(sh, 10) +
4237 8372. * pow(sh, 11) - 728. * pow(sh, 12) +
4238 28. * pow(sh, 13)) +
4239 6.22105266432133e-8 * pow(-1 + sh, -12) * pow(sh, -18)*
4240 (-268128. + 217952. * sh + 1.5087492e7 * pow(sh, 2) +
4241 5.5721052e7 * pow(sh, 3) - 6.214128e6 * pow(sh, 4) -
4242 4.11907536e8 * pow(sh, 5) -
4243 6.39424296e8 * pow(sh, 6) +
4244 9.51140904e8 * pow(sh, 7) +
4245 2.797636941792e12 * pow(sh, 8) -
4246 3.3528009426912e13 * pow(sh, 9) +
4247 1.8405229744577e14 * pow(sh, 10) +
4248 5.1459408e10 * pow(3.141592653589793, 2) *
4249 pow(-1 + sh, 9) * pow(sh, 10) -
4250 6.11232376478328e14 * pow(sh, 11) +
4251 1.367454094140762e15 * pow(sh, 12) -
4252 2.171310899030364e15 * pow(sh, 13) +
4253 2.509372042935534e15 * pow(sh, 14) -
4254 2.126984603171022e15 * pow(sh, 15) +
4255 1.312509475395804e15 * pow(sh, 16) -
4256 5.75196391765836e14 * pow(sh, 17) +
4257 1.70043077466117e14 * pow(sh, 18) -
4258 3.0485673234577e13 * pow(sh, 19) -
4259 113400. * Lshb * (-1. + sh) * pow(sh, 8)*
4260 (3.891888e6 - 4.2698656e7 * sh +
4261 2.12860648e8 * pow(sh, 2) -
4262 6.36197562e8 * pow(sh, 3) +
4263 1.265813472e9 * pow(sh, 4) -
4264 1.758542016e9 * pow(sh, 5) +
4265 1.737624672e9 * pow(sh, 6) -
4266 1.217575632e9 * pow(sh, 7) +
4267 5.89815408e8 * pow(sh, 8) -
4268 1.86234048e8 * pow(sh, 9) +
4269 3.3715396e7 * pow(sh, 10) -
4270 2.523664e6 * pow(sh, 11) - 1008. * pow(sh, 17) +
4271 252. * pow(sh, 18) + 63. * pow(sh, 19)) +
4272 2.505502772136e12 * pow(sh, 20) +
4273 3.810922668e9 * pow(sh, 21) +
4274 9.25325478e8 * pow(sh, 22) -
4275 6.18090102e8 * pow(sh, 23) -
4276 3.71771532e8 * pow(sh, 24) + 7.86267e7 * pow(sh, 25) +
4277 4.1725125e7 * pow(sh, 26) - 4.8951e6 * pow(sh, 27) -
4278 187425. * pow(sh, 28))) -
4279 0.00007838526357044875 * pow(Lsh, 2) * pow(-1 + sh, -12) *
4280 pow(sh, -18)*(-1008. - 8848. * sh - 23688. * pow(sh, 2) +
4281 17352. * pow(sh, 3) + 212592. * pow(sh, 4) +
4282 311184. * pow(sh, 5) - 400176. * pow(sh, 6) -
4283 1.492176e6 * pow(sh, 7) - 2.343842424e9 * pow(sh, 8) +
4284 2.82465414e10 * pow(sh, 9) -
4285 1.56076722399e11 * pow(sh, 10) -
4286 2.450448e7 * Lshb * pow(-1 + sh, 9) * pow(sh, 10) +
4287 5.22413429229e11 * pow(sh, 11) -
4288 1.178919945486e12 * pow(sh, 12) +
4289 1.88907310284e12 * pow(sh, 13) -
4290 2.203548370128e12 * pow(sh, 14) +
4291 1.885005025848e12 * pow(sh, 15) -
4292 1.173372074448e12 * pow(sh, 16) +
4293 5.18137391592e11 * pow(sh, 17) -
4294 1.53980764326e11 * pow(sh, 18) +
4295 2.7628439638e10 * pow(sh, 19) -
4296 2.260854288e9 * pow(sh, 20) + 45360. * pow(sh, 25) -
4297 56700. * pow(sh, 26) + 8505. * pow(sh, 27) +
4298 2835. * pow(sh, 28)) -
4299 0.00007838526357044875 * pow(lz, 2) * pow(sh, -18)*
4300 (-252. - 5236. * sh - 52122. * pow(sh, 2) -
4301 330990. * pow(sh, 3) - 1.50586e6 * pow(sh, 4) -
4302 5.221788e6 * pow(sh, 5) - 1.4306214e7 * pow(sh, 6) -
4303 3.1500898e7 * pow(sh, 7) - 2.399232528e9 * pow(sh, 8) +
4304 3.675672e7 * pow(sh, 9) - 1.1865305e7 * pow(sh, 10) +
4305 7.819275e6 * pow(sh, 11) + 2.920308e7 * pow(sh, 12) +
4306 3.763735e7 * pow(sh, 13) + 3.5618775e7 * pow(sh, 14) +
4307 2.7424047e7 * pow(sh, 15) + 1.5311086e7 * pow(sh, 16) +
4308 252. * pow(sh, 17) + 5.397678e7 * pow(sh, 18) +
4309 5.722002e7 * pow(sh, 19) + 6.231654e7 * pow(sh, 20) +
4310 6.996132e7 * pow(sh, 21) + 2.7057888e8 * pow(sh, 22) -
4311 3.18810492e9 * pow(sh, 23) + 7.5729654e9 * pow(sh, 24) +
4312 4.194296964e10 * pow(sh, 25) -
4313 2.0547002619e11 * pow(sh, 26) +
4314 3.8218629735e11 * pow(sh, 27) -
4315 4.0430890071e11 * pow(sh, 28) +
4316 2.7416659842e11 * pow(sh, 29) -
4317 1.2521582073e11 * pow(sh, 30) +
4318 3.911266359e10 * pow(sh, 31) -
4319 8.26458633e9 * pow(sh, 32) + 1.13189076e9 * pow(sh, 33) -
4320 9.081072e7 * pow(sh, 34) + 3.24324e6 * pow(sh, 35)) -
4321 lz * (109824. * lmu * pow(sh, -10) +
4322 1920.79012345679 * pow(Lsh, 2) * pow(-1 + sh, -3) *
4323 pow(sh, -8) + 72.63492063492063 * ash * sqrt4sh * sqrtsh *
4324 pow(sh, 3)*(72. - 4364. * sh + 28750. * pow(sh, 2) +
4325 23168. * pow(sh, 3) - 476659. * pow(sh, 4) +
4326 1.255353e6 * pow(sh, 5) - 1.649661e6 * pow(sh, 6) +
4327 1.316274e6 * pow(sh, 7) - 686175. * pow(sh, 8) +
4328 239883. * pow(sh, 9) - 55951. * pow(sh, 10) +
4329 8372. * pow(sh, 11) - 728. * pow(sh, 12) +
4330 28. * pow(sh, 13)) +
4331 0.0001567705271408975 * Lsh * pow(-1 + sh, -11) *
4332 pow(sh, -18)*(-504. - 4928. * sh - 16772. * pow(sh, 2) -
4333 8096. * pow(sh, 3) + 98200. * pow(sh, 4) +
4334 253792. * pow(sh, 5) + 53704. * pow(sh, 6) -
4335 692384. * pow(sh, 7) - 2.34466232e9 * pow(sh, 8) +
4336 2.5895265088e10 * pow(sh, 9) -
4337 1.30081243153e11 * pow(sh, 10) +
4338 3.91980399854e11 * pow(sh, 11) -
4339 7.87080144424e11 * pow(sh, 12) +
4340 1.105852892984e12 * pow(sh, 13) -
4341 1.109622439576e12 * pow(sh, 14) +
4342 7.95460832936e11 * pow(sh, 15) -
4343 3.99495040168e11 * pow(sh, 16) +
4344 1.33989748088e11 * pow(sh, 17) -
4345 2.7053178394e10 * pow(sh, 18) +
4346 2.494260648e9 * pow(sh, 19) + 864864. * pow(sh, 20) +
4347 769608. * pow(sh, 21) - 13608. * pow(sh, 22) -
4348 222264. * pow(sh, 23) - 69120. * pow(sh, 24) -
4349 9000. * pow(sh, 25) + 19215. * pow(sh, 26) +
4350 315. * pow(sh, 27)) +
4351 2.5590508697331672e-11 * pow(-1 + sh, -10) * pow(sh, -18)*
4352 (3.25909584e8 + 3.86898512e8 * sh -
4353 1.7890959086e10 * pow(sh, 2) -
4354 1.0389775539e11 * pow(sh, 3) -
4355 1.8235127911e11 * pow(sh, 4) +
4356 2.39868807178e11 * pow(sh, 5) +
4357 1.439309125254e12 * pow(sh, 6) +
4358 1.482637674518e12 * pow(sh, 7) -
4359 6.794302525868858e15 * pow(sh, 8) +
4360 6.901772268373983e16 * pow(sh, 9) -
4361 3.158878275063268e17 * pow(sh, 10) +
4362 8.578247944222483e17 * pow(sh, 11) -
4363 1.5323085794390446e18 * pow(sh, 12) +
4364 1.8841304231440591e18 * pow(sh, 13) -
4365 1.6184014070975416e18 * pow(sh, 14) +
4366 9.617660963186045e17 * pow(sh, 15) -
4367 3.8015225593619155e17 * pow(sh, 16) +
4368 9.092524285521288e16 * pow(sh, 17) -
4369 9.590076560304648e15 * pow(sh, 18) -
4370 4.556468500926695e15 * pow(sh, 19) +
4371 1.7572146654042552e16 * pow(sh, 20) -
4372 3.9615878221273704e16 * pow(sh, 21) +
4373 5.638676809242492e16 * pow(sh, 22) -
4374 4.406121643569693e16 * pow(sh, 23) +
4375 3.2318412281568824e16 * pow(sh, 24) -
4376 4.259492022110168e17 * pow(sh, 25) +
4377 2.1201430825186813e18 * pow(sh, 26) -
4378 2.4923037486423537e18 * pow(sh, 27) -
4379 1.7838580318483542e19 * pow(sh, 28) +
4380 1.0701104247446746e20 * pow(sh, 29) -
4381 3.1929857696090705e20 * pow(sh, 30) +
4382 6.474487284281146e20 * pow(sh, 31) -
4383 9.760291519177703e20 * pow(sh, 32) +
4384 1.1392452492311442e21 * pow(sh, 33) -
4385 1.0520263768751638e21 * pow(sh, 34) +
4386 7.775724274489533e20 * pow(sh, 35) -
4387 4.624318941820542e20 * pow(sh, 36) +
4388 2.213656928475123e20 * pow(sh, 37) -
4389 8.494727327998501e19 * pow(sh, 38) +
4390 2.5900145606169035e19 * pow(sh, 39) -
4391 6.181939718636802e18 * pow(sh, 40) +
4392 1.1286121824774998e18 * pow(sh, 41) -
4393 1.5195925385464826e17 * pow(sh, 42) +
4394 1.420123992415128e16 * pow(sh, 43) -
4395 8.2168151561496e14 * pow(sh, 44) +
4396 2.214605244852e13 * pow(sh, 45))) -
4397 4.177278391107532e-18 * pow(-1 + sh, -11) * pow(sh, -18)*
4398 (3.16414088198208e14 - 9.74539823921664e14 * sh -
4399 8.087033764735926e15 * pow(sh, 2) +
4400 5.684694862939435e16 * pow(sh, 3) +
4401 4.0319420043801754e17 * pow(sh, 4) +
4402 4.882604186351892e17 * pow(sh, 5) -
4403 1.9325128069129482e18 * pow(sh, 6) -
4404 6.292691026868566e18 * pow(sh, 7) -
4405 2.4287339249894217e22 * pow(sh, 8) +
4406 2.612488077307783e23 * pow(sh, 9) -
4407 1.276336786564487e24 * pow(sh, 10) +
4408 3.7407720820676834e24 * pow(sh, 11) -
4409 7.312076867879097e24 * pow(sh, 12) +
4410 1.0021549960712915e25 * pow(sh, 13) -
4411 9.851452036875564e24 * pow(sh, 14) +
4412 6.978601203194415e24 * pow(sh, 15) -
4413 3.521127295712042e24 * pow(sh, 16) +
4414 1.224012074235529e24 * pow(sh, 17) -
4415 2.690422527577656e23 * pow(sh, 18) +
4416 6.92847965398663e21 * pow(sh, 19) +
4417 1.0487308963151102e23 * pow(sh, 20) -
4418 2.7045906540143195e23 * pow(sh, 21) +
4419 4.4609820546041925e23 * pow(sh, 22) -
4420 4.3341866014896366e23 * pow(sh, 23) +
4421 3.0284128932535685e23 * pow(sh, 24) -
4422 2.8502065219122033e24 * pow(sh, 25) +
4423 1.6744213714265902e25 * pow(sh, 26) -
4424 3.4546092096924117e25 * pow(sh, 27) -
4425 6.6958214497636675e25 * pow(sh, 28) +
4426 6.719624033223081e26 * pow(sh, 29) -
4427 2.3634332855143025e27 * pow(sh, 30) +
4428 5.406861258181357e27 * pow(sh, 31) -
4429 9.10419041097793e27 * pow(sh, 32) +
4430 1.1865952156817548e28 * pow(sh, 33) -
4431 1.2283961231268607e28 * pow(sh, 34) +
4432 1.0245250602869844e28 * pow(sh, 35) -
4433 6.935097181125567e27 * pow(sh, 36) +
4434 3.819594455600949e27 * pow(sh, 37) -
4435 1.7090015768187537e27 * pow(sh, 38) +
4436 6.177750381749111e26 * pow(sh, 39) -
4437 1.7862394817725466e26 * pow(sh, 40) +
4438 4.0667139734465495e25 * pow(sh, 41) -
4439 7.117942930727479e24 * pow(sh, 42) +
4440 9.229373088621336e23 * pow(sh, 43) -
4441 8.339200912205272e22 * pow(sh, 44) +
4442 4.6814118287209613e21 * pow(sh, 45) -
4443 1.2279937968685318e20 * pow(sh, 46) +
4444 6.2548910424e12 * pow(3.141592653589793, 2)*
4445 (-1512. - 14784. * sh - 50316. * pow(sh, 2) -
4446 24288. * pow(sh, 3) + 294600. * pow(sh, 4) +
4447 761376. * pow(sh, 5) + 161112. * pow(sh, 6) -
4448 2.077152e6 * pow(sh, 7) - 5.96371776e9 * pow(sh, 8) +
4449 6.5734816224e10 * pow(sh, 9) -
4450 3.29439299647e11 * pow(sh, 10) +
4451 9.89864674466e11 * pow(sh, 11) -
4452 1.980655533976e12 * pow(sh, 12) +
4453 2.77128605852e12 * pow(sh, 13) -
4454 2.767417361128e12 * pow(sh, 14) +
4455 1.973276912096e12 * pow(sh, 15) -
4456 9.85353747448e11 * pow(sh, 16) +
4457 3.28634709368e11 * pow(sh, 17) -
4458 6.613484449e10 * pow(sh, 18) +
4459 6.792399064e9 * pow(sh, 19) -
4460 3.03847082e9 * pow(sh, 20) +
4461 7.83321994e9 * pow(sh, 21) -
4462 1.36334135e10 * pow(sh, 22) +
4463 2.612527414e10 * pow(sh, 23) -
4464 1.2043334018e11 * pow(sh, 24) +
4465 5.11152445252e11 * pow(sh, 25) -
4466 7.00772118731e11 * pow(sh, 26) -
4467 5.082162807869e12 * pow(sh, 27) +
4468 3.7496386828908e13 * pow(sh, 28) -
4469 1.3686666259266e14 * pow(sh, 29) +
4470 3.4205865415722e14 * pow(sh, 30) -
4471 6.4118721989322e14 * pow(sh, 31) +
4472 9.3979081997658e14 * pow(sh, 32) -
4473 1.10202690808782e15 * pow(sh, 33) +
4474 1.04788397968254e15 * pow(sh, 34) -
4475 8.141721939351e14 * pow(sh, 35) +
4476 5.1869434238622e14 * pow(sh, 36) -
4477 2.7096438795426e14 * pow(sh, 37) +
4478 1.1569642322238e14 * pow(sh, 38) -
4479 4.010774591538e13 * pow(sh, 39) +
4480 1.116674149734e13 * pow(sh, 40) -
4481 2.4564705165e12 * pow(sh, 41) +
4482 4.1666228604e11 * pow(sh, 42) -
4483 5.249021778e10 * pow(sh, 43) +
4484 4.61837376e9 * pow(sh, 44) -
4485 2.5297272e8 * pow(sh, 45) + 6.48648e6 * pow(sh, 46)))) *
4486 pow(z, 10);
4487 else
4488 res += pow(z, 10)*(-1.8827679840714834e6 -
4489 2.081717517867475e7 * (1. - sh) -
4490 1.0963380905010003e8 * pow(1. - sh, 2) -
4491 4.219709458628686e8 * pow(1. - sh, 3) +
4492 log(muh)*(-134616.0761904762 -
4493 1.455984761904762e6 * (1. - sh) -
4494 8.55703619047619e6 * pow(1. - sh, 2) -
4495 3.624158476190476e7 * pow(1. - sh, 3) -
4496 1.2382547047619048e8 * pow(1. - sh, 4)) -
4497 1.3631906422358756e9 * pow(1. - sh, 4) +
4498 log(z)*(294861.71513582155 +
4499 1.5577045832132744e6 * (1. - sh) +
4500 1.3273873434568334e7 * pow(1. - sh, 2) +
4501 6.637266945174166e7 * pow(1. - sh, 3) +
4502 log(muh)*(-109824. - 1.09824e6 * (1. - sh) -
4503 6.04032e6 * pow(1. - sh, 2) -
4504 2.416128e7 * pow(1. - sh, 3) -
4505 7.852416e7 * pow(1. - sh, 4)) +
4506 2.3142944320276135e8 * pow(1. - sh, 4)) +
4507 (171022.4 + 1.777716148148148e6 * (1. - sh) +
4508 1.0547910696296297e7 * pow(1. - sh, 2) +
4509 4.229024415943562e7 * pow(1. - sh, 3) +
4510 1.3716763538765433e8 * pow(1. - sh, 4)) *
4511 pow(log(z), 2));
4512 }
4513 }
4514 return res;
4515}
The documentation for this class was generated from the following files: