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 }

◆ 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 }

◆ 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:
Li3
cd Li3(cd x)
Definition: hpl.h:1016
Li2
cd Li2(cd x)
Definition: hpl.h:1011
Li4
cd Li4(cd x)
Definition: hpl.h:1021
gslpp::log
complex log(const complex &z)
Definition: gslpp_complex.cpp:342
gslpp::pow
complex pow(const complex &z1, const complex &z2)
Definition: gslpp_complex.cpp:395
gslpp::sqrt
complex sqrt(const complex &z)
Definition: gslpp_complex.cpp:385
Cl2
double Cl2(double x)
Definition: hpl.h:1026
Cl3
double Cl3(double x)
Definition: hpl.h:1031