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

#include <F_1.h>

Detailed Description

Definition at line 15 of file F_1.h.

Public Member Functions

double DeltaF_19im (double muh, double z, double sh, int maxpow=20)
 
double DeltaF_19re (double muh, double z, double sh, int maxpow=20)
 
 F_1 ()
 The default constructor. More...
 
double F_17im (double muh, double z, double sh, int maxpow=20)
 
double F_17re (double muh, double z, double sh, int maxpow=20)
 
double F_19im (double muh, double z, double sh, int maxpow=20)
 
double F_19re (double muh, double z, double sh, int maxpow=20)
 
 ~F_1 ()
 The default destructor. More...
 

Constructor & Destructor Documentation

◆ F_1()

F_1::F_1 ( )

The default constructor.

Definition at line 15 of file F_1.cpp.

16 {}

◆ ~F_1()

F_1::~F_1 ( )

The default destructor.

Definition at line 18 of file F_1.cpp.

19 {}

Member Function Documentation

◆ DeltaF_19im()

double F_1::DeltaF_19im ( double  muh,
double  z,
double  sh,
int  maxpow = 20 
)

Definition at line 5438 of file F_1.cpp.

5439 {
5440  double lz = log(z);
5441  double lmu = log(muh);
5442 
5443 
5444  double res = 0;
5445 
5446  if (sh < 0.4) {
5447  res = 0.;
5448  } else {
5449  if (0 <= maxpow)
5450  res += 0.;
5451 
5452  if (1 <= maxpow)
5453  res += 0.;
5454 
5455  if (2 <= maxpow)
5456  res += 0.;
5457 
5458  if (3 <= maxpow)
5459  res += 0.;
5460 
5461  if (4 <= maxpow)
5462  res += (238.2956205389591 * pow(sh, -2) +
5463  357.4434308084387 * lmu * pow(sh, -2) -
5464  178.72171540421934 * lz * pow(sh, -2)) * pow(z, 2);
5465 
5466  if (5 <= maxpow)
5467  res += 0.;
5468 
5469  if (6 <= maxpow)
5470  res += (476.5912410779182 * pow(sh, -3) +
5471  714.8868616168774 * lmu * pow(sh, -3) -
5472  357.4434308084387 * lz * pow(sh, -3)) * pow(z, 3);
5473 
5474  if (7 <= maxpow)
5475  res += 0.;
5476 
5477  if (8 <= maxpow)
5478  res += (1429.7737232337547 * pow(sh, -4) +
5479  2144.660584850632 * lmu * pow(sh, -4) -
5480  1072.330292425316 * lz * pow(sh, -4)) * pow(z, 4);
5481 
5482  if (9 <= maxpow)
5483  res += 0.;
5484 
5485  if (10 <= maxpow)
5486  res += (4765.912410779182 * pow(sh, -5) +
5487  7148.868616168774 * lmu * pow(sh, -5) -
5488  3574.434308084387 * lz * pow(sh, -5)) * pow(z, 5);
5489 
5490  if (11 <= maxpow)
5491  res += 0.;
5492 
5493  if (12 <= maxpow)
5494  res += (16680.69343772714 * pow(sh, -6) +
5495  25021.04015659071 * lmu * pow(sh, -6) -
5496  12510.520078295354 * lz * pow(sh, -6)) * pow(z, 6);
5497 
5498  if (13 <= maxpow)
5499  res += 0.;
5500 
5501  if (14 <= maxpow)
5502  res += (60050.496375817704 * pow(sh, -7) +
5503  90075.74456372655 * lmu * pow(sh, -7) -
5504  45037.872281863274 * lz * pow(sh, -7)) * pow(z, 7);
5505 
5506  if (15 <= maxpow)
5507  res += 0.;
5508 
5509  if (16 <= maxpow)
5510  res += (220185.1533779982 * pow(sh, -8) +
5511  330277.73006699735 * lmu * pow(sh, -8) -
5512  165138.86503349867 * lz * pow(sh, -8)) * pow(z, 8);
5513 
5514  if (17 <= maxpow)
5515  res += 0.;
5516 
5517  if (18 <= maxpow)
5518  res += (817830.5696897077 * pow(sh, -9) +
5519  1.2267458545345615e6 * lmu * pow(sh, -9) -
5520  613372.9272672808 * lz * pow(sh, -9)) * pow(z, 9);
5521 
5522  if (19 <= maxpow)
5523  res += 0.;
5524 
5525  if (20 <= maxpow)
5526  res += (3.066864636336404e6 * pow(sh, -10) +
5527  4.600296954504606e6 * lmu * pow(sh, -10) -
5528  2.300148477252303e6 * lz * pow(sh, -10)) * pow(z, 10);
5529 
5530  }
5531  return res;
5532 }

◆ DeltaF_19re()

double F_1::DeltaF_19re ( double  muh,
double  z,
double  sh,
int  maxpow = 20 
)

Definition at line 5296 of file F_1.cpp.

5297 {
5298  double lz = log(z);
5299  double lmu = log(muh);
5300  double Lsh = log(sh);
5301 
5302 
5303  double res = 0;
5304 
5305  if (sh < 0.4) {
5306  res = 0.09029982363315697 * (0.6666666666666666 + lmu - 0.5 * lz)*
5307  (105. + pow(sh, 3) * pow(z, -3) + 4.5 * pow(sh, 2) * pow(z, -2) +
5308  21. * sh * pow(z, -1));
5309  } else {
5310  if (0 <= maxpow)
5311  res += 0.;
5312 
5313  if (1 <= maxpow)
5314  res += 0.;
5315 
5316  if (2 <= maxpow)
5317  res += (-37.925925925925924 * pow(sh, -1) -
5318  56.888888888888886 * lmu * pow(sh, -1) +
5319  28.444444444444443 * lz * pow(sh, -1)) * pow(z, 1);
5320 
5321  if (3 <= maxpow)
5322  res += 0.;
5323 
5324  if (4 <= maxpow)
5325  res += (-75.85185185185185 * Lsh * pow(sh, -2) -
5326  113.77777777777777 * lmu * Lsh * pow(sh, -2) -
5327  56.888888888888886 * pow(lz, 2) * pow(sh, -2) -
5328  lz * (-75.85185185185185 * pow(sh, -2) -
5329  113.77777777777777 * lmu * pow(sh, -2) -
5330  56.888888888888886 * Lsh * pow(sh, -2))) * pow(z, 2);
5331 
5332  if (5 <= maxpow)
5333  res += 0.;
5334 
5335  if (6 <= maxpow)
5336  res += (151.7037037037037 * pow(sh, -3) -
5337  151.7037037037037 * Lsh * pow(sh, -3) -
5338  113.77777777777777 * pow(lz, 2) * pow(sh, -3) -
5339  lz * (-37.925925925925924 * pow(sh, -3) -
5340  227.55555555555554 * lmu * pow(sh, -3) -
5341  113.77777777777777 * Lsh * pow(sh, -3)) -
5342  lmu * (-227.55555555555554 * pow(sh, -3) +
5343  227.55555555555554 * Lsh * pow(sh, -3))) * pow(z, 3);
5344 
5345  if (7 <= maxpow)
5346  res += 0.;
5347 
5348  if (8 <= maxpow)
5349  res += (530.9629629629629 * pow(sh, -4) -
5350  455.1111111111111 * Lsh * pow(sh, -4) -
5351  341.3333333333333 * pow(lz, 2) * pow(sh, -4) -
5352  lz * (-56.888888888888886 * pow(sh, -4) -
5353  682.6666666666666 * lmu * pow(sh, -4) -
5354  341.3333333333333 * Lsh * pow(sh, -4)) -
5355  lmu * (-796.4444444444445 * pow(sh, -4) +
5356  682.6666666666666 * Lsh * pow(sh, -4))) * pow(z, 4);
5357 
5358  if (9 <= maxpow)
5359  res += 0.;
5360 
5361  if (10 <= maxpow)
5362  res += (1871.0123456790122 * pow(sh, -5) -
5363  1517.037037037037 * Lsh * pow(sh, -5) -
5364  1137.7777777777778 * pow(lz, 2) * pow(sh, -5) -
5365  lz * (-113.77777777777777 * pow(sh, -5) -
5366  2275.5555555555557 * lmu * pow(sh, -5) -
5367  1137.7777777777778 * Lsh * pow(sh, -5)) -
5368  lmu * (-2806.5185185185187 * pow(sh, -5) +
5369  2275.5555555555557 * Lsh * pow(sh, -5))) * pow(z, 5);
5370 
5371  if (11 <= maxpow)
5372  res += 0.;
5373 
5374  if (12 <= maxpow)
5375  res += (6738.172839506173 * pow(sh, -6) -
5376  5309.62962962963 * Lsh * pow(sh, -6) -
5377  3982.222222222222 * pow(lz, 2) * pow(sh, -6) -
5378  lz * (-256. * pow(sh, -6) -
5379  7964.444444444444 * lmu * pow(sh, -6) -
5380  3982.222222222222 * Lsh * pow(sh, -6)) -
5381  lmu * (-10107.25925925926 * pow(sh, -6) +
5382  7964.444444444444 * Lsh * pow(sh, -6))) * pow(z, 6);
5383 
5384  if (13 <= maxpow)
5385  res += 0.;
5386 
5387  if (14 <= maxpow)
5388  res += (24682.192592592593 * pow(sh, -7) -
5389  19114.666666666668 * Lsh * pow(sh, -7) -
5390  14336. * pow(lz, 2) * pow(sh, -7) -
5391  lz * (-603.0222222222222 * pow(sh, -7) -
5392  28672. * lmu * pow(sh, -7) - 14336. * Lsh * pow(sh, -7)) -
5393  lmu * (-37023.28888888889 * pow(sh, -7) +
5394  28672. * Lsh * pow(sh, -7))) * pow(z, 7);
5395 
5396  if (15 <= maxpow)
5397  res += 0.;
5398 
5399  if (16 <= maxpow)
5400  res += (91563.2987654321 * pow(sh, -8) -
5401  70087.11111111111 * Lsh * pow(sh, -8) -
5402  52565.333333333336 * pow(lz, 2) * pow(sh, -8) -
5403  lz * (-1414.637037037037 * pow(sh, -8) -
5404  105130.66666666667 * lmu * pow(sh, -8) -
5405  52565.333333333336 * Lsh * pow(sh, -8)) -
5406  lmu * (-137344.94814814813 * pow(sh, -8) +
5407  105130.66666666667 * Lsh * pow(sh, -8))) * pow(z, 8);
5408 
5409  if (17 <= maxpow)
5410  res += 0.;
5411 
5412  if (18 <= maxpow)
5413  res += (342952.95097001764 * pow(sh, -9) -
5414  260323.55555555556 * Lsh * pow(sh, -9) -
5415  195242.66666666666 * pow(lz, 2) * pow(sh, -9) -
5416  lz * (-3108.842328042328 * pow(sh, -9) -
5417  390485.3333333333 * lmu * pow(sh, -9) -
5418  195242.66666666666 * Lsh * pow(sh, -9)) -
5419  lmu * (-514429.42645502643 * pow(sh, -9) +
5420  390485.3333333333 * Lsh * pow(sh, -9))) * pow(z, 9);
5421 
5422  if (19 <= maxpow)
5423  res += 0.;
5424 
5425  if (20 <= maxpow)
5426  res += (1.2942086772486772e6 * pow(sh, -10) -
5427  976213.3333333334 * Lsh * pow(sh, -10) -
5428  732160. * pow(lz, 2) * pow(sh, -10) -
5429  lz * (-5556.825396825397 * pow(sh, -10) -
5430  1.46432e6 * lmu * pow(sh, -10) - 732160. * Lsh * pow(sh, -10))
5431  - lmu * (-1.9413130158730159e6 * pow(sh, -10) +
5432  1.46432e6 * Lsh * pow(sh, -10))) * pow(z, 10);
5433 
5434  }
5435  return res;
5436 }

◆ F_17im()

double F_1::F_17im ( double  muh,
double  z,
double  sh,
int  maxpow = 20 
)

Definition at line 1889 of file F_1.cpp.

1890 {
1891  double lz = log(z);
1892  double Lsh = log(sh);
1893  double Lshb = log(1. - sh);
1894  double Li2sh = real(Li2(sh));
1895  double Li3sh = real(Li3(sh));
1896 
1897 
1898  double res = 0;
1899 
1900  if (sh < 0.4) {
1901  res = -0.517135 + 1.39626 * sh + 0.465421 * lz * sh + 1.59186 * z +
1902  0.93084 * lz * z + 5.78065 * sh * z + 0.930842 * Lsh * sh * z +
1903  6.5159 * lz * sh * z + 0.9308425 * z * pow(lz, 2) +
1904  0.9308425 * sh * z * pow(lz, 2) + 1.59019 * pow(sh, 2) +
1905  0.465421 * lz * pow(sh, 2) + 14.7788 * z * pow(sh, 2) +
1906  1.86168 * Lsh * z * pow(sh, 2) + 11.1701 * lz * z * pow(sh, 2) +
1907  0.9308425 * z * pow(lz, 2) * pow(sh, 2) + 1.63673 * pow(sh, 3) +
1908  0.465421 * lz * pow(sh, 3) + 25.8196 * z * pow(sh, 3) +
1909  2.79253 * Lsh * z * pow(sh, 3) + 15.51405 * lz * z * pow(sh, 3) +
1910  0.9308425 * z * pow(lz, 2) * pow(sh, 3) +
1911  0.00258567 * pow(sh, 3) * pow(z, -2) -
1912  0.0258567 * pow(sh, 3) * pow(z, -1) - 3.06235 * pow(z, 2) -
1913  15.2375 * sh * pow(z, 2) + 5.58505 * lz * sh * pow(z, 2) +
1914  3.72337 * Lsh * lz * sh * pow(z, 2) +
1915  0.9308425 * pow(lz, 2) * pow(z, 2) +
1916  4.6542 * sh * pow(lz, 2) * pow(z, 2) -
1917  32.8021 * pow(sh, 2) * pow(z, 2) +
1918  3.72337 * Lsh * pow(sh, 2) * pow(z, 2) +
1919  19.5477 * lz * pow(sh, 2) * pow(z, 2) +
1920  11.1701 * Lsh * lz * pow(sh, 2) * pow(z, 2) +
1921  11.1701 * pow(lz, 2) * pow(sh, 2) * pow(z, 2) -
1922  52.4207 * pow(sh, 3) * pow(z, 2) +
1923  13.0318 * Lsh * pow(sh, 3) * pow(z, 2) +
1924  44.37015 * lz * pow(sh, 3) * pow(z, 2) +
1925  22.3402 * Lsh * lz * pow(sh, 3) * pow(z, 2) +
1926  20.478525 * pow(lz, 2) * pow(sh, 3) * pow(z, 2) +
1927  2.89595 * pow(z, 3) - 1.241125 * lz * pow(z, 3) +
1928  15.6984 * sh * pow(z, 3) + 1.86168 * Lsh * sh * pow(z, 3) -
1929  12.41125 * lz * sh * pow(z, 3) - 3.72337 * Lsh * lz * sh * pow(z, 3) +
1930  34.8683 * pow(sh, 2) * pow(z, 3) +
1931  3.72337 * Lsh * pow(sh, 2) * pow(z, 3) -
1932  40.3365 * lz * pow(sh, 2) * pow(z, 3) -
1933  14.8935 * Lsh * lz * pow(sh, 2) * pow(z, 3) +
1934  54.2499 * pow(sh, 3) * pow(z, 3) +
1935  1.86168 * Lsh * pow(sh, 3) * pow(z, 3) -
1936  92.4635 * lz * pow(sh, 3) * pow(z, 3) -
1937  37.2337 * Lsh * lz * pow(sh, 3) * pow(z, 3);
1938  } else {
1939  if (0 <= maxpow) {
1940  if (sh < .900001)
1941  res += (0.4654211338651545 * Lsh * sh * (-1. + 2. * sh) * pow(-1 + sh, -3) -
1942  0.025856729659175254 * pow(-1 + sh, -2)*
1943  (20. - 49. * sh + 47. * pow(sh, 2))) * pow(z, 0);
1944  else
1945  res += (-0.8274153490936081 + 0.11635528346628862 * (1. - sh) +
1946  0.054299132284268026 * pow(1. - sh, 2) +
1947  0.031028075591010302 * pow(1. - sh, 3) +
1948  0.019946620022792336 * pow(1. - sh, 4)) * pow(z, 0);
1949  }
1950 
1951  if (1 <= maxpow) {
1952  if (sh < .900001)
1953  res += 0.;
1954  else
1955  res += 0.;
1956  }
1957 
1958  if (2 <= maxpow) {
1959  if (sh < .900001)
1960  res += (-8.951402989423594 * sh * pow(-1 + sh, -3) +
1961  7.446738141842472 * Li3sh * sh * pow(-1 + sh, -3) -
1962  0.930842267730309 * Li2sh * (-5. + 3. * sh) *
1963  pow(-1 + sh, -3) - 0.620561511820206 * sh * pow(Lsh, 3) *
1964  pow(-1 + sh, -3) + 1.861684535460618 * pow(Lsh, 2) *
1965  pow(-1 + sh, -2) - Lsh *
1966  (3.723369070921236 * Li2sh * sh * pow(-1 + sh, -3) +
1967  0.930842267730309 * pow(-1 + sh, -3)*
1968  (3. + Lshb * (-5. + 3. * sh) +
1969  2. * sh * pow(3.141592653589793, 2) - 2. * pow(sh, 2)))\
1970  + 0.1551403779550515 * pow(-1 + sh, -3)*
1971  (-6. * (2. - 5. * sh + 3. * pow(sh, 2)) +
1972  pow(3.141592653589793, 2)*
1973  (-9. + 3. * sh + 4. * pow(sh, 2)))) * pow(z, 1);
1974  else
1975  res += (4.1876741044473365 + 2.7402552937030498 * (1. - sh) +
1976  2.1232783768063475 * pow(1. - sh, 2) +
1977  1.7630333644902134 * pow(1. - sh, 3) +
1978  1.5217395214542553 * pow(1. - sh, 4)) * pow(z, 1);
1979  }
1980 
1981  if (3 <= maxpow) {
1982  if (sh < .900001)
1983  res += 0.;
1984  else
1985  res += 0.;
1986  }
1987 
1988  if (4 <= maxpow) {
1989  if (sh < .900001)
1990  res += (-0.930842267730309 * Li2sh * (2. - 7. * sh) * pow(-1 + sh, -3) +
1991  0.930842267730309 * pow(Lsh, 2) * pow(-1 + sh, -2) -
1992  lz * (6.5158958741121635 * Lsh * sh * pow(-1 + sh, -3) -
1993  0.4654211338651545 * pow(-1 + sh, -2) * pow(sh, -2)*
1994  (2. - 7. * sh + 15. * pow(sh, 2) + 4. * pow(sh, 3))) -
1995  0.07757018897752575 * pow(-1 + sh, -3) * pow(sh, -2)*
1996  (-18. + 63. * sh - 2. *
1997  (63. + 2. * pow(3.141592653589793, 2)) * pow(sh, 2) +
1998  (9. + 14. * pow(3.141592653589793, 2)) * pow(sh, 3) +
1999  36. * pow(sh, 4)) +
2000  0.4654211338651545 * Lsh * pow(-1 + sh, -4) * pow(sh, -2)*
2001  (-4. + 13. * sh + (-21. + 4. * Lshb) * pow(sh, 2) +
2002  (11. - 18. * Lshb) * pow(sh, 3) +
2003  (-5. + 14. * Lshb) * pow(sh, 4))) * pow(z, 2);
2004  else
2005  res += (1.52554704989134 + 3.0730723199929786 * (1. - sh) +
2006  4.914071471726257 * pow(1. - sh, 2) +
2007  7.194598089480287 * pow(1. - sh, 3) +
2008  9.866611424925042 * pow(1. - sh, 4) +
2009  log(z)*(0.620561511820206 +
2010  1.0084124567078347 * (1. - sh) +
2011  1.7220581953010718 * pow(1. - sh, 2) +
2012  2.544302198462845 * pow(1. - sh, 3) +
2013  3.413088315011133 * pow(1. - sh, 4))) * pow(z, 2);
2014  }
2015 
2016  if (5 <= maxpow) {
2017  if (sh < .900001)
2018  res += 0.;
2019  else
2020  res += 0.;
2021  }
2022 
2023  if (6 <= maxpow) {
2024  if (sh < .900001)
2025  res += (-1.861684535460618 * pow(Lsh, 2) * pow(-1 + sh, -3) * pow(sh, -1) +
2026  1.861684535460618 * Li2sh * pow(-1 + sh, -4) * pow(sh, -1)*
2027  (1. - sh + 2. * pow(sh, 2)) +
2028  0.1551403779550515 * Lsh * pow(-1 + sh, -5) * pow(sh, -4)*
2029  (4. + 4. * sh - 71. * pow(sh, 2) +
2030  (155. - 12. * Lshb) * pow(sh, 3) +
2031  2. * (-83. + 12. * Lshb) * pow(sh, 4) +
2032  (98. - 36. * Lshb) * pow(sh, 5) +
2033  12. * (-3. + 2. * Lshb) * pow(sh, 6)) -
2034  lz * (1.861684535460618 * Lsh * pow(-1 + sh, -4) *
2035  pow(sh, -1)*(1. - sh + 2. * pow(sh, 2)) +
2036  0.1551403779550515 * pow(-1 + sh, -3) * pow(sh, -4)*
2037  (2. + 6. * sh - 45. * pow(sh, 2) + 61. * pow(sh, 3) -
2038  41. * pow(sh, 4) - 11. * pow(sh, 5) + 4. * pow(sh, 6))) -
2039  0.025856729659175254 * pow(-1 + sh, -4) * pow(sh, -4)*
2040  (10. - 10. * sh - 54. * pow(sh, 2) +
2041  2. * (-23. + 6. * pow(3.141592653589793, 2)) * pow(sh, 3) -
2042  3. * (-53. + 4. * pow(3.141592653589793, 2)) * pow(sh, 4) +
2043  24. * (-10. + pow(3.141592653589793, 2)) * pow(sh, 5) +
2044  141. * pow(sh, 6) - 32. * pow(sh, 7))) * pow(z, 3);
2045  else
2046  res += (2.32969134229169 + 7.64686922940449 * (1. - sh) +
2047  18.94249239557088 * pow(1. - sh, 2) +
2048  38.204310125548965 * pow(1. - sh, 3) +
2049  67.3328659256586 * pow(1. - sh, 4) +
2050  log(z)*(0.1551403779550515 +
2051  3.07177948351002 * (1. - sh) +
2052  8.625805014300864 * pow(1. - sh, 2) +
2053  17.193986459646997 * pow(1. - sh, 3) +
2054  29.117632651049522 * pow(1. - sh, 4))) * pow(z, 3);
2055  }
2056 
2057  if (7 <= maxpow) {
2058  if (sh < .900001)
2059  res += 0.;
2060  else
2061  res += 0.;
2062  }
2063 
2064  if (8 <= maxpow) {
2065  if (sh < .900001)
2066  res += (-3.1028075591010302 * Li2sh * pow(-1 + sh, -3) * pow(sh, -2) -
2067  3.1028075591010302 * pow(Lsh, 2) * pow(-1 + sh, -3) *
2068  pow(sh, -2) - lz *
2069  (-3.1028075591010302 * Lsh * pow(-1 + sh, -3) * pow(sh, -2) -
2070  0.05171345931835051 * pow(-1 + sh, -2) * pow(sh, -6)*
2071  (3. + 19. * sh + 43. * pow(sh, 2) - 260. * pow(sh, 3) +
2072  225. * pow(sh, 4) - 105. * pow(sh, 5) + 15. * pow(sh, 6)))
2073  - 0.05171345931835051 * Lsh * pow(-1 + sh, -6) * pow(sh, -6)*
2074  (6. + 14. * sh - 30. * pow(sh, 2) - 405. * pow(sh, 3) +
2075  (1569. - 60. * Lshb) * pow(sh, 4) +
2076  15. * (-169. + 12. * Lshb) * pow(sh, 5) +
2077  (2235. - 180. * Lshb) * pow(sh, 6) +
2078  (-1037. + 60. * Lshb) * pow(sh, 7) + 213. * pow(sh, 8)) +
2079  0.004309454943195875 * pow(-1 + sh, -5) * pow(sh, -6)*
2080  (21. - 10. * sh - 307. * pow(sh, 2) + 1247. * pow(sh, 3) +
2081  (-3143. + 120. * pow(3.141592653589793, 2)) *
2082  pow(sh, 4) + (3526. -
2083  240. * pow(3.141592653589793, 2)) * pow(sh, 5) +
2084  (397. + 120. * pow(3.141592653589793, 2)) * pow(sh, 6) -
2085  2577. * pow(sh, 7) + 1140. * pow(sh, 8) +
2086  138. * pow(sh, 9) - 72. * pow(sh, 10))) * pow(z, 4);
2087  else
2088  res += (2.999380640464329 + 22.55925786392586 * (1. - sh) +
2089  78.72635417514317 * pow(1. - sh, 2) +
2090  200.15639021889723 * pow(1. - sh, 3) +
2091  424.28359587096105 * pow(1. - sh, 4) +
2092  log(z)*(2.482246047280824 +
2093  14.11777439390969 * (1. - sh) +
2094  44.215007717189685 * pow(1. - sh, 2) +
2095  104.04748014852122 * pow(1. - sh, 3) +
2096  206.9868147402206 * pow(1. - sh, 4))) * pow(z, 4);
2097  }
2098 
2099  if (9 <= maxpow) {
2100  if (sh < .900001)
2101  res += 0.;
2102  else
2103  res += 0.;
2104  }
2105 
2106  if (10 <= maxpow) {
2107  if (sh < .900001)
2108  res += (-6.5158958741121635 * Li2sh * pow(-1 + sh, -3) * pow(sh, -3) -
2109  6.5158958741121635 * pow(Lsh, 2) * pow(-1 + sh, -3) *
2110  pow(sh, -3) - lz *
2111  (-6.5158958741121635 * Lsh * pow(-1 + sh, -3) * pow(sh, -3) -
2112  0.015514037795505151 * pow(-1 + sh, -2) * pow(sh, -8)*
2113  (6. + 51. * sh + 181. * pow(sh, 2) + 301. * pow(sh, 3) -
2114  2324. * pow(sh, 4) + 2220. * pow(sh, 5) -
2115  880. * pow(sh, 6) - 70. * pow(sh, 7) + 95. * pow(sh, 8)))\
2116  - 0.015514037795505151 * Lsh * pow(-1 + sh, -7) * pow(sh, -8)*
2117  (-12. - 42. * sh + 28. * pow(sh, 2) + 308. * pow(sh, 3) +
2118  2793. * pow(sh, 4) +
2119  2. * (-8339. + 210. * Lshb) * pow(sh, 5) +
2120  (37042. - 1680. * Lshb) * pow(sh, 6) +
2121  168. * (-266. + 15. * Lshb) * pow(sh, 7) -
2122  8. * (-3959. + 210. * Lshb) * pow(sh, 8) +
2123  3. * (-4351. + 140. * Lshb) * pow(sh, 9) + 2720. * pow(sh, 10)
2124  ) - 0.00025856729659175253 * pow(-1 + sh, -6) *
2125  pow(sh, -8)*(162. - 36. * sh - 2914. * pow(sh, 2) -
2126  5862. * pow(sh, 3) + 97530. * pow(sh, 4) -
2127  329152. * pow(sh, 5) -
2128  4200. * pow(3.141592653589793, 2) * pow(-1 + sh, 3) *
2129  pow(sh, 5) + 497696. * pow(sh, 6) -
2130  286926. * pow(sh, 7) - 114303. * pow(sh, 8) +
2131  259230. * pow(sh, 9) - 141000. * pow(sh, 10) +
2132  22550. * pow(sh, 11) - 2975. * pow(sh, 12) +
2133  600. * pow(sh, 13))) * pow(z, 5);
2134  else
2135  res += (7.5730667353201575 + 76.74295831935828 * (1. - sh) +
2136  333.4828305424486 * pow(1. - sh, 2) +
2137  1010.6544814238534 * pow(1. - sh, 3) +
2138  2487.030661606718 * pow(1. - sh, 4) +
2139  log(z)*(9.618703433213193 +
2140  58.798203244964526 * (1. - sh) +
2141  212.46474760944307 * pow(1. - sh, 2) +
2142  578.673609772342 * pow(1. - sh, 3) +
2143  1319.624054885668 * pow(1. - sh, 4))) * pow(z, 5);
2144  }
2145 
2146  if (11 <= maxpow) {
2147  if (sh < .900001)
2148  res += 0.;
2149  else
2150  res += 0.;
2151  }
2152 
2153  if (12 <= maxpow) {
2154  if (sh < .900001)
2155  res += (-15.638150097869193 * Li2sh * pow(-1 + sh, -3) * pow(sh, -4) -
2156  15.638150097869193 * pow(Lsh, 2) * pow(-1 + sh, -3) *
2157  pow(sh, -4) - lz *
2158  (-15.638150097869193 * Lsh * pow(-1 + sh, -3) * pow(sh, -4) -
2159  0.00310280755910103 * pow(-1 + sh, -2) * pow(sh, -10)*
2160  (20. + 212. * sh + 992. * pow(sh, 2) +
2161  2592. * pow(sh, 3) + 3492. * pow(sh, 4) -
2162  33768. * pow(sh, 5) + 34250. * pow(sh, 6) -
2163  12355. * pow(sh, 7) - 1855. * pow(sh, 8) +
2164  795. * pow(sh, 9) + 585. * pow(sh, 10))) -
2165  0.00310280755910103 * Lsh * pow(-1 + sh, -8) * pow(sh, -10)*
2166  (40. + 184. * sh + 40. * pow(sh, 2) - 1160. * pow(sh, 3) -
2167  2240. * pow(sh, 4) - 33740. * pow(sh, 5) -
2168  6. * (-44969. + 840. * Lshb) * pow(sh, 6) +
2169  315. * (-2447. + 80. * Lshb) * pow(sh, 7) -
2170  15. * (-80189. + 3360. * Lshb) * pow(sh, 8) +
2171  40. * (-28549. + 1260. * Lshb) * pow(sh, 9) +
2172  (669980. - 25200. * Lshb) * pow(sh, 10) +
2173  (-228338. + 5040. * Lshb) * pow(sh, 11) +
2174  35770. * pow(sh, 12)) -
2175  0.00005171345931835051 * pow(-1 + sh, -7) * pow(sh, -10)*
2176  (-440. + 32. * sh + 10212. * pow(sh, 2) +
2177  23632. * pow(sh, 3) - 7888. * pow(sh, 4) -
2178  1.620528e6 * pow(sh, 5) + 7.571238e6 * pow(sh, 6) -
2179  50400. * pow(3.141592653589793, 2) * pow(-1 + sh, 4) *
2180  pow(sh, 6) - 1.5372042e7 * pow(sh, 7) +
2181  1.5504288e7 * pow(sh, 8) - 5.560242e6 * pow(sh, 9) -
2182  3.213542e6 * pow(sh, 10) + 3.254015e6 * pow(sh, 11) -
2183  18260. * pow(sh, 12) - 907710. * pow(sh, 13) +
2184  366640. * pow(sh, 14) - 57405. * pow(sh, 15) +
2185  2800. * pow(sh, 16))) * pow(z, 6);
2186  else
2187  res += (22.715875769290008 + 274.2629779131134 * (1. - sh) +
2188  1412.2988649700028 * pow(1. - sh, 2) +
2189  4950.204882473423 * pow(1. - sh, 3) +
2190  13834.085987140208 * pow(1. - sh, 4) +
2191  log(z)*(35.68228692966185 +
2192  243.9582443343185 * (1. - sh) +
2193  998.3128181029609 * pow(1. - sh, 2) +
2194  3074.85126299353 * pow(1. - sh, 3) +
2195  7873.5293215968195 * pow(1. - sh, 4))) * pow(z, 6);
2196  }
2197 
2198  if (13 <= maxpow) {
2199  if (sh < .900001)
2200  res += 0.;
2201  else
2202  res += 0.;
2203  }
2204 
2205  if (14 <= maxpow) {
2206  if (sh < .900001)
2207  res += (-40.9570597801336 * Li2sh * pow(-1 + sh, -3) * pow(sh, -5) -
2208  40.9570597801336 * pow(Lsh, 2) * pow(-1 + sh, -3) *
2209  pow(sh, -5) - lz *
2210  (-40.9570597801336 * Lsh * pow(-1 + sh, -3) * pow(sh, -5) -
2211  0.0014775274090957288 * pow(-1 + sh, -2) * pow(sh, -12)*
2212  (30. + 380. * sh + 2186. * pow(sh, 2) +
2213  7436. * pow(sh, 3) + 15906. * pow(sh, 4) +
2214  18216. * pow(sh, 5) - 217404. * pow(sh, 6) +
2215  230279. * pow(sh, 7) - 78421. * pow(sh, 8) -
2216  14581. * pow(sh, 9) + 3024. * pow(sh, 10) +
2217  3864. * pow(sh, 11) + 1365. * pow(sh, 12))) -
2218  0.0014775274090957288 * Lsh * pow(-1 + sh, -9) * pow(sh, -12)*
2219  (-60. - 340. * sh - 312. * pow(sh, 2) + 1872. * pow(sh, 3) +
2220  4980. * pow(sh, 4) + 1620. * pow(sh, 5) +
2221  203850. * pow(sh, 6) +
2222  (-1.895519e6 + 27720. * Lshb) * pow(sh, 7) +
2223  (6.594942e6 - 166320. * Lshb) * pow(sh, 8) +
2224  33. * (-385051. + 12600. * Lshb) * pow(sh, 9) +
2225  (1.5286135e7 - 554400. * Lshb) * pow(sh, 10) +
2226  15. * (-794279. + 27720. * Lshb) * pow(sh, 11) -
2227  6. * (-990013. + 27720. * Lshb) * pow(sh, 12) +
2228  2. * (-882383. + 13860. * Lshb) * pow(sh, 13) +
2229  249228. * pow(sh, 14)) -
2230  3.517922402608878e-6 * pow(-1 + sh, -8) * pow(sh, -12)*
2231  (3900. + 100. * sh - 116036. * pow(sh, 2) -
2232  329570. * pow(sh, 3) + 93490. * pow(sh, 4) +
2233  1.36222e6 * pow(sh, 5) + 7.515214e7 * pow(sh, 6) -
2234  4.58367722e8 * pow(sh, 7) -
2235  1.9404e6 * pow(3.141592653589793, 2) * pow(-1 + sh, 5) *
2236  pow(sh, 7) + 1.185571378e9 * pow(sh, 8) -
2237  1.64901962e9 * pow(sh, 9) + 1.210803485e9 * pow(sh, 10) -
2238  2.77663825e8 * pow(sh, 11) - 2.28715591e8 * pow(sh, 12) +
2239  1.81552504e8 * pow(sh, 13) - 5.1683975e7 * pow(sh, 14) +
2240  3.0412585e7 * pow(sh, 15) - 3.0028425e7 * pow(sh, 16) +
2241  1.2629064e7 * pow(sh, 17) - 2.061822e6 * pow(sh, 18) +
2242  52920. * pow(sh, 19))) * pow(z, 7);
2243  else
2244  res += (76.06009440178788 + 1017.2781752351876 * (1. - sh) +
2245  5990.892688563418 * pow(1. - sh, 2) +
2246  23739.93632888451 * pow(1. - sh, 3) +
2247  74088.64892315648 * pow(1. - sh, 4) +
2248  log(z)*(131.81760780247544 +
2249  1011.2566969703441 * (1. - sh) +
2250  4618.653164024247 * pow(1. - sh, 2) +
2251  15821.68116499002 * pow(1. - sh, 3) +
2252  44807.95424173389 * pow(1. - sh, 4))) * pow(z, 7);
2253  }
2254 
2255  if (15 <= maxpow) {
2256  if (sh < .900001)
2257  res += 0.;
2258  else
2259  res += 0.;
2260  }
2261 
2262  if (16 <= maxpow) {
2263  if (sh < .900001)
2264  res += (-114.09466653037217 * Li2sh * pow(-1 + sh, -3) * pow(sh, -6) -
2265  114.09466653037217 * pow(Lsh, 2) * pow(-1 + sh, -3) *
2266  pow(sh, -6) - lz *
2267  (-114.09466653037217 * Lsh * pow(-1 + sh, -3) * pow(sh, -6) -
2268  0.000316613016234799 * pow(-1 + sh, -2) * pow(sh, -14)*
2269  (105. + 1545. * sh + 10505. * pow(sh, 2) +
2270  43433. * pow(sh, 3) + 119873. * pow(sh, 4) +
2271  221793. * pow(sh, 5) + 221793. * pow(sh, 6) -
2272  3.231657e6 * pow(sh, 7) + 3.541034e6 * pow(sh, 8) -
2273  1.160656e6 * pow(sh, 9) - 243376. * pow(sh, 10) +
2274  26124. * pow(sh, 11) + 54544. * pow(sh, 12) +
2275  27790. * pow(sh, 13) + 6790. * pow(sh, 14))) -
2276  0.000633226032469598 * Lsh * pow(-1 + sh, -10) * pow(sh, -14)*
2277  (105. + 705. * sh + 1085. * pow(sh, 2) - 3227. * pow(sh, 3) -
2278  12621. * pow(sh, 4) - 7077. * pow(sh, 5) +
2279  23415. * pow(sh, 6) - 1.52775e6 * pow(sh, 7) +
2280  (1.5332677e7 - 180180. * Lshb) * pow(sh, 8) +
2281  154. * (-404281. + 8190. * Lshb) * pow(sh, 9) -
2282  3276. * (-43597. + 1155. * Lshb) * pow(sh, 10) +
2283  140. * (-1.492544e6 + 45045. * Lshb) * pow(sh, 11) -
2284  35. * (-5.843231e6 + 180180. * Lshb) * pow(sh, 12) +
2285  84. * (-1.606567e6 + 45045. * Lshb) * pow(sh, 13) -
2286  14. * (-4.169089e6 + 90090. * Lshb) * pow(sh, 14) +
2287  4. * (-3.790859e6 + 45045. * Lshb) * pow(sh, 15) +
2288  1.820973e6 * pow(sh, 16)) -
2289  3.7692025742237975e-7 * pow(-1 + sh, -9) * pow(sh, -14)*
2290  (-23625. - 2250. * sh + 884825. * pow(sh, 2) +
2291  3.042036e6 * pow(sh, 3) + 226209. * pow(sh, 4) -
2292  1.547673e7 * pow(sh, 5) - 1.7445585e7 * pow(sh, 6) -
2293  2.27462355e9 * pow(sh, 7) +
2294  1.6881630069e10 * pow(sh, 8) -
2295  5.04504e7 * pow(3.141592653589793, 2) * pow(-1 + sh, 6) *
2296  pow(sh, 8) - 5.3231013434e10 * pow(sh, 9) +
2297  9.3745467315e10 * pow(sh, 10) -
2298  9.75051387e10 * pow(sh, 11) +
2299  5.4985329535e10 * pow(sh, 12) -
2300  7.700748318e9 * pow(sh, 13) -
2301  9.422168487e9 * pow(sh, 14) +
2302  5.032015758e9 * pow(sh, 15) + 1.2563586e8 * pow(sh, 16) -
2303  1.23426506e9 * pow(sh, 17) +
2304  1.153426148e9 * pow(sh, 18) -
2305  7.67036928e8 * pow(sh, 19) + 2.79185592e8 * pow(sh, 20) -
2306  4.285204e7 * pow(sh, 21) + 776160. * pow(sh, 22))) *
2307  pow(z, 8);
2308  else
2309  res += (271.5271820060675 + 3880.215714318396 * (1. - sh) +
2310  25470.9497140867 * pow(1. - sh, 2) +
2311  112116.7831963215 * pow(1. - sh, 3) +
2312  385562.38008219755 * pow(1. - sh, 4) +
2313  log(z)*(489.0024713143224 +
2314  4185.8425376052455 * (1. - sh) +
2315  21101.356451405147 * pow(1. - sh, 2) +
2316  79419.24508622084 * pow(1. - sh, 3) +
2317  245951.53666868948 * pow(1. - sh, 4))) * pow(z, 8);
2318  }
2319 
2320  if (17 <= maxpow) {
2321  if (sh < .900001)
2322  res += 0.;
2323  else
2324  res += 0.;
2325  }
2326 
2327  if (18 <= maxpow) {
2328  if (sh < .900001)
2329  res += (-332.77611071358547 * Li2sh * pow(-1 + sh, -3) * pow(sh, -7) -
2330  332.77611071358547 * pow(Lsh, 2) * pow(-1 + sh, -3) *
2331  pow(sh, -7) - lz *
2332  (-332.77611071358547 * Lsh * pow(-1 + sh, -3) * pow(sh, -7) -
2333  0.0009234546306848304 * pow(-1 + sh, -2) * pow(sh, -16)*
2334  (28. + 469. * sh + 3673. * pow(sh, 2) +
2335  17785. * pow(sh, 3) + 59113. * pow(sh, 4) +
2336  140257. * pow(sh, 5) + 231985. * pow(sh, 6) +
2337  205777. * pow(sh, 7) - 3.632057e6 * pow(sh, 8) +
2338  4.091364e6 * pow(sh, 9) - 1.304928e6 * pow(sh, 10) -
2339  297432. * pow(sh, 11) + 14292. * pow(sh, 12) +
2340  58644. * pow(sh, 13) + 35460. * pow(sh, 14) +
2341  12780. * pow(sh, 15) + 2430. * pow(sh, 16))) -
2342  0.0009234546306848304 * Lsh * pow(-1 + sh, -11) * pow(sh, -16)*
2343  (-56. - 434. * sh - 920. * pow(sh, 2) + 1480. * pow(sh, 3) +
2344  9184. * pow(sh, 4) + 8932. * pow(sh, 5) -
2345  19712. * pow(sh, 6) - 36344. * pow(sh, 7) +
2346  3.49657e6 * pow(sh, 8) +
2347  7. * (-5.358061e6 + 51480. * Lshb) * pow(sh, 9) -
2348  20. * (-8.630911e6 + 144144. * Lshb) * pow(sh, 10) +
2349  880. * (-521011. + 11466. * Lshb) * pow(sh, 11) -
2350  56. * (-1.4125987e7 + 360360. * Lshb) * pow(sh, 12) +
2351  140. * (-6.677771e6 + 180180. * Lshb) * pow(sh, 13) -
2352  112. * (-6.885077e6 + 180180. * Lshb) * pow(sh, 14) +
2353  56. * (-7.869671e6 + 180180. * Lshb) * pow(sh, 15) +
2354  (1.68053456e8 - 2.88288e6 * Lshb) * pow(sh, 16) +
2355  (-3.8989933e7 + 360360. * Lshb) * pow(sh, 17) +
2356  4.262544e6 * pow(sh, 18)) -
2357  7.329005005435162e-7 * pow(-1 + sh, -10) * pow(sh, -16)*
2358  (8330. + 1225. * sh - 385185. * pow(sh, 2) -
2359  1.565725e6 * pow(sh, 3) - 766913. * pow(sh, 4) +
2360  8.101569e6 * pow(sh, 5) + 1.6471637e7 * pow(sh, 6) -
2361  1.4354375e7 * pow(sh, 7) + 3.953480265e9 * pow(sh, 8) -
2362  3.3767434535e10 * pow(sh, 9) -
2363  7.56756e7 * pow(3.141592653589793, 2) * pow(-1 + sh, 7) *
2364  pow(sh, 9) + 1.25322516107e11 * pow(sh, 10) -
2365  2.66443744245e11 * pow(sh, 11) +
2366  3.52730324065e11 * pow(sh, 12) -
2367  2.89748672815e11 * pow(sh, 13) +
2368  1.29737902497e11 * pow(sh, 14) -
2369  9.132479783e9 * pow(sh, 15) -
2370  2.0967436048e10 * pow(sh, 16) +
2371  9.674219718e9 * pow(sh, 17) -
2372  2.08073817e9 * pow(sh, 18) +
2373  2.119593546e9 * pow(sh, 19) -
2374  2.784214188e9 * pow(sh, 20) +
2375  2.248987986e9 * pow(sh, 21) -
2376  1.186673418e9 * pow(sh, 22) + 3.6469845e8 * pow(sh, 23) -
2377  5.0148315e7 * pow(sh, 24) + 720720. * pow(sh, 25))) *
2378  pow(z, 9);
2379  else
2380  res += (1006.065639479665 + 15109.542202132543 * (1. - sh) +
2381  108519.79668479163 * pow(1. - sh, 2) +
2382  523317.44480667595 * pow(1. - sh, 3) +
2383  1.9618209518756133e6 * pow(1. - sh, 4) +
2384  log(z)*(1824.4508447514058 +
2385  17292.722228759816 * (1. - sh) +
2386  95376.89127845067 * pow(1. - sh, 2) +
2387  390749.8979900969 * pow(1. - sh, 3) +
2388  1.3116595468138563e6 * pow(1. - sh, 4))) * pow(z, 9);
2389  }
2390 
2391  if (19 <= maxpow) {
2392  if (sh < .900001)
2393  res += 0.;
2394  else
2395  res += 0.;
2396  }
2397 
2398  if (20 <= maxpow) {
2399  if (sh < .900001)
2400  res += (-1005.7233568232806 * Li2sh * pow(-1 + sh, -3) * pow(sh, -8) -
2401  1005.7233568232806 * pow(Lsh, 2) * pow(-1 + sh, -3) *
2402  pow(sh, -8) - lz *
2403  (-1005.7233568232806 * Lsh * pow(-1 + sh, -3) * pow(sh, -8) -
2404  0.00004104242803043691 * pow(-1 + sh, -2) * pow(sh, -18)*
2405  (504. + 9464. * sh + 83804. * pow(sh, 2) +
2406  463964. * pow(sh, 3) + 1.792004e6 * pow(sh, 4) +
2407  5.082116e6 * pow(sh, 5) + 1.0736996e7 * pow(sh, 6) +
2408  1.6220516e7 * pow(sh, 7) + 1.2878996e7 * pow(sh, 8) -
2409  2.73934804e8 * pow(sh, 9) +
2410  3.15821466e8 * pow(sh, 10) -
2411  9.8670339e7 * pow(sh, 11) -
2412  2.3977539e7 * pow(sh, 12) + 157761. * pow(sh, 13) +
2413  4.274181e6 * pow(sh, 14) + 2.899395e6 * pow(sh, 15) +
2414  1.241235e6 * pow(sh, 16) + 359415. * pow(sh, 17) +
2415  56385. * pow(sh, 18))) -
2416  0.00004104242803043691 * Lsh * pow(-1 + sh, -12) *
2417  pow(sh, -18)*(1008. + 8848. * sh + 23688. * pow(sh, 2) -
2418  17352. * pow(sh, 3) - 212592. * pow(sh, 4) -
2419  311184. * pow(sh, 5) + 400176. * pow(sh, 6) +
2420  1.492176e6 * pow(sh, 7) - 255024. * pow(sh, 8) -
2421  2.64398904e8 * pow(sh, 9) -
2422  6. * (-5.11641281e8 + 4.08408e6 * Lshb) * pow(sh, 10) +
2423  9. * (-1.747237201e9 + 2.450448e7 * Lshb) * pow(sh, 11) -
2424  1989. * (-2.3808319e7 + 443520. * Lshb) * pow(sh, 12) +
2425  1848. * (-5.0928893e7 + 1.11384e6 * Lshb) * pow(sh, 13) -
2426  13104. * (-9.960259e6 + 235620. * Lshb) * pow(sh, 14) +
2427  3528. * (-3.6704249e7 + 875160. * Lshb) * pow(sh, 15) -
2428  168. * (-5.49270061e8 + 1.225224e7 * Lshb) * pow(sh, 16) +
2429  72. * (-6.45450961e8 + 1.225224e7 * Lshb) * pow(sh, 17) -
2430  288. * (-5.4964186e7 + 765765. * Lshb) * pow(sh, 18) +
2431  (-3.301634542e9 + 2.450448e7 * Lshb) * pow(sh, 19) +
2432  3.2083623e8 * pow(sh, 20)) +
2433  1.6286677789855916e-8 * pow(-1 + sh, -11) * pow(sh, -18)*
2434  (268128. + 50176. * sh - 1.5037316e7 * pow(sh, 2) -
2435  7.0758368e7 * pow(sh, 3) - 6.454424e7 * pow(sh, 4) +
2436  3.47363296e8 * pow(sh, 5) + 9.86787592e8 * pow(sh, 6) +
2437  3.5646688e7 * pow(sh, 7) - 4.264570016e9 * pow(sh, 8) +
2438  6.1791288328e11 * pow(sh, 9) -
2439  5.890389956722e12 * pow(sh, 10) +
2440  1.02918816e10 * pow(3.141592653589793, 2) *
2441  pow(-1 + sh, 8) * pow(sh, 10) +
2442  2.5054270208126e13 * pow(sh, 11) -
2443  6.2290275001696e13 * pow(sh, 12) +
2444  9.9547394852612e13 * pow(sh, 13) -
2445  1.0492568190538e14 * pow(sh, 14) +
2446  7.0557905411966e13 * pow(sh, 15) -
2447  2.5585687891288e13 * pow(sh, 16) +
2448  2.41116416108e11 * pow(sh, 17) +
2449  4.002654161834e12 * pow(sh, 18) -
2450  1.418993445915e12 * pow(sh, 19) -
2451  5.1123112488e10 * pow(sh, 20) +
2452  3.91122982404e11 * pow(sh, 21) -
2453  5.60776090644e11 * pow(sh, 22) +
2454  5.66827442118e11 * pow(sh, 23) -
2455  3.8373727824e11 * pow(sh, 24) +
2456  1.699988427e11 * pow(sh, 25) -
2457  4.480654338e10 * pow(sh, 26) +
2458  5.447537865e9 * pow(sh, 27) - 6.48648e7 * pow(sh, 28))) *
2459  pow(z, 10);
2460  else
2461  res += (3810.205573044906 + 59724.74778239659 * (1. - sh) +
2462  463067.1377229003 * pow(1. - sh, 2) +
2463  2.4198049101282065e6 * pow(1. - sh, 3) +
2464  9.801969439295417e6 * pow(1. - sh, 4) +
2465  log(z)*(6844.5866215396 +
2466  71287.3656645614 * (1. - sh) +
2467  427082.75058067543 * pow(1. - sh, 2) +
2468  1.8906811822573014e6 * pow(1. - sh, 3) +
2469  6.831129334403158e6 * pow(1. - sh, 4))) * pow(z, 10);
2470  }
2471  }
2472  return res;
2473 }

◆ F_17re()

double F_1::F_17re ( double  muh,
double  z,
double  sh,
int  maxpow = 20 
)

Definition at line 21 of file F_1.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 = -1.14266 - 0.8559670781893005 * lmu - 2.07503 * sh -
39  0.0164609 * Lsh * sh - 0.222222 * lz * sh - 2.20356 * z -
40  2.608715 * lz * z - 25.9259 * sh * z + 1.03704 * Lsh * sh * z -
41  1.700505 * lz * sh * z + 0.2962965 * Lsh * lz * sh * z +
42  0.14814825 * z * lz2 - 1.122925 * sh * z * lz2 +
43  0.04938275 * z * lz3 + 0.04938275 * sh * z * lz3 -
44  0.024691375 * sh * z * pow(lz, 4) - 19.4691 * sh2 -
45  0.0164609 * Lsh * sh2 - 5.83895 * lz * sh2 -
46  90.4953 * z * sh2 + 2.37037 * Lsh * z * sh2 +
47  7.46645 * lz * z * sh2 + 0.592595 * Lsh * lz * z * sh2 -
48  0.74074 * lz2 * sh2 -
49  6.1095 * z * lz2 * sh2 -
50  0.04938275 * lz3 * sh2 +
51  0.14814875 * z * lz3 * sh2 -
52  0.074074375 * z * pow(lz, 4) * sh2 - 41.9952 * sh3 -
53  0.0164609 * Lsh * sh3 - 15.10455 * lz * sh3 -
54  189.354 * z * sh3 + 3.85185 * Lsh * z * sh3 +
55  21.3283 * lz * z * sh3 + 0.88889 * Lsh * lz * z * sh3 -
56  1.555555 * lz2 * sh3 -
57  14.44125 * z * lz2 * sh3 -
58  0.14814875 * lz3 * sh3 +
59  0.34567875 * z * lz3 * sh3 -
60  0.148148125 * z * pow(lz, 4) * sh3 -
61  0.00010778 * sh3 * pow(z, -2) +
62  0.00555556 * sh2 * pow(z, -1) +
63  0.946811 * sh3 * pow(z, -1) +
64  0.2444445 * lz * sh3 * pow(z, -1) +
65  0.02469135 * lz2 * sh3 * pow(z, -1) +
66  11.6973 * sh * sqrtz + 70.1839 * sh2 * sqrtz +
67  sh3*(-3.8991 * pow(z, -0.5) + 159.863 * sqrtz) +
68  1.94955 * pow(z, 1.5) + 1.86366 * z2 -
69  2.331735 * lz * z2 + 11.4229 * sh * z2 -
70  4.66347 * Lsh * sh * z2 - 17.0403 * lz * sh * z2 +
71  2.5926 * sh * lz2 * z2 +
72  0.5925925 * Lsh * sh * lz2 * z2 +
73  0.04938275 * lz3 * z2 +
74  0.29629625 * sh * lz3 * z2 +
75  23.8816 * sh2 * z2 -
76  13.9904 * Lsh * sh2 * z2 -
77  41.39575 * lz * sh2 * z2 +
78  1.185185 * Lsh * lz * sh2 * z2 +
79  8.074075 * lz2 * sh2 * z2 +
80  1.7777775 * Lsh * lz2 * sh2 * z2 +
81  0.74074125 * lz3 * sh2 * z2 +
82  45.1784 * sh3 * z2 -
83  27.3882 * Lsh * sh3 * z2 -
84  72.5905 * lz * sh3 * z2 +
85  4.14815 * Lsh * lz * sh3 * z2 +
86  17.7284 * lz2 * sh3 * z2 +
87  3.55555 * Lsh * lz2 * sh3 * z2 +
88  1.3827125 * lz3 * sh3 * z2 -
89  1.21131 * z3 + 1.49794 * lz * z3 +
90  11.7509 * sh * z3 + 6.73754 * Lsh * sh * z3 +
91  9.4782 * lz * sh * z3 + 0.592595 * Lsh * lz * sh * z3 -
92  1.0370375 * lz2 * z3 -
93  3.654325 * sh * lz2 * z3 -
94  0.5925925 * Lsh * sh * lz2 * z3 +
95  38.1415 * sh2 * z3 +
96  27.5428 * Lsh * sh2 * z3 +
97  19.3218 * lz * sh2 * z3 +
98  1.185185 * Lsh * lz * sh2 * z3 -
99  10.39505 * lz2 * sh2 * z3 -
100  2.37037 * Lsh * lz2 * sh2 * z3 +
101  77.3602 * sh3 * z3 +
102  69.4495 * Lsh * sh3 * z3 +
103  29.22455 * lz * sh3 * z3 +
104  0.592595 * Lsh * lz * sh3 * z3 -
105  24.0247 * lz2 * sh3 * z3 -
106  5.925925 * Lsh * lz2 * sh3 * z3;
107  } else {
108  double Lshb = log(1. - sh);
109  double sqrtsh = sqrt(sh);
110  double sqrt4sh = sqrt(4. - sh);
111  double Li2sh = real(Li2(sh));
112  double Li3sh = real(Li3(sh));
113  double Li3shb = real(Li3(1. - sh));
114  double Li4sh = real(Li4(sh));
115  double ash = asin(sqrtsh / 2.);
116  double cl2 = Cl2(2. * ash);
117  double cl3 = Cl3(2. * ash);
118  if (0 <= maxpow) {
119  if (sh < .900001)
120  res += (-0.8559670781893004 * lmu -
121  0.2962962962962963 * sh * pow(ash, 2) * pow(-1 + sh, -4) -
122  0.00823045267489712 * Lsh *
123  (29. - 18. * Lshb * (-1. + sh) - 47. * sh) * sh *
124  pow(-1 + sh, -2) + 0.14814814814814814 * Li2sh * sh *
125  pow(-1 + sh, -1) - 0.07407407407407407 * pow(Lsh, 2) *
126  pow(-1 + sh, -3) * pow(sh, 3) -
127  0.01646090534979424 * ash * sqrt4sh * sqrtsh * pow(-1 + sh, -3) *
128  pow(sh, -1)*(-4. + 9. * sh - 15. * pow(sh, 2) +
129  4. * pow(sh, 3)) - 0.0013717421124828531 *
130  pow(-1 + sh, -4)*(785. -
131  2. * sh * (1585. + 12. * pow(3.141592653589793, 2)) +
132  6. * (803. + 9. * pow(3.141592653589793, 2)) * pow(sh, 2) -
133  2. * (1633. + 27. * pow(3.141592653589793, 2)) *
134  pow(sh, 3) + (833. + 18. * pow(3.141592653589793, 2)) *
135  pow(sh, 4))) * pow(z, 0);
136  else
137  res += (-0.7509911973035993 - 0.21726138504882622 * (1. - sh) -
138  0.8559670781893004 * log(muh) -
139  0.0659657518981201 * pow(1. - sh, 2) -
140  0.03129640614981805 * pow(1. - sh, 3) -
141  0.017719628843137502 * pow(1. - sh, 4)) * pow(z, 0);
142  }
143 
144  if (1 <= maxpow) {
145  if (sh < .900001)
146  res += 0.;
147  else
148  res += 0.;
149  }
150 
151  if (2 <= maxpow) {
152  if (sh < .900001)
153  res += (0.04938271604938271 * sh * pow(Lsh, 4) * pow(-1 + sh, -3) -
154  0.2962962962962963 * Li2sh * (-1. + 4. * sh) *
155  pow(-1 + sh, -2) + 0.09876543209876543 * (-3. + sh) *
156  pow(Lsh, 3) * pow(-1 + sh, -2) -
157  lz * (-0.2962962962962963 * Lsh *
158  (2. + 2. * Lshb * (-1. + sh) + sh) * pow(-1 + sh, -2) -
159  0.5925925925925926 * Li2sh * pow(-1 + sh, -1) +
160  0.09876543209876543 * (9. + pow(3.141592653589793, 2)) *
161  pow(-1 + sh, -1) +
162  0.2962962962962963 * pow(Lsh, 2) * pow(-1 + sh, -1)) -
163  0.35616500834358344 * pow(-1 + sh, -3)*
164  (-5. + 5. * sh + 2. * pow(sh, 2)) -
165  0.2962962962962963 * Li3sh * pow(-1 + sh, -3)*
166  (-1. - 5. * sh + 4. * pow(sh, 2)) -
167  pow(Lsh, 2)*(-0.5925925925925926 * Li2sh * sh *
168  pow(-1 + sh, -3) -
169  0.04938271604938271 * pow(-1 + sh, -3)*
170  (12. + 3. * Lshb * (-5. + 3. * sh) +
171  sh * (-15. + 2. * pow(3.141592653589793, 2)) +
172  6. * pow(sh, 2))) -
173  Lsh * (-2.8493200667486676 * sh * pow(-1 + sh, -3) +
174  2.3703703703703702 * Li3sh * sh * pow(-1 + sh, -3) +
175  0.2962962962962963 * Li2sh * pow(-1 + sh, -3)*
176  (3. + sh - 2. * pow(sh, 2)) +
177  0.04938271604938271 * pow(-1 + sh, -3)*
178  (12. + 21. * sh +
179  (-5. + 3. * sh) * pow(3.141592653589793, 2) -
180  33. * pow(sh, 2) +
181  6. * Lshb * (1. - 5. * sh + 4. * pow(sh, 2)))) -
182  1.7777777777777777 * pow(ash, 2) * pow(-1 + sh, -4)*
183  (-1. - 3. * pow(sh, 2) + pow(sh, 3)) +
184  0.009876543209876543 * pow(-1 + sh, -4)*
185  (-4. * (-1. + sh) * sh * pow(3.141592653589793, 4) -
186  15. * (-1. + sh)*(10. - (17. + 24. * Li4sh) * sh +
187  7. * pow(sh, 2)) +
188  5. * pow(3.141592653589793, 2)*
189  (-6. + 16. * sh - 20. * pow(sh, 2) + 7. * pow(sh, 3))) -
190  0.8888888888888888 * ash * (1. + sh) * pow(-1 + sh, -3) *
191  pow(-((-4 + sh) * sh), 0.5)) * pow(z, 1);
192  else
193  res += (-1.5156467116109078 - 0.06864318910496076 * (1. - sh) +
194  0.19606872711735043 * pow(1. - sh, 2) +
195  0.3270513130738385 * pow(1. - sh, 3) +
196  log(z)*(0.4444444444444444 +
197  0.2962962962962963 * (1. - sh) +
198  0.23868312757201646 * pow(1. - sh, 2) +
199  0.20493827160493827 * pow(1. - sh, 3) +
200  0.1817283950617284 * pow(1. - sh, 4)) +
201  0.38673058027546225 * pow(1. - sh, 4)) * pow(z, 1);
202  }
203 
204  if (3 <= maxpow) {
205  if (sh < .900001)
206  res += 0.19753086419753085 * (2. + sh) * pow(3.141592653589793, 2) *
207  pow(sh, -1) * pow(z, 1.5);
208  else
209  res += (5.848654459904805 + 3.8991029732698697 * (1. - sh) +
210  3.8991029732698697 * pow(1. - sh, 2) +
211  3.8991029732698697 * pow(1. - sh, 3) +
212  3.8991029732698697 * pow(1. - sh, 4)) * pow(z, 1.5);
213  }
214 
215  if (4 <= maxpow) {
216  if (sh < .900001)
217  res += (-0.2962962962962963 * Li3sh * (5. + 3. * sh) * pow(-1 + sh, -3) +
218  0.2962962962962963 * Li3shb * (1. + 6. * sh) *
219  pow(-1 + sh, -3) + 0.14814814814814814 * pow(Lsh, 3) *
220  pow(-1 + sh, -3) - 0.8888888888888888 * ash * (-3. + sh) *
221  sqrt4sh * sqrtsh * pow(-1 + sh, -3) * pow(sh, 2) +
222  0.35616500834358344 * pow(-1 + sh, -4)*
223  (-5. + 8. * sh + 3. * pow(sh, 2)) +
224  0.2962962962962963 * Li2sh * pow(-1 + sh, -3) * pow(sh, -1)*
225  (3. - 10. * sh + 8. * pow(sh, 2)) -
226  0.8888888888888888 * pow(ash, 2) * pow(-1 + sh, -4) *
227  pow(sh, 2)*(2. + 9. * sh - 6. * pow(sh, 2) + pow(sh, 3)) -
228  0.07407407407407407 * pow(Lsh, 2) * pow(-1 + sh, -4) *
229  pow(sh, -2)*(-4. + 7. * sh + (5. + 6. * Lshb) * pow(sh, 2) -
230  (25. + 8. * Lshb) * pow(sh, 3) +
231  (11. + 2. * Lshb) * pow(sh, 4)) -
232  pow(lz, 2)*(0.14814814814814814 * Lsh * (1. + 6. * sh) *
233  pow(-1 + sh, -3) -
234  0.07407407407407407 * pow(-1 + sh, -2) * pow(sh, -2)*
235  (1. - 2. * sh + 8. * pow(sh, 2) + 10. * pow(sh, 3) -
236  4. * pow(sh, 4) + pow(sh, 5))) -
237  lz * (-10.666666666666666 * sh * pow(ash, 2) *
238  pow(-1 + sh, -4) -
239  0.2962962962962963 * Li2sh * (1. + 6. * sh) *
240  pow(-1 + sh, -3) -
241  0.14814814814814814 * pow(Lsh, 2) * pow(-1 + sh, -2) -
242  0.14814814814814814 * Lsh * pow(-1 + sh, -3) * pow(sh, -2)*
243  (2. - 3. * sh + 2. * (1. + Lshb) * pow(sh, 2) +
244  3. * (-1. + 4. * Lshb) * pow(sh, 3)) +
245  0.024691358024691357 * pow(-1 + sh, -4) * pow(sh, -2)*
246  (9. - 42. * sh + (81. - 2. * pow(3.141592653589793, 2)) *
247  pow(sh, 2) + 2. * (-6. + pow(3.141592653589793, 2)) *
248  pow(sh, 3) + 6. *
249  (-23. + 2. * pow(3.141592653589793, 2)) * pow(sh, 4)\
250  + 153. * pow(sh, 5) - 60. * pow(sh, 6) + 9. * pow(sh, 7))
251  - 0.5925925925925926 * ash * pow(-1 + sh, -3)*
252  (-4. - 3. * pow(sh, 2) + pow(sh, 3)) *
253  pow(-((-4 + sh) * sh), 0.5)) -
254  Lsh * (-5.333333333333333 * sh * pow(ash, 2) *
255  pow(-1 + sh, -4) -
256  0.2962962962962963 * Li2sh * (4. + sh) *
257  pow(-1 + sh, -3) -
258  0.024691358024691357 * pow(-1 + sh, -3) * pow(sh, -2)*
259  (-18. + (57. + 36. * Lshb) * sh -
260  6. * (5. + 20. * Lshb + pow(3.141592653589793, 2)) *
261  pow(sh, 2) + (-93. + 96. * Lshb +
262  50. * pow(3.141592653589793, 2)) * pow(sh, 3)) -
263  0.2962962962962963 * ash * pow(-1 + sh, -3)*
264  (-4. - 3. * pow(sh, 2) + pow(sh, 3)) *
265  pow(-((-4 + sh) * sh), 0.5)) +
266  0.012345679012345678 * pow(-1 + sh, -4) * pow(sh, -2)*
267  (2. * pow(3.141592653589793, 2)*
268  (-6. + 45. * sh - 133. * pow(sh, 2) + 157. * pow(sh, 3) -
269  59. * pow(sh, 4) + 12. * pow(sh, 5) - 12. * pow(sh, 6) +
270  2. * pow(sh, 7)) +
271  3. * (7. - 78. * sh + 7. * pow(sh, 7) +
272  pow(sh, 5)*(155. -
273  32. * cl2 * pow(-((-4 + sh) * sh), 0.5)) +
274  8. * pow(sh, 6)*
275  (-7. + cl2 * pow(-((-4 + sh) * sh), 0.5)) -
276  8. * pow(sh, 3)*(27. + 18. * cl3 +
277  4. * cl2 * pow(-((-4 + sh) * sh), 0.5)) +
278  pow(sh, 4)*(-62. +
279  24. * cl2 * pow(-((-4 + sh) * sh), 0.5)) +
280  pow(sh, 2)*(243. +
281  32. * cl2 * pow(-((-4 + sh) * sh), 0.5))))) * pow(z, 2);
282  else
283  res += pow(z, 2)*(-0.647637155328409 -
284  0.9413088193612421 * (1. - sh) -
285  0.8385255835044603 * pow(1. - sh, 2) -
286  1.1019705279460212 * pow(1. - sh, 3) -
287  1.6181578946132955 * pow(1. - sh, 4) +
288  log(z)*(1.7526351083839322 +
289  0.5609956120680696 * (1. - sh) +
290  1.1754785561935277 * pow(1. - sh, 2) +
291  1.6549606263554564 * pow(1. - sh, 3) +
292  2.1141011282028064 * pow(1. - sh, 4)) +
293  (0.09876543209876543 +
294  0.1111111111111111 * (1. - sh) +
295  0.23703703703703705 * pow(1. - sh, 2) +
296  0.3012345679012346 * pow(1. - sh, 3) +
297  0.37037037037037035 * pow(1. - sh, 4)) * pow(log(z), 2)
298  );
299  }
300 
301  if (5 <= maxpow) {
302  if (sh < .900001)
303  res += 0.02633744855967078 * pow(3.141592653589793, 2) * pow(sh, -3)*
304  (3. + 14. * sh + 3. * pow(sh, 2)) * pow(z, 2.5);
305  else
306  res += (5.1988039643598265 + 10.397607928719653 * (1. - sh) +
307  16.376232487733454 * pow(1. - sh, 2) +
308  23.13467764140123 * pow(1. - sh, 3) +
309  30.672943389722974 * pow(1. - sh, 4)) * pow(z, 2.5);
310  }
311 
312  if (6 <= maxpow) {
313  if (sh < .900001)
314  res += (1.1851851851851851 * Li3shb * sh * pow(-1 + sh, -4) -
315  0.5925925925925926 * Li3sh * pow(-1 + sh, -3) * pow(sh, -1) +
316  0.19753086419753085 * pow(Lsh, 3) * pow(-1 + sh, -3) *
317  pow(sh, -1) - 0.7123300166871669 * pow(-1 + sh, -4) *
318  pow(sh, -1)*(1. - sh + 2. * pow(sh, 2)) -
319  0.2962962962962963 * Li2sh * pow(-1 + sh, -4) * pow(sh, -2)*
320  (4. - 14. * sh + 18. * pow(sh, 2) - 11. * pow(sh, 3) +
321  pow(sh, 4)) - 0.19753086419753085 * cl2 * sh * sqrt4sh *
322  sqrtsh * pow(-1 + sh, -3)*
323  (-9. - sh + 9. * pow(sh, 2) - 6. * pow(sh, 3) +
324  pow(sh, 4)) - 0.06584362139917696 * ash * sh * sqrt4sh *
325  sqrtsh * pow(-1 + sh, -3)*
326  (27. - sh + 9. * pow(sh, 2) - 6. * pow(sh, 3) +
327  pow(sh, 4)) + 0.5925925925925926 * sh * pow(ash, 2) *
328  pow(-1 + sh, -4)*(-6. + 27. * sh - 30. * pow(sh, 3) +
329  27. * pow(sh, 4) - 9. * pow(sh, 5) + pow(sh, 6)) -
330  Lsh * (3.5555555555555554 * sh * pow(ash, 2) *
331  pow(-1 + sh, -4) -
332  0.5925925925925926 * Li2sh * pow(-1 + sh, -3) *
333  pow(sh, -1) + 0.19753086419753085 * ash * sh * sqrt4sh *
334  sqrtsh * pow(-1 + sh, -3)*
335  (-9. - sh + 9. * pow(sh, 2) - 6. * pow(sh, 3) +
336  pow(sh, 4)) + 0.00823045267489712 * pow(-1 + sh, -4) *
337  pow(sh, -4)*(-10. + 10. * sh +
338  6. * (23. + 24. * Lshb) * pow(sh, 2) -
339  2. * (67. + 252. * Lshb +
340  30. * pow(3.141592653589793, 2)) * pow(sh, 3) +
341  (-163. + 648. * Lshb +
342  60. * pow(3.141592653589793, 2)) * pow(sh, 4) -
343  12. * (-5. + 33. * Lshb +
344  6. * pow(3.141592653589793, 2)) * pow(sh, 5) +
345  9. * (-5. + 4. * Lshb) * pow(sh, 6))) -
346  0.012345679012345678 * pow(Lsh, 2) * pow(-1 + sh, -5) *
347  pow(sh, -4)*(8. + 8. * sh - 94. * pow(sh, 2) +
348  (94. - 24. * Lshb) * pow(sh, 3) +
349  (52. + 48. * Lshb) * pow(sh, 4) -
350  8. * (19. + 3. * Lshb) * pow(sh, 5) + 72. * pow(sh, 6) -
351  12. * pow(sh, 7)) -
352  pow(lz, 2)*(0.5925925925925926 * Lsh * sh *
353  pow(-1 + sh, -4) +
354  0.024691358024691357 * pow(-1 + sh, -3) * pow(sh, -4)*
355  (1. + 3. * sh - 18. * pow(sh, 2) + 25. * pow(sh, 3) -
356  36. * pow(sh, 4) + 26. * pow(sh, 5) - 27. * pow(sh, 6) -
357  22. * pow(sh, 7) + 38. * pow(sh, 8) - 16. * pow(sh, 9) +
358  2. * pow(sh, 10))) -
359  lz * (-1.1851851851851851 * Li2sh * sh * pow(-1 + sh, -4) +
360  7.111111111111111 * sh * pow(ash, 2) * pow(-1 + sh, -4) +
361  0.2962962962962963 * pow(Lsh, 2) * pow(-1 + sh, -3) *
362  pow(sh, -1) + 0.3950617283950617 * ash * sh * sqrt4sh *
363  sqrtsh * pow(-1 + sh, -3)*
364  (-9. - sh + 9. * pow(sh, 2) - 6. * pow(sh, 3) +
365  pow(sh, 4)) + 0.04938271604938271 * Lsh *
366  pow(-1 + sh, -4) * pow(sh, -4)*
367  (2. + 4. * sh - 27. * pow(sh, 2) + 22. * pow(sh, 3) +
368  14. * pow(sh, 4) - 12. * (1. + 2. * Lshb) * pow(sh, 5) +
369  9. * pow(sh, 6)) +
370  0.00823045267489712 * pow(-1 + sh, -3) * pow(sh, -4)*
371  (-5. + 57. * pow(sh, 2) - 46. * pow(sh, 3) -
372  85. * pow(sh, 4) + 164. * pow(sh, 5) - 73. * pow(sh, 6) +
373  102. * pow(sh, 7) - 40. * pow(sh, 8) - 4. * pow(sh, 9) +
374  2. * pow(sh, 10))) -
375  0.0013717421124828531 * pow(-1 + sh, -4) * pow(sh, -4)*
376  (-19. + 46. * sh + 1365. * pow(sh, 2) - 4435. * pow(sh, 3) +
377  3757. * pow(sh, 4) + (610. - 2592. * cl3) * pow(sh, 5) -
378  3103. * pow(sh, 6) + 2113. * pow(sh, 7) +
379  594. * pow(sh, 8) - 1548. * pow(sh, 9) +
380  714. * pow(sh, 10) - 94. * pow(sh, 11) +
381  6. * pow(3.141592653589793, 2)*
382  (6. + 12. * sh - 195. * pow(sh, 2) + 442. * pow(sh, 3) -
383  434. * pow(sh, 4) + 124. * pow(sh, 5) +
384  137. * pow(sh, 6) - 16. * pow(sh, 7) -
385  120. * pow(sh, 8) + 108. * pow(sh, 9) -
386  36. * pow(sh, 10) + 4. * pow(sh, 11)))) * pow(z, 3);
387  else
388  res += pow(z, 3)*(2.0558846293203854 -
389  5.023381570340977 * (1. - sh) -
390  7.761640024983791 * pow(1. - sh, 2) -
391  13.35266138630302 * pow(1. - sh, 3) -
392  24.65891981493292 * pow(1. - sh, 4) +
393  log(z)*(2.772759928702021 -
394  0.24604278849693273 * (1. - sh) +
395  3.842007139630303 * pow(1. - sh, 2) +
396  8.253815580345757 * pow(1. - sh, 3) +
397  13.162562518769866 * pow(1. - sh, 4)) +
398  (-0.2222222222222222 +
399  0.044444444444444446 * (1. - sh) +
400  0.9679012345679012 * pow(1. - sh, 2) +
401  1.689594356261023 * pow(1. - sh, 3) +
402  2.6807760141093473 * pow(1. - sh, 4)) * pow(log(z), 2));
403  }
404 
405  if (7 <= maxpow) {
406  if (sh < .900001)
407  res += 0.002257495590828924 * pow(3.141592653589793, 2) * pow(sh, -5)*
408  (15. + 108. * sh + 314. * pow(sh, 2) + 108. * pow(sh, 3) +
409  15. * pow(sh, 4)) * pow(z, 3.5);
410  else
411  res += (12.477129514463583 + 37.43138854339075 * (1. - sh) +
412  78.60591594112057 * pow(1. - sh, 2) +
413  139.74385056199213 * pow(1. - sh, 3) +
414  224.92254008662476 * pow(1. - sh, 4)) * pow(z, 3.5);
415  }
416 
417  if (8 <= maxpow) {
418  if (sh < .900001)
419  res += (1.1872166944786116 * pow(-1 + sh, -3) * pow(sh, -2) -
420  0.9876543209876543 * Li3sh * pow(-1 + sh, -3) * pow(sh, -2) +
421  0.3292181069958848 * pow(Lsh, 3) * pow(-1 + sh, -3) *
422  pow(sh, -2) + 0.2962962962962963 * cl2 * sh * sqrt4sh * sqrtsh *
423  (8. + 6. * sh - 6. * pow(sh, 2) + pow(sh, 3)) -
424  0.04938271604938271 * Li2sh * pow(-1 + sh, -5) * pow(sh, -3)*
425  (-50. + 230. * sh - 420. * pow(sh, 2) + 380. * pow(sh, 3) -
426  146. * pow(sh, 4) + 15. * pow(sh, 5)) +
427  0.04938271604938271 * ash * sh * sqrt4sh * sqrtsh *
428  pow(-1 + sh, -3)*(16. + 72. * sh + 18. * pow(sh, 2) -
429  203. * pow(sh, 3) + 189. * pow(sh, 4) - 63. * pow(sh, 5) +
430  7. * pow(sh, 6)) - 0.8888888888888888 * pow(ash, 2) *
431  pow(-1 + sh, -4) * pow(sh, 2)*
432  (36. - 60. * sh + 99. * pow(sh, 3) - 112. * pow(sh, 4) +
433  54. * pow(sh, 5) - 12. * pow(sh, 6) + pow(sh, 7)) -
434  Lsh * (-0.9876543209876543 * Li2sh * pow(-1 + sh, -3) *
435  pow(sh, -2) - 0.2962962962962963 * ash * sh * sqrt4sh *
436  sqrtsh * (8. + 6. * sh - 6. * pow(sh, 2) + pow(sh, 3)) +
437  0.0013717421124828531 * pow(-1 + sh, -5) * pow(sh, -6)*
438  (21. - 10. * sh - 307. * pow(sh, 2) -
439  (283. + 1800. * Lshb) * pow(sh, 3) +
440  5. * (437. + 1656. * Lshb +
441  120. * pow(3.141592653589793, 2)) * pow(sh, 4) -
442  2. * (1081. + 7560. * Lshb +
443  600. * pow(3.141592653589793, 2)) * pow(sh, 5) +
444  (253. + 13680. * Lshb +
445  600. * pow(3.141592653589793, 2)) * pow(sh, 6) +
446  (861. - 5256. * Lshb) * pow(sh, 7) +
447  6. * (49. + 90. * Lshb) * pow(sh, 8) - 78. * pow(sh, 9)))\
448  + 0.00823045267489712 * pow(Lsh, 2) * pow(-1 + sh, -6) *
449  pow(sh, -6)*(6. + 14. * sh - 30. * pow(sh, 2) -
450  255. * pow(sh, 3) + (729. - 60. * Lshb) * pow(sh, 4) +
451  45. * (-13. + 4. * Lshb) * pow(sh, 5) -
452  15. * (11. + 12. * Lshb) * pow(sh, 6) +
453  (541. + 60. * Lshb) * pow(sh, 7) - 270. * pow(sh, 8) +
454  45. * pow(sh, 9)) +
455  0.00411522633744856 * pow(lz, 2) * pow(sh, -6)*
456  (3. + 25. * sh + 90. * pow(sh, 2) - 60. * pow(sh, 3) +
457  5. * pow(sh, 4) - 3. * pow(sh, 5) - 144. * pow(sh, 6) -
458  252. * pow(sh, 7) + 72. * pow(sh, 8) + 288. * pow(sh, 9) -
459  144. * pow(sh, 10) + 18. * pow(sh, 11)) -
460  lz * (0.49382716049382713 * pow(Lsh, 2) * pow(-1 + sh, -3) *
461  pow(sh, -2) - 0.5925925925925926 * ash * sh * sqrt4sh *
462  sqrtsh * (8. + 6. * sh - 6. * pow(sh, 2) + pow(sh, 3)) +
463  0.01646090534979424 * Lsh * pow(-1 + sh, -5) * pow(sh, -6)*
464  (-3. - 10. * sh + 5. * pow(sh, 2) + 185. * pow(sh, 3) -
465  425. * pow(sh, 4) + 343. * pow(sh, 5) -
466  125. * pow(sh, 6) + 3. * pow(sh, 7) - 15. * pow(sh, 8) +
467  15. * pow(sh, 9)) +
468  0.00013717421124828533 * pow(-1 + sh, -4) * pow(sh, -6)*
469  (105. + 55. * sh - 1480. * pow(sh, 2) + 90. * pow(sh, 3) +
470  10470. * pow(sh, 4) - 25782. * pow(sh, 5) +
471  43242. * pow(sh, 6) - 52678. * pow(sh, 7) +
472  52987. * pow(sh, 8) - 14283. * pow(sh, 9) -
473  23976. * pow(sh, 10) + 3240. * pow(sh, 11) +
474  28080. * pow(sh, 12) - 22680. * pow(sh, 13) +
475  6480. * pow(sh, 14) - 630. * pow(sh, 15))) +
476  2.2862368541380887e-6 * pow(-1 + sh, -5) * pow(sh, -6)*
477  (-2775. + 5550. * sh + 34425. * pow(sh, 2) +
478  1.48905e6 * pow(sh, 3) - 7.4002e6 * pow(sh, 4) +
479  1.4083748e7 * pow(sh, 5) - 1.4200216e7 * pow(sh, 6) +
480  9.34426e6 * pow(sh, 7) - 5.568515e6 * pow(sh, 8) +
481  141850. * pow(sh, 9) + 4.948647e6 * pow(sh, 10) -
482  27324. * pow(sh, 11) - 8.9613e6 * pow(sh, 12) +
483  9.8388e6 * pow(sh, 13) - 4.6764e6 * pow(sh, 14) +
484  1.03725e6 * pow(sh, 15) - 86850. * pow(sh, 16) +
485  1200. * pow(3.141592653589793, 2)*
486  (9. + 30. * sh - 15. * pow(sh, 2) - 1245. * pow(sh, 3) +
487  4325. * pow(sh, 4) - 6463. * pow(sh, 5) +
488  5357. * pow(sh, 6) - 2657. * pow(sh, 7) +
489  295. * pow(sh, 8) + 1405. * pow(sh, 9) -
490  1014. * pow(sh, 10) - 1782. * pow(sh, 11) +
491  3798. * pow(sh, 12) - 2988. * pow(sh, 13) +
492  1188. * pow(sh, 14) - 234. * pow(sh, 15) +
493  18. * pow(sh, 16)))) * pow(z, 4);
494  else
495  res += pow(z, 4)*(4.166076007573638 -
496  29.482916540765096 * (1. - sh) -
497  51.76439651455935 * pow(1. - sh, 2) -
498  100.58418925538838 * pow(1. - sh, 3) -
499  217.9981110758939 * pow(1. - sh, 4) +
500  log(z)*(6.036523956202085 -
501  6.188787330687681 * (1. - sh) +
502  14.248013358351397 * pow(1. - sh, 2) +
503  42.62670356928015 * pow(1. - sh, 3) +
504  77.13858012891833 * pow(1. - sh, 4)) +
505  (-0.41975308641975306 +
506  0.24691358024691357 * (1. - sh) +
507  5.111111111111111 * pow(1. - sh, 2) +
508  9.74485596707819 * pow(1. - sh, 3) +
509  17.88477366255144 * pow(1. - sh, 4)) * pow(log(z), 2));
510  }
511 
512  if (9 <= maxpow) {
513  if (sh < .900001)
514  res += 0.0005374989501973629 * pow(3.141592653589793, 2) * pow(sh, -7)*
515  (35. + 330. * sh + 1389. * pow(sh, 2) + 3212. * pow(sh, 3) +
516  1389. * pow(sh, 4) + 330. * pow(sh, 5) + 35. * pow(sh, 6)) *
517  pow(z, 4.5);
518  else
519  res += (35.64894146989595 + 142.5957658795838 * (1. - sh) +
520  372.5314383604127 * pow(1. - sh, 2) +
521  793.1889477051849 * pow(1. - sh, 3) +
522  1491.2079534505585 * pow(1. - sh, 4)) * pow(z, 4.5);
523  }
524 
525  if (10 <= maxpow) {
526  if (sh < .900001)
527  res += (2.493155058405084 * pow(-1 + sh, -3) * pow(sh, -3) -
528  2.074074074074074 * Li3sh * pow(-1 + sh, -3) * pow(sh, -3) +
529  0.691358024691358 * pow(Lsh, 3) * pow(-1 + sh, -3) *
530  pow(sh, -3) - 0.5925925925925926 * cl2 * sqrt4sh * sqrtsh *
531  pow(sh, 2)*(-20. - 11. * sh + 24. * pow(sh, 2) -
532  9. * pow(sh, 3) + pow(sh, 4)) -
533  0.019753086419753086 * ash * sqrt4sh * sqrtsh *
534  pow(-1 + sh, -3) * pow(sh, 2)*
535  (630. - 1853. * sh - 99. * pow(sh, 2) + 4458. * pow(sh, 3) -
536  5217. * pow(sh, 4) + 2538. * pow(sh, 5) -
537  564. * pow(sh, 6) + 47. * pow(sh, 7)) +
538  0.09876543209876543 * Li2sh * pow(-1 + sh, -6) * pow(sh, -4)*
539  (-63. + 355. * sh - 826. * pow(sh, 2) + 1008. * pow(sh, 3) -
540  665. * pow(sh, 4) + 213. * pow(sh, 5) - 7. * pow(sh, 7) +
541  pow(sh, 8)) + 1.7777777777777777 * pow(ash, 2) *
542  pow(-1 + sh, -4) * pow(sh, 2)*
543  (10. - 90. * sh + 165. * pow(sh, 2) - 333. * pow(sh, 4) +
544  445. * pow(sh, 5) - 275. * pow(sh, 6) + 90. * pow(sh, 7) -
545  15. * pow(sh, 8) + pow(sh, 9)) -
546  Lsh * (-2.074074074074074 * Li2sh * pow(-1 + sh, -3) *
547  pow(sh, -3) + 0.5925925925925926 * ash * sqrt4sh * sqrtsh *
548  pow(sh, 2)*(-20. - 11. * sh + 24. * pow(sh, 2) -
549  9. * pow(sh, 3) + pow(sh, 4)) +
550  0.0000823045267489712 * pow(-1 + sh, -6) * pow(sh, -8)*
551  (-162. + 36. * sh + 2914. * pow(sh, 2) +
552  5862. * pow(sh, 3) +
553  30. * (-767. + 2520. * Lshb) * pow(sh, 4) -
554  8. * (2131. + 53250. * Lshb +
555  2625. * pow(3.141592653589793, 2)) * pow(sh, 5) +
556  8. * (12113. + 123900. * Lshb +
557  7875. * pow(3.141592653589793, 2)) * pow(sh, 6) -
558  18. * (5693. + 67200. * Lshb +
559  3500. * pow(3.141592653589793, 2)) * pow(sh, 7) +
560  3. * (15101. + 266000. * Lshb +
561  7000. * pow(3.141592653589793, 2)) * pow(sh, 8) -
562  50. * (259. + 5112. * Lshb) * pow(sh, 9) +
563  9600. * pow(sh, 10) +
564  150. * (11. + 56. * Lshb) * pow(sh, 11) -
565  25. * (25. + 48. * Lshb) * pow(sh, 12))) -
566  0.0024691358024691358 * pow(Lsh, 2) * pow(-1 + sh, -7) *
567  pow(sh, -8)*(12. + 42. * sh - 28. * pow(sh, 2) -
568  308. * pow(sh, 3) - 1533. * pow(sh, 4) +
569  (8318. - 420. * Lshb) * pow(sh, 5) +
570  6. * (-2237. + 280. * Lshb) * pow(sh, 6) -
571  56. * (-143. + 45. * Lshb) * pow(sh, 7) +
572  12. * (149. + 140. * Lshb) * pow(sh, 8) -
573  (4507. + 420. * Lshb) * pow(sh, 9) +
574  1540. * pow(sh, 10) + 140. * pow(sh, 11) -
575  160. * pow(sh, 12) + 20. * pow(sh, 13)) -
576  0.0012345679012345679 * pow(lz, 2) * pow(sh, -8)*
577  (-6. - 63. * sh - 301. * pow(sh, 2) - 840. * pow(sh, 3) +
578  630. * pow(sh, 4) - 99. * pow(sh, 5) + 153. * pow(sh, 6) +
579  6. * pow(sh, 7) + 1200. * pow(sh, 8) + 1440. * pow(sh, 9) +
580  3360. * pow(sh, 10) - 2400. * pow(sh, 11) -
581  5400. * pow(sh, 12) + 4800. * pow(sh, 13) -
582  1320. * pow(sh, 14) + 120. * pow(sh, 15)) -
583  lz * (1.037037037037037 * pow(Lsh, 2) * pow(-1 + sh, -3) *
584  pow(sh, -3) + 1.1851851851851851 * ash * sqrt4sh * sqrtsh *
585  pow(sh, 2)*(-20. - 11. * sh + 24. * pow(sh, 2) -
586  9. * pow(sh, 3) + pow(sh, 4)) +
587  0.0049382716049382715 * Lsh * pow(-1 + sh, -6) *
588  pow(sh, -8)*(6. + 27. * sh + 13. * pow(sh, 2) -
589  141. * pow(sh, 3) - 1380. * pow(sh, 4) +
590  5549. * pow(sh, 5) - 8207. * pow(sh, 6) +
591  6207. * pow(sh, 7) - 2809. * pow(sh, 8) +
592  1080. * pow(sh, 9) - 30. * pow(sh, 10) -
593  30. * pow(sh, 11) + 35. * pow(sh, 12)) +
594  0.000011757789535567314 * pow(-1 + sh, -5) * pow(sh, -8)*
595  (-567. - 441. * sh + 9758. * pow(sh, 2) +
596  30275. * pow(sh, 3) - 166495. * pow(sh, 4) +
597  20923. * pow(sh, 5) + 866054. * pow(sh, 6) -
598  1.788427e6 * pow(sh, 7) + 1.255755e6 * pow(sh, 8) +
599  458890. * pow(sh, 9) - 1.258076e6 * pow(sh, 10) +
600  55832. * pow(sh, 11) - 524481. * pow(sh, 12) +
601  2.826e6 * pow(sh, 13) - 901320. * pow(sh, 14) -
602  5.25168e6 * pow(sh, 15) + 7.8771e6 * pow(sh, 16) -
603  5.0799e6 * pow(sh, 17) + 1.7073e6 * pow(sh, 18) -
604  290640. * pow(sh, 19) + 19740. * pow(sh, 20))) -
605  1.3997368494722993e-8 * pow(-1 + sh, -6) * pow(sh, -8)*
606  (-161406. + 318843. * sh + 1.910657e6 * pow(sh, 2) -
607  738969. * pow(sh, 3) + 6.33135615e8 * pow(sh, 4) -
608  3.654733992e9 * pow(sh, 5) + 8.580730746e9 * pow(sh, 6) -
609  1.0387902666e10 * pow(sh, 7) +
610  6.272402572e9 * pow(sh, 8) - 4.35513965e8 * pow(sh, 9) -
611  2.310469467e9 * pow(sh, 10) +
612  2.213537811e9 * pow(sh, 11) -
613  4.191847021e9 * pow(sh, 12) +
614  8.659496442e9 * pow(sh, 13) -
615  5.00515056e9 * pow(sh, 14) -
616  1.057709688e10 * pow(sh, 15) +
617  2.294859924e10 * pow(sh, 16) -
618  2.03364504e10 * pow(sh, 17) +
619  1.00250472e10 * pow(sh, 18) -
620  2.83732932e9 * pow(sh, 19) + 4.2896364e8 * pow(sh, 20) -
621  2.674812e7 * pow(sh, 21) +
622  58800. * pow(3.141592653589793, 2)*
623  (18. + 81. * sh + 39. * pow(sh, 2) - 423. * pow(sh, 3) -
624  9810. * pow(sh, 4) + 47729. * pow(sh, 5) -
625  95467. * pow(sh, 6) + 103887. * pow(sh, 7) -
626  63289. * pow(sh, 8) + 15730. * pow(sh, 9) +
627  8388. * pow(sh, 10) - 21404. * pow(sh, 11) +
628  46029. * pow(sh, 12) - 50988. * pow(sh, 13) -
629  20160. * pow(sh, 14) + 133320. * pow(sh, 15) -
630  179760. * pow(sh, 16) + 130200. * pow(sh, 17) -
631  56400. * pow(sh, 18) + 14520. * pow(sh, 19) -
632  2040. * pow(sh, 20) + 120. * pow(sh, 21)))) * pow(z, 5);
633  else
634  res += pow(z, 5)*(9.495992115022151 -
635  144.07780670229167 * (1. - sh) -
636  287.1615196453904 * pow(1. - sh, 2) -
637  629.2386817194127 * pow(1. - sh, 3) -
638  1577.85840284407 * pow(1. - sh, 4) +
639  log(z)*(18.273866188842664 -
640  36.50758667966486 * (1. - sh) +
641  57.239414092843454 * pow(1. - sh, 2) +
642  217.34199886507017 * pow(1. - sh, 3) +
643  420.0317629604588 * pow(1. - sh, 4)) +
644  (-1.5802469135802468 +
645  0.2962962962962963 * (1. - sh) +
646  25. * pow(1. - sh, 2) +
647  51.65432098765432 * pow(1. - sh, 3) +
648  108.14814814814815 * pow(1. - sh, 4)) * pow(log(z), 2));
649  }
650 
651  if (11 <= maxpow) {
652  if (sh < .900001)
653  res += 0.000038004976276581215 * pow(3.141592653589793, 2) * pow(sh, -9)*
654  (315. + 3640. * sh + 19380. * pow(sh, 2) + 62088. * pow(sh, 3) +
655  124834. * pow(sh, 4) + 62088. * pow(sh, 5) +
656  19380. * pow(sh, 6) + 3640. * pow(sh, 7) + 315. * pow(sh, 8)) *
657  pow(z, 5.5);
658  else
659  res += (110.90781790634296 + 554.5390895317148 * (1. - sh) +
660  1730.1619593389503 * pow(1. - sh, 2) +
661  4281.041771184839 * pow(1. - sh, 3) +
662  9178.810229798877 * pow(1. - sh, 4)) * pow(z, 5.5);
663  }
664 
665  if (12 <= maxpow) {
666  if (sh < .900001)
667  res += (5.983572140172202 * pow(-1 + sh, -3) * pow(sh, -4) -
668  4.977777777777778 * Li3sh * pow(-1 + sh, -3) * pow(sh, -4) +
669  1.6592592592592592 * pow(Lsh, 3) * pow(-1 + sh, -3) *
670  pow(sh, -4) + 0.691358024691358 * cl2 * sqrt4sh * sqrtsh *
671  pow(sh, 2)*(-8. + 102. * sh + 39. * pow(sh, 2) -
672  168. * pow(sh, 3) + 102. * pow(sh, 4) - 24. * pow(sh, 5) +
673  2. * pow(sh, 6)) + 0.006584362139917695 * ash * sqrt4sh *
674  sqrtsh * pow(-1 + sh, -3) * pow(sh, 2)*
675  (1236. - 20412. * sh + 48897. * pow(sh, 2) -
676  963. * pow(sh, 3) - 119097. * pow(sh, 4) +
677  165591. * pow(sh, 5) - 103846. * pow(sh, 6) +
678  34110. * pow(sh, 7) - 5685. * pow(sh, 8) + 379. * pow(sh, 9))
679  - 2.074074074074074 * pow(ash, 2) * pow(-1 + sh, -4) *
680  pow(sh, 3)*(-90. + 560. * sh - 999. * pow(sh, 2) +
681  2278. * pow(sh, 4) - 3456. * pow(sh, 5) +
682  2565. * pow(sh, 6) - 1092. * pow(sh, 7) +
683  270. * pow(sh, 8) - 36. * pow(sh, 9) + 2. * pow(sh, 10)) +
684  0.0049382716049382715 * Li2sh * pow(-1 + sh, -7) * pow(sh, -5)*
685  (3528. - 23478. * sh + 66420. * pow(sh, 2) -
686  102960. * pow(sh, 3) + 93240. * pow(sh, 4) -
687  47628. * pow(sh, 5) + 10808. * pow(sh, 6) -
688  135. * pow(sh, 9) + 30. * pow(sh, 10)) -
689  Lsh * (-4.977777777777778 * Li2sh * pow(-1 + sh, -3) *
690  pow(sh, -4) - 0.691358024691358 * ash * sqrt4sh * sqrtsh *
691  pow(sh, 2)*(-8. + 102. * sh + 39. * pow(sh, 2) -
692  168. * pow(sh, 3) + 102. * pow(sh, 4) -
693  24. * pow(sh, 5) + 2. * pow(sh, 6)) +
694  0.00001646090534979424 * pow(-1 + sh, -7) * pow(sh, -10)*
695  (440. - 32. * sh - 10212. * pow(sh, 2) -
696  23632. * pow(sh, 3) + 7888. * pow(sh, 4) -
697  168. * (-2921. + 6300. * Lshb) * pow(sh, 5) +
698  18. * (-60791. + 391300. * Lshb +
699  14000. * pow(3.141592653589793, 2)) * pow(sh, 6) -
700  6. * (-91207. + 3.321e6 * Lshb +
701  168000. * pow(3.141592653589793, 2)) * pow(sh, 7) +
702  216. * (3607. + 143000. * Lshb +
703  7000. * pow(3.141592653589793, 2)) * pow(sh, 8) -
704  6. * (202093. + 4.662e6 * Lshb +
705  168000. * pow(3.141592653589793, 2)) * pow(sh, 9) +
706  6. * (113557. + 2.3814e6 * Lshb +
707  42000. * pow(3.141592653589793, 2)) * pow(sh, 10) -
708  15. * (16441. + 216160. * Lshb) * pow(sh, 11) +
709  20060. * pow(sh, 12) + 42310. * pow(sh, 13) +
710  45. * (23. + 900. * Lshb) * pow(sh, 14) -
711  45. * (41. + 200. * Lshb) * pow(sh, 15))) -
712  0.0004938271604938272 * pow(Lsh, 2) * pow(-1 + sh, -8) *
713  pow(sh, -10)*(-40. - 184. * sh - 40. * pow(sh, 2) +
714  1160. * pow(sh, 3) + 2240. * pow(sh, 4) +
715  16100. * pow(sh, 5) +
716  144. * (-936. + 35. * Lshb) * pow(sh, 6) +
717  (321315. - 25200. * Lshb) * pow(sh, 7) +
718  15. * (-23729. + 3360. * Lshb) * pow(sh, 8) -
719  160. * (-1006. + 315. * Lshb) * pow(sh, 9) +
720  40. * (859. + 630. * Lshb) * pow(sh, 10) -
721  2. * (31921. + 2520. * Lshb) * pow(sh, 11) +
722  18270. * pow(sh, 12) + 675. * pow(sh, 14) -
723  825. * pow(sh, 15) + 150. * pow(sh, 16)) -
724  0.0004938271604938272 * pow(lz, 2) * pow(sh, -10)*
725  (-10. - 126. * sh - 738. * pow(sh, 2) - 2646. * pow(sh, 3) -
726  6300. * pow(sh, 4) + 5040. * pow(sh, 5) -
727  1194. * pow(sh, 6) + 873. * pow(sh, 7) +
728  1791. * pow(sh, 8) + 10. * pow(sh, 9) +
729  8400. * pow(sh, 10) + 9100. * pow(sh, 11) +
730  11200. * pow(sh, 12) + 46900. * pow(sh, 13) -
731  47600. * pow(sh, 14) - 86450. * pow(sh, 15) +
732  116200. * pow(sh, 16) - 51100. * pow(sh, 17) +
733  9800. * pow(sh, 18) - 700. * pow(sh, 19)) -
734  lz * (2.488888888888889 * pow(Lsh, 2) * pow(-1 + sh, -3) *
735  pow(sh, -4) - 1.382716049382716 * ash * sqrt4sh * sqrtsh *
736  pow(sh, 2)*(-8. + 102. * sh + 39. * pow(sh, 2) -
737  168. * pow(sh, 3) + 102. * pow(sh, 4) -
738  24. * pow(sh, 5) + 2. * pow(sh, 6)) +
739  0.0009876543209876543 * Lsh * pow(-1 + sh, -7) *
740  pow(sh, -10)*(-20. - 112. * sh - 132. * pow(sh, 2) +
741  448. * pow(sh, 3) + 1568. * pow(sh, 4) +
742  16548. * pow(sh, 5) - 99448. * pow(sh, 6) +
743  212137. * pow(sh, 7) - 240168. * pow(sh, 8) +
744  162112. * pow(sh, 9) - 68488. * pow(sh, 10) +
745  15610. * pow(sh, 11) - 980. * pow(sh, 12) +
746  20. * pow(sh, 13) - 105. * pow(sh, 14) +
747  135. * pow(sh, 15)) +
748  7.838526357044875e-7 * pow(-1 + sh, -6) * pow(sh, -10)*
749  (4620. + 4284. * sh - 102942. * pow(sh, 2) -
750  351078. * pow(sh, 3) - 268254. * pow(sh, 4) +
751  1.062621e7 * pow(sh, 5) - 2.1816102e7 * pow(sh, 6) -
752  1.1713284e7 * pow(sh, 7) + 9.2176614e7 * pow(sh, 8) -
753  1.30993468e8 * pow(sh, 9) +
754  9.7705975e7 * pow(sh, 10) -
755  8.3020137e7 * pow(sh, 11) +
756  1.22513471e8 * pow(sh, 12) -
757  1.48849691e8 * pow(sh, 13) +
758  1.22190192e8 * pow(sh, 14) +
759  1.1648879e8 * pow(sh, 15) - 5.630639e8 * pow(sh, 16) +
760  4.247208e8 * pow(sh, 17) + 8.672076e8 * pow(sh, 18) -
761  2.255526e9 * pow(sh, 19) + 2.3724372e9 * pow(sh, 20) -
762  1.4385273e9 * pow(sh, 21) + 5.355966e8 * pow(sh, 22) -
763  1.205778e8 * pow(sh, 23) + 1.5036e7 * pow(sh, 24) -
764  795900. * pow(sh, 25))) -
765  6.22105266432133e-10 * pow(-1 + sh, -7) * pow(sh, -10)*
766  (1.60524e6 - 3.372768e6 * sh - 2.1255318e7 * pow(sh, 2) +
767  5.1364152e7 * pow(sh, 3) + 1.37438532e8 * pow(sh, 4) -
768  4.2259525308e10 * pow(sh, 5) +
769  2.74794978024e11 * pow(sh, 6) -
770  7.61157740601e11 * pow(sh, 7) +
771  1.144773779814e12 * pow(sh, 8) -
772  9.93234387676e11 * pow(sh, 9) +
773  5.07224614904e11 * pow(sh, 10) -
774  2.38950893986e11 * pow(sh, 11) +
775  2.88773890244e11 * pow(sh, 12) -
776  3.74015495266e11 * pow(sh, 13) +
777  2.45587937594e11 * pow(sh, 14) +
778  5.02610946089e11 * pow(sh, 15) -
779  1.90653668497e12 * pow(sh, 16) +
780  2.1081380789e12 * pow(sh, 17) +
781  1.1357177076e12 * pow(sh, 18) -
782  6.24126592845e12 * pow(sh, 19) +
783  8.68889605815e12 * pow(sh, 20) -
784  6.88407273225e12 * pow(sh, 21) +
785  3.47059394955e12 * pow(sh, 22) -
786  1.1307208248e12 * pow(sh, 23) +
787  2.301705126e11 * pow(sh, 24) -
788  2.65567113e10 * pow(sh, 25) + 1.3226913e9 * pow(sh, 26) -
789  264600. * pow(3.141592653589793, 2)*
790  (60. + 336. * sh + 396. * pow(sh, 2) -
791  1344. * pow(sh, 3) - 4704. * pow(sh, 4) -
792  127764. * pow(sh, 5) + 807808. * pow(sh, 6) -
793  2.054287e6 * pow(sh, 7) + 2.890968e6 * pow(sh, 8) -
794  2.434312e6 * pow(sh, 9) + 1.206688e6 * pow(sh, 10) -
795  345954. * pow(sh, 11) + 158816. * pow(sh, 12) -
796  132224. * pow(sh, 13) - 435459. * pow(sh, 14) +
797  2.009791e6 * pow(sh, 15) - 3.32854e6 * pow(sh, 16) +
798  895300. * pow(sh, 17) + 6.5037e6 * pow(sh, 18) -
799  1.38369e7 * pow(sh, 19) + 1.50031e7 * pow(sh, 20) -
800  1.02879e7 * pow(sh, 21) + 4.6809e6 * pow(sh, 22) -
801  1.4084e6 * pow(sh, 23) + 268800. * pow(sh, 24) -
802  29400. * pow(sh, 25) + 1400. * pow(sh, 26)))) * pow(z, 6);
803  else
804  res += pow(z, 6)*(24.733805819607653 -
805  658.4526886654753 * (1. - sh) -
806  1475.1364432727344 * pow(1. - sh, 2) -
807  3606.730264376797 * pow(1. - sh, 3) -
808  10286.147459271095 * pow(1. - sh, 4) +
809  log(z)*(60.344916140667145 -
810  182.02114574142348 * (1. - sh) +
811  236.5865278308859 * pow(1. - sh, 2) +
812  1085.4690469343443 * pow(1. - sh, 3) +
813  2155.306243897463 * pow(1. - sh, 4)) +
814  (-7.148148148148148 + sh +
815  120.49135802469135 * pow(1. - sh, 2) +
816  264.53827160493825 * pow(1. - sh, 3) +
817  620.7407407407408 * pow(1. - sh, 4)) * pow(log(z), 2));
818  }
819 
820  if (13 <= maxpow) {
821  if (sh < .900001)
822  res += 0.000011959607919203879 * pow(3.141592653589793, 2) *
823  pow(sh, -11)*(693. + 9450. * sh + 60305. * pow(sh, 2) +
824  238200. * pow(sh, 3) + 642234. * pow(sh, 4) +
825  1.173308e6 * pow(sh, 5) + 642234. * pow(sh, 6) +
826  238200. * pow(sh, 7) + 60305. * pow(sh, 8) +
827  9450. * pow(sh, 9) + 693. * pow(sh, 10)) * pow(z, 6.5);
828  else
829  res += (362.9710404207588 + 2177.8262425245525 * (1. - sh) +
830  7894.6201291515035 * pow(1. - sh, 2) +
831  22231.97622577148 * pow(1. - sh, 3) +
832  53453.96732767853 * pow(1. - sh, 4)) * pow(z, 6.5);
833  }
834 
835  if (14 <= maxpow) {
836  if (sh < .900001)
837  res += (15.671260367117672 * pow(-1 + sh, -3) * pow(sh, -5) -
838  13.037037037037036 * Li3sh * pow(-1 + sh, -3) * pow(sh, -5) +
839  4.345679012345679 * pow(Lsh, 3) * pow(-1 + sh, -3) *
840  pow(sh, -5) - 0.35555555555555557 * cl2 * sqrt4sh * sqrtsh *
841  pow(sh, 3)*(252. - 1383. * sh - 342. * pow(sh, 2) +
842  2808. * pow(sh, 3) - 2380. * pow(sh, 4) +
843  870. * pow(sh, 5) - 150. * pow(sh, 6) + 10. * pow(sh, 7)) -
844  0.005643738977072311 * ash * sqrt4sh * sqrtsh *
845  pow(-1 + sh, -3) * pow(sh, 3)*
846  (-28035. + 242727. * sh - 521748. * pow(sh, 2) +
847  32319. * pow(sh, 3) + 1.309096e6 * pow(sh, 4) -
848  2.07882e6 * pow(sh, 5) + 1.572282e6 * pow(sh, 6) -
849  674165. * pow(sh, 7) + 166995. * pow(sh, 8) -
850  22266. * pow(sh, 9) + 1237. * pow(sh, 10)) +
851  0.05925925925925926 * Li2sh * pow(-1 + sh, -8) * pow(sh, -6)*
852  (-880. + 6748. * sh - 22484. * pow(sh, 2) +
853  42350. * pow(sh, 3) - 48950. * pow(sh, 4) +
854  34980. * pow(sh, 5) - 14476. * pow(sh, 6) +
855  2770. * pow(sh, 7) - 11. * pow(sh, 11) + 3. * pow(sh, 12)) +
856  1.0666666666666667 * pow(ash, 2) * pow(-1 + sh, -4) *
857  pow(sh, 3)*(-70. + 1890. * sh - 9345. * pow(sh, 2) +
858  15946. * pow(sh, 3) - 39510. * pow(sh, 5) +
859  66255. * pow(sh, 6) - 56700. * pow(sh, 7) +
860  29358. * pow(sh, 8) - 9520. * pow(sh, 9) +
861  1890. * pow(sh, 10) - 210. * pow(sh, 11) + 10. * pow(sh, 12))
862  - Lsh * (-13.037037037037036 * Li2sh * pow(-1 + sh, -3) *
863  pow(sh, -5) + 0.35555555555555557 * ash * sqrt4sh *
864  sqrtsh * pow(sh, 3)*
865  (252. - 1383. * sh - 342. * pow(sh, 2) +
866  2808. * pow(sh, 3) - 2380. * pow(sh, 4) +
867  870. * pow(sh, 5) - 150. * pow(sh, 6) + 10. * pow(sh, 7))\
868  + 1.1197894795778394e-6 * pow(-1 + sh, -8) *
869  pow(sh, -12)*(-3900. - 100. * sh +
870  116036. * pow(sh, 2) + 329570. * pow(sh, 3) -
871  93490. * pow(sh, 4) - 1.36222e6 * pow(sh, 5) +
872  140. * (-163613. + 332640. * Lshb) * pow(sh, 6) -
873  2. * (-5.1887161e7 + 1.7855208e8 * Lshb +
874  4.851e6 * pow(3.141592653589793, 2)) * pow(sh, 7) +
875  2. * (-9.0883589e7 + 5.9492664e8 * Lshb +
876  2.4255e7 * pow(3.141592653589793, 2)) * pow(sh, 8)\
877  - 880. * (-178124. + 2.546775e6 * Lshb +
878  110250. * pow(3.141592653589793, 2)) * pow(sh, 9) +
879  5. * (-1.1387749e7 + 5.180868e8 * Lshb +
880  1.9404e7 * pow(3.141592653589793, 2)) * pow(sh, 10)\
881  - 5. * (1.387987e6 + 3.7022832e8 * Lshb +
882  9.702e6 * pow(3.141592653589793, 2)) * pow(sh, 11)\
883  + (1.1437831e7 + 7.6606992e8 * Lshb +
884  9.702e6 * pow(3.141592653589793, 2)) * pow(sh, 12)\
885  - 28. * (18397. + 5.2353e6 * Lshb) * pow(sh, 13) -
886  936145. * pow(sh, 14) + 351575. * pow(sh, 15) +
887  587265. * pow(sh, 16) +
888  1176. * (-38. + 495. * Lshb) * pow(sh, 17) -
889  294. * (61. + 540. * Lshb) * pow(sh, 18))) -
890  0.00023515579071134627 * pow(Lsh, 2) * pow(-1 + sh, -9) *
891  pow(sh, -12)*(60. + 340. * sh + 312. * pow(sh, 2) -
892  1872. * pow(sh, 3) - 4980. * pow(sh, 4) -
893  1620. * pow(sh, 5) - 92970. * pow(sh, 6) +
894  (934391. - 27720. * Lshb) * pow(sh, 7) +
895  30. * (-97057. + 5544. * Lshb) * pow(sh, 8) +
896  (4.537599e6 - 415800. * Lshb) * pow(sh, 9) +
897  5. * (-756467. + 110880. * Lshb) * pow(sh, 10) -
898  15. * (-89267. + 27720. * Lshb) * pow(sh, 11) +
899  6. * (48563. + 27720. * Lshb) * pow(sh, 12) -
900  10. * (40823. + 2772. * Lshb) * pow(sh, 13) +
901  99792. * pow(sh, 14) + 1386. * pow(sh, 17) -
902  1764. * pow(sh, 18) + 378. * pow(sh, 19)) -
903  0.00023515579071134627 * pow(lz, 2) * pow(sh, -12)*
904  (-15. - 220. * sh - 1518. * pow(sh, 2) - 6534. * pow(sh, 3) -
905  19503. * pow(sh, 4) - 41580. * pow(sh, 5) +
906  34650. * pow(sh, 6) - 11094. * pow(sh, 7) +
907  2061. * pow(sh, 8) + 13740. * pow(sh, 9) +
908  12253. * pow(sh, 10) + 15. * pow(sh, 11) +
909  52920. * pow(sh, 12) + 55188. * pow(sh, 13) +
910  61992. * pow(sh, 14) + 49140. * pow(sh, 15) +
911  706860. * pow(sh, 16) - 807030. * pow(sh, 17) -
912  1.307124e6 * pow(sh, 18) + 2.391984e6 * pow(sh, 19) -
913  1.45908e6 * pow(sh, 20) + 434700. * pow(sh, 21) -
914  64260. * pow(sh, 22) + 3780. * pow(sh, 23)) -
915  lz * (6.518518518518518 * pow(Lsh, 2) * pow(-1 + sh, -3) *
916  pow(sh, -5) + 0.7111111111111111 * ash * sqrt4sh * sqrtsh *
917  pow(sh, 3)*(252. - 1383. * sh - 342. * pow(sh, 2) +
918  2808. * pow(sh, 3) - 2380. * pow(sh, 4) +
919  870. * pow(sh, 5) - 150. * pow(sh, 6) + 10. * pow(sh, 7))\
920  + 0.00047031158142269255 * Lsh * pow(-1 + sh, -8) *
921  pow(sh, -12)*(30. + 200. * sh + 356. * pow(sh, 2) -
922  580. * pow(sh, 3) - 3070. * pow(sh, 4) -
923  3880. * pow(sh, 5) - 95410. * pow(sh, 6) +
924  738379. * pow(sh, 7) - 2.056331e6 * pow(sh, 8) +
925  3.10735e6 * pow(sh, 9) - 2.878135e6 * pow(sh, 10) +
926  1.70477e6 * pow(sh, 11) - 636256. * pow(sh, 12) +
927  132944. * pow(sh, 13) - 2380. * pow(sh, 14) -
928  2065. * pow(sh, 15) + 315. * pow(sh, 16) -
929  168. * pow(sh, 17) + 231. * pow(sh, 18)) -
930  3.39330145326618e-8 * pow(-1 + sh, -7) * pow(sh, -12)*
931  (64350. + 66000. * sh - 1.848594e6 * pow(sh, 2) -
932  7.286499e6 * pow(sh, 3) - 5.743914e6 * pow(sh, 4) +
933  1.6732716e7 * pow(sh, 5) + 8.36674146e8 * pow(sh, 6) -
934  3.086059581e9 * pow(sh, 7) +
935  2.920757103e9 * pow(sh, 8) +
936  4.213007403e9 * pow(sh, 9) -
937  1.3030540952e10 * pow(sh, 10) +
938  1.3445244908e10 * pow(sh, 11) -
939  5.400217599e9 * pow(sh, 12) -
940  4.838723267e9 * pow(sh, 13) +
941  1.4220596345e10 * pow(sh, 14) -
942  1.7384453508e10 * pow(sh, 15) +
943  7.769749144e9 * pow(sh, 16) +
944  1.428417884e9 * pow(sh, 17) +
945  4.8744289353e10 * pow(sh, 18) -
946  1.85048020584e11 * pow(sh, 19) +
947  2.17589171184e11 * pow(sh, 20) +
948  1.46917624392e11 * pow(sh, 21) -
949  8.1335313675e11 * pow(sh, 22) +
950  1.2454621641e12 * pow(sh, 23) -
951  1.1155514832e12 * pow(sh, 24) +
952  6.5679027876e11 * pow(sh, 25) -
953  2.615261418e11 * pow(sh, 26) +
954  6.977252898e10 * pow(sh, 27) -
955  1.19369943e10 * pow(sh, 28) +
956  1.18203624e9 * pow(sh, 29) - 5.143446e7 * pow(sh, 30)))
957  - 2.4482694468009954e-12 * pow(-1 + sh, -8) * pow(sh, -12)*
958  (-2.074545e8 + 4.76982e8 * sh +
959  3.223561968e9 * pow(sh, 2) -
960  1.2229671465e10 * pow(sh, 3) -
961  5.5118379195e10 * pow(sh, 4) +
962  5.758493697e10 * pow(sh, 5) +
963  3.34335296988e13 * pow(sh, 6) -
964  2.46183339844728e14 * pow(sh, 7) +
965  7.88493088730853e14 * pow(sh, 8) -
966  1.41978242154342e15 * pow(sh, 9) +
967  1.554606048182275e15 * pow(sh, 10) -
968  1.04527795567331e15 * pow(sh, 11) +
969  4.00804930228849e14 * pow(sh, 12) +
970  4.89753913432e12 * pow(sh, 13) -
971  2.6147112177326e14 * pow(sh, 14) +
972  4.2032307297505e14 * pow(sh, 15) -
973  3.35740716930395e14 * pow(sh, 16) +
974  2.57962579027846e14 * pow(sh, 17) -
975  1.575614131965377e15 * pow(sh, 18) +
976  5.472481687455111e15 * pow(sh, 19) -
977  8.337459144709044e15 * pow(sh, 20) +
978  1.620077584398966e15 * pow(sh, 21) +
979  1.7052028891101666e16 * pow(sh, 22) -
980  3.5835539060836744e16 * pow(sh, 23) +
981  4.028199224768888e16 * pow(sh, 24) -
982  2.974451143108045e16 * pow(sh, 25) +
983  1.5207708416925024e16 * pow(sh, 26) -
984  5.427604622626956e15 * pow(sh, 27) +
985  1.32696547935336e15 * pow(sh, 28) -
986  2.1153689203878e14 * pow(sh, 29) +
987  1.97724893751e13 * pow(sh, 30) -
988  8.2047522942e11 * pow(sh, 31) +
989  3.20166e7 * pow(3.141592653589793, 2)*
990  (90. + 600. * sh + 1068. * pow(sh, 2) -
991  1740. * pow(sh, 3) - 9210. * pow(sh, 4) -
992  11640. * pow(sh, 5) - 771330. * pow(sh, 6) +
993  5.877289e6 * pow(sh, 7) - 1.8209993e7 * pow(sh, 8) +
994  3.175429e7 * pow(sh, 9) - 3.4335085e7 * pow(sh, 10) +
995  2.335241e7 * pow(sh, 11) - 9.338992e6 * pow(sh, 12) +
996  1.311716e6 * pow(sh, 13) + 1.360208e6 * pow(sh, 14) -
997  2.228227e6 * pow(sh, 15) + 3.717793e6 * pow(sh, 16) -
998  1.4308436e7 * pow(sh, 17) +
999  4.9487425e7 * pow(sh, 18) -
1000  9.6430764e7 * pow(sh, 19) +
1001  7.2149616e7 * pow(sh, 20) +
1002  1.14281496e8 * pow(sh, 21) -
1003  4.10382504e8 * pow(sh, 22) +
1004  6.13666368e8 * pow(sh, 23) -
1005  5.83391592e8 * pow(sh, 24) +
1006  3.84934788e8 * pow(sh, 25) -
1007  1.80700632e8 * pow(sh, 26) +
1008  6.0198768e7 * pow(sh, 27) - 1.389528e7 * pow(sh, 28) +
1009  2.10924e6 * pow(sh, 29) - 189000. * pow(sh, 30) +
1010  7560. * pow(sh, 31)))) * pow(z, 7);
1011  else
1012  res += pow(z, 7)*(71.68678327155476 -
1013  2907.1819685415394 * (1. - sh) -
1014  7242.316104312352 * pow(1. - sh, 2) -
1015  19566.456626720403 * pow(1. - sh, 3) -
1016  62593.82522143261 * pow(1. - sh, 4) +
1017  log(z)*(209.6252762986713 -
1018  843.5722636566957 * (1. - sh) +
1019  1005.2636076321755 * pow(1. - sh, 2) +
1020  5346.8253794058 * pow(1. - sh, 3) +
1021  10582.64385187247 * pow(1. - sh, 4)) +
1022  (-23.82716049382716 -
1023  10.365432098765432 * (1. - sh) +
1024  574.3111111111111 * pow(1. - sh, 2) +
1025  1325.2987654320987 * pow(1. - sh, 3) +
1026  3439.3086419753085 * pow(1. - sh, 4)) * pow(log(z), 2));
1027  }
1028 
1029  if (15 <= maxpow) {
1030  if (sh < .900001)
1031  res += 2.0239336478652717e-6 * pow(3.141592653589793, 2) * pow(sh, -13)*
1032  (3003. + 47124. * sh + 349398. * pow(sh, 2) +
1033  1.62554e6 * pow(sh, 3) + 5.297685e6 * pow(sh, 4) +
1034  1.265412e7 * pow(sh, 5) + 2.15477e7 * pow(sh, 6) +
1035  1.265412e7 * pow(sh, 7) + 5.297685e6 * pow(sh, 8) +
1036  1.62554e6 * pow(sh, 9) + 349398. * pow(sh, 10) +
1037  47124. * pow(sh, 11) + 3003. * pow(sh, 12)) * pow(z, 7.5);
1038  else
1039  res += (1228.5173675779529 + 8599.62157304567 * (1. - sh) +
1040  35504.151923002835 * pow(1. - sh, 2) +
1041  112040.7839231093 * pow(1. - sh, 3) +
1042  298286.2106289405 * pow(1. - sh, 4)) * pow(z, 7.5);
1043  }
1044 
1045  if (16 <= maxpow) {
1046  if (sh < .900001)
1047  res += (43.6556538798278 * pow(-1 + sh, -3) * pow(sh, -6) -
1048  36.317460317460316 * Li3sh * pow(-1 + sh, -3) * pow(sh, -6) +
1049  12.105820105820106 * pow(Lsh, 3) * pow(-1 + sh, -3) *
1050  pow(sh, -6) + 1.9555555555555555 * cl2 * sqrt4sh * sqrtsh *
1051  pow(sh, 3)*(16. - 564. * sh + 2004. * pow(sh, 2) +
1052  294. * pow(sh, 3) - 4650. * pow(sh, 4) +
1053  5035. * pow(sh, 5) - 2500. * pow(sh, 6) +
1054  660. * pow(sh, 7) - 90. * pow(sh, 8) + 5. * pow(sh, 9)) +
1055  0.0007054673721340388 * ash * sqrt4sh * sqrtsh *
1056  pow(-1 + sh, -3) * pow(sh, 3)*
1057  (-85472. + 3.302568e6 * sh - 2.0385756e7 * pow(sh, 2) +
1058  4.0397342e7 * pow(sh, 3) - 3.614472e6 * pow(sh, 4) -
1059  1.04197295e8 * pow(sh, 5) + 1.83802625e8 * pow(sh, 6) -
1060  1.60798287e8 * pow(sh, 7) + 8.4097289e7 * pow(sh, 8) -
1061  2.7378339e7 * pow(sh, 9) + 5.441121e6 * pow(sh, 10) -
1062  604569. * pow(sh, 11) + 28789. * pow(sh, 12)) -
1063  5.866666666666666 * pow(ash, 2) * pow(-1 + sh, -4) * pow(sh, 4)*
1064  (280. - 3850. * sh + 16128. * pow(sh, 2) -
1065  26340. * pow(sh, 3) + 69345. * pow(sh, 5) -
1066  126120. * pow(sh, 6) + 121044. * pow(sh, 7) -
1067  73080. * pow(sh, 8) + 29050. * pow(sh, 9) -
1068  7600. * pow(sh, 10) + 1260. * pow(sh, 11) -
1069  120. * pow(sh, 12) + 5. * pow(sh, 13)) +
1070  0.0014109347442680777 * Li2sh * pow(-1 + sh, -9) * pow(sh, -7)*
1071  (115830. - 1.00518e6 * sh + 3.85476e6 * pow(sh, 2) -
1072  8.55036e6 * pow(sh, 3) + 1.203202e7 * pow(sh, 4) -
1073  1.104103e7 * pow(sh, 5) + 6.48648e6 * pow(sh, 6) -
1074  2.24796e6 * pow(sh, 7) + 352374. * pow(sh, 8) -
1075  455. * pow(sh, 13) + 140. * pow(sh, 14)) -
1076  Lsh * (-36.317460317460316 * Li2sh * pow(-1 + sh, -3) *
1077  pow(sh, -6) - 1.9555555555555555 * ash * sqrt4sh * sqrtsh *
1078  pow(sh, 3)*(16. - 564. * sh + 2004. * pow(sh, 2) +
1079  294. * pow(sh, 3) - 4650. * pow(sh, 4) +
1080  5035. * pow(sh, 5) - 2500. * pow(sh, 6) +
1081  660. * pow(sh, 7) - 90. * pow(sh, 8) + 5. * pow(sh, 9)) +
1082  1.1997744424048278e-7 * pow(-1 + sh, -9) * pow(sh, -14)*
1083  (23625. + 2250. * sh - 884825. * pow(sh, 2) -
1084  3.042036e6 * pow(sh, 3) - 226209. * pow(sh, 4) +
1085  1.547673e7 * pow(sh, 5) + 1.7445585e7 * pow(sh, 6) -
1086  90. * (-7.706801e6 + 1.513512e7 * Lshb) * pow(sh, 7) +
1087  (-4.511940709e9 + 1.18209168e10 * Lshb +
1088  2.52252e8 * pow(3.141592653589793, 2)) * pow(sh, 8)\
1089  - 78. * (-1.49774363e8 + 5.811792e8 * Lshb +
1090  1.9404e7 * pow(3.141592653589793, 2)) * pow(sh, 9)\
1091  + 45. * (-3.71984831e8 + 2.23449408e9 * Lshb +
1092  8.4084e7 * pow(3.141592653589793, 2)) * pow(sh, 10)\
1093  - 2860. * (-5.103001e6 + 4.947432e7 * Lshb +
1094  1.764e6 * pow(3.141592653589793, 2)) * pow(sh, 11)\
1095  + 5. * (-1.592356747e9 + 2.596850256e10 * Lshb +
1096  7.56756e8 * pow(3.141592653589793, 2)) * pow(sh, 12)
1097  - 6. * (-4.63805653e8 + 1.27135008e10 * Lshb +
1098  2.52252e8 * pow(3.141592653589793, 2)) * pow(sh, 13)
1099  + 3. * (-2.34797011e8 + 8.8120032e9 * Lshb +
1100  8.4084e7 * pow(3.141592653589793, 2)) * pow(sh, 14)\
1101  - 70. * (-1.717333e6 + 5.9198832e7 * Lshb) *
1102  pow(sh, 15) - 1.488018e7 * pow(sh, 16) -
1103  1.051134e7 * pow(sh, 17) + 4.314492e6 * pow(sh, 18) +
1104  5.300568e6 * pow(sh, 19) +
1105  4200. * (-185. + 1274. * Lshb) * pow(sh, 20) -
1106  1400. * (85. + 1176. * Lshb) * pow(sh, 21))) -
1107  0.00010078105316200554 * pow(Lsh, 2) * pow(-1 + sh, -10) *
1108  pow(sh, -14)*(-105. - 705. * sh - 1085. * pow(sh, 2) +
1109  3227. * pow(sh, 3) + 12621. * pow(sh, 4) +
1110  7077. * pow(sh, 5) - 23415. * pow(sh, 6) +
1111  716940. * pow(sh, 7) +
1112  (-7.485607e6 + 180180. * Lshb) * pow(sh, 8) -
1113  14. * (-2.017121e6 + 90090. * Lshb) * pow(sh, 9) +
1114  12012. * (-4661. + 315. * Lshb) * pow(sh, 10) -
1115  2100. * (-30895. + 3003. * Lshb) * pow(sh, 11) +
1116  35. * (-1.228621e6 + 180180. * Lshb) * pow(sh, 12) -
1117  14. * (-875647. + 270270. * Lshb) * pow(sh, 13) +
1118  14. * (198131. + 90090. * Lshb) * pow(sh, 14) -
1119  2. * (1.519451e6 + 90090. * Lshb) * pow(sh, 15) +
1120  645645. * pow(sh, 16) + 3185. * pow(sh, 20) -
1121  4165. * pow(sh, 21) + 980. * pow(sh, 22)) +
1122  0.000025195263290501386 * pow(lz, 2) * pow(sh, -14)*
1123  (105. + 1755. * sh + 13910. * pow(sh, 2) +
1124  69498. * pow(sh, 3) + 244959. * pow(sh, 4) +
1125  642213. * pow(sh, 5) + 1.26126e6 * pow(sh, 6) -
1126  1.08108e6 * pow(sh, 7) + 433071. * pow(sh, 8) +
1127  67773. * pow(sh, 9) - 377694. * pow(sh, 10) -
1128  501530. * pow(sh, 11) - 344895. * pow(sh, 12) -
1129  105. * pow(sh, 13) - 1.55232e6 * pow(sh, 14) -
1130  1.591128e6 * pow(sh, 15) - 1.707552e6 * pow(sh, 16) -
1131  1.9404e6 * pow(sh, 17) + 3.10464e6 * pow(sh, 18) -
1132  5.588352e7 * pow(sh, 19) + 6.4731744e7 * pow(sh, 20) +
1133  9.7485696e7 * pow(sh, 21) - 2.250864e8 * pow(sh, 22) +
1134  1.751211e8 * pow(sh, 23) - 7.101864e7 * pow(sh, 24) +
1135  1.610532e7 * pow(sh, 25) - 1.9404e6 * pow(sh, 26) +
1136  97020. * pow(sh, 27)) -
1137  lz * (18.158730158730158 * pow(Lsh, 2) * pow(-1 + sh, -3) *
1138  pow(sh, -6) - 3.911111111111111 * ash * sqrt4sh * sqrtsh *
1139  pow(sh, 3)*(16. - 564. * sh + 2004. * pow(sh, 2) +
1140  294. * pow(sh, 3) - 4650. * pow(sh, 4) +
1141  5035. * pow(sh, 5) - 2500. * pow(sh, 6) +
1142  660. * pow(sh, 7) - 90. * pow(sh, 8) + 5. * pow(sh, 9)) +
1143  0.00010078105316200554 * Lsh * pow(-1 + sh, -9) *
1144  pow(sh, -14)*(-105. - 810. * sh - 1895. * pow(sh, 2) +
1145  1332. * pow(sh, 3) + 13953. * pow(sh, 4) +
1146  21030. * pow(sh, 5) - 2385. * pow(sh, 6) +
1147  1.39023e6 * pow(sh, 7) - 1.2340463e7 * pow(sh, 8) +
1148  4.2069858e7 * pow(sh, 9) - 7.9546665e7 * pow(sh, 10) +
1149  9.44649e7 * pow(sh, 11) - 7.3941065e7 * pow(sh, 12) +
1150  3.83046e7 * pow(sh, 13) - 1.2446415e7 * pow(sh, 14) +
1151  1.976646e6 * pow(sh, 15) + 12600. * pow(sh, 16) -
1152  15820. * pow(sh, 17) - 9744. * pow(sh, 18) +
1153  2604. * pow(sh, 19) - 630. * pow(sh, 20) +
1154  910. * pow(sh, 21)) +
1155  1.398338510961338e-10 * pow(-1 + sh, -8) * pow(sh, -14)*
1156  (1.0135125e7 + 1.1100375e7 * sh -
1157  3.6848955e8 * pow(sh, 2) -
1158  1.673522994e9 * pow(sh, 3) -
1159  1.770566655e9 * pow(sh, 4) +
1160  4.868950515e9 * pow(sh, 5) +
1161  1.235310648e10 * pow(sh, 6) +
1162  6.7286773554e11 * pow(sh, 7) -
1163  3.536335413468e12 * pow(sh, 8) +
1164  6.50817484746e12 * pow(sh, 9) -
1165  2.54454845502e12 * pow(sh, 10) -
1166  9.21737859458e12 * pow(sh, 11) +
1167  1.734525157846e13 * pow(sh, 12) -
1168  1.3825678158092e13 * pow(sh, 13) +
1169  6.1111523809e12 * pow(sh, 14) -
1170  5.967579184772e12 * pow(sh, 15) +
1171  1.5549203270443e13 * pow(sh, 16) -
1172  2.5319186594687e13 * pow(sh, 17) +
1173  2.6298770135182e13 * pow(sh, 18) -
1174  2.5191363944162e13 * pow(sh, 19) +
1175  5.842005220263e12 * pow(sh, 20) +
1176  1.75096058403693e14 * pow(sh, 21) -
1177  6.63423072171552e14 * pow(sh, 22) +
1178  1.020989867585688e15 * pow(sh, 23) -
1179  8.1473828147712e13 * pow(sh, 24) -
1180  2.68267039048008e15 * pow(sh, 25) +
1181  5.80722293943792e15 * pow(sh, 26) -
1182  7.01674940414448e15 * pow(sh, 27) +
1183  5.70997655452224e15 * pow(sh, 28) -
1184  3.30275638300608e15 * pow(sh, 29) +
1185  1.37813214547008e15 * pow(sh, 30) -
1186  4.1220913139406e14 * pow(sh, 31) +
1187  8.614194412824e13 * pow(sh, 32) -
1188  1.192739023476e13 * pow(sh, 33) +
1189  9.8172946872e11 * pow(sh, 34) -
1190  3.631041414e10 * pow(sh, 35))) -
1191  3.8803932483109607e-16 * pow(-1 + sh, -9) * pow(sh, -14)*
1192  (7.34806697625e11 - 1.86465740175e12 * sh -
1193  1.3539275231625e13 * pow(sh, 2) +
1194  6.7027116030732e13 * pow(sh, 3) +
1195  3.63276406618983e14 * pow(sh, 4) +
1196  7.707518005473e13 * pow(sh, 5) -
1197  2.669628886797015e15 * pow(sh, 6) -
1198  6.770358403959922e17 * pow(sh, 7) +
1199  5.635158490072595e18 * pow(sh, 8) -
1200  2.0599256704963682e19 * pow(sh, 9) +
1201  4.3339042510046585e19 * pow(sh, 10) -
1202  5.744182115659437e19 * pow(sh, 11) +
1203  4.931522650068433e19 * pow(sh, 12) -
1204  2.7187236012238836e19 * pow(sh, 13) +
1205  9.574972725219654e18 * pow(sh, 14) -
1206  3.9829978513193257e18 * pow(sh, 15) +
1207  7.101765583473753e18 * pow(sh, 16) -
1208  1.3106460108909054e19 * pow(sh, 17) +
1209  1.6417164883861897e19 * pow(sh, 18) -
1210  1.614980340692014e19 * pow(sh, 19) +
1211  1.6686933598961236e18 * pow(sh, 20) +
1212  1.0406361743628665e20 * pow(sh, 21) -
1213  4.1780318877359584e20 * pow(sh, 22) +
1214  7.917494561077571e20 * pow(sh, 23) -
1215  5.495025478671567e20 * pow(sh, 24) -
1216  9.680750952822325e20 * pow(sh, 25) +
1217  3.329447282273382e21 * pow(sh, 26) -
1218  5.025975451497482e21 * pow(sh, 27) +
1219  4.956441109581607e21 * pow(sh, 28) -
1220  3.485807792682049e21 * pow(sh, 29) +
1221  1.7988128583543858e21 * pow(sh, 30) -
1222  6.841200805238499e20 * pow(sh, 31) +
1223  1.8949802366821115e20 * pow(sh, 32) -
1224  3.71347919316412e19 * pow(sh, 33) +
1225  4.870681746866896e18 * pow(sh, 34) -
1226  3.8293915404046304e17 * pow(sh, 35) +
1227  1.362249094884678e16 * pow(sh, 36) -
1228  4.32864432e10 * pow(3.141592653589793, 2)*
1229  (315. + 2430. * sh + 5685. * pow(sh, 2) -
1230  3996. * pow(sh, 3) - 41859. * pow(sh, 4) -
1231  63090. * pow(sh, 5) + 7155. * pow(sh, 6) -
1232  1.119771e7 * pow(sh, 7) + 9.7239319e7 * pow(sh, 8) -
1233  3.54595974e8 * pow(sh, 9) +
1234  7.40399865e8 * pow(sh, 10) -
1235  9.8372572e8 * pow(sh, 11) +
1236  8.60053945e8 * pow(sh, 12) -
1237  4.8766596e8 * pow(sh, 13) +
1238  1.66863615e8 * pow(sh, 14) -
1239  3.4122042e7 * pow(sh, 15) + 2.632797e7 * pow(sh, 16) -
1240  5.075218e7 * pow(sh, 17) + 5.5929402e7 * pow(sh, 18) +
1241  5.4364188e7 * pow(sh, 19) -
1242  7.17712236e8 * pow(sh, 20) +
1243  2.87081535e9 * pow(sh, 21) -
1244  6.45842757e9 * pow(sh, 22) +
1245  7.27388046e9 * pow(sh, 23) +
1246  2.42462682e9 * pow(sh, 24) -
1247  2.5172149464e10 * pow(sh, 25) +
1248  5.057866044e10 * pow(sh, 26) -
1249  6.234146226e10 * pow(sh, 27) +
1250  5.421545514e10 * pow(sh, 28) -
1251  3.47700276e10 * pow(sh, 29) +
1252  1.6675099056e10 * pow(sh, 30) -
1253  5.96740914e9 * pow(sh, 31) +
1254  1.5692985e9 * pow(sh, 32) - 2.939706e8 * pow(sh, 33) +
1255  3.706164e7 * pow(sh, 34) - 2.81358e6 * pow(sh, 35) +
1256  97020. * pow(sh, 36)))) * pow(z, 8);
1257  else
1258  res += pow(z, 8)*(227.9127121130888 -
1259  12564.351589175983 * (1. - sh) -
1260  34464.767151214546 * pow(1. - sh, 2) -
1261  102040.51747314115 * pow(1. - sh, 3) -
1262  362196.8892583663 * pow(1. - sh, 4) +
1263  log(z)*(751.6870505074294 -
1264  3757.8602857129536 * (1. - sh) +
1265  4373.596775680889 * pow(1. - sh, 2) +
1266  26074.528627752614 * pow(1. - sh, 3) +
1267  50226.02585572963 * pow(1. - sh, 4)) +
1268  (-91.85185185185185 - 59.74814814814815 * (1. - sh) +
1269  2707.866666666667 * pow(1. - sh, 2) +
1270  6532.044444444445 * pow(1. - sh, 3) +
1271  18560.308994708994 * pow(1. - sh, 4)) * pow(log(z), 2));
1272  }
1273 
1274  if (17 <= maxpow) {
1275  if (sh < .900001)
1276  res += 7.222665174734891e-7 * pow(3.141592653589793, 2) * pow(sh, -15)*
1277  (6435. + 114114. * sh + 962577. * pow(sh, 2) +
1278  5.137524e6 * pow(sh, 3) + 1.9445755e7 * pow(sh, 4) +
1279  5.526435e7 * pow(sh, 5) + 1.20557265e8 * pow(sh, 6) +
1280  1.9446652e8 * pow(sh, 7) + 1.20557265e8 * pow(sh, 8) +
1281  5.526435e7 * pow(sh, 9) + 1.9445755e7 * pow(sh, 10) +
1282  5.137524e6 * pow(sh, 11) + 962577. * pow(sh, 12) +
1283  114114. * pow(sh, 13) + 6435. * pow(sh, 14)) * pow(z, 8.5);
1284  else
1285  res += (4258.8602076035695 + 34070.881660828556 * (1. - sh) +
1286  157790.77069171227 * pow(1. - sh, 2) +
1287  551309.4538742821 * pow(1. - sh, 3) +
1288  1.6090506221852237e6 * pow(1. - sh, 4)) * pow(z, 8.5);
1289  }
1290 
1291  if (18 <= maxpow) {
1292  if (sh < .900001)
1293  res += (127.32899048283109 * pow(-1 + sh, -3) * pow(sh, -7) -
1294  105.92592592592592 * Li3sh * pow(-1 + sh, -3) * pow(sh, -7) +
1295  35.30864197530864 * pow(Lsh, 3) * pow(-1 + sh, -3) *
1296  pow(sh, -7) - 4.035273368606702 * cl2 * sqrt4sh * sqrtsh *
1297  pow(sh, 4)*(-216. + 3134. * sh - 8598. * pow(sh, 2) -
1298  651. * pow(sh, 3) + 21696. * pow(sh, 4) -
1299  28281. * pow(sh, 5) + 17655. * pow(sh, 6) -
1300  6279. * pow(sh, 7) + 1302. * pow(sh, 8) -
1301  147. * pow(sh, 9) + 7. * pow(sh, 10)) -
1302  0.0001567705271408975 * ash * sqrt4sh * sqrtsh *
1303  pow(-1 + sh, -3) * pow(sh, 4)*
1304  (1.1439036e7 - 2.01476662e8 * sh +
1305  9.97505748e8 * pow(sh, 2) - 1.852234251e9 * pow(sh, 3) +
1306  2.01151369e8 * pow(sh, 4) + 4.889181924e9 * pow(sh, 5) -
1307  9.389910087e9 * pow(sh, 6) + 9.234375093e9 * pow(sh, 7) -
1308  5.644419255e9 * pow(sh, 8) + 2.256993135e9 * pow(sh, 9) -
1309  5.91888983e8 * pow(sh, 10) + 9.8193564e7 * pow(sh, 11) -
1310  9.351768e6 * pow(sh, 12) + 389657. * pow(sh, 13)) +
1311  12.105820105820106 * pow(ash, 2) * pow(-1 + sh, -4) *
1312  pow(sh, 4)*(42. - 2268. * sh + 21546. * pow(sh, 2) -
1313  79506. * pow(sh, 3) + 124821. * pow(sh, 4) -
1314  344253. * pow(sh, 6) + 669627. * pow(sh, 7) -
1315  706482. * pow(sh, 8) + 483252. * pow(sh, 9) -
1316  225666. * pow(sh, 10) + 72738. * pow(sh, 11) -
1317  15939. * pow(sh, 12) + 2268. * pow(sh, 13) -
1318  189. * pow(sh, 14) + 7. * pow(sh, 15)) +
1319  0.021164021164021163 * Li2sh * pow(-1 + sh, -10) * pow(sh, -8)*
1320  (-25025. + 242385. * sh - 1.05138e6 * pow(sh, 2) +
1321  2.68422e6 * pow(sh, 3) - 4.45263e6 * pow(sh, 4) +
1322  4.98771e6 * pow(sh, 5) - 3.78378e6 * pow(sh, 6) +
1323  1.88188e6 * pow(sh, 7) - 559845. * pow(sh, 8) +
1324  77077. * pow(sh, 9) - 30. * pow(sh, 15) + 10. * pow(sh, 16))\
1325  - Lsh * (-105.92592592592592 * Li2sh * pow(-1 + sh, -3) *
1326  pow(sh, -7) + 4.035273368606702 * ash * sqrt4sh * sqrtsh *
1327  pow(sh, 4)*(-216. + 3134. * sh - 8598. * pow(sh, 2) -
1328  651. * pow(sh, 3) + 21696. * pow(sh, 4) -
1329  28281. * pow(sh, 5) + 17655. * pow(sh, 6) -
1330  6279. * pow(sh, 7) + 1302. * pow(sh, 8) -
1331  147. * pow(sh, 9) + 7. * pow(sh, 10)) +
1332  2.3328947491204986e-7 * pow(-1 + sh, -10) * pow(sh, -16)*
1333  (-8330. - 1225. * sh + 385185. * pow(sh, 2) +
1334  1.565725e6 * pow(sh, 3) + 766913. * pow(sh, 4) -
1335  8.101569e6 * pow(sh, 5) - 1.6471637e7 * pow(sh, 6) +
1336  1.4354375e7 * pow(sh, 7) +
1337  315. * (-3.976811e6 + 7.2072e6 * Lshb) * pow(sh, 8) -
1338  5. * (-1.972645723e9 + 4.39783344e9 * Lshb +
1339  7.56756e7 * pow(3.141592653589793, 2)) * pow(sh, 9)\
1340  + (-3.2595109307e10 + 9.53811936e10 * Lshb +
1341  2.648646e9 * pow(3.141592653589793, 2)) *
1342  pow(sh, 10) -
1343  105. * (-5.86295389e8 + 2.31916608e9 * Lshb +
1344  7.56756e7 * pow(3.141592653589793, 2)) * pow(sh, 11)
1345  + 35. * (-2.122319939e9 + 1.154121696e10 * Lshb +
1346  3.78378e8 * pow(3.141592653589793, 2)) * pow(sh, 12)
1347  - 35. * (-1.717789469e9 + 1.292814432e10 * Lshb +
1348  3.78378e8 * pow(3.141592653589793, 2)) * pow(sh, 13)
1349  + 21. * (-1.591388717e9 + 1.63459296e10 * Lshb +
1350  3.78378e8 * pow(3.141592653589793, 2)) * pow(sh, 14)
1351  - 77. * (-1.67932339e8 + 2.2171968e9 * Lshb +
1352  3.4398e7 * pow(3.141592653589793, 2)) * pow(sh, 15)\
1353  + 16. * (-2.15122142e8 + 3.17432115e9 * Lshb +
1354  2.3648625e7 * pow(3.141592653589793, 2)) *
1355  pow(sh, 16) +
1356  (5.68573578e8 - 6.99242544e9 * Lshb) * pow(sh, 17) +
1357  1.312353e7 * pow(sh, 18) - 1.3816026e7 * pow(sh, 19) -
1358  5.493852e6 * pow(sh, 20) + 2.810934e6 * pow(sh, 21) +
1359  2.66553e6 * pow(sh, 22) +
1360  810. * (-653. + 3360. * Lshb) * pow(sh, 23) -
1361  405. * (113. + 2240. * Lshb) * pow(sh, 24))) -
1362  0.00014697236919459142 * pow(Lsh, 2) * pow(-1 + sh, -11) *
1363  pow(sh, -16)*(56. + 434. * sh + 920. * pow(sh, 2) -
1364  1480. * pow(sh, 3) - 9184. * pow(sh, 4) -
1365  8932. * pow(sh, 5) + 19712. * pow(sh, 6) +
1366  36344. * pow(sh, 7) - 1.69477e6 * pow(sh, 8) +
1367  (1.8252907e7 - 360360. * Lshb) * pow(sh, 9) +
1368  20. * (-3.973357e6 + 144144. * Lshb) * pow(sh, 10) -
1369  11440. * (-16567. + 882. * Lshb) * pow(sh, 11) +
1370  56. * (-4.950037e6 + 360360. * Lshb) * pow(sh, 12) -
1371  140. * (-1.822739e6 + 180180. * Lshb) * pow(sh, 13) +
1372  224. * (-623131. + 90090. * Lshb) * pow(sh, 14) -
1373  56. * (-585251. + 180180. * Lshb) * pow(sh, 15) +
1374  8. * (968843. + 360360. * Lshb) * pow(sh, 16) -
1375  (6.868451e6 + 360360. * Lshb) * pow(sh, 17) +
1376  1.287e6 * pow(sh, 18) + 2160. * pow(sh, 23) -
1377  2880. * pow(sh, 24) + 720. * pow(sh, 25)) -
1378  0.00007348618459729571 * pow(lz, 2) * pow(sh, -16)*
1379  (-28. - 525. * sh - 4695. * pow(sh, 2) -
1380  26650. * pow(sh, 3) - 107718. * pow(sh, 4) -
1381  329043. * pow(sh, 5) - 782353. * pow(sh, 6) -
1382  1.44144e6 * pow(sh, 7) + 1.26126e6 * pow(sh, 8) -
1383  599831. * pow(sh, 9) - 230937. * pow(sh, 10) +
1384  340854. * pow(sh, 11) + 604990. * pow(sh, 12) +
1385  577095. * pow(sh, 13) + 354945. * pow(sh, 14) +
1386  28. * pow(sh, 15) + 1.729728e6 * pow(sh, 16) +
1387  1.757184e6 * pow(sh, 17) + 1.839552e6 * pow(sh, 18) +
1388  2.004288e6 * pow(sh, 19) + 2.855424e6 * pow(sh, 20) -
1389  2.6138112e7 * pow(sh, 21) + 1.80276096e8 * pow(sh, 22) -
1390  2.04107904e8 * pow(sh, 23) - 2.91953376e8 * pow(sh, 24) +
1391  8.04076416e8 * pow(sh, 25) - 7.54586976e8 * pow(sh, 26) +
1392  3.86127456e8 * pow(sh, 27) - 1.18294176e8 * pow(sh, 28) +
1393  2.1717696e7 * pow(sh, 29) - 2.210208e6 * pow(sh, 30) +
1394  96096. * pow(sh, 31)) -
1395  lz * (52.96296296296296 * pow(Lsh, 2) * pow(-1 + sh, -3) *
1396  pow(sh, -7) + 8.070546737213403 * ash * sqrt4sh * sqrtsh *
1397  pow(sh, 4)*(-216. + 3134. * sh - 8598. * pow(sh, 2) -
1398  651. * pow(sh, 3) + 21696. * pow(sh, 4) -
1399  28281. * pow(sh, 5) + 17655. * pow(sh, 6) -
1400  6279. * pow(sh, 7) + 1302. * pow(sh, 8) -
1401  147. * pow(sh, 9) + 7. * pow(sh, 10)) +
1402  0.00029394473838918284 * Lsh * pow(-1 + sh, -10) *
1403  pow(sh, -16)*(28. + 245. * sh + 705. * pow(sh, 2) -
1404  35. * pow(sh, 3) - 4627. * pow(sh, 4) -
1405  9093. * pow(sh, 5) + 763. * pow(sh, 6) +
1406  18935. * pow(sh, 7) - 1.594215e6 * pow(sh, 8) +
1407  1.5443423e7 * pow(sh, 9) - 6.1656473e7 * pow(sh, 10) +
1408  1.39716843e8 * pow(sh, 11) -
1409  2.03006125e8 * pow(sh, 12) +
1410  1.99413865e8 * pow(sh, 13) -
1411  1.34518335e8 * pow(sh, 14) +
1412  6.1151573e7 * pow(sh, 15) -
1413  1.7326475e7 * pow(sh, 16) + 2.392884e6 * pow(sh, 17) +
1414  25200. * pow(sh, 18) + 3024. * pow(sh, 19) -
1415  7560. * pow(sh, 20) - 3276. * pow(sh, 21) +
1416  1260. * pow(sh, 22) - 180. * pow(sh, 23) +
1417  270. * pow(sh, 24)) +
1418  8.156974647274471e-10 * pow(-1 + sh, -9) * pow(sh, -16)*
1419  (-1.19119e6 - 1.366365e6 * sh +
1420  5.371509e7 * pow(sh, 2) + 2.77613765e8 * pow(sh, 3) +
1421  3.87282324e8 * pow(sh, 4) -
1422  7.71242043e8 * pow(sh, 5) -
1423  3.126686134e9 * pow(sh, 6) -
1424  1.074010509e9 * pow(sh, 7) -
1425  3.93846095214e11 * pow(sh, 8) +
1426  2.613136199245e12 * pow(sh, 9) -
1427  6.74269843533e12 * pow(sh, 10) +
1428  7.676937500739e12 * pow(sh, 11) -
1429  1.9905569996e10 * pow(sh, 12) -
1430  1.1323630699581e13 * pow(sh, 13) +
1431  1.5234053867994e13 * pow(sh, 14) -
1432  9.845078305115e12 * pow(sh, 15) +
1433  2.700610570998e12 * pow(sh, 16) +
1434  3.170609780136e12 * pow(sh, 17) -
1435  1.1930111549088e13 * pow(sh, 18) +
1436  2.3203039225488e13 * pow(sh, 19) -
1437  2.8131676788624e13 * pow(sh, 20) +
1438  1.8366269990976e13 * pow(sh, 21) +
1439  5.86498925406e12 * pow(sh, 22) +
1440  2.8811545081488e13 * pow(sh, 23) -
1441  4.5661550453265e14 * pow(sh, 24) +
1442  1.732122473878368e15 * pow(sh, 25) -
1443  3.197952696667872e15 * pow(sh, 26) +
1444  1.902641717625792e15 * pow(sh, 27) +
1445  5.333806838035104e15 * pow(sh, 28) -
1446  1.7146879255828608e16 * pow(sh, 29) +
1447  2.675706192884525e16 * pow(sh, 30) -
1448  2.8039050515059584e16 * pow(sh, 31) +
1449  2.1385006944917616e16 * pow(sh, 32) -
1450  1.2221439347413296e16 * pow(sh, 33) +
1451  5.277310784521776e15 * pow(sh, 34) -
1452  1.713784020076128e15 * pow(sh, 35) +
1453  4.11671384988864e14 * pow(sh, 36) -
1454  7.0855642249392e13 * pow(sh, 37) +
1455  8.252635735344e12 * pow(sh, 38) -
1456  5.81797087872e11 * pow(sh, 39) +
1457  1.8722239536e10 * pow(sh, 40))) -
1458  1.131781364090697e-15 * pow(-1 + sh, -10) * pow(sh, -16)*
1459  (-1.522039519e11 + 4.26276275425e11 * sh +
1460  3.315607505925e12 * pow(sh, 2) -
1461  1.9935815474575e13 * pow(sh, 3) -
1462  1.24680380503679e14 * pow(sh, 4) -
1463  9.4734104241777e13 * pow(sh, 5) +
1464  6.72219759402191e14 * pow(sh, 6) +
1465  2.120473984303675e15 * pow(sh, 7) +
1466  7.662945656754339e17 * pow(sh, 8) -
1467  7.132526555906264e18 * pow(sh, 9) +
1468  2.9416202534538686e19 * pow(sh, 10) -
1469  7.102049557437948e19 * pow(sh, 11) +
1470  1.107461387150374e20 * pow(sh, 12) -
1471  1.1592296841795374e20 * pow(sh, 13) +
1472  8.202599046107015e19 * pow(sh, 14) -
1473  3.867573016059e19 * pow(sh, 15) +
1474  1.1583790708091849e19 * pow(sh, 16) +
1475  5.455110631455277e16 * pow(sh, 17) -
1476  9.021690519674575e18 * pow(sh, 18) +
1477  2.0989006324251304e19 * pow(sh, 19) -
1478  3.024958551383288e19 * pow(sh, 20) +
1479  2.6235194397528736e19 * pow(sh, 21) -
1480  4.751003778396708e18 * pow(sh, 22) +
1481  3.1013412939244257e19 * pow(sh, 23) -
1482  4.4030880872708604e20 * pow(sh, 24) +
1483  1.8521539756313275e21 * pow(sh, 25) -
1484  4.09723866666257e21 * pow(sh, 26) +
1485  4.4398535867110675e21 * pow(sh, 27) +
1486  1.6558648776187506e21 * pow(sh, 28) -
1487  1.5447456223820402e22 * pow(sh, 29) +
1488  3.0926810843136838e22 * pow(sh, 30) -
1489  3.877106240961276e22 * pow(sh, 31) +
1490  3.495116951810053e22 * pow(sh, 32) -
1491  2.3715466598184745e22 * pow(sh, 33) +
1492  1.231700538915695e22 * pow(sh, 34) -
1493  4.908204594473572e21 * pow(sh, 35) +
1494  1.4885933408647808e21 * pow(sh, 36) -
1495  3.372012167296045e20 * pow(sh, 37) +
1496  5.517431714182939e19 * pow(sh, 38) -
1497  6.150944761142205e18 * pow(sh, 39) +
1498  4.174745980836151e17 * pow(sh, 40) -
1499  1.2998152420597344e16 * pow(sh, 41) +
1500  4.32864432e10 * pow(3.141592653589793, 2)*
1501  (84. + 735. * sh + 2115. * pow(sh, 2) -
1502  105. * pow(sh, 3) - 13881. * pow(sh, 4) -
1503  27279. * pow(sh, 5) + 2289. * pow(sh, 6) +
1504  56805. * pow(sh, 7) - 1.2530385e7 * pow(sh, 8) +
1505  1.20589919e8 * pow(sh, 9) -
1506  5.04052193e8 * pow(sh, 10) +
1507  1.226945139e9 * pow(sh, 11) -
1508  1.939059325e9 * pow(sh, 12) +
1509  2.078426665e9 * pow(sh, 13) -
1510  1.520105055e9 * pow(sh, 14) +
1511  7.36103333e8 * pow(sh, 15) -
1512  2.14713611e8 * pow(sh, 16) +
1513  1.9961346e7 * pow(sh, 17) +
1514  3.7191526e7 * pow(sh, 18) -
1515  8.4336034e7 * pow(sh, 19) +
1516  1.23678654e8 * pow(sh, 20) -
1517  1.54538642e8 * pow(sh, 21) +
1518  5.6921303e8 * pow(sh, 22) -
1519  3.377351682e9 * pow(sh, 23) +
1520  1.3338367312e10 * pow(sh, 24) -
1521  3.3040152232e10 * pow(sh, 25) +
1522  4.7430542016e10 * pow(sh, 26) -
1523  1.4900494752e10 * pow(sh, 27) -
1524  1.03195325376e11 * pow(sh, 28) +
1525  2.85860573856e11 * pow(sh, 29) -
1526  4.41409041216e11 * pow(sh, 30) +
1527  4.79314177056e11 * pow(sh, 31) -
1528  3.90721421376e11 * pow(sh, 32) +
1529  2.45176465248e11 * pow(sh, 33) -
1530  1.19414737728e11 * pow(sh, 34) +
1531  4.5058851552e10 * pow(sh, 35) -
1532  1.3033582848e10 * pow(sh, 36) +
1533  2.831770656e9 * pow(sh, 37) -
1534  4.46462016e8 * pow(sh, 38) +
1535  4.8144096e7 * pow(sh, 39) - 3.171168e6 * pow(sh, 40) +
1536  96096. * pow(sh, 41)))) * pow(z, 9);
1537  else
1538  res += pow(z, 9)*(781.7694061014631 -
1539  53520.67255349783 * (1. - sh) -
1540  160255.89541905606 * pow(1. - sh, 2) -
1541  516295.64539226936 * pow(1. - sh, 3) -
1542  2.0156818718637745e6 * pow(1. - sh, 4) +
1543  log(z)*(2753.339544200989 -
1544  16340.99798716473 * (1. - sh) +
1545  19367.74477240799 * pow(1. - sh, 2) +
1546  126117.45819550043 * pow(1. - sh, 3) +
1547  232002.88921917632 * pow(1. - sh, 4)) +
1548  (-353.1111111111111 - 291.6666666666667 * (1. - sh) +
1549  12631.518518518518 * pow(1. - sh, 2) +
1550  31769.238095238095 * pow(1. - sh, 3) +
1551  98072.45502645502 * pow(1. - sh, 4)) * pow(log(z), 2));
1552  }
1553 
1554  if (19 <= maxpow) {
1555  if (sh < .900001)
1556  res += 3.354178873715894e-8 * pow(3.141592653589793, 2) * pow(sh, -17)*
1557  (109395. + 2.16216e6 * sh + 2.0430696e7 * pow(sh, 2) +
1558  1.22866128e8 * pow(sh, 3) + 5.27900436e8 * pow(sh, 4) +
1559  1.72236568e9 * pow(sh, 5) + 4.41295356e9 * pow(sh, 6) +
1560  8.96714376e9 * pow(sh, 7) + 1.385377093e10 * pow(sh, 8) +
1561  8.96714376e9 * pow(sh, 9) + 4.41295356e9 * pow(sh, 10) +
1562  1.72236568e9 * pow(sh, 11) + 5.27900436e8 * pow(sh, 12) +
1563  1.22866128e8 * pow(sh, 13) + 2.0430696e7 * pow(sh, 14) +
1564  2.16216e6 * pow(sh, 15) + 109395. * pow(sh, 16)) * pow(z, 9.5);
1565  else
1566  res += (15031.271320953776 + 135281.441888584 * (1. - sh) +
1567  694444.7350280645 * pow(1. - sh, 2) +
1568  2.6605350238088183e6 * pow(1. - sh, 3) +
1569  8.443816664545784e6 * pow(1. - sh, 4)) * pow(z, 9.5);
1570  }
1571 
1572  if (20 <= maxpow) {
1573  if (sh < .900001)
1574  res += (384.81650457033396 * pow(-1 + sh, -3) * pow(sh, -8) -
1575  320.13168724279836 * Li3sh * pow(-1 + sh, -3) * pow(sh, -8) +
1576  106.71056241426612 * pow(Lsh, 3) * pow(-1 + sh, -3) *
1577  pow(sh, -8) + 3.0264550264550265 * cl2 * sqrt4sh * sqrtsh *
1578  pow(sh, 4)*(-80. + 5340. * sh - 47370. * pow(sh, 2) +
1579  109970. * pow(sh, 3) + 2889. * pow(sh, 4) -
1580  292716. * pow(sh, 5) + 440556. * pow(sh, 6) -
1581  328734. * pow(sh, 7) + 146475. * pow(sh, 8) -
1582  40768. * pow(sh, 9) + 6972. * pow(sh, 10) -
1583  672. * pow(sh, 11) + 28. * pow(sh, 12)) +
1584  0.00047031158142269255 * ash * sqrt4sh * sqrtsh *
1585  pow(-1 + sh, -3) * pow(sh, 4)*
1586  (1.1035e6 - 7.72587e7 * sh + 8.84076615e8 * pow(sh, 2) -
1587  3.732489695e9 * pow(sh, 3) + 6.571169658e9 * pow(sh, 4) -
1588  8.05040586e8 * pow(sh, 5) -
1589  1.7678698868e10 * pow(sh, 6) +
1590  3.6419080572e10 * pow(sh, 7) -
1591  3.9440395638e10 * pow(sh, 8) +
1592  2.7362254298e10 * pow(sh, 9) -
1593  1.2874702995e10 * pow(sh, 10) +
1594  4.165441731e9 * pow(sh, 11) -
1595  9.14198644e8 * pow(sh, 12) + 1.30140756e8 * pow(sh, 13) -
1596  1.0845063e7 * pow(sh, 14) + 401669. * pow(sh, 15)) -
1597  9.079365079365079 * pow(ash, 2) * pow(-1 + sh, -4) * pow(sh, 5)*
1598  (-1890. + 45864. * sh - 340200. * pow(sh, 2) +
1599  1.13508e6 * pow(sh, 3) - 1.721265e6 * pow(sh, 4) +
1600  4.925592e6 * pow(sh, 6) - 1.01388e7 * pow(sh, 7) +
1601  1.158381e7 * pow(sh, 8) - 8.79228e6 * pow(sh, 9) +
1602  4.68432e6 * pow(sh, 10) - 1.782648e6 * pow(sh, 11) +
1603  482895. * pow(sh, 12) - 91000. * pow(sh, 13) +
1604  11340. * pow(sh, 14) - 840. * pow(sh, 15) + 28. * pow(sh, 16)
1605  ) - 0.0005878894767783657 * Li2sh * pow(-1 + sh, -11) *
1606  pow(sh, -9)*(-2.994992e6 + 3.202199e7 * sh -
1607  1.54990836e8 * pow(sh, 2) + 4.47615168e8 * pow(sh, 3) -
1608  8.5514352e8 * pow(sh, 4) + 1.130787504e9 * pow(sh, 5) -
1609  1.04997984e9 * pow(sh, 6) + 6.77511744e8 * pow(sh, 7) -
1610  2.91603312e8 * pow(sh, 8) + 7.589582e7 * pow(sh, 9) -
1611  9.069632e6 * pow(sh, 10) + 1071. * pow(sh, 17) -
1612  378. * pow(sh, 18)) -
1613  Lsh * (-320.13168724279836 * Li2sh * pow(-1 + sh, -3) *
1614  pow(sh, -8) - 3.0264550264550265 * ash * sqrt4sh * sqrtsh *
1615  pow(sh, 4)*(-80. + 5340. * sh - 47370. * pow(sh, 2) +
1616  109970. * pow(sh, 3) + 2889. * pow(sh, 4) -
1617  292716. * pow(sh, 5) + 440556. * pow(sh, 6) -
1618  328734. * pow(sh, 7) + 146475. * pow(sh, 8) -
1619  40768. * pow(sh, 9) + 6972. * pow(sh, 10) -
1620  672. * pow(sh, 11) + 28. * pow(sh, 12)) +
1621  5.184210553601108e-9 * pow(-1 + sh, -11) * pow(sh, -18)*
1622  (268128. + 50176. * sh - 1.5037316e7 * pow(sh, 2) -
1623  7.0758368e7 * pow(sh, 3) - 6.454424e7 * pow(sh, 4) +
1624  3.47363296e8 * pow(sh, 5) +
1625  9.86787592e8 * pow(sh, 6) + 3.5646688e7 * pow(sh, 7) -
1626  4.264570016e9 * pow(sh, 8) -
1627  49280. * (-4.185317e6 + 6.891885e6 * Lshb) *
1628  pow(sh, 9) + 2. *
1629  (-9.13367431661e11 + 1.815646833e12 * Lshb +
1630  2.5729704e10 * pow(3.141592653589793, 2)) *
1631  pow(sh, 10) -
1632  34. * (-2.11665295319e11 + 5.169400236e11 * Lshb +
1633  1.2108096e10 * pow(3.141592653589793, 2)) *
1634  pow(sh, 11) +
1635  112. * (-1.48068551563e11 + 4.532103576e11 * Lshb +
1636  1.2864852e10 * pow(3.141592653589793, 2)) *
1637  pow(sh, 12) -
1638  28. * (-8.92863157079e11 + 3.463331256e12 * Lshb +
1639  1.02918816e11 * pow(3.141592653589793, 2)) *
1640  pow(sh, 13) +
1641  7700. * (-3.377464619e9 + 1.6653415968e10 * Lshb +
1642  4.678128e8 * pow(3.141592653589793, 2)) *
1643  pow(sh, 14) -
1644  14. * (-1.367678553169e12 + 8.504836704e12 * Lshb +
1645  2.05837632e11 * pow(3.141592653589793, 2)) *
1646  pow(sh, 15) +
1647  56. * (-1.79529366083e11 + 1.3719612816e12 * Lshb +
1648  2.5729704e10 * pow(3.141592653589793, 2)) *
1649  pow(sh, 16) -
1650  4. * (-9.28306865747e11 + 8.2669538952e12 * Lshb +
1651  1.02918816e11 * pow(3.141592653589793, 2)) *
1652  pow(sh, 17) +
1653  (-9.00807538366e11 + 8.606585988e12 * Lshb +
1654  5.1459408e10 * pow(3.141592653589793, 2)) *
1655  pow(sh, 18) -
1656  315. * (-3.24014759e8 + 3.26506752e9 * Lshb) *
1657  pow(sh, 19) + 3.873846312e9 * pow(sh, 20) +
1658  6.5471364e7 * pow(sh, 21) -
1659  8.55977724e8 * pow(sh, 22) -
1660  2.31299082e8 * pow(sh, 23) +
1661  1.540332e8 * pow(sh, 24) + 1.180071e8 * pow(sh, 25) +
1662  11025. * (-2549. + 11016. * Lshb) * pow(sh, 26) -
1663  11025. * (145. + 3888. * Lshb) * pow(sh, 27))) -
1664  6.532105297537396e-6 * pow(Lsh, 2) * pow(-1 + sh, -12) *
1665  pow(sh, -18)*(-1008. - 8848. * sh - 23688. * pow(sh, 2) +
1666  17352. * pow(sh, 3) + 212592. * pow(sh, 4) +
1667  311184. * pow(sh, 5) - 400176. * pow(sh, 6) -
1668  1.492176e6 * pow(sh, 7) + 255024. * pow(sh, 8) +
1669  1.29624264e8 * pow(sh, 9) +
1670  24. * (-6.2253479e7 + 1.02102e6 * Lshb) * pow(sh, 10) -
1671  27. * (-2.70724357e8 + 8.16816e6 * Lshb) * pow(sh, 11) +
1672  1989. * (-1.0174699e7 + 443520. * Lshb) * pow(sh, 12) -
1673  1848. * (-1.9205873e7 + 1.11384e6 * Lshb) * pow(sh, 13) +
1674  4032. * (-1.0206433e7 + 765765. * Lshb) * pow(sh, 14) -
1675  3528. * (-8.888339e6 + 875160. * Lshb) * pow(sh, 15) +
1676  168. * (-8.6549101e7 + 1.225224e7 * Lshb) * pow(sh, 16) -
1677  72. * (-3.9754051e7 + 1.225224e7 * Lshb) * pow(sh, 17) +
1678  36. * (1.9660427e7 + 6.12612e6 * Lshb) * pow(sh, 18) -
1679  2. * (2.60905399e8 + 1.225224e7 * Lshb) * pow(sh, 19) +
1680  8.729721e7 * pow(sh, 20) + 48195. * pow(sh, 26) -
1681  65205. * pow(sh, 27) + 17010. * pow(sh, 28)) -
1682  6.532105297537396e-6 * pow(lz, 2) * pow(sh, -18)*
1683  (-252. - 5236. * sh - 52122. * pow(sh, 2) -
1684  330990. * pow(sh, 3) - 1.50586e6 * pow(sh, 4) -
1685  5.221788e6 * pow(sh, 5) - 1.4306214e7 * pow(sh, 6) -
1686  3.1500898e7 * pow(sh, 7) - 5.513508e7 * pow(sh, 8) +
1687  4.900896e7 * pow(sh, 9) - 2.668511e7 * pow(sh, 10) -
1688  1.4613135e7 * pow(sh, 11) + 8.763045e6 * pow(sh, 12) +
1689  2.218345e7 * pow(sh, 13) + 2.506596e7 * pow(sh, 14) +
1690  2.0910477e7 * pow(sh, 15) + 1.2190381e7 * pow(sh, 16) +
1691  252. * pow(sh, 17) + 6.48648e7 * pow(sh, 18) +
1692  6.555978e7 * pow(sh, 19) + 6.764472e7 * pow(sh, 20) +
1693  7.18146e7 * pow(sh, 21) + 7.87644e7 * pow(sh, 22) +
1694  3.081078e8 * pow(sh, 23) - 4.33296864e9 * pow(sh, 24) +
1695  2.046808764e10 * pow(sh, 25) -
1696  2.24524872e10 * pow(sh, 26) -
1697  3.088433205e10 * pow(sh, 27) +
1698  9.73829142e10 * pow(sh, 28) -
1699  1.059717087e11 * pow(sh, 29) +
1700  6.5108043e10 * pow(sh, 30) -
1701  2.507429925e10 * pow(sh, 31) +
1702  6.1945884e9 * pow(sh, 32) - 9.567558e8 * pow(sh, 33) +
1703  8.432424e7 * pow(sh, 34) - 3.24324e6 * pow(sh, 35)) -
1704  lz * (160.06584362139918 * pow(Lsh, 2) * pow(-1 + sh, -3) *
1705  pow(sh, -8) - 6.052910052910053 * ash * sqrt4sh * sqrtsh *
1706  pow(sh, 4)*(-80. + 5340. * sh - 47370. * pow(sh, 2) +
1707  109970. * pow(sh, 3) + 2889. * pow(sh, 4) -
1708  292716. * pow(sh, 5) + 440556. * pow(sh, 6) -
1709  328734. * pow(sh, 7) + 146475. * pow(sh, 8) -
1710  40768. * pow(sh, 9) + 6972. * pow(sh, 10) -
1711  672. * pow(sh, 11) + 28. * pow(sh, 12)) -
1712  0.000013064210595074793 * Lsh * pow(-1 + sh, -11) *
1713  pow(sh, -18)*(504. + 4928. * sh + 16772. * pow(sh, 2) +
1714  8096. * pow(sh, 3) - 98200. * pow(sh, 4) -
1715  253792. * pow(sh, 5) - 53704. * pow(sh, 6) +
1716  692384. * pow(sh, 7) + 564872. * pow(sh, 8) -
1717  1.224454e8 * pow(sh, 9) +
1718  1.288450948e9 * pow(sh, 10) -
1719  5.852563529e9 * pow(sh, 11) +
1720  1.5415053304e10 * pow(sh, 12) -
1721  2.6502321608e10 * pow(sh, 13) +
1722  3.144127168e10 * pow(sh, 14) -
1723  2.6331569936e10 * pow(sh, 15) +
1724  1.5529376128e10 * pow(sh, 16) -
1725  6.238441328e9 * pow(sh, 17) +
1726  1.555660876e9 * pow(sh, 18) -
1727  1.7969985e8 * pow(sh, 19) - 864864. * pow(sh, 20) -
1728  769608. * pow(sh, 21) + 13608. * pow(sh, 22) +
1729  222264. * pow(sh, 23) + 69120. * pow(sh, 24) -
1730  36360. * pow(sh, 25) + 3465. * pow(sh, 26) -
1731  5355. * pow(sh, 27)) +
1732  2.132542391444306e-12 * pow(-1 + sh, -10) * pow(sh, -18)*
1733  (3.25909584e8 + 3.86898512e8 * sh -
1734  1.7890959086e10 * pow(sh, 2) -
1735  1.0389775539e11 * pow(sh, 3) -
1736  1.8235127911e11 * pow(sh, 4) +
1737  2.39868807178e11 * pow(sh, 5) +
1738  1.439309125254e12 * pow(sh, 6) +
1739  1.482637674518e12 * pow(sh, 7) -
1740  3.70094717993e12 * pow(sh, 8) +
1741  5.3120395014687e14 * pow(sh, 9) -
1742  4.14643042172931e15 * pow(sh, 10) +
1743  1.345200523191798e16 * pow(sh, 11) -
1744  2.254936255887042e16 * pow(sh, 12) +
1745  1.699263013683648e16 * pow(sh, 13) +
1746  6.14963216664132e15 * pow(sh, 14) -
1747  2.740944223315607e16 * pow(sh, 15) +
1748  2.8637380687636936e16 * pow(sh, 16) -
1749  1.5526446414793194e16 * pow(sh, 17) +
1750  4.836946771691055e15 * pow(sh, 18) -
1751  5.380798436415755e15 * pow(sh, 19) +
1752  1.974903378165775e16 * pow(sh, 20) -
1753  4.525406630722413e16 * pow(sh, 21) +
1754  6.653785922015247e16 * pow(sh, 22) -
1755  6.66839502419495e16 * pow(sh, 23) +
1756  6.049729378013662e16 * pow(sh, 24) -
1757  7.411696572018171e16 * pow(sh, 25) -
1758  2.463627215549949e17 * pow(sh, 26) +
1759  2.690872861043421e18 * pow(sh, 27) -
1760  1.035946806297679e19 * pow(sh, 28) +
1761  2.182665348950866e19 * pow(sh, 29) -
1762  2.151768755011101e19 * pow(sh, 30) -
1763  1.6939887428138682e19 * pow(sh, 31) +
1764  1.0333267615804637e20 * pow(sh, 32) -
1765  2.0555129789476546e20 * pow(sh, 33) +
1766  2.6641684480745528e20 * pow(sh, 34) -
1767  2.5331099541938533e20 * pow(sh, 35) +
1768  1.8430954123554472e20 * pow(sh, 36) -
1769  1.0440880163165341e20 * pow(sh, 37) +
1770  4.6274661819032445e19 * pow(sh, 38) -
1771  1.5988086524017488e19 * pow(sh, 39) +
1772  4.2570217606020905e18 * pow(sh, 40) -
1773  8.554234587216317e17 * pow(sh, 41) +
1774  1.252838056241772e17 * pow(sh, 42) -
1775  1.26021689978184e16 * pow(sh, 43) +
1776  7.7738941071792e14 * pow(sh, 44) -
1777  2.214605244852e13 * pow(sh, 45))) +
1778  3.4810653259229434e-19 * pow(-1 + sh, -11) * pow(sh, -18)*
1779  (-3.16414088198208e14 + 9.74539823921664e14 * sh +
1780  8.087033764735926e15 * pow(sh, 2) -
1781  5.684694862939435e16 * pow(sh, 3) -
1782  4.0319420043801754e17 * pow(sh, 4) -
1783  4.882604186351892e17 * pow(sh, 5) +
1784  1.9325128069129482e18 * pow(sh, 6) +
1785  6.292691026868566e18 * pow(sh, 7) +
1786  6.880478820028293e18 * pow(sh, 8) +
1787  8.434058124662613e21 * pow(sh, 9) -
1788  8.666666875206849e22 * pow(sh, 10) +
1789  3.988848694569122e23 * pow(sh, 11) -
1790  1.0892247798831997e24 * pow(sh, 12) +
1791  1.956951254970254e24 * pow(sh, 13) -
1792  2.420742712936919e24 * pow(sh, 14) +
1793  2.0958116597163414e24 * pow(sh, 15) -
1794  1.2670164385119088e24 * pow(sh, 16) +
1795  5.268571590407634e23 * pow(sh, 17) -
1796  1.5075131737158982e23 * pow(sh, 18) +
1797  5.5099869108338715e22 * pow(sh, 19) -
1798  1.2335610340065616e23 * pow(sh, 20) +
1799  3.125948051315389e23 * pow(sh, 21) -
1800  5.329144661412522e23 * pow(sh, 22) +
1801  6.337672351589234e23 * pow(sh, 23) -
1802  6.415906398957901e23 * pow(sh, 24) +
1803  7.960742052832872e23 * pow(sh, 25) +
1804  1.0407339222184654e24 * pow(sh, 26) -
1805  1.8365456331044262e25 * pow(sh, 27) +
1806  8.185263022637105e25 * pow(sh, 28) -
1807  2.0381593674174775e26 * pow(sh, 29) +
1808  2.86653881719294e26 * pow(sh, 30) -
1809  8.60180283451487e25 * pow(sh, 31) -
1810  6.102598804051836e26 * pow(sh, 32) +
1811  1.677905797647036e27 * pow(sh, 33) -
1812  2.6085143775451684e27 * pow(sh, 34) +
1813  2.8903964656452616e27 * pow(sh, 35) -
1814  2.4393048290135273e27 * pow(sh, 36) +
1815  1.610228894638015e27 * pow(sh, 37) -
1816  8.401871973947814e26 * pow(sh, 38) +
1817  3.469550828380025e26 * pow(sh, 39) -
1818  1.1272782566287204e26 * pow(sh, 40) +
1819  2.8443789274384395e25 * pow(sh, 41) -
1820  5.451981703535345e24 * pow(sh, 42) +
1821  7.659728477371017e23 * pow(sh, 43) -
1822  7.427478422398451e22 * pow(sh, 44) +
1823  4.435813069347255e21 * pow(sh, 45) -
1824  1.2279937968685318e20 * pow(sh, 46) +
1825  6.2548910424e12 * pow(3.141592653589793, 2)*
1826  (1512. + 14784. * sh + 50316. * pow(sh, 2) +
1827  24288. * pow(sh, 3) - 294600. * pow(sh, 4) -
1828  761376. * pow(sh, 5) - 161112. * pow(sh, 6) +
1829  2.077152e6 * pow(sh, 7) + 1.694616e6 * pow(sh, 8) -
1830  9.4319148e8 * pow(sh, 9) +
1831  9.967342612e9 * pow(sh, 10) -
1832  4.6850139311e10 * pow(sh, 11) +
1833  1.30210149496e11 * pow(sh, 12) -
1834  2.38833139832e11 * pow(sh, 13) +
1835  3.0372906844e11 * pow(sh, 14) -
1836  2.72391022736e11 * pow(sh, 15) +
1837  1.70802069088e11 * pow(sh, 16) -
1838  7.1983905728e10 * pow(sh, 17) +
1839  1.8589933516e10 * pow(sh, 18) -
1840  2.99998765e9 * pow(sh, 19) +
1841  3.44063258e9 * pow(sh, 20) -
1842  8.9705161e9 * pow(sh, 21) +
1843  1.535557394e10 * pow(sh, 22) -
1844  1.759879618e10 * pow(sh, 23) +
1845  1.0323785e9 * pow(sh, 24) +
1846  1.54134820988e11 * pow(sh, 25) -
1847  1.050042005659e12 * pow(sh, 26) +
1848  4.280975184059e12 * pow(sh, 27) -
1849  1.1452618278108e13 * pow(sh, 28) +
1850  1.942055517402e13 * pow(sh, 29) -
1851  1.455317517654e13 * pow(sh, 30) -
1852  2.304660776418e13 * pow(sh, 31) +
1853  9.97892002107e13 * pow(sh, 32) -
1854  1.907859269745e14 * pow(sh, 33) +
1855  2.504750279031e14 * pow(sh, 34) -
1856  2.483138624967e14 * pow(sh, 35) +
1857  1.926820640745e14 * pow(sh, 36) -
1858  1.188407379159e14 * pow(sh, 37) +
1859  5.85603387369e13 * pow(sh, 38) -
1860  2.301507374166e13 * pow(sh, 39) +
1861  7.15907863242e12 * pow(sh, 40) -
1862  1.73763555966e12 * pow(sh, 41) +
1863  3.216402189e11 * pow(sh, 42) -
1864  4.378374e10 * pow(sh, 43) +
1865  4.12540128e9 * pow(sh, 44) -
1866  2.3999976e8 * pow(sh, 45) + 6.48648e6 * pow(sh, 46)))) *
1867  pow(z, 10);
1868  else
1869  res += pow(z, 10)*(2841.537345257575 -
1870  225632.48115404812 * (1. - sh) -
1871  731898.7973986422 * pow(1. - sh, 2) -
1872  2.5500608094526595e6 * pow(1. - sh, 3) -
1873  1.0871575896706128e7 * pow(1. - sh, 4) +
1874  log(z)*(10236.629660601508 -
1875  69938.30618254407 * (1. - sh) +
1876  86757.40411215654 * pow(1. - sh, 2) +
1877  605518.1352531877 * pow(1. - sh, 3) +
1878  1.0480116268625655e6 * pow(1. - sh, 4)) +
1879  (-1356.6172839506173 -
1880  1319.851851851852 * (1. - sh) +
1881  58319.57037037037 * pow(1. - sh, 2) +
1882  152747.21081716637 * pow(1. - sh, 3) +
1883  509124.9807172252 * pow(1. - sh, 4)) * pow(log(z), 2));
1884  }
1885  }
1886  return res;
1887 }

◆ F_19im()

double F_1::F_19im ( double  muh,
double  z,
double  sh,
int  maxpow = 20 
)

Definition at line 4628 of file F_1.cpp.

4629 {
4630  double lz = log(z);
4631  double lmu = log(muh);
4632  double Lsh = log(sh);
4633  double Lshb = log(1. - sh);
4634  double Li2sh = real(Li2(sh));
4635  double Li3sh = real(Li3(sh));
4636 
4637 
4638  double res = 0;
4639 
4640  if (sh < 0.4) {
4641  res = 3.67166 + 0.20685383727340204 * lmu - 0.103427 * Lsh +
4642  0.93084 * lz - 0.310281 * sh - 0.93084 * lz * sh - 16.2155 * z -
4643  5.58505 * lz * z - 30.7987 * sh * z - 1.86168 * Lsh * sh * z -
4644  16.75515 * lz * sh * z - 1.861685 * z * pow(lz, 2) -
4645  1.861685 * sh * z * pow(lz, 2) - 1.36524 * pow(sh, 2) -
4646  0.93084 * lz * pow(sh, 2) - 52.2081 * z * pow(sh, 2) -
4647  3.72337 * Lsh * z * pow(sh, 2) - 26.0636 * lz * z * pow(sh, 2) -
4648  1.861685 * z * pow(lz, 2) * pow(sh, 2) - 1.72206 * pow(sh, 3) -
4649  0.93084 * lz * pow(sh, 3) - 76.6479 * z * pow(sh, 3) -
4650  5.58505 * Lsh * z * pow(sh, 3) - 34.75145 * lz * z * pow(sh, 3) -
4651  1.861685 * z * pow(lz, 2) * pow(sh, 3) -
4652  0.00295505 * pow(sh, 3) * pow(z, -3) -
4653  0.0199466 * pow(sh, 2) * pow(z, -2) +
4654  0.00369382 * pow(sh, 3) * pow(z, -2) - 0.186168 * sh * pow(z, -1) +
4655  0.0620562 * pow(sh, 2) * pow(z, -1) +
4656  0.0871741 * pow(sh, 3) * pow(z, -1) + 26.7517 * pow(z, 2) -
4657  1.86168 * Lsh * pow(z, 2) - 7.44675 * lz * pow(z, 2) -
4658  3.72337 * Lsh * lz * pow(z, 2) + 66.1439 * sh * pow(z, 2) -
4659  7.44674 * Lsh * sh * pow(z, 2) - 33.5103 * lz * sh * pow(z, 2) -
4660  14.8935 * Lsh * lz * sh * pow(z, 2) -
4661  7.44675 * pow(lz, 2) * pow(z, 2) -
4662  20.478525 * sh * pow(lz, 2) * pow(z, 2) +
4663  108.713 * pow(sh, 2) * pow(z, 2) -
4664  22.3402 * Lsh * pow(sh, 2) * pow(z, 2) -
4665  81.914 * lz * pow(sh, 2) * pow(z, 2) -
4666  33.5103 * Lsh * lz * pow(sh, 2) * pow(z, 2) -
4667  39.0955 * pow(lz, 2) * pow(sh, 2) * pow(z, 2) +
4668  148.481 * pow(sh, 3) * pow(z, 2) -
4669  49.6449 * Lsh * pow(sh, 3) * pow(z, 2) -
4670  155.761 * lz * pow(sh, 3) * pow(z, 2) -
4671  59.574 * Lsh * lz * pow(sh, 3) * pow(z, 2) -
4672  63.29725 * pow(lz, 2) * pow(sh, 3) * pow(z, 2) -
4673  23.6892 * pow(z, 3) - 1.65483 * Lsh * pow(z, 3) +
4674  17.3757 * lz * pow(z, 3) + 4.96449 * Lsh * lz * pow(z, 3) -
4675  63.7828 * sh * pow(z, 3) - 3.72337 * Lsh * sh * pow(z, 3) +
4676  67.0205 * lz * sh * pow(z, 3) + 22.3402 * Lsh * lz * sh * pow(z, 3) -
4677  106.832 * pow(sh, 2) * pow(z, 3) +
4678  165.0695 * lz * pow(sh, 2) * pow(z, 3) +
4679  59.574 * Lsh * lz * pow(sh, 2) * pow(z, 3) -
4680  135.118 * pow(sh, 3) * pow(z, 3) +
4681  18.6168 * Lsh * pow(sh, 3) * pow(z, 3) +
4682  326.4155 * lz * pow(sh, 3) * pow(z, 3) +
4683  124.1125 * Lsh * lz * pow(sh, 3) * pow(z, 3);
4684  } else {
4685  if (0 <= maxpow) {
4686  if (sh < .900001)
4687  res += (-3.5165152336478345 * lmu -
4688  0.05171345931835051 * pow(-1 + sh, -2)*
4689  (130. - 269. * sh + 121. * pow(sh, 2)) +
4690  0.10342691863670102 * Lsh * pow(-1 + sh, -3)*
4691  (-8. + 33. * sh - 51. * pow(sh, 2) + 17. * pow(sh, 3))) *
4692  pow(z, 0);
4693  else
4694  res += (-5.636767065700205 - 1.3704066719362884 * (1. - sh) -
4695  3.5165152336478345 * log(muh) -
4696  0.5998761280928658 * pow(1. - sh, 2) -
4697  0.36888934313756694 * pow(1. - sh, 3) -
4698  0.26226111511449185 * pow(1. - sh, 4)) * pow(z, 0);
4699  }
4700 
4701  if (1 <= maxpow) {
4702  if (sh < .900001)
4703  res += 0.;
4704  else
4705  res += 0.;
4706  }
4707 
4708  if (2 <= maxpow) {
4709  if (sh < .900001)
4710  res += (17.902805978847187 * sh * pow(-1 + sh, -3) -
4711  14.893476283684944 * Li3sh * sh * pow(-1 + sh, -3) +
4712  1.861684535460618 * Li2sh * (-7. + 5. * sh) *
4713  pow(-1 + sh, -3) + 1.241123023640412 * sh * pow(Lsh, 3) *
4714  pow(-1 + sh, -3) - 3.723369070921236 * pow(Lsh, 2) *
4715  pow(-1 + sh, -2) - Lsh *
4716  (-7.446738141842472 * Li2sh * sh * pow(-1 + sh, -3) +
4717  1.861684535460618 * pow(-1 + sh, -3)*
4718  (-5. + Lshb * (7. - 5. * sh) +
4719  sh * (3. - 2. * pow(3.141592653589793, 2)) + pow(sh, 2)
4720  )) - 0.310280755910103 * pow(-1 + sh, -3) *
4721  pow(sh, -1)*(-306. +
4722  sh * (912. - 11. * pow(3.141592653589793, 2)) +
4723  5. * (-180. + pow(3.141592653589793, 2)) * pow(sh, 2) +
4724  (294. + 4. * pow(3.141592653589793, 2)) * pow(sh, 3))) *
4725  pow(z, 1);
4726  else
4727  res += (-101.4595749819256 - 99.28872579089392 * (1. - sh) -
4728  98.33919598335144 * pow(1. - sh, 2) -
4729  97.78315475935152 * pow(1. - sh, 3) -
4730  97.41019960703451 * pow(1. - sh, 4)) * pow(z, 1);
4731  }
4732 
4733  if (3 <= maxpow) {
4734  if (sh < .900001)
4735  res += 0.;
4736  else
4737  res += 0.;
4738  }
4739 
4740  if (4 <= maxpow) {
4741  if (sh < .900001)
4742  res += (-1.861684535460618 * Li2sh * (3. + 2. * sh) * pow(-1 + sh, -3) +
4743  1.861684535460618 * pow(Lsh, 2) * pow(-1 + sh, -2) +
4744  22.340214425527417 * lmu * pow(sh, -2) -
4745  lz * (-13.031791748224327 * Lsh * pow(-1 + sh, -3) -
4746  0.930842267730309 * pow(-1 + sh, -2) * pow(sh, -2)*
4747  (193. - 393. * sh + 186. * pow(sh, 2))) +
4748  0.1551403779550515 * pow(-1 + sh, -3) * pow(sh, -2)*
4749  (441. - 1368. * sh +
4750  3. * (437. + 2. * pow(3.141592653589793, 2)) * pow(sh, 2) +
4751  4. * (-111. + pow(3.141592653589793, 2)) * pow(sh, 3) +
4752  24. * pow(sh, 4)) -
4753  0.930842267730309 * Lsh * pow(-1 + sh, -4) * pow(sh, -2)*
4754  (191. - 777. * sh + (1175. - 6. * Lshb) * pow(sh, 2) +
4755  (-797. + 2. * Lshb) * pow(sh, 3) +
4756  (202. + 4. * Lshb) * pow(sh, 4))) * pow(z, 2);
4757  else
4758  res += (-74.72594871501649 + 29.277574993084137 * (1. - sh) +
4759  223.8210232757528 * pow(1. - sh, 2) +
4760  478.4917845842381 * pow(1. - sh, 3) +
4761  778.1470920996388 * pow(1. - sh, 4) +
4762  log(muh)*(22.340214425527417 +
4763  44.680428851054835 * (1. - sh) +
4764  67.02064327658225 * pow(1. - sh, 2) +
4765  89.36085770210967 * pow(1. - sh, 3) +
4766  111.70107212763709 * pow(1. - sh, 4)) +
4767  log(z)*(177.48059238057894 +
4768  356.0471674068432 * (1. - sh) +
4769  535.0481354913816 * pow(1. - sh, 2) +
4770  714.2663001050572 * pow(1. - sh, 3) +
4771  893.6085770210967 * pow(1. - sh, 4))) * pow(z, 2);
4772  }
4773 
4774  if (5 <= maxpow) {
4775  if (sh < .900001)
4776  res += 0.;
4777  else
4778  res += 0.;
4779  }
4780 
4781  if (6 <= maxpow) {
4782  if (sh < .900001)
4783  res += (29.786952567369887 * lmu * pow(sh, -3) +
4784  3.723369070921236 * pow(Lsh, 2) * pow(-1 + sh, -3) *
4785  pow(sh, -1) - 1.241123023640412 * Li2sh * pow(-1 + sh, -4) *
4786  pow(sh, -1)*(3. + sh + 2. * pow(sh, 2)) -
4787  0.10342691863670102 * Lsh * pow(-1 + sh, -5) * pow(sh, -4)*
4788  (12. - 3754. * sh + 18707. * pow(sh, 2) -
4789  (37645. + 36. * Lshb) * pow(sh, 3) +
4790  6. * (6335. + 4. * Lshb) * pow(sh, 4) -
4791  6. * (3213. + 2. * Lshb) * pow(sh, 5) +
4792  24. * (163. + Lshb) * pow(sh, 6)) -
4793  lz * (-1.241123023640412 * Lsh * pow(-1 + sh, -4) *
4794  pow(sh, -1)*(3. + sh + 2. * pow(sh, 2)) +
4795  0.10342691863670102 * pow(-1 + sh, -3) * pow(sh, -4)*
4796  (-6. + 3748. * sh - 11253. * pow(sh, 2) +
4797  11385. * pow(sh, 3) - 3841. * pow(sh, 4) +
4798  27. * pow(sh, 5) + 12. * pow(sh, 6))) +
4799  0.0172378197727835 * pow(-1 + sh, -4) * pow(sh, -4)*
4800  (30. + 12740. * sh - 51314. * pow(sh, 2) +
4801  36. * (2123. + pow(3.141592653589793, 2)) * pow(sh, 3) +
4802  (-50297. + 12. * pow(3.141592653589793, 2)) *
4803  pow(sh, 4) + 8. * (1474. +
4804  3. * pow(3.141592653589793, 2)) * pow(sh, 5) +
4805  381. * pow(sh, 6) + 24. * pow(sh, 7))) * pow(z, 3);
4806  else
4807  res += (211.9165849406685 + 1019.1512736698835 * (1. - sh) +
4808  2614.8727490925203 * pow(1. - sh, 2) +
4809  5126.049113728145 * pow(1. - sh, 3) +
4810  8646.890723525932 * pow(1. - sh, 4) +
4811  log(muh)*(29.786952567369887 +
4812  89.36085770210967 * (1. - sh) +
4813  178.72171540421934 * pow(1. - sh, 2) +
4814  297.8695256736989 * pow(1. - sh, 3) +
4815  446.80428851054836 * pow(1. - sh, 4)) +
4816  log(z)*(378.2322414544156 +
4817  1142.5157994121814 * (1. - sh) +
4818  2290.864877035473 * pow(1. - sh, 2) +
4819  3822.6086768805603 * pow(1. - sh, 3) +
4820  5737.100041942259 * pow(1. - sh, 4))) * pow(z, 3);
4821  }
4822 
4823  if (7 <= maxpow) {
4824  if (sh < .900001)
4825  res += 0.;
4826  else
4827  res += 0.;
4828  }
4829 
4830  if (8 <= maxpow) {
4831  if (sh < .900001)
4832  res += (67.02064327658225 * lmu * pow(sh, -4) +
4833  6.2056151182020605 * Li2sh * pow(-1 + sh, -3) * pow(sh, -2) +
4834  6.2056151182020605 * pow(Lsh, 2) * pow(-1 + sh, -3) *
4835  pow(sh, -2) - lz *
4836  (6.2056151182020605 * Lsh * pow(-1 + sh, -3) * pow(sh, -2) +
4837  0.10342691863670102 * pow(-1 + sh, -2) * pow(sh, -6)*
4838  (3. + 19. * sh - 9836. * pow(sh, 2) +
4839  19672. * pow(sh, 3) - 9987. * pow(sh, 4) +
4840  39. * pow(sh, 5) + 30. * pow(sh, 6))) +
4841  0.10342691863670102 * Lsh * pow(-1 + sh, -6) * pow(sh, -6)*
4842  (6. + 14. * sh - 9909. * pow(sh, 2) + 59043. * pow(sh, 3) -
4843  3. * (49203. + 20. * Lshb) * pow(sh, 4) +
4844  3. * (65783. + 60. * Lshb) * pow(sh, 5) -
4845  3. * (49547. + 60. * Lshb) * pow(sh, 6) +
4846  (59839. + 60. * Lshb) * pow(sh, 7) - 10062. * pow(sh, 8)) -
4847  0.00861890988639175 * pow(-1 + sh, -5) * pow(sh, -6)*
4848  (21. - 10. * sh + 97976. * pow(sh, 2) -
4849  490846. * pow(sh, 3) +
4850  (981523. + 120. * pow(3.141592653589793, 2)) *
4851  pow(sh, 4) - 8. * (122341. +
4852  30. * pow(3.141592653589793, 2)) * pow(sh, 5) +
4853  2. * (242981. + 60. * pow(3.141592653589793, 2)) *
4854  pow(sh, 6) - 94596. * pow(sh, 7) - 678. * pow(sh, 8) -
4855  408. * pow(sh, 9) + 144. * pow(sh, 10))) * pow(z, 4);
4856  else
4857  res += (818.5206340908517 + 4293.785518767847 * (1. - sh) +
4858  12756.23214766427 * pow(1. - sh, 2) +
4859  28863.589912766278 * pow(1. - sh, 3) +
4860  55512.63989848175 * pow(1. - sh, 4) +
4861  log(muh)*(67.02064327658225 +
4862  268.082573106329 * (1. - sh) +
4863  670.2064327658226 * pow(1. - sh, 2) +
4864  1340.4128655316451 * pow(1. - sh, 3) +
4865  2345.722514680379 * pow(1. - sh, 4)) +
4866  log(z)*(997.2423494950712 +
4867  4001.6909089725987 * (1. - sh) +
4868  10016.483362289946 * pow(1. - sh, 2) +
4869  20040.827170396282 * pow(1. - sh, 3) +
4870  35069.73361639894 * pow(1. - sh, 4))) * pow(z, 4);
4871  }
4872 
4873  if (9 <= maxpow) {
4874  if (sh < .900001)
4875  res += 0.;
4876  else
4877  res += 0.;
4878  }
4879 
4880  if (10 <= maxpow) {
4881  if (sh < .900001)
4882  res += (178.72171540421934 * lmu * pow(sh, -5) +
4883  13.031791748224327 * Li2sh * pow(-1 + sh, -3) * pow(sh, -3) +
4884  13.031791748224327 * pow(Lsh, 2) * pow(-1 + sh, -3) *
4885  pow(sh, -3) - lz *
4886  (13.031791748224327 * Lsh * pow(-1 + sh, -3) * pow(sh, -3) +
4887  0.0103426918636701 * pow(-1 + sh, -2) * pow(sh, -8)*
4888  (18. + 153. * sh + 543. * pow(sh, 2) -
4889  302141. * pow(sh, 3) + 603346. * pow(sh, 4) -
4890  304124. * pow(sh, 5) + 60. * pow(sh, 6) +
4891  690. * pow(sh, 7) + 195. * pow(sh, 8))) -
4892  0.0103426918636701 * Lsh * pow(-1 + sh, -7) * pow(sh, -8)*
4893  (36. + 126. * sh - 84. * pow(sh, 2) - 303968. * pow(sh, 3) +
4894  2.117159e6 * pow(sh, 4) -
4895  180. * (35233. + 7. * Lshb) * pow(sh, 5) +
4896  2. * (5.286917e6 + 2520. * Lshb) * pow(sh, 6) -
4897  56. * (189131. + 135. * Lshb) * pow(sh, 7) +
4898  24. * (265547. + 210. * Lshb) * pow(sh, 8) -
4899  7. * (304727. + 180. * Lshb) * pow(sh, 9) +
4900  305864. * pow(sh, 10)) -
4901  0.00017237819772783502 * pow(-1 + sh, -6) * pow(sh, -8)*
4902  (-486. + 108. * sh + 8742. * pow(sh, 2) -
4903  1.6340578e7 * pow(sh, 3) + 9.7955934e7 * pow(sh, 4) -
4904  2.44785504e8 * pow(sh, 5) +
4905  12600. * pow(3.141592653589793, 2) * pow(-1 + sh, 3) *
4906  pow(sh, 5) + 3.26063492e8 * pow(sh, 6) -
4907  2.44009482e8 * pow(sh, 7) + 9.7070643e7 * pow(sh, 8) -
4908  1.5960394e7 * pow(sh, 9) + 92700. * pow(sh, 10) -
4909  88650. * pow(sh, 11) + 4275. * pow(sh, 12) +
4910  5400. * pow(sh, 13))) * pow(z, 5);
4911  else
4912  res += (2736.4139567610805 + 16812.602775356263 * (1. - sh) +
4913  58181.13183757553 * pow(1. - sh, 2) +
4914  151135.2971056933 * pow(1. - sh, 3) +
4915  329016.24546199996 * pow(1. - sh, 4) +
4916  log(muh)*(178.72171540421934 +
4917  893.6085770210967 * (1. - sh) +
4918  2680.8257310632903 * pow(1. - sh, 2) +
4919  6255.260039147677 * pow(1. - sh, 3) +
4920  12510.520078295354 * pow(1. - sh, 4)) +
4921  log(z)*(3064.787823810179 +
4922  15358.380282956916 * (1. - sh) +
4923  46110.04743391064 * pow(1. - sh, 2) +
4924  107597.09199613279 * pow(1. - sh, 3) +
4925  215122.81941840626 * pow(1. - sh, 4))) * pow(z, 5);
4926  }
4927 
4928  if (11 <= maxpow) {
4929  if (sh < .900001)
4930  res += 0.;
4931  else
4932  res += 0.;
4933  }
4934 
4935  if (12 <= maxpow) {
4936  if (sh < .900001)
4937  res += (521.2716699289731 * lmu * pow(sh, -6) +
4938  31.276300195738386 * Li2sh * pow(-1 + sh, -3) * pow(sh, -4) +
4939  31.276300195738386 * pow(Lsh, 2) * pow(-1 + sh, -3) *
4940  pow(sh, -4) - lz *
4941  (31.276300195738386 * Lsh * pow(-1 + sh, -3) * pow(sh, -4) +
4942  0.0020685383727340203 * pow(-1 + sh, -2) * pow(sh, -10)*
4943  (60. + 636. * sh + 2976. * pow(sh, 2) +
4944  7776. * pow(sh, 3) - 4.948624e6 * pow(sh, 4) +
4945  9.874856e6 * pow(sh, 5) - 4.959625e6 * pow(sh, 6) -
4946  4665. * pow(sh, 7) + 6585. * pow(sh, 8) +
4947  4185. * pow(sh, 9) + 720. * pow(sh, 10))) -
4948  0.0020685383727340203 * Lsh * pow(-1 + sh, -8) * pow(sh, -10)*
4949  (-120. - 552. * sh - 120. * pow(sh, 2) + 3480. * pow(sh, 3) +
4950  4.96582e6 * pow(sh, 4) - 3.962954e7 * pow(sh, 5) +
4951  (1.38486043e8 + 15120. * Lshb) * pow(sh, 6) -
4952  5. * (5.5369147e7 + 15120. * Lshb) * pow(sh, 7) +
4953  160. * (2.163772e6 + 945. * Lshb) * pow(sh, 8) -
4954  160. * (1.733072e6 + 945. * Lshb) * pow(sh, 9) +
4955  10. * (1.3891091e7 + 7560. * Lshb) * pow(sh, 10) -
4956  2. * (1.9896743e7 + 7560. * Lshb) * pow(sh, 11) +
4957  4.99004e6 * pow(sh, 12)) -
4958  0.000034475639545567 * pow(-1 + sh, -7) * pow(sh, -10)*
4959  (1320. - 96. * sh - 30636. * pow(sh, 2) -
4960  70896. * pow(sh, 3) + 2.79790864e8 * pow(sh, 4) -
4961  1.954972576e9 * pow(sh, 5) + 5.859826086e9 * pow(sh, 6) +
4962  151200. * pow(3.141592653589793, 2) * pow(-1 + sh, 4) *
4963  pow(sh, 6) - 9.758058674e9 * pow(sh, 7) +
4964  9.746085686e9 * pow(sh, 8) - 5.835456624e9 * pow(sh, 9) +
4965  1.937908841e9 * pow(sh, 10) - 2.7490172e8 * pow(sh, 11) -
4966  545670. * pow(sh, 12) + 1.17158e6 * pow(sh, 13) -
4967  783395. * pow(sh, 14) + 77910. * pow(sh, 15) +
4968  33600. * pow(sh, 16))) * pow(z, 6);
4969  else
4970  res += (9385.786258697912 + 66570.34555920382 * (1. - sh) +
4971  263383.6903024927 * pow(1. - sh, 2) +
4972  772694.2159831354 * pow(1. - sh, 3) +
4973  1.8782424783479243e6 * pow(1. - sh, 4) +
4974  log(muh)*(521.2716699289731 +
4975  3127.6300195738386 * (1. - sh) +
4976  10946.705068508434 * pow(1. - sh, 2) +
4977  29191.213516022493 * pow(1. - sh, 3) +
4978  65680.23041105061 * pow(1. - sh, 4)) +
4979  log(z)*(10043.374361135488 +
4980  60362.48367588531 * (1. - sh) +
4981  211373.05579784894 * pow(1. - sh, 2) +
4982  563598.0400557054 * pow(1. - sh, 3) +
4983  1.2674832355395108e6 * pow(1. - sh, 4))) * pow(z, 6);
4984  }
4985 
4986  if (13 <= maxpow) {
4987  if (sh < .900001)
4988  res += 0.;
4989  else
4990  res += 0.;
4991  }
4992 
4993  if (14 <= maxpow) {
4994  if (sh < .900001)
4995  res += (1608.495438637974 * lmu * pow(sh, -7) +
4996  81.9141195602672 * Li2sh * pow(-1 + sh, -3) * pow(sh, -5) +
4997  81.9141195602672 * pow(Lsh, 2) * pow(-1 + sh, -3) *
4998  pow(sh, -5) - lz *
4999  (81.9141195602672 * Lsh * pow(-1 + sh, -3) * pow(sh, -5) +
5000  0.0029550548181914577 * pow(-1 + sh, -2) * pow(sh, -12)*
5001  (30. + 380. * sh + 2186. * pow(sh, 2) +
5002  7436. * pow(sh, 3) + 15906. * pow(sh, 4) -
5003  1.1774748e7 * pow(sh, 5) + 2.3488224e7 * pow(sh, 6) -
5004  1.1772349e7 * pow(sh, 7) - 16681. * pow(sh, 8) +
5005  9569. * pow(sh, 9) + 8694. * pow(sh, 10) +
5006  3234. * pow(sh, 11) + 399. * pow(sh, 12))) -
5007  0.0029550548181914577 * Lsh * pow(-1 + sh, -9) * pow(sh, -12)*
5008  (60. + 340. * sh + 312. * pow(sh, 2) - 1872. * pow(sh, 3) -
5009  4980. * pow(sh, 4) - 1.1794584e7 * pow(sh, 5) +
5010  1.06052526e8 * pow(sh, 6) -
5011  11. * (3.8516327e7 + 2520. * Lshb) * pow(sh, 7) +
5012  6. * (1.64650903e8 + 27720. * Lshb) * pow(sh, 8) -
5013  3. * (4.93896521e8 + 138600. * Lshb) * pow(sh, 9) +
5014  (1.482302069e9 + 554400. * Lshb) * pow(sh, 10) -
5015  3. * (3.29703527e8 + 138600. * Lshb) * pow(sh, 11) +
5016  6. * (7.0752587e7 + 27720. * Lshb) * pow(sh, 12) -
5017  2. * (5.3167621e7 + 13860. * Lshb) * pow(sh, 13) +
5018  1.1839332e7 * pow(sh, 14)) -
5019  7.035844805217756e-6 * pow(-1 + sh, -8) * pow(sh, -12)*
5020  (-3900. - 100. * sh + 116036. * pow(sh, 2) +
5021  329570. * pow(sh, 3) - 93490. * pow(sh, 4) -
5022  4.806231988e9 * pow(sh, 5) +
5023  3.8385624164e10 * pow(sh, 6) -
5024  1.34210338702e11 * pow(sh, 7) +
5025  1.9404e6 * pow(3.141592653589793, 2) * pow(-1 + sh, 5) *
5026  pow(sh, 7) + 2.6818147667e11 * pow(sh, 8) -
5027  3.3489192085e11 * pow(sh, 9) +
5028  2.67551973133e11 * pow(sh, 10) -
5029  1.33499331779e11 * pow(sh, 11) +
5030  3.8005781539e10 * pow(sh, 12) -
5031  4.717142506e9 * pow(sh, 13) + 8.064665e6 * pow(sh, 14) -
5032  1.8561445e7 * pow(sh, 15) + 1.7389365e7 * pow(sh, 16) -
5033  7.700448e6 * pow(sh, 17) + 658266. * pow(sh, 18) +
5034  264600. * pow(sh, 19))) * pow(z, 7);
5035  else
5036  res += (32964.04475533845 + 265614.39905471785 * (1. - sh) +
5037  1.1828276243428339e6 * pow(1. - sh, 2) +
5038  3.866649964984975e6 * pow(1. - sh, 3) +
5039  1.0377006787766315e7 * pow(1. - sh, 4) +
5040  log(muh)*(1608.495438637974 +
5041  11259.468070465819 * (1. - sh) +
5042  45037.872281863274 * pow(1. - sh, 2) +
5043  135113.61684558983 * pow(1. - sh, 3) +
5044  337784.0421139746 * pow(1. - sh, 4)) +
5045  log(z)*(34149.58569205566 +
5046  239368.34385367524 * (1. - sh) +
5047  957793.7506378699 * pow(1. - sh, 2) +
5048  2.872774404811201e6 * pow(1. - sh, 3) +
5049  7.177895380884164e6 * pow(1. - sh, 4))) * pow(z, 7);
5050  }
5051 
5052  if (15 <= maxpow) {
5053  if (sh < .900001)
5054  res += 0.;
5055  else
5056  res += 0.;
5057  }
5058 
5059  if (16 <= maxpow) {
5060  if (sh < .900001)
5061  res += (5160.589532296834 * lmu * pow(sh, -8) +
5062  228.18933306074433 * Li2sh * pow(-1 + sh, -3) * pow(sh, -6) +
5063  228.18933306074433 * pow(Lsh, 2) * pow(-1 + sh, -3) *
5064  pow(sh, -6) - lz *
5065  (228.18933306074433 * Lsh * pow(-1 + sh, -3) * pow(sh, -6) +
5066  0.0002110753441565327 * pow(-1 + sh, -2) * pow(sh, -14)*
5067  (315. + 4635. * sh + 31515. * pow(sh, 2) +
5068  130299. * pow(sh, 3) + 359619. * pow(sh, 4) +
5069  665379. * pow(sh, 5) - 5.74307971e8 * pow(sh, 6) +
5070  1.145449229e9 * pow(sh, 7) -
5071  5.73346648e8 * pow(sh, 8) - 941808. * pow(sh, 9) +
5072  284172. * pow(sh, 10) + 360612. * pow(sh, 11) +
5073  176862. * pow(sh, 12) + 48090. * pow(sh, 13) +
5074  4620. * pow(sh, 14))) -
5075  0.0004221506883130654 * Lsh * pow(-1 + sh, -10) * pow(sh, -14)*
5076  (-315. - 2115. * sh - 3255. * pow(sh, 2) +
5077  9681. * pow(sh, 3) + 37863. * pow(sh, 4) +
5078  21231. * pow(sh, 5) + 2.8741643e8 * pow(sh, 6) -
5079  2.87288225e9 * pow(sh, 7) +
5080  6. * (2.152635949e9 + 90090. * Lshb) * pow(sh, 8) -
5081  42. * (8.19483989e8 + 90090. * Lshb) * pow(sh, 9) +
5082  84. * (7.16809256e8 + 135135. * Lshb) * pow(sh, 10) -
5083  4620. * (1.5639938e7 + 4095. * Lshb) * pow(sh, 11) +
5084  1050. * (5.7368567e7 + 18018. * Lshb) * pow(sh, 12) -
5085  84. * (4.10079749e8 + 135135. * Lshb) * pow(sh, 13) +
5086  84. * (1.53948637e8 + 45045. * Lshb) * pow(sh, 14) -
5087  4. * (7.19449781e8 + 135135. * Lshb) * pow(sh, 15) +
5088  2.88262142e8 * pow(sh, 16)) -
5089  2.5128017161491987e-7 * pow(-1 + sh, -9) * pow(sh, -14)*
5090  (70875. + 6750. * sh - 2.654475e6 * pow(sh, 2) -
5091  9.126108e6 * pow(sh, 3) - 678627. * pow(sh, 4) +
5092  4.643019e7 * pow(sh, 5) + 4.80171685205e11 * pow(sh, 6) -
5093  4.31617055958e12 * pow(sh, 7) +
5094  1.7247170032713e13 * pow(sh, 8) +
5095  1.513512e8 * pow(3.141592653589793, 2) * pow(-1 + sh, 6) *
5096  pow(sh, 8) - 4.0207542010218e13 * pow(sh, 9) +
5097  6.0256405965915e13 * pow(sh, 10) -
5098  6.019185138228e13 * pow(sh, 11) +
5099  4.0071063595575e13 * pow(sh, 12) -
5100  1.7137898822466e13 * pow(sh, 13) +
5101  4.270529322855e12 * pow(sh, 14) -
5102  4.71606339008e11 * pow(sh, 15) -
5103  1.14148692e9 * pow(sh, 16) + 2.22118512e9 * pow(sh, 17) -
5104  2.487344244e9 * pow(sh, 18) +
5105  1.56858156e9 * pow(sh, 19) - 5.01486552e8 * pow(sh, 20) +
5106  3.056844e7 * pow(sh, 21) + 1.397088e7 * pow(sh, 22))) *
5107  pow(z, 8);
5108  else
5109  res += (117820.12630257728 + 1.064052936704897e6 * (1. - sh) +
5110  5.267123900507657e6 * pow(1. - sh, 2) +
5111  1.8980221399425097e7 * pow(1. - sh, 3) +
5112  5.572450251051496e7 * pow(1. - sh, 4) +
5113  log(muh)*(5160.589532296834 +
5114  41284.71625837467 * (1. - sh) +
5115  185781.22316268602 * pow(1. - sh, 2) +
5116  619270.7438756201 * pow(1. - sh, 3) +
5117  1.702994545657955e6 * pow(1. - sh, 4)) +
5118  log(z)*(119002.39202187635 +
5119  953068.8159722548 * (1. - sh) +
5120  4.289809675723369e6 * pow(1. - sh, 2) +
5121  1.4295562598631674e7 * pow(1. - sh, 3) +
5122  3.9289141445572205e7 * pow(1. - sh, 4))) * pow(z, 8);
5123  }
5124 
5125  if (17 <= maxpow) {
5126  if (sh < .900001)
5127  res += 0.;
5128  else
5129  res += 0.;
5130  }
5131 
5132  if (18 <= maxpow) {
5133  if (sh < .900001)
5134  res += (17038.136868535577 * lmu * pow(sh, -9) +
5135  665.5522214271709 * Li2sh * pow(-1 + sh, -3) * pow(sh, -7) +
5136  665.5522214271709 * pow(Lsh, 2) * pow(-1 + sh, -3) *
5137  pow(sh, -7) - lz *
5138  (665.5522214271709 * Lsh * pow(-1 + sh, -3) * pow(sh, -7) +
5139  0.0006156364204565536 * pow(-1 + sh, -2) * pow(sh, -16)*
5140  (84. + 1407. * sh + 11019. * pow(sh, 2) +
5141  53355. * pow(sh, 3) + 177339. * pow(sh, 4) +
5142  420771. * pow(sh, 5) + 695955. * pow(sh, 6) -
5143  6.98315357e8 * pow(sh, 7) +
5144  1.392698929e9 * pow(sh, 8) -
5145  6.96490484e8 * pow(sh, 9) - 1.2204e6 * pow(sh, 10) +
5146  196344. * pow(sh, 11) + 374004. * pow(sh, 12) +
5147  218268. * pow(sh, 13) + 79164. * pow(sh, 14) +
5148  17172. * pow(sh, 15) + 1350. * pow(sh, 16))) -
5149  0.0006156364204565536 * Lsh * pow(-1 + sh, -11) * pow(sh, -16)*
5150  (168. + 1302. * sh + 2760. * pow(sh, 2) -
5151  4440. * pow(sh, 3) - 27552. * pow(sh, 4) -
5152  26796. * pow(sh, 5) + 59136. * pow(sh, 6) -
5153  6.98823656e8 * pow(sh, 7) + 7.683499582e9 * pow(sh, 8) -
5154  (3.8389427147e10 + 1.08108e6 * Lshb) * pow(sh, 9) +
5155  36. * (3.197114839e9 + 240240. * Lshb) * pow(sh, 10) -
5156  7920. * (2.9052853e7 + 3822. * Lshb) * pow(sh, 11) +
5157  2520. * (1.27812301e8 + 24024. * Lshb) * pow(sh, 12) -
5158  84. * (3.834736693e9 + 900900. * Lshb) * pow(sh, 13) +
5159  240. * (9.59022487e8 + 252252. * Lshb) * pow(sh, 14) -
5160  24. * (4.798056467e9 + 1.26126e6 * Lshb) * pow(sh, 15) +
5161  208. * (1.84702757e8 + 41580. * Lshb) * pow(sh, 16) -
5162  (7.692281497e9 + 1.08108e6 * Lshb) * pow(sh, 17) +
5163  7.0015448e8 * pow(sh, 18)) -
5164  4.886003336956775e-7 * pow(-1 + sh, -10) * pow(sh, -16)*
5165  (-24990. - 3675. * sh + 1.155555e6 * pow(sh, 2) +
5166  4.697175e6 * pow(sh, 3) + 2.300739e6 * pow(sh, 4) -
5167  2.4304707e7 * pow(sh, 5) - 4.9414911e7 * pow(sh, 6) -
5168  8.93125212787e11 * pow(sh, 7) +
5169  8.923013880433e12 * pow(sh, 8) -
5170  4.0116829560699e13 * pow(sh, 9) +
5171  2.270268e8 * pow(3.141592653589793, 2) * pow(-1 + sh, 7) *
5172  pow(sh, 9) + 1.06887699006279e14 * pow(sh, 10) -
5173  1.86895650533025e14 * pow(sh, 11) +
5174  2.24067349455873e14 * pow(sh, 12) -
5175  1.86515351192835e14 * pow(sh, 13) +
5176  1.06425772402197e14 * pow(sh, 14) -
5177  3.9828263213811e13 * pow(sh, 15) +
5178  8.822814467806e12 * pow(sh, 16) -
5179  8.77298288866e11 * pow(sh, 17) +
5180  1.45210023e9 * pow(sh, 18) -
5181  4.602427326e9 * pow(sh, 19) +
5182  6.429483144e9 * pow(sh, 20) -
5183  5.36052951e9 * pow(sh, 21) + 2.64447351e9 * pow(sh, 22) -
5184  6.66882918e8 * pow(sh, 23) + 2.7794799e7 * pow(sh, 24) +
5185  1.513512e7 * pow(sh, 25))) * pow(z, 9);
5186  else
5187  res += (426695.7585784732 + 4.271204351874848e6 * (1. - sh) +
5188  2.32655866080789e7 * pow(1. - sh, 2) +
5189  9.160929759130552e7 * pow(1. - sh, 3) +
5190  2.9201125110288244e8 * pow(1. - sh, 4) +
5191  log(muh)*(17038.136868535577 +
5192  153343.2318168202 * (1. - sh) +
5193  766716.159084101 * pow(1. - sh, 2) +
5194  2.8112925833083703e6 * pow(1. - sh, 3) +
5195  8.43387774992511e6 * pow(1. - sh, 4)) +
5196  log(z)*(422113.76138518966 +
5197  3.8025545371882077e6 * (1. - sh) +
5198  1.9015929172070913e7 * pow(1. - sh, 2) +
5199  6.970448898501809e7 * pow(1. - sh, 3) +
5200  2.0898441977024493e8 * pow(1. - sh, 4))) * pow(z, 9);
5201  }
5202 
5203  if (19 <= maxpow) {
5204  if (sh < .900001)
5205  res += 0.;
5206  else
5207  res += 0.;
5208  }
5209 
5210  if (20 <= maxpow) {
5211  if (sh < .900001)
5212  res += (57503.711931307575 * lmu * pow(sh, -10) +
5213  2011.4467136465612 * Li2sh * pow(-1 + sh, -3) * pow(sh, -8) +
5214  2011.4467136465612 * pow(Lsh, 2) * pow(-1 + sh, -3) *
5215  pow(sh, -8) - lz *
5216  (2011.4467136465612 * Lsh * pow(-1 + sh, -3) * pow(sh, -8) +
5217  0.00008208485606087382 * pow(-1 + sh, -2) * pow(sh, -18)*
5218  (504. + 9464. * sh + 83804. * pow(sh, 2) +
5219  463964. * pow(sh, 3) + 1.792004e6 * pow(sh, 4) +
5220  5.082116e6 * pow(sh, 5) + 1.0736996e7 * pow(sh, 6) +
5221  1.6220516e7 * pow(sh, 7) -
5222  1.8827468068e10 * pow(sh, 8) +
5223  3.7548741164e10 * pow(sh, 9) -
5224  1.8766552383e10 * pow(sh, 10) -
5225  3.3805539e7 * pow(sh, 11) + 2.425761e6 * pow(sh, 12) +
5226  8.640081e6 * pow(sh, 13) + 5.776731e6 * pow(sh, 14) +
5227  2.476035e6 * pow(sh, 15) + 730935. * pow(sh, 16) +
5228  132615. * pow(sh, 17) + 8820. * pow(sh, 18))) +
5229  0.00008208485606087382 * Lsh * pow(-1 + sh, -12) *
5230  pow(sh, -18)*(1008. + 8848. * sh + 23688. * pow(sh, 2) -
5231  17352. * pow(sh, 3) - 212592. * pow(sh, 4) -
5232  311184. * pow(sh, 5) + 400176. * pow(sh, 6) +
5233  1.492176e6 * pow(sh, 7) - 1.8840602088e10 * pow(sh, 8) +
5234  2.25961747704e11 * pow(sh, 9) -
5235  3. * (4.14012625571e11 + 8.16816e6 * Lshb) * pow(sh, 10) +
5236  117. * (3.5366173433e10 + 1.88496e6 * Lshb) *
5237  pow(sh, 11) - 36. *
5238  (2.58507743869e11 + 2.450448e7 * Lshb) * pow(sh, 12) +
5239  1848. * (8.055409123e9 + 1.11384e6 * Lshb) * pow(sh, 13) -
5240  5040. * (3.445710547e9 + 612612. * Lshb) * pow(sh, 14) +
5241  504. * (2.9538397129e10 + 6.12612e6 * Lshb) *
5242  pow(sh, 15) - 2688. * (3.462637184e9 + 765765. * Lshb) *
5243  pow(sh, 16) + 1224. * (3.381399457e9 + 720720. * Lshb) *
5244  pow(sh, 17) - 18. *
5245  (6.9029521727e10 + 1.225224e7 * Lshb) * pow(sh, 18) +
5246  (2.26114032686e11 + 2.450448e7 * Lshb) * pow(sh, 19) -
5247  1.8862020144e10 * pow(sh, 20)) -
5248  3.257335557971183e-8 * pow(-1 + sh, -11) * pow(sh, -18)*
5249  (268128. + 50176. * sh - 1.5037316e7 * pow(sh, 2) -
5250  7.0758368e7 * pow(sh, 3) - 6.454424e7 * pow(sh, 4) +
5251  3.47363296e8 * pow(sh, 5) + 9.86787592e8 * pow(sh, 6) +
5252  3.5646688e7 * pow(sh, 7) +
5253  4.8969050829328e13 * pow(sh, 8) -
5254  5.38246850652224e14 * pow(sh, 9) +
5255  2.689062929610038e15 * pow(sh, 10) +
5256  1.02918816e10 * pow(3.141592653589793, 2) *
5257  pow(-1 + sh, 8) * pow(sh, 10) -
5258  8.060902410374074e15 * pow(sh, 11) +
5259  1.6109269666327124e16 * pow(sh, 12) -
5260  2.2534391970484576e16 * pow(sh, 13) +
5261  2.2513346650300896e16 * pow(sh, 14) -
5262  1.6062787755766024e16 * pow(sh, 15) +
5263  8.019705052502612e15 * pow(sh, 16) -
5264  2.667905230770352e15 * pow(sh, 17) +
5265  5.32021578063623e14 * pow(sh, 18) -
5266  4.8123135181584e13 * pow(sh, 19) -
5267  9.5864935068e10 * pow(sh, 20) +
5268  2.69818915464e11 * pow(sh, 21) -
5269  4.54966309854e11 * pow(sh, 22) +
5270  4.78236408048e11 * pow(sh, 23) -
5271  3.2126306742e11 * pow(sh, 24) +
5272  1.3173020316e11 * pow(sh, 25) -
5273  2.7741591765e10 * pow(sh, 26) +
5274  8.0713269e8 * pow(sh, 27) + 5.189184e8 * pow(sh, 28))) *
5275  pow(z, 10);
5276  else
5277  res += (1.5612166947024823e6 + 1.7161599197470605e7 * (1. - sh) +
5278  1.0201302929387844e8 * pow(1. - sh, 2) +
5279  4.357191898792429e8 * pow(1. - sh, 3) +
5280  1.4983564371913476e9 * pow(1. - sh, 4) +
5281  log(muh)*(57503.711931307575 +
5282  575037.1193130758 * (1. - sh) +
5283  3.1627041562219164e6 * pow(1. - sh, 2) +
5284  1.2650816624887666e7 * pow(1. - sh, 3) +
5285  4.1115154030884914e7 * pow(1. - sh, 4)) +
5286  log(z)*(1.517643412993728e6 +
5287  1.5188579863273544e7 * (1. - sh) +
5288  8.354722944715922e7 * pow(1. - sh, 2) +
5289  3.340855718739629e8 * pow(1. - sh, 3) +
5290  1.0851066958008096e9 * pow(1. - sh, 4))) * pow(z, 10);
5291  }
5292  }
5293  return res;
5294 }

◆ F_19re()

double F_1::F_19re ( double  muh,
double  z,
double  sh,
int  maxpow = 20 
)

Definition at line 2475 of file F_1.cpp.

2476 {
2477  double lz = log(z);
2478  double lmu = log(muh);
2479  double Lsh = log(sh);
2480  double sh2 = pow(sh, 2);
2481  double sh3 = pow(sh, 3);
2482  double lz2 = pow(lz, 2);
2483  double lz3 = pow(lz, 3);
2484  double sqrtz = pow(z, 0.5);
2485  double z2 = pow(z, 2);
2486  double z3 = pow(z, 3);
2487 
2488 
2489  double res = 0;
2490 
2491  if (sh < 0.4) {
2492  res = -4.61812 - 0.0493827 * Lsh - 0.06584362139917696 * lmu * Lsh +
2493  2.814815 * lz + lmu * (-1.953360768175583 +
2494  1.1851851851851851 * lz) + 4.47441 * sh + 0.74074 * lz * sh +
2495  14.4621 * z - 0.592593 * Lsh * z + 4.796605 * lz * z +
2496  71.3855 * sh * z - 2.66667 * Lsh * sh * z + 4.238385 * lz * sh * z -
2497  0.592595 * Lsh * lz * sh * z - 1.0534979423868314 * pow(lmu, 2) -
2498  0.2962975 * z * lz2 + 3.134725 * sh * z * lz2 -
2499  0.098765375 * z * lz3 - 0.098765375 * sh * z * lz3 +
2500  0.0493826875 * sh * z * pow(lz, 4) + 37.1282 * sh2 +
2501  0.0164609 * Lsh * sh2 + 11.03105 * lz * sh2 +
2502  212.74 * z * sh2 - 5.33333 * Lsh * z * sh2 -
2503  10.96075 * lz * z * sh2 - 1.185185 * Lsh * lz * z * sh2 +
2504  1.3333325 * lz2 * sh2 +
2505  14.2931 * z * lz2 * sh2 +
2506  0.098765375 * lz3 * sh2 -
2507  0.29629625 * z * lz3 * sh2 +
2508  0.148148125 * z * pow(lz, 4) * sh2 + 79.7475 * sh3 +
2509  0.0219479 * Lsh * sh3 + 28.65855 * lz * sh3 +
2510  425.579 * z * sh3 - 8.2963 * Lsh * z * sh3 -
2511  34.4008 * lz * z * sh3 - 1.77778 * Lsh * lz * z * sh3 +
2512  2.814825 * lz2 * sh3 +
2513  32.33925 * z * lz2 * sh3 +
2514  0.29629625 * lz3 * sh3 -
2515  0.6913575 * z * lz3 * sh3 +
2516  0.29629625 * z * pow(lz, 4) * sh3 +
2517  lmu * sh3*(0.00020902736952119668 -
2518  0.0037624926513815404 * pow(z, -3)) -
2519  0.0759415 * sh3 * pow(z, -3) +
2520  lmu * sh2*(0.0014109347442680777 -
2521  0.025396825396825397 * pow(z, -2)) -
2522  0.403158 * sh2 * pow(z, -2) -
2523  0.00480894 * sh3 * pow(z, -2) +
2524  lmu * sh * (0.01316872427983539 -
2525  0.23703703703703705 * pow(z, -1)) -
2526  2.48507 * sh * pow(z, -1) - 0.0613169 * sh2 * pow(z, -1) -
2527  1.81002 * sh3 * pow(z, -1) -
2528  0.4597295 * lz * sh3 * pow(z, -1) -
2529  0.04938275 * lz2 * sh3 * pow(z, -1) +
2530  sh3*(7.79821 * pow(z, -0.5) - 319.726 * sqrtz) -
2531  23.3946 * sh * sqrtz - 140.368 * sh2 * sqrtz +
2532  3.8991 * pow(z, 1.5) - 16.0864 * z2 +
2533  4.95977 * Lsh * z2 + 27.12195 * lz * z2 -
2534  0.592595 * Lsh * lz * z2 - 18.1301 * sh * z2 +
2535  18.6539 * Lsh * sh * z2 + 74.798 * lz * sh * z2 -
2536  2.37037 * Lsh * lz * sh * z2 -
2537  3.85185 * lz2 * z2 -
2538  0.5925925 * Lsh * lz2 * z2 -
2539  12.2963 * sh * lz2 * z2 -
2540  2.37037 * Lsh * sh * lz2 * z2 -
2541  0.4938275 * lz3 * z2 -
2542  1.3827125 * sh * lz3 * z2 -
2543  44.6829 * sh2 * z2 +
2544  40.786 * Lsh * sh2 * z2 +
2545  136.0075 * lz * sh2 * z2 -
2546  7.1111 * Lsh * lz * sh2 * z2 -
2547  29.77775 * lz2 * sh2 * z2 -
2548  5.333325 * Lsh * lz2 * sh2 * z2 -
2549  2.6666625 * lz3 * sh2 * z2 -
2550  87.8946 * sh3 * z2 +
2551  70.2698 * Lsh * sh3 * z2 +
2552  208.806 * lz * sh3 * z2 -
2553  15.80245 * Lsh * lz * sh3 * z2 -
2554  56.79 * lz2 * sh3 * z2 -
2555  9.481475 * Lsh * lz2 * sh3 * z2 -
2556  4.345675 * lz3 * sh3 * z2 - 14.73 * z3 -
2557  9.20287 * Lsh * z3 - 14.28805 * lz * z3 -
2558  0.52675 * Lsh * lz * z3 - 72.89 * sh * z3 -
2559  41.6104 * Lsh * sh * z3 - 34.0675 * lz * sh * z3 -
2560  1.185185 * Lsh * lz * sh * z3 +
2561  5.037025 * lz2 * z3 +
2562  0.7901225 * Lsh * lz2 * z3 +
2563  15.901225 * sh * lz2 * z3 +
2564  3.55555 * Lsh * sh * lz2 * z3 -
2565  137.203 * sh2 * z3 -
2566  111.356 * Lsh * sh2 * z3 -
2567  49.7185 * lz * sh2 * z3 +
2568  42.22225 * lz2 * sh2 * z3 +
2569  9.481475 * Lsh * lz2 * sh2 * z3 -
2570  279.268 * sh3 * z3 -
2571  231.893 * Lsh * sh3 * z3 -
2572  73.4265 * lz * sh3 * z3 +
2573  5.92595 * Lsh * lz * sh3 * z3 +
2574  82.81475 * lz2 * sh3 * z3 +
2575  19.753075 * Lsh * lz2 * sh3 * z3;
2576  } else {
2577  double Lshb = log(1. - sh);
2578  double sqrtsh = sqrt(sh);
2579  double sqrt4sh = sqrt(4. - sh);
2580  double Li2sh = real(Li2(sh));
2581  double Li3sh = real(Li3(sh));
2582  double Li3shb = real(Li3(1. - sh));
2583  double Li4sh = real(Li4(sh));
2584  double ash = asin(sqrtsh / 2.);
2585  double cl2 = Cl2(2. * ash);
2586  double cl3 = Cl3(2. * ash);
2587  if (0 <= maxpow) {
2588  if (sh < .900001)
2589  res += (11.39728026699467 - 1.0534979423868314 * pow(lmu, 2) -
2590  0.03292181069958848 * Li2sh * (-8. + 17. * sh) *
2591  pow(-1 + sh, -1) - 0.03292181069958848 * cl2 * (2. + sh) *
2592  sqrt4sh * sqrtsh * pow(sh, -2) -
2593  lmu * (-1.1193415637860082 * Lsh +
2594  0.13168724279835392 * ash * (2. + sh) * sqrt4sh * sqrtsh *
2595  pow(sh, -2) + 0.13168724279835392 * (-2. + 29. * sh) *
2596  pow(sh, -1)) + 0.14814814814814814 * pow(Lsh, 2) *
2597  pow(-1 + sh, -3) * pow(sh, 2) -
2598  Lsh * (0.03292181069958848 * ash * (2. + sh) * sqrt4sh *
2599  sqrtsh * pow(sh, -2) +
2600  0.01646090534979424 * pow(-1 + sh, -2)*
2601  (-168. + 307. * sh - 121. * pow(sh, 2) +
2602  2. * Lshb * (8. - 25. * sh + 17. * pow(sh, 2)))) -
2603  0.03292181069958848 * ash * sqrt4sh * sqrtsh * pow(-1 + sh, -3) *
2604  pow(sh, -2)*(-4. + 3. * sh + 18. * pow(sh, 2) -
2605  16. * pow(sh, 3) + 5. * pow(sh, 4)) -
2606  0.09876543209876543 * pow(ash, 2) * pow(-1 + sh, -4) *
2607  pow(sh, -1)*(12. - 33. * sh + 18. * pow(sh, 2) -
2608  4. * pow(sh, 4) + pow(sh, 5)) +
2609  0.001828989483310471 * pow(-1 + sh, -4) * pow(sh, -1)*
2610  (144. + 2. * sh * (-2068. +
2611  75. * pow(3.141592653589793, 2)) +
2612  (15077. - 618. * pow(3.141592653589793, 2)) *
2613  pow(sh, 2) + 102. *
2614  (-214. + 9. * pow(3.141592653589793, 2)) * pow(sh, 3) +
2615  (14249. - 615. * pow(3.141592653589793, 2)) *
2616  pow(sh, 4) + 2. * (-1753. +
2617  78. * pow(3.141592653589793, 2)) * pow(sh, 5))) *
2618  pow(z, 0);
2619  else
2620  res += pow(z, 0)*(5.605483340182181 -
2621  1.9301201034078073 * (1. - sh) -
2622  1.1708211541924651 * pow(1. - sh, 2) -
2623  0.8303057591438543 * pow(1. - sh, 3) +
2624  log(muh)*(-3.9138369114536733 -
2625  1.136144688522592 * (1. - sh) -
2626  0.5573265536192934 * pow(1. - sh, 2) -
2627  0.37357014711105585 * pow(1. - sh, 3) -
2628  0.27973271946953165 * pow(1. - sh, 4)) -
2629  0.6410250317311895 * pow(1. - sh, 4) -
2630  1.0534979423868314 * pow(log(muh), 2));
2631  }
2632 
2633  if (1 <= maxpow) {
2634  if (sh < .900001)
2635  res += 0.;
2636  else
2637  res += 0.;
2638  }
2639 
2640  if (2 <= maxpow) {
2641  if (sh < .900001)
2642  res += (-0.09876543209876543 * sh * pow(Lsh, 4) * pow(-1 + sh, -3) +
2643  0.5925925925925926 * Li2sh * (1. + 2. * sh) *
2644  pow(-1 + sh, -2) - 0.19753086419753085 * (-3. + sh) *
2645  pow(Lsh, 3) * pow(-1 + sh, -2) -
2646  7.111111111111111 * lmu * pow(sh, -1) -
2647  lz * (0.5925925925925926 * Lsh *
2648  (2. + 2. * Lshb * (-1. + sh) + sh) * pow(-1 + sh, -2) +
2649  1.1851851851851851 * Li2sh * pow(-1 + sh, -1) -
2650  0.5925925925925926 * pow(Lsh, 2) * pow(-1 + sh, -1) -
2651  0.19753086419753085 *
2652  (144. + sh * (-135. + pow(3.141592653589793, 2))) *
2653  pow(-1 + sh, -1) * pow(sh, -1)) +
2654  0.7123300166871669 * pow(-1 + sh, -3)*
2655  (-3. + 3. * sh + 2. * pow(sh, 2)) -
2656  0.5925925925925926 * ash * sqrt4sh * sqrtsh * pow(-1 + sh, -3) *
2657  pow(sh, -1)*(2. - 11. * sh + 3. * pow(sh, 2)) +
2658  0.5925925925925926 * Li3sh * pow(-1 + sh, -3)*
2659  (-3. - 3. * sh + 4. * pow(sh, 2)) -
2660  pow(Lsh, 2)*(1.1851851851851851 * Li2sh * sh *
2661  pow(-1 + sh, -3) +
2662  0.09876543209876543 * pow(-1 + sh, -3)*
2663  (12. + 3. * Lshb * (-7. + 5. * sh) +
2664  2. * sh * (-6. + pow(3.141592653589793, 2)) +
2665  3. * pow(sh, 2))) -
2666  3.5555555555555554 * pow(ash, 2) * pow(-1 + sh, -4)*
2667  (-1. + 8. * sh - 5. * pow(sh, 2) + pow(sh, 3)) -
2668  Lsh * (5.698640133497335 * sh * pow(-1 + sh, -3) -
2669  4.7407407407407405 * Li3sh * sh * pow(-1 + sh, -3) +
2670  0.5925925925925926 * Li2sh * pow(-1 + sh, -3)*
2671  (-5. + sh + 2. * pow(sh, 2)) -
2672  0.09876543209876543 * pow(-1 + sh, -3) * pow(sh, -1)*
2673  (-288. + sh * (906. - 6. * Lshb -
2674  7. * pow(3.141592653589793, 2)) +
2675  (-903. - 6. * Lshb + 5. * pow(3.141592653589793, 2)) *
2676  pow(sh, 2) + 3. * (95. + 4. * Lshb) * pow(sh, 3))) -
2677  0.019753086419753086 * pow(-1 + sh, -4) * pow(sh, -1)*
2678  (-4. * (-1. + sh) * pow(3.141592653589793, 4) * pow(sh, 2) +
2679  15. * (-1. + sh)*(-20. + 48. * sh +
2680  3. * (-13. + 8. * Li4sh) * pow(sh, 2) + 11. * pow(sh, 3))\
2681  + 5. * pow(3.141592653589793, 2)*
2682  (-3. + 8. * sh - 10. * pow(sh, 2) + 2. * pow(sh, 4)))) *
2683  pow(z, 1);
2684  else
2685  res += (-0.6372090343808106 - 30.841194974865694 * (1. - sh) -
2686  45.8723194923496 * pow(1. - sh, 2) -
2687  55.64666652217136 * pow(1. - sh, 3) +
2688  log(z)*(-29.333333333333332 -
2689  29.037037037037038 * (1. - sh) -
2690  28.921810699588477 * pow(1. - sh, 2) -
2691  28.854320987654322 * pow(1. - sh, 3) -
2692  28.8079012345679 * pow(1. - sh, 4)) +
2693  log(muh)*(-7.111111111111111 -
2694  7.111111111111111 * (1. - sh) -
2695  7.111111111111111 * pow(1. - sh, 2) -
2696  7.111111111111111 * pow(1. - sh, 3) -
2697  7.111111111111111 * pow(1. - sh, 4)) -
2698  62.91148562558235 * pow(1. - sh, 4)) * pow(z, 1);
2699  }
2700 
2701  if (3 <= maxpow) {
2702  if (sh < .900001)
2703  res += 0.3950617283950617 * (-2. + sh) * pow(3.141592653589793, 2) *
2704  pow(sh, -1) * pow(z, 1.5);
2705  else
2706  res += (-3.8991029732698697 - 7.798205946539739 * (1. - sh) -
2707  7.798205946539739 * pow(1. - sh, 2) -
2708  7.798205946539739 * pow(1. - sh, 3) -
2709  7.798205946539739 * pow(1. - sh, 4)) * pow(z, 1.5);
2710  }
2711 
2712  if (4 <= maxpow) {
2713  if (sh < .900001)
2714  res += (-0.5925925925925926 * Li3shb * (6. + sh) * pow(-1 + sh, -3) -
2715  0.5925925925925926 * Li3sh * (-11. + 3. * sh) *
2716  pow(-1 + sh, -3) - 0.09876543209876543 * (2. + sh) *
2717  pow(Lsh, 3) * pow(-1 + sh, -3) -
2718  lmu * (3.5555555555555554 * pow(sh, -2) +
2719  7.111111111111111 * Lsh * pow(sh, -2)) +
2720  0.5925925925925926 * Li2sh * pow(-1 + sh, -3) * pow(sh, -2)*
2721  (-3. + 10. * sh - 9. * pow(sh, 2) + pow(sh, 3)) +
2722  0.5925925925925926 * cl2 * sqrt4sh * sqrtsh * pow(-1 + sh, -3) *
2723  pow(sh, -1)*(2. + 8. * pow(sh, 2) - 5. * pow(sh, 3) +
2724  pow(sh, 4)) - 0.5925925925925926 * ash * sqrt4sh * sqrtsh *
2725  pow(-1 + sh, -3) * pow(sh, -1)*
2726  (-2. - 4. * sh + 24. * pow(sh, 2) - 15. * pow(sh, 3) +
2727  3. * pow(sh, 4)) - 0.7123300166871669 * pow(-1 + sh, -4) *
2728  pow(sh, -2)*(64. - 256. * sh + 375. * pow(sh, 2) -
2729  236. * pow(sh, 3) + 59. * pow(sh, 4)) +
2730  0.14814814814814814 * pow(Lsh, 2) * pow(-1 + sh, -4) *
2731  pow(sh, -2)*(185. - 751. * sh +
2732  3. * (379. + 2. * Lshb) * pow(sh, 2) -
2733  (777. + 8. * Lshb) * pow(sh, 3) +
2734  2. * (100. + Lshb) * pow(sh, 4)) -
2735  Lsh * (-0.5925925925925926 * Li2sh * (-7. + 2. * sh) *
2736  pow(-1 + sh, -3) -
2737  3.5555555555555554 * pow(ash, 2) * pow(-1 + sh, -4)*
2738  (-1. - 3. * sh + pow(sh, 2)) -
2739  0.04938271604938271 * pow(-1 + sh, -3) * pow(sh, -2)*
2740  (-423. + 1236. * sh -
2741  (1179. + 46. * pow(3.141592653589793, 2)) *
2742  pow(sh, 2) + 2. *
2743  (225. + pow(3.141592653589793, 2)) * pow(sh, 3) +
2744  12. * Lshb * (-3. + 10. * sh - 9. * pow(sh, 2) +
2745  pow(sh, 3))) -
2746  0.5925925925925926 * ash * sqrt4sh * sqrtsh *
2747  pow(-1 + sh, -3) * pow(sh, -1)*
2748  (2. + 8. * pow(sh, 2) - 5. * pow(sh, 3) + pow(sh, 4))) -
2749  1.7777777777777777 * pow(ash, 2) * pow(-1 + sh, -4)*
2750  (4. - 2. * sh - 24. * pow(sh, 2) + 23. * pow(sh, 3) -
2751  8. * pow(sh, 4) + pow(sh, 5)) -
2752  pow(lz, 2)*(-0.2962962962962963 * Lsh * (6. + sh) *
2753  pow(-1 + sh, -3) -
2754  0.14814814814814814 * pow(-1 + sh, -2) * pow(sh, -2)*
2755  (188. - 378. * sh + 169. * pow(sh, 2) + 12. * pow(sh, 3) -
2756  6. * pow(sh, 4) + pow(sh, 5))) -
2757  0.024691358024691357 * pow(-1 + sh, -4) * pow(sh, -2)*
2758  (88. - 448. * sh - 3. * (-415. + 48. * cl3) * pow(sh, 2) -
2759  2. * (917. + 216. * cl3) * pow(sh, 3) +
2760  (1453. + 144. * cl3) * pow(sh, 4) - 693. * pow(sh, 5) +
2761  210. * pow(sh, 6) - 21. * pow(sh, 7) -
2762  2. * pow(3.141592653589793, 2)*
2763  (-603. + 2441. * sh - 3677. * pow(sh, 2) +
2764  2457. * pow(sh, 3) - 662. * pow(sh, 4) +
2765  52. * pow(sh, 5) - 16. * pow(sh, 6) + 2. * pow(sh, 7))) -
2766  lz * (0.5925925925925926 * Li2sh * (6. + sh) *
2767  pow(-1 + sh, -3) -
2768  0.2962962962962963 * pow(Lsh, 2) * pow(-1 + sh, -2) -
2769  7.111111111111111 * lmu * pow(sh, -2) -
2770  7.111111111111111 * pow(ash, 2) * pow(-1 + sh, -4)*
2771  (-1. - 3. * sh + pow(sh, 2)) +
2772  0.2962962962962963 * Lsh * pow(-1 + sh, -3) * pow(sh, -2)*
2773  (-187. + 566. * sh +
2774  3. * (-191. + 4. * Lshb) * pow(sh, 2) +
2775  2. * (96. + Lshb) * pow(sh, 3)) -
2776  1.1851851851851851 * ash * sqrt4sh * sqrtsh *
2777  pow(-1 + sh, -3) * pow(sh, -1)*
2778  (2. + 8. * pow(sh, 2) - 5. * pow(sh, 3) + pow(sh, 4)) +
2779  0.04938271604938271 * pow(-1 + sh, -4) * pow(sh, -2)*
2780  (432. - 1728. * sh +
2781  (2511. + 8. * pow(3.141592653589793, 2)) *
2782  pow(sh, 2) - 2. *
2783  (735. + 11. * pow(3.141592653589793, 2)) * pow(sh, 3)\
2784  + (99. + 2. * pow(3.141592653589793, 2)) *
2785  pow(sh, 4) + 225. * pow(sh, 5) - 78. * pow(sh, 6) +
2786  9. * pow(sh, 7)))) * pow(z, 2);
2787  else
2788  res += pow(z, 2)*(-336.0382986459167 -
2789  695.8939576145283 * (1. - sh) -
2790  1040.3241576582361 * pow(1. - sh, 2) -
2791  1365.7546667417848 * pow(1. - sh, 3) -
2792  1671.7824637501126 * pow(1. - sh, 4) +
2793  log(muh)*(-3.5555555555555554 +
2794  7.111111111111111 * pow(1. - sh, 2) +
2795  16.59259259259259 * pow(1. - sh, 3) +
2796  27.85185185185185 * pow(1. - sh, 4)) +
2797  log(z)*(-21.887216272530303 +
2798  9.991951790611958 * (1. - sh) +
2799  71.95973563934483 * pow(1. - sh, 2) +
2800  151.94549827445954 * pow(1. - sh, 3) +
2801  245.72125954180052 * pow(1. - sh, 4) +
2802  log(muh)*(7.111111111111111 +
2803  14.222222222222221 * (1. - sh) +
2804  21.333333333333332 * pow(1. - sh, 2) +
2805  28.444444444444443 * pow(1. - sh, 3) +
2806  35.55555555555556 * pow(1. - sh, 4))) +
2807  (27.65432098765432 + 55.67901234567901 * (1. - sh) +
2808  83.6 * pow(1. - sh, 2) +
2809  111.39753086419753 * pow(1. - sh, 3) +
2810  139.20987654320987 * pow(1. - sh, 4)) * pow(log(z), 2));
2811  }
2812 
2813  if (5 <= maxpow) {
2814  if (sh < .900001)
2815  res += -0.05267489711934156 * pow(3.141592653589793, 2) * pow(sh, -3)*
2816  (3. + 14. * sh + 3. * pow(sh, 2)) * pow(z, 2.5);
2817  else
2818  res += (-10.397607928719653 - 20.795215857439306 * (1. - sh) -
2819  32.75246497546691 * pow(1. - sh, 2) -
2820  46.26935528280246 * pow(1. - sh, 3) -
2821  61.34588677944595 * pow(1. - sh, 4)) * pow(z, 2.5);
2822  }
2823 
2824  if (6 <= maxpow) {
2825  if (sh < .900001)
2826  res += (-0.7901234567901234 * Li3shb * (2. + sh) * pow(-1 + sh, -4) -
2827  lmu * (-6.320987654320987 * pow(sh, -3) +
2828  9.481481481481481 * Lsh * pow(sh, -3)) +
2829  1.1851851851851851 * Li3sh * pow(-1 + sh, -3) * pow(sh, -1) -
2830  0.3950617283950617 * pow(Lsh, 3) * pow(-1 + sh, -3) *
2831  pow(sh, -1) + 0.4748866777914446 * pow(-1 + sh, -4) *
2832  pow(sh, -1)*(3. + sh + 2. * pow(sh, 2)) -
2833  0.06584362139917696 * Li2sh * pow(-1 + sh, -4) * pow(sh, -3)*
2834  (-36. + 144. * sh - 234. * pow(sh, 2) + 208. * pow(sh, 3) -
2835  73. * pow(sh, 4) + 9. * pow(sh, 5)) -
2836  0.01646090534979424 * pow(Lsh, 2) * pow(-1 + sh, -5) *
2837  pow(sh, -4)*(-12. + 3682. * sh - 18347. * pow(sh, 2) +
2838  (36889. + 36. * Lshb) * pow(sh, 3) -
2839  2. * (18563. + 36. * Lshb) * pow(sh, 4) +
2840  4. * (4679. + 9. * Lshb) * pow(sh, 5) - 3748. * pow(sh, 6) -
2841  18. * pow(sh, 7)) +
2842  0.3950617283950617 * pow(ash, 2) * pow(-1 + sh, -4)*
2843  (16. - 22. * sh - 171. * pow(sh, 2) + 336. * pow(sh, 3) -
2844  300. * pow(sh, 4) + 141. * pow(sh, 5) - 33. * pow(sh, 6) +
2845  3. * pow(sh, 7)) - pow(lz, 2)*
2846  (-0.3950617283950617 * Lsh * (2. + sh) * pow(-1 + sh, -4) +
2847  0.01646090534979424 * pow(-1 + sh, -3) * pow(sh, -4)*
2848  (-3. + 3685. * sh - 11046. * pow(sh, 2) +
2849  11061. * pow(sh, 3) - 3604. * pow(sh, 4) -
2850  132. * pow(sh, 5) + 321. * pow(sh, 6) -
2851  378. * pow(sh, 7) + 222. * pow(sh, 8) -
2852  60. * pow(sh, 9) + 6. * pow(sh, 10))) -
2853  0.13168724279835392 * ash * pow(-1 + sh, -3)*
2854  (-8. - 21. * sh - 17. * pow(sh, 2) + 23. * pow(sh, 3) -
2855  8. * pow(sh, 4) + pow(sh, 5)) * pow(-((-4 + sh) * sh), 0.5)\
2856  - Lsh * (-2.3703703703703702 * (2. + sh) * pow(ash, 2) *
2857  pow(-1 + sh, -4) +
2858  1.1851851851851851 * Li2sh * pow(-1 + sh, -3) *
2859  pow(sh, -1) + 0.0054869684499314125 * pow(-1 + sh, -4) *
2860  pow(sh, -4)*(30. + (12452. - 432. * Lshb) * sh +
2861  2. * (-25315. + 864. * Lshb) * pow(sh, 2) +
2862  36. * (-78. * Lshb +
2863  5. * (424. + pow(3.141592653589793, 2))) *
2864  pow(sh, 3) + (-50317. + 2496. * Lshb -
2865  36. * pow(3.141592653589793, 2)) * pow(sh, 4) +
2866  (12496. - 876. * Lshb +
2867  72. * pow(3.141592653589793, 2)) * pow(sh, 5) +
2868  27. * (3. + 4. * Lshb) * pow(sh, 6)) +
2869  0.3950617283950617 * ash * pow(-1 + sh, -3)*
2870  (4. + 15. * sh - 29. * pow(sh, 2) + 23. * pow(sh, 3) -
2871  8. * pow(sh, 4) + pow(sh, 5)) *
2872  pow(-((-4 + sh) * sh), 0.5)) -
2873  lz * (0.7901234567901234 * Li2sh * (2. + sh) *
2874  pow(-1 + sh, -4) -
2875  4.7407407407407405 * (2. + sh) * pow(ash, 2) *
2876  pow(-1 + sh, -4) -
2877  9.481481481481481 * lmu * pow(sh, -3) -
2878  0.5925925925925926 * pow(Lsh, 2) * pow(-1 + sh, -3) *
2879  pow(sh, -1) + 0.03292181069958848 * Lsh *
2880  pow(-1 + sh, -4) * pow(sh, -4)*
2881  (-6. + 3682. * sh - 14713. * pow(sh, 2) +
2882  22170. * pow(sh, 3) +
2883  6. * (-2491. + 8. * Lshb) * pow(sh, 4) +
2884  6. * (631. + 4. * Lshb) * pow(sh, 5) - 9. * pow(sh, 6)) +
2885  0.0054869684499314125 * pow(-1 + sh, -3) * pow(sh, -4)*
2886  (15. + 12482. * sh - 37473. * pow(sh, 2) +
2887  37278. * pow(sh, 3) - 12305. * pow(sh, 4) +
2888  498. * pow(sh, 5) - 1215. * pow(sh, 6) +
2889  606. * pow(sh, 7) - 84. * pow(sh, 8) - 24. * pow(sh, 9) +
2890  6. * pow(sh, 10)) +
2891  0.7901234567901234 * ash * pow(-1 + sh, -3)*
2892  (4. + 15. * sh - 29. * pow(sh, 2) + 23. * pow(sh, 3) -
2893  8. * pow(sh, 4) + pow(sh, 5)) *
2894  pow(-((-4 + sh) * sh), 0.5)) -
2895  0.0027434842249657062 * pow(-1 + sh, -4) * pow(sh, -4)*
2896  (19. + 31332. * sh - 125971. * pow(sh, 2) +
2897  189649. * pow(sh, 3) - 94. * pow(sh, 11) +
2898  6. * pow(3.141592653589793, 2)*
2899  (-6. + 3838. * sh - 15355. * pow(sh, 2) +
2900  23258. * pow(sh, 3) - 15790. * pow(sh, 4) +
2901  4134. * pow(sh, 5) - 299. * pow(sh, 6) +
2902  440. * pow(sh, 7) - 400. * pow(sh, 8) +
2903  188. * pow(sh, 9) - 44. * pow(sh, 10) + 4. * pow(sh, 11))\
2904  + pow(sh, 4)*(-125525. + 1728. * cl3 -
2905  576. * cl2 * pow(-((-4 + sh) * sh), 0.5)) +
2906  12. * pow(sh, 5)*(2563. + 72. * cl3 -
2907  132. * cl2 * pow(-((-4 + sh) * sh), 0.5)) +
2908  2. * pow(sh, 10)*(451. +
2909  72. * cl2 * pow(-((-4 + sh) * sh), 0.5)) -
2910  4. * pow(sh, 9)*(791. +
2911  324. * cl2 * pow(-((-4 + sh) * sh), 0.5)) +
2912  pow(sh, 8)*(4810. +
2913  4464. * cl2 * pow(-((-4 + sh) * sh), 0.5)) +
2914  pow(sh, 6)*(-343. +
2915  6336. * cl2 * pow(-((-4 + sh) * sh), 0.5)) -
2916  pow(sh, 7)*(2371. +
2917  7488. * cl2 * pow(-((-4 + sh) * sh), 0.5)))) * pow(z, 3);
2918  else
2919  res += pow(z, 3)*(-691.9182670329545 -
2920  2017.613655726338 * (1. - sh) -
2921  3881.550454689942 * pow(1. - sh, 2) -
2922  6209.7474017909 * pow(1. - sh, 3) -
2923  8925.087722919276 * pow(1. - sh, 4) +
2924  log(muh)*(6.320987654320987 +
2925  28.444444444444443 * (1. - sh) +
2926  71.11111111111111 * pow(1. - sh, 2) +
2927  137.4814814814815 * pow(1. - sh, 3) +
2928  229.92592592592592 * pow(1. - sh, 4)) +
2929  log(z)*(65.87937511351353 +
2930  322.6369826409675 * (1. - sh) +
2931  831.0074785910778 * pow(1. - sh, 2) +
2932  1624.0261584651576 * pow(1. - sh, 3) +
2933  2734.9197954441984 * pow(1. - sh, 4) +
2934  log(muh)*(9.481481481481481 +
2935  28.444444444444443 * (1. - sh) +
2936  56.888888888888886 * pow(1. - sh, 2) +
2937  94.81481481481481 * pow(1. - sh, 3) +
2938  142.22222222222223 * pow(1. - sh, 4))) +
2939  (59.7037037037037 + 181.14567901234568 * (1. - sh) +
2940  362.4493827160494 * pow(1. - sh, 2) +
2941  603.5673133450912 * pow(1. - sh, 3) +
2942  905.1428571428571 * pow(1. - sh, 4)) * pow(log(z), 2));
2943  }
2944 
2945  if (7 <= maxpow) {
2946  if (sh < .900001)
2947  res += -0.004514991181657848 * pow(3.141592653589793, 2) * pow(sh, -5)*
2948  (15. + 108. * sh + 314. * pow(sh, 2) + 108. * pow(sh, 3) +
2949  15. * pow(sh, 4)) * pow(z, 3.5);
2950  else
2951  res += (-24.954259028927165 - 74.8627770867815 * (1. - sh) -
2952  157.21183188224114 * pow(1. - sh, 2) -
2953  279.48770112398427 * pow(1. - sh, 3) -
2954  449.8450801732495 * pow(1. - sh, 4)) * pow(z, 3.5);
2955  }
2956 
2957  if (8 <= maxpow) {
2958  if (sh < .900001)
2959  res += (-1. * lmu * (-19.555555555555557 * pow(sh, -4) +
2960  21.333333333333332 * Lsh * pow(sh, -4)) -
2961  2.374433388957223 * pow(-1 + sh, -3) * pow(sh, -2) +
2962  1.9753086419753085 * Li3sh * pow(-1 + sh, -3) * pow(sh, -2) -
2963  0.6584362139917695 * pow(Lsh, 3) * pow(-1 + sh, -3) *
2964  pow(sh, -2) - 0.09876543209876543 * Li2sh *
2965  pow(-1 + sh, -5) * pow(sh, -4)*
2966  (54. - 268. * sh + 544. * pow(sh, 2) - 570. * pow(sh, 3) +
2967  292. * pow(sh, 4) - 58. * pow(sh, 5) - 6. * pow(sh, 6) +
2968  3. * pow(sh, 7)) - 1.7777777777777777 * sh * pow(ash, 2) *
2969  pow(-1 + sh, -4)*(-24. - 3. * sh + 174. * pow(sh, 2) -
2970  390. * pow(sh, 3) + 411. * pow(sh, 4) - 241. * pow(sh, 5) +
2971  80. * pow(sh, 6) - 14. * pow(sh, 7) + pow(sh, 8)) -
2972  0.01646090534979424 * pow(Lsh, 2) * pow(-1 + sh, -6) *
2973  pow(sh, -6)*(6. + 14. * sh - 9747. * pow(sh, 2) +
2974  58077. * pow(sh, 3) -
2975  3. * (48391. + 20. * Lshb) * pow(sh, 4) +
2976  3. * (64669. + 60. * Lshb) * pow(sh, 5) -
2977  15. * (9737. + 12. * Lshb) * pow(sh, 6) +
2978  (58789. + 60. * Lshb) * pow(sh, 7) - 9906. * pow(sh, 8) +
2979  27. * pow(sh, 9) - 9. * pow(sh, 10)) +
2980  0.00823045267489712 * pow(lz, 2) * pow(sh, -6)*
2981  (-3. - 25. * sh + 19344. * pow(sh, 2) + 73. * pow(sh, 4) +
2982  3. * pow(sh, 5) + 180. * pow(sh, 6) + 36. * pow(sh, 7) -
2983  738. * pow(sh, 8) + 612. * pow(sh, 9) - 180. * pow(sh, 10) +
2984  18. * pow(sh, 11)) +
2985  0.09876543209876543 * ash * pow(-1 + sh, -3)*
2986  (-6. - 41. * sh - 239. * pow(sh, 2) + 671. * pow(sh, 3) -
2987  680. * pow(sh, 4) + 329. * pow(sh, 5) - 77. * pow(sh, 6) +
2988  7. * pow(sh, 7)) * pow(-((-4 + sh) * sh), 0.5) -
2989  lz * (-21.333333333333332 * lmu * pow(sh, -4) -
2990  0.9876543209876543 * pow(Lsh, 2) * pow(-1 + sh, -3) *
2991  pow(sh, -2) - 0.03292181069958848 * Lsh *
2992  pow(-1 + sh, -5) * pow(sh, -6)*
2993  (-3. - 10. * sh + 9722. * pow(sh, 2) -
2994  48430. * pow(sh, 3) + 96898. * pow(sh, 4) -
2995  97142. * pow(sh, 5) + 48736. * pow(sh, 6) -
2996  9804. * pow(sh, 7) + 3. * pow(sh, 8) + 3. * pow(sh, 9)) -
2997  0.00027434842249657066 * pow(-1 + sh, -4) * pow(sh, -6)*
2998  (105. + 55. * sh + 963530. * pow(sh, 2) -
2999  3.85233e6 * pow(sh, 3) + 5.76189e6 * pow(sh, 4) -
3000  3.806202e6 * pow(sh, 5) + 923844. * pow(sh, 6) +
3001  1154. * pow(sh, 7) + 54349. * pow(sh, 8) -
3002  76131. * pow(sh, 9) + 4716. * pow(sh, 10) +
3003  82440. * pow(sh, 11) - 83970. * pow(sh, 12) +
3004  36900. * pow(sh, 13) - 7740. * pow(sh, 14) +
3005  630. * pow(sh, 15)) -
3006  1.1851851851851851 * ash *
3007  (-6. - 13. * sh + 20. * pow(sh, 2) - 8. * pow(sh, 3) +
3008  pow(sh, 4)) * pow(-((-4 + sh) * sh), 0.5)) -
3009  Lsh * (1.9753086419753085 * Li2sh * pow(-1 + sh, -3) *
3010  pow(sh, -2) + 0.0027434842249657062 * pow(-1 + sh, -5) *
3011  pow(sh, -6)*(-21. + 10. * sh +
3012  2. * (-48097. + 972. * Lshb) * pow(sh, 2) +
3013  (483970. - 9648. * Lshb) * pow(sh, 3) +
3014  (-972667. + 19584. * Lshb -
3015  600. * pow(3.141592653589793, 2)) * pow(sh, 4) +
3016  8. * (122107. - 2565. * Lshb +
3017  150. * pow(3.141592653589793, 2)) * pow(sh, 5) +
3018  2. * (-245429. + 5256. * Lshb -
3019  300. * pow(3.141592653589793, 2)) * pow(sh, 6) +
3020  (98142. - 2088. * Lshb) * pow(sh, 7) -
3021  6. * (7. + 36. * Lshb) * pow(sh, 8) +
3022  6. * (5. + 18. * Lshb) * pow(sh, 9)) -
3023  0.5925925925925926 * ash *
3024  (-6. - 13. * sh + 20. * pow(sh, 2) - 8. * pow(sh, 3) +
3025  pow(sh, 4)) * pow(-((-4 + sh) * sh), 0.5)) -
3026  4.572473708276177e-6 * pow(-1 + sh, -5) * pow(sh, -6)*
3027  (-1200. * pow(3.141592653589793, 2)*
3028  (-9. - 30. * sh + 30192. * pow(sh, 2) -
3029  150534. * pow(sh, 3) + 301774. * pow(sh, 4) -
3030  303542. * pow(sh, 5) + 152986. * pow(sh, 6) -
3031  30076. * pow(sh, 7) - 1033. * pow(sh, 8) -
3032  2857. * pow(sh, 9) + 10122. * pow(sh, 10) -
3033  14418. * pow(sh, 11) + 11736. * pow(sh, 12) -
3034  5778. * pow(sh, 13) + 1692. * pow(sh, 14) -
3035  270. * pow(sh, 15) + 18. * pow(sh, 16)) +
3036  (-1. + sh)*(2775. - 2775. * sh +
3037  1.836255e7 * pow(sh, 2) - 7.415055e7 * pow(sh, 3) +
3038  1.1249425e8 * pow(sh, 4) - 7.6337698e7 * pow(sh, 5) +
3039  86850. * pow(sh, 15) +
3040  pow(sh, 8)*(4.883011e6 -
3041  4.6656e6 * cl2 * pow(-((-4 + sh) * sh), 0.5)) -
3042  900. * pow(sh, 14)*
3043  (1249. + 144. * cl2 * pow(-((-4 + sh) * sh), 0.5)) +
3044  900. * pow(sh, 13)*
3045  (6445. + 1728. * cl2 * pow(-((-4 + sh) * sh), 0.5)) -
3046  4050. * pow(sh, 12)*
3047  (3755. + 1856. * cl2 * pow(-((-4 + sh) * sh), 0.5)) +
3048  4500. * pow(sh, 11)*
3049  (4681. + 4176. * cl2 * pow(-((-4 + sh) * sh), 0.5)) +
3050  12. * pow(sh, 6)*
3051  (1.746143e6 +
3052  64800. * cl2 * pow(-((-4 + sh) * sh), 0.5)) -
3053  2. * pow(sh, 7)*(1.393817e6 +
3054  712800. * cl2 * pow(-((-4 + sh) * sh), 0.5)) -
3055  36. * pow(sh, 10)*
3056  (374591. + 716400. * cl2 * pow(-((-4 + sh) * sh), 0.5))
3057  + 3. * pow(sh, 9)*
3058  (-523. + 6.1344e6 * cl2 * pow(-((-4 + sh) * sh), 0.5)))
3059  )) * pow(z, 4);
3060  else
3061  res += pow(z, 4)*(-1672.4687901566804 -
3062  6425.515582048289 * (1. - sh) -
3063  15411.783043279445 * pow(1. - sh, 2) -
3064  29568.2502704632 * pow(1. - sh, 3) -
3065  49534.42028818623 * pow(1. - sh, 4) +
3066  log(muh)*(19.555555555555557 +
3067  99.55555555555556 * (1. - sh) +
3068  291.55555555555554 * pow(1. - sh, 2) +
3069  654.2222222222222 * pow(1. - sh, 3) +
3070  1251.5555555555557 * pow(1. - sh, 4)) +
3071  log(z)*(253.5498382001439 +
3072  1369.6655601827902 * (1. - sh) +
3073  4072.304539664025 * pow(1. - sh, 2) +
3074  9174.433775454903 * pow(1. - sh, 3) +
3075  17618.760992657026 * pow(1. - sh, 4) +
3076  log(muh)*(21.333333333333332 +
3077  85.33333333333333 * (1. - sh) +
3078  213.33333333333334 * pow(1. - sh, 2) +
3079  426.6666666666667 * pow(1. - sh, 3) +
3080  746.6666666666666 * pow(1. - sh, 4))) +
3081  (159.01234567901236 + 638.8148148148148 * (1. - sh) +
3082  1591.9506172839506 * pow(1. - sh, 2) +
3083  3177.448559670782 * pow(1. - sh, 3) +
3084  5557.119341563786 * pow(1. - sh, 4)) * pow(log(z), 2));
3085  }
3086 
3087  if (9 <= maxpow) {
3088  if (sh < .900001)
3089  res += -0.0010749979003947259 * pow(3.141592653589793, 2) * pow(sh, -7)*
3090  (35. + 330. * sh + 1389. * pow(sh, 2) + 3212. * pow(sh, 3) +
3091  1389. * pow(sh, 4) + 330. * pow(sh, 5) + 35. * pow(sh, 6)) *
3092  pow(z, 4.5);
3093  else
3094  res += (-71.2978829397919 - 285.1915317591676 * (1. - sh) -
3095  745.0628767208254 * pow(1. - sh, 2) -
3096  1586.3778954103698 * pow(1. - sh, 3) -
3097  2982.415906901117 * pow(1. - sh, 4)) * pow(z, 4.5);
3098  }
3099 
3100  if (10 <= maxpow) {
3101  if (sh < .900001)
3102  res += (-1. * lmu * (-58.785185185185185 * pow(sh, -5) +
3103  56.888888888888886 * Lsh * pow(sh, -5)) -
3104  4.986310116810168 * pow(-1 + sh, -3) * pow(sh, -3) +
3105  4.148148148148148 * Li3sh * pow(-1 + sh, -3) * pow(sh, -3) -
3106  1.382716049382716 * pow(Lsh, 3) * pow(-1 + sh, -3) *
3107  pow(sh, -3) - 0.3950617283950617 * cl2 * sh * sqrt4sh * sqrtsh *
3108  (44. + 108. * sh - 221. * pow(sh, 2) + 132. * pow(sh, 3) -
3109  33. * pow(sh, 4) + 3. * pow(sh, 5)) -
3110  0.03950617283950617 * ash * sh * sqrt4sh * sqrtsh *
3111  pow(-1 + sh, -3)*(-496. + 326. * sh + 6147. * pow(sh, 2) -
3112  16495. * pow(sh, 3) + 18680. * pow(sh, 4) -
3113  11251. * pow(sh, 5) + 3760. * pow(sh, 6) -
3114  658. * pow(sh, 7) + 47. * pow(sh, 8)) -
3115  0.19753086419753085 * Li2sh * pow(-1 + sh, -6) * pow(sh, -5)*
3116  (-72. + 429. * sh - 1073. * pow(sh, 2) + 1442. * pow(sh, 3) -
3117  1092. * pow(sh, 4) + 435. * pow(sh, 5) - 47. * pow(sh, 6) -
3118  6. * pow(sh, 7) - pow(sh, 8) + pow(sh, 9)) +
3119  1.1851851851851851 * sh * pow(ash, 2) * pow(-1 + sh, -4)*
3120  (-24. + 162. * sh + 114. * pow(sh, 2) - 1809. * pow(sh, 3) +
3121  4224. * pow(sh, 4) - 4957. * pow(sh, 5) +
3122  3423. * pow(sh, 6) - 1445. * pow(sh, 7) +
3123  366. * pow(sh, 8) - 51. * pow(sh, 9) + 3. * pow(sh, 10)) -
3124  Lsh * (4.148148148148148 * Li2sh * pow(-1 + sh, -3) *
3125  pow(sh, -3) + 0.3950617283950617 * ash * sh * sqrt4sh *
3126  sqrtsh * (44. + 108. * sh - 221. * pow(sh, 2) +
3127  132. * pow(sh, 3) - 33. * pow(sh, 4) + 3. * pow(sh, 5)) +
3128  0.00005486968449931413 * pow(-1 + sh, -6) * pow(sh, -8)*
3129  (486. - 108. * sh - 8742. * pow(sh, 2) +
3130  (1.6072738e7 - 259200. * Lshb) * pow(sh, 3) +
3131  6. * (-1.6103209e7 + 257400. * Lshb) * pow(sh, 4) +
3132  24. * (1.0092821e7 - 160950. * Lshb +
3133  2625. * pow(3.141592653589793, 2)) * pow(sh, 5) +
3134  4. * (-8.0991623e7 + 1.2978e6 * Lshb -
3135  47250. * pow(3.141592653589793, 2)) * pow(sh, 6) +
3136  6. * (4.0636147e7 - 655200. * Lshb +
3137  31500. * pow(3.141592653589793, 2)) * pow(sh, 7) +
3138  3. * (-3.2644121e7 + 522000. * Lshb -
3139  21000. * pow(3.141592653589793, 2)) * pow(sh, 8) -
3140  2. * (-8.202737e6 + 84600. * Lshb) * pow(sh, 9) -
3141  900. * (17. + 24. * Lshb) * pow(sh, 10) -
3142  450. * (-1. + 8. * Lshb) * pow(sh, 11) +
3143  75. * (7. + 48. * Lshb) * pow(sh, 12))) -
3144  0.0016460905349794238 * pow(Lsh, 2) * pow(-1 + sh, -7) *
3145  pow(sh, -8)*(-36. - 126. * sh + 84. * pow(sh, 2) +
3146  299648. * pow(sh, 3) - 2.087099e6 * pow(sh, 4) +
3147  60. * (104197. + 21. * Lshb) * pow(sh, 5) -
3148  2. * (5.211467e6 + 2520. * Lshb) * pow(sh, 6) +
3149  56. * (186416. + 135. * Lshb) * pow(sh, 7) -
3150  12. * (523459. + 420. * Lshb) * pow(sh, 8) +
3151  (2.104169e6 + 1260. * Lshb) * pow(sh, 9) -
3152  303404. * pow(sh, 10) + 300. * pow(sh, 11) +
3153  120. * pow(sh, 12) - 60. * pow(sh, 13)) +
3154  0.0008230452674897119 * pow(lz, 2) * pow(sh, -8)*
3155  (-18. - 189. * sh - 903. * pow(sh, 2) +
3156  594928. * pow(sh, 3) + 630. * pow(sh, 4) +
3157  1383. * pow(sh, 5) + 1839. * pow(sh, 6) + 18. * pow(sh, 7) +
3158  3120. * pow(sh, 8) + 8160. * pow(sh, 9) +
3159  1440. * pow(sh, 10) - 46560. * pow(sh, 11) +
3160  51720. * pow(sh, 12) - 23040. * pow(sh, 13) +
3161  4680. * pow(sh, 14) - 360. * pow(sh, 15)) -
3162  lz * (-56.888888888888886 * lmu * pow(sh, -5) -
3163  2.074074074074074 * pow(Lsh, 2) * pow(-1 + sh, -3) *
3164  pow(sh, -3) + 0.7901234567901234 * ash * sh * sqrt4sh *
3165  sqrtsh * (44. + 108. * sh - 221. * pow(sh, 2) +
3166  132. * pow(sh, 3) - 33. * pow(sh, 4) + 3. * pow(sh, 5)) -
3167  0.0032921810699588477 * Lsh * pow(-1 + sh, -6) *
3168  pow(sh, -8)*(18. + 81. * sh + 39. * pow(sh, 2) -
3169  299147. * pow(sh, 3) + 1.788834e6 * pow(sh, 4) -
3170  4.467993e6 * pow(sh, 5) + 5.959219e6 * pow(sh, 6) -
3171  4.474299e6 * pow(sh, 7) + 1.792497e6 * pow(sh, 8) -
3172  297944. * pow(sh, 9) - 450. * pow(sh, 10) +
3173  90. * pow(sh, 11) + 15. * pow(sh, 12)) +
3174  7.838526357044876e-6 * pow(-1 + sh, -5) * pow(sh, -8)*
3175  (1701. + 1323. * sh - 29274. * pow(sh, 2) +
3176  1.12541443e8 * pow(sh, 3) -
3177  5.61871835e8 * pow(sh, 4) +
3178  1.121615551e9 * pow(sh, 5) -
3179  1.117743382e9 * pow(sh, 6) +
3180  5.54683001e8 * pow(sh, 7) -
3181  1.07408773e8 * pow(sh, 8) - 4.03983e6 * pow(sh, 9) +
3182  4.371768e6 * pow(sh, 10) + 4.551324e6 * pow(sh, 11) -
3183  1.1897697e7 * pow(sh, 12) - 1.323264e7 * pow(sh, 13) +
3184  6.277908e7 * pow(sh, 14) - 8.508528e7 * pow(sh, 15) +
3185  6.212682e7 * pow(sh, 16) - 2.701314e7 * pow(sh, 17) +
3186  6.98418e6 * pow(sh, 18) - 990360. * pow(sh, 19) +
3187  59220. * pow(sh, 20))) -
3188  2.7994736989445985e-8 * pow(-1 + sh, -6) * pow(sh, -8)*
3189  (161406. - 318843. * sh - 1.910657e6 * pow(sh, 2) +
3190  2.6587841e7 * pow(sh, 3) - 4.35567027e8 * pow(sh, 4) +
3191  2.014488392e9 * pow(sh, 5) - 4.239785466e9 * pow(sh, 6) +
3192  4.472946066e9 * pow(sh, 7) - 1.480821324e9 * pow(sh, 8) -
3193  2.199797883e9 * pow(sh, 9) +
3194  2.944201467e9 * pow(sh, 10) +
3195  1.246759469e9 * pow(sh, 11) -
3196  2.466843039e9 * pow(sh, 12) -
3197  1.8171607842e10 * pow(sh, 13) +
3198  6.053910752e10 * pow(sh, 14) -
3199  8.996385496e10 * pow(sh, 15) +
3200  7.96292826e10 * pow(sh, 16) -
3201  4.509057616e10 * pow(sh, 17) +
3202  1.647058952e10 * pow(sh, 18) -
3203  3.74875284e9 * pow(sh, 19) + 4.8245988e8 * pow(sh, 20) -
3204  2.674812e7 * pow(sh, 21) +
3205  58800. * pow(3.141592653589793, 2)*
3206  (-18. - 81. * sh - 39. * pow(sh, 2) +
3207  308147. * pow(sh, 3) - 1.843944e6 * pow(sh, 4) +
3208  4.610871e6 * pow(sh, 5) - 6.160013e6 * pow(sh, 6) +
3209  4.635393e6 * pow(sh, 7) - 1.862435e6 * pow(sh, 8) +
3210  312614. * pow(sh, 9) + 3132. * pow(sh, 10) -
3211  3736. * pow(sh, 11) - 77479. * pow(sh, 12) +
3212  318588. * pow(sh, 13) - 608560. * pow(sh, 14) +
3213  702440. * pow(sh, 15) - 529920. * pow(sh, 16) +
3214  267160. * pow(sh, 17) - 89120. * pow(sh, 18) +
3215  18840. * pow(sh, 19) - 2280. * pow(sh, 20) +
3216  120. * pow(sh, 21)))) * pow(z, 5);
3217  else
3218  res += pow(z, 5)*(-4875.039604802492 -
3219  23394.026843086856 * (1. - sh) -
3220  67666.42652379921 * pow(1. - sh, 2) -
3221  152266.3652960926 * pow(1. - sh, 3) -
3222  292874.8144929396 * pow(1. - sh, 4) +
3223  log(muh)*(58.785185185185185 +
3224  350.81481481481484 * (1. - sh) +
3225  1194.6666666666667 * pow(1. - sh, 2) +
3226  3072. * pow(1. - sh, 3) +
3227  6641.777777777777 * pow(1. - sh, 4)) +
3228  log(z)*(847.677812246958 +
3229  5397.215321438122 * (1. - sh) +
3230  18627.480751808722 * pow(1. - sh, 2) +
3231  48121.18079162945 * pow(1. - sh, 3) +
3232  104649.22541796633 * pow(1. - sh, 4) +
3233  log(muh)*(56.888888888888886 +
3234  284.44444444444446 * (1. - sh) +
3235  853.3333333333334 * pow(1. - sh, 2) +
3236  1991.111111111111 * pow(1. - sh, 3) +
3237  3982.222222222222 * pow(1. - sh, 4))) +
3238  (491.23292181069957 +
3239  2460.5102880658437 * (1. - sh) +
3240  7344.419753086419 * pow(1. - sh, 2) +
3241  17100.213991769546 * pow(1. - sh, 3) +
3242  34182.45267489712 * pow(1. - sh, 4)) * pow(log(z), 2));
3243  }
3244 
3245  if (11 <= maxpow) {
3246  if (sh < .900001)
3247  res += -0.00007600995255316243 * pow(3.141592653589793, 2) * pow(sh, -9)*
3248  (315. + 3640. * sh + 19380. * pow(sh, 2) + 62088. * pow(sh, 3) +
3249  124834. * pow(sh, 4) + 62088. * pow(sh, 5) +
3250  19380. * pow(sh, 6) + 3640. * pow(sh, 7) + 315. * pow(sh, 8)) *
3251  pow(z, 5.5);
3252  else
3253  res += (-221.8156358126859 - 1109.0781790634296 * (1. - sh) -
3254  3460.3239186779006 * pow(1. - sh, 2) -
3255  8562.083542369677 * pow(1. - sh, 3) -
3256  18357.620459597754 * pow(1. - sh, 4)) * pow(z, 5.5);
3257  }
3258 
3259  if (12 <= maxpow) {
3260  if (sh < .900001)
3261  res += (-1. * lmu * (-182.91358024691357 * pow(sh, -6) +
3262  165.92592592592592 * Lsh * pow(sh, -6)) -
3263  11.967144280344405 * pow(-1 + sh, -3) * pow(sh, -4) +
3264  9.955555555555556 * Li3sh * pow(-1 + sh, -3) * pow(sh, -4) -
3265  3.3185185185185184 * pow(Lsh, 3) * pow(-1 + sh, -3) *
3266  pow(sh, -4) + 0.4609053497942387 * cl2 * sh * sqrt4sh * sqrtsh *
3267  (20. - 194. * sh - 657. * pow(sh, 2) + 1581. * pow(sh, 3) -
3268  1239. * pow(sh, 4) + 462. * pow(sh, 5) - 84. * pow(sh, 6) +
3269  6. * pow(sh, 7)) + 0.0043895747599451305 * ash * sh *
3270  sqrt4sh * sqrtsh * pow(-1 + sh, -3)*
3271  (-3230. + 42428. * sh + 5415. * pow(sh, 2) -
3272  547510. * pow(sh, 3) + 1.454143e6 * pow(sh, 4) -
3273  1.806873e6 * pow(sh, 5) + 1.280646e6 * pow(sh, 6) -
3274  546171. * pow(sh, 7) + 138714. * pow(sh, 8) -
3275  19329. * pow(sh, 9) + 1137. * pow(sh, 10)) -
3276  1.382716049382716 * pow(ash, 2) * pow(-1 + sh, -4) * pow(sh, 2)*
3277  (210. - 870. * sh - 1395. * pow(sh, 2) +
3278  13113. * pow(sh, 3) - 31009. * pow(sh, 4) +
3279  39370. * pow(sh, 5) - 30843. * pow(sh, 6) +
3280  15585. * pow(sh, 7) - 5091. * pow(sh, 8) +
3281  1038. * pow(sh, 9) - 120. * pow(sh, 10) + 6. * pow(sh, 11))\
3282  - 0.0032921810699588477 * Li2sh * pow(-1 + sh, -7) *
3283  pow(sh, -6)*(12600. - 87696. * sh + 262296. * pow(sh, 2) -
3284  436590. * pow(sh, 3) + 435240. * pow(sh, 4) -
3285  257040. * pow(sh, 5) + 79436. * pow(sh, 6) -
3286  8456. * pow(sh, 7) - 360. * pow(sh, 9) + 45. * pow(sh, 11))\
3287  - Lsh * (9.955555555555556 * Li2sh * pow(-1 + sh, -3) *
3288  pow(sh, -4) - 0.4609053497942387 * ash * sh * sqrt4sh *
3289  sqrtsh * (20. - 194. * sh - 657. * pow(sh, 2) +
3290  1581. * pow(sh, 3) - 1239. * pow(sh, 4) +
3291  462. * pow(sh, 5) - 84. * pow(sh, 6) + 6. * pow(sh, 7)) +
3292  0.000010973936899862826 * pow(-1 + sh, -7) * pow(sh, -10)*
3293  (-1320. + 96. * sh + 30636. * pow(sh, 2) +
3294  70896. * pow(sh, 3) +
3295  8. * (-3.4452983e7 + 472500. * Lshb) * pow(sh, 4) -
3296  112. * (-1.7229823e7 + 234900. * Lshb) * pow(sh, 5) +
3297  6. * (-9.66264881e8 + 1.31148e7 * Lshb -
3298  126000. * pow(3.141592653589793, 2)) * pow(sh, 6) +
3299  (9.681150074e9 - 1.30977e8 * Lshb +
3300  3.024e6 * pow(3.141592653589793, 2)) * pow(sh, 7) +
3301  2. * (-4.851617443e9 + 6.5286e7 * Lshb -
3302  2.268e6 * pow(3.141592653589793, 2)) * pow(sh, 8) +
3303  24. * (2.43237251e8 - 3.213e6 * Lshb +
3304  126000. * pow(3.141592653589793, 2)) * pow(sh, 9) +
3305  3. * (-6.50704647e8 + 7.9436e6 * Lshb -
3306  252000. * pow(3.141592653589793, 2)) * pow(sh, 10)\
3307  - 60. * (-4.666787e6 + 42280. * Lshb) * pow(sh, 11) -
3308  23730. * pow(sh, 12) -
3309  60. * (923. + 1800. * Lshb) * pow(sh, 13) +
3310  4995. * pow(sh, 14) +
3311  135. * (9. + 100. * Lshb) * pow(sh, 15))) -
3312  0.0003292181069958848 * pow(Lsh, 2) * pow(-1 + sh, -8) *
3313  pow(sh, -10)*(120. + 552. * sh + 120. * pow(sh, 2) -
3314  3480. * pow(sh, 3) - 4.90282e6 * pow(sh, 4) +
3315  3.912806e7 * pow(sh, 5) -
3316  (1.36736083e8 + 15120. * Lshb) * pow(sh, 6) +
3317  5. * (5.4670261e7 + 15120. * Lshb) * pow(sh, 7) -
3318  70. * (4.883491e6 + 2160. * Lshb) * pow(sh, 8) +
3319  40. * (6.845753e6 + 3780. * Lshb) * pow(sh, 9) -
3320  10. * (1.3722853e7 + 7560. * Lshb) * pow(sh, 10) +
3321  2. * (1.9677013e7 + 7560. * Lshb) * pow(sh, 11) -
3322  4.94776e6 * pow(sh, 12) - 1800. * pow(sh, 13) +
3323  1800. * pow(sh, 14) + 225. * pow(sh, 15) - 225. * pow(sh, 16)
3324  ) + 0.0003292181069958848 * pow(lz, 2) * pow(sh, -10)*
3325  (-30. - 378. * sh - 2214. * pow(sh, 2) - 7938. * pow(sh, 3) +
3326  4.8772e6 * pow(sh, 4) + 7560. * pow(sh, 5) +
3327  6273. * pow(sh, 6) + 13689. * pow(sh, 7) +
3328  10908. * pow(sh, 8) + 30. * pow(sh, 9) +
3329  20300. * pow(sh, 10) + 27300. * pow(sh, 11) +
3330  113400. * pow(sh, 12) + 49700. * pow(sh, 13) -
3331  880950. * pow(sh, 14) + 1.19385e6 * pow(sh, 15) -
3332  706650. * pow(sh, 16) + 216300. * pow(sh, 17) -
3333  33600. * pow(sh, 18) + 2100. * pow(sh, 19)) -
3334  lz * (-165.92592592592592 * lmu * pow(sh, -6) -
3335  4.977777777777778 * pow(Lsh, 2) * pow(-1 + sh, -3) *
3336  pow(sh, -4) - 0.9218106995884774 * ash * sh * sqrt4sh *
3337  sqrtsh * (20. - 194. * sh - 657. * pow(sh, 2) +
3338  1581. * pow(sh, 3) - 1239. * pow(sh, 4) +
3339  462. * pow(sh, 5) - 84. * pow(sh, 6) + 6. * pow(sh, 7)) -
3340  0.0006584362139917696 * Lsh * pow(-1 + sh, -7) *
3341  pow(sh, -10)*(-60. - 336. * sh - 396. * pow(sh, 2) +
3342  1344. * pow(sh, 3) + 4.900804e6 * pow(sh, 4) -
3343  3.4230616e7 * pow(sh, 5) + 1.02572181e8 * pow(sh, 6) -
3344  1.70881214e8 * pow(sh, 7) +
3345  1.70889596e8 * pow(sh, 8) -
3346  1.02558564e8 * pow(sh, 9) +
3347  3.4176506e7 * pow(sh, 10) - 4.86782e6 * pow(sh, 11) -
3348  2940. * pow(sh, 12) - 1740. * pow(sh, 13) +
3349  585. * pow(sh, 14) + 45. * pow(sh, 15)) +
3350  1.567705271408975e-6 * pow(-1 + sh, -6) * pow(sh, -10)*
3351  (-4620. - 4284. * sh + 102942. * pow(sh, 2) +
3352  351078. * pow(sh, 3) - 1.928933146e9 * pow(sh, 4) +
3353  1.155219891e10 * pow(sh, 5) -
3354  2.8832387178e10 * pow(sh, 6) +
3355  3.8356658804e10 * pow(sh, 7) -
3356  2.8662297144e10 * pow(sh, 8) +
3357  1.1385924988e10 * pow(sh, 9) -
3358  1.88384127e9 * pow(sh, 10) +
3359  5.9056617e7 * pow(sh, 11) -
3360  8.9385341e7 * pow(sh, 12) +
3361  1.01542571e8 * pow(sh, 13) -
3362  3.36952887e8 * pow(sh, 14) +
3363  4.6151941e8 * pow(sh, 15) +
3364  1.1490745e9 * pow(sh, 16) -
3365  5.1849126e9 * pow(sh, 17) +
3366  8.94761595e9 * pow(sh, 18) -
3367  9.1281316e9 * pow(sh, 19) +
3368  6.0729627e9 * pow(sh, 20) -
3369  2.7087795e9 * pow(sh, 21) + 8.039283e8 * pow(sh, 22) -
3370  1.522416e8 * pow(sh, 23) + 1.66278e7 * pow(sh, 24) -
3371  795900. * pow(sh, 25))) -
3372  1.244210532864266e-9 * pow(-1 + sh, -7) * pow(sh, -10)*
3373  (-1.60524e6 + 3.372768e6 * sh + 2.1255318e7 * pow(sh, 2) -
3374  5.1364152e7 * pow(sh, 3) +
3375  3.79257522168e11 * pow(sh, 4) -
3376  2.633399785632e12 * pow(sh, 5) +
3377  7.825640856201e12 * pow(sh, 6) -
3378  1.2900120410724e13 * pow(sh, 7) +
3379  1.2750237623886e13 * pow(sh, 8) -
3380  7.584725099624e12 * pow(sh, 9) +
3381  2.529935410926e12 * pow(sh, 10) -
3382  2.91800208364e11 * pow(sh, 11) -
3383  2.09548894394e11 * pow(sh, 12) +
3384  3.42677229216e11 * pow(sh, 13) -
3385  7.84252942969e11 * pow(sh, 14) +
3386  7.91328639346e11 * pow(sh, 15) +
3387  3.49537340577e12 * pow(sh, 16) -
3388  1.51956042427e13 * pow(sh, 17) +
3389  2.91706462341e13 * pow(sh, 18) -
3390  3.468763704735e13 * pow(sh, 19) +
3391  2.790223133985e13 * pow(sh, 20) -
3392  1.564098014115e13 * pow(sh, 21) +
3393  6.1223554161e12 * pow(sh, 22) -
3394  1.63963647855e12 * pow(sh, 23) +
3395  2.859293178e11 * pow(sh, 24) -
3396  2.92020939e10 * pow(sh, 25) + 1.3226913e9 * pow(sh, 26) -
3397  88200. * pow(3.141592653589793, 2)*
3398  (-180. - 1008. * sh - 1188. * pow(sh, 2) +
3399  4032. * pow(sh, 3) + 1.5093012e7 * pow(sh, 4) -
3400  1.05478968e8 * pow(sh, 5) +
3401  3.16319451e8 * pow(sh, 6) -
3402  5.27535714e8 * pow(sh, 7) +
3403  5.28275796e8 * pow(sh, 8) -
3404  3.17556564e8 * pow(sh, 9) +
3405  1.05971306e8 * pow(sh, 10) -
3406  1.4919188e7 * pow(sh, 11) - 564648. * pow(sh, 12) +
3407  1.515872e6 * pow(sh, 13) - 1.613573e6 * pow(sh, 14) -
3408  1.0017483e7 * pow(sh, 15) + 5.154742e7 * pow(sh, 16) -
3409  1.211917e8 * pow(sh, 17) + 1.785651e8 * pow(sh, 18) -
3410  1.800631e8 * pow(sh, 19) + 1.286215e8 * pow(sh, 20) -
3411  6.57363e7 * pow(sh, 21) + 2.38644e7 * pow(sh, 22) -
3412  5.9997e6 * pow(sh, 23) + 991200. * pow(sh, 24) -
3413  96600. * pow(sh, 25) + 4200. * pow(sh, 26)))) * pow(z, 6);
3414  else
3415  res += pow(z, 6)*(-15489.003566799385 -
3416  89232.71889975584 * (1. - sh) -
3417  302596.6493265383 * pow(1. - sh, 2) -
3418  781979.762945469 * pow(1. - sh, 3) -
3419  1.6992401790855133e6 * pow(1. - sh, 4) +
3420  log(muh)*(182.91358024691357 +
3421  1263.4074074074074 * (1. - sh) +
3422  4919.7037037037035 * pow(1. - sh, 2) +
3423  14280.691358024691 * pow(1. - sh, 3) +
3424  34454.51851851852 * pow(1. - sh, 4)) +
3425  log(z)*(2906.463936705608 +
3426  21474.23376628666 * (1. - sh) +
3427  84464.70442803907 * pow(1. - sh, 2) +
3428  246235.5920127741 * pow(1. - sh, 3) +
3429  598321.9180693374 * pow(1. - sh, 4) +
3430  log(muh)*(165.92592592592592 +
3431  995.5555555555555 * (1. - sh) +
3432  3484.4444444444443 * pow(1. - sh, 2) +
3433  9291.851851851852 * pow(1. - sh, 3) +
3434  20906.666666666668 * pow(1. - sh, 4))) +
3435  (1615.4238683127571 + 9691.876543209877 * (1. - sh) +
3436  33706.74567901235 * pow(1. - sh, 2) +
3437  89710.5086419753 * pow(1. - sh, 3) +
3438  201778.22222222222 * pow(1. - sh, 4)) * pow(log(z), 2));
3439  }
3440 
3441  if (13 <= maxpow) {
3442  if (sh < .900001)
3443  res += -0.000023919215838407757 * pow(3.141592653589793, 2) *
3444  pow(sh, -11)*(693. + 9450. * sh + 60305. * pow(sh, 2) +
3445  238200. * pow(sh, 3) + 642234. * pow(sh, 4) +
3446  1.173308e6 * pow(sh, 5) + 642234. * pow(sh, 6) +
3447  238200. * pow(sh, 7) + 60305. * pow(sh, 8) +
3448  9450. * pow(sh, 9) + 693. * pow(sh, 10)) * pow(z, 6.5);
3449  else
3450  res += (-725.9420808415176 - 4355.652485049105 * (1. - sh) -
3451  15789.240258303007 * pow(1. - sh, 2) -
3452  44463.95245154296 * pow(1. - sh, 3) -
3453  106907.93465535706 * pow(1. - sh, 4)) * pow(z, 6.5);
3454  }
3455 
3456  if (14 <= maxpow) {
3457  if (sh < .900001)
3458  res += (-1. * lmu * (-587.9873015873015 * pow(sh, -7) +
3459  512. * Lsh * pow(sh, -7)) -
3460  31.342520734235343 * pow(-1 + sh, -3) * pow(sh, -5) +
3461  26.074074074074073 * Li3sh * pow(-1 + sh, -3) * pow(sh, -5) -
3462  8.691358024691358 * pow(Lsh, 3) * pow(-1 + sh, -3) *
3463  pow(sh, -5) - 0.7111111111111111 * cl2 * sqrt4sh * sqrtsh *
3464  pow(sh, 2)*(-204. + 654. * sh + 3621. * pow(sh, 2) -
3465  9390. * pow(sh, 3) + 8928. * pow(sh, 4) -
3466  4384. * pow(sh, 5) + 1190. * pow(sh, 6) -
3467  170. * pow(sh, 7) + 10. * pow(sh, 8)) -
3468  0.011287477954144622 * ash * sqrt4sh * sqrtsh *
3469  pow(-1 + sh, -3) * pow(sh, 2)*
3470  (23244. - 145995. * sh - 135165. * pow(sh, 2) +
3471  2.214474e6 * pow(sh, 3) - 5.812671e6 * pow(sh, 4) +
3472  7.761562e6 * pow(sh, 5) - 6.239858e6 * pow(sh, 6) +
3473  3.192422e6 * pow(sh, 7) - 1.048133e6 * pow(sh, 8) +
3474  214001. * pow(sh, 9) - 24740. * pow(sh, 10) +
3475  1237. * pow(sh, 11)) -
3476  0.11851851851851852 * Li2sh * pow(-1 + sh, -8) * pow(sh, -7)*
3477  (-1080. + 8600. * sh - 29988. * pow(sh, 2) +
3478  59752. * pow(sh, 3) - 74250. * pow(sh, 4) +
3479  58630. * pow(sh, 5) - 28380. * pow(sh, 6) +
3480  7472. * pow(sh, 7) - 698. * pow(sh, 8) - 10. * pow(sh, 11) +
3481  pow(sh, 12) + pow(sh, 13)) +
3482  2.1333333333333333 * pow(ash, 2) * pow(-1 + sh, -4) *
3483  pow(sh, 2)*(60. - 1390. * sh + 3920. * pow(sh, 2) +
3484  11563. * pow(sh, 3) - 80966. * pow(sh, 4) +
3485  191832. * pow(sh, 5) - 258720. * pow(sh, 6) +
3486  224115. * pow(sh, 7) - 130416. * pow(sh, 8) +
3487  51582. * pow(sh, 9) - 13684. * pow(sh, 10) +
3488  2330. * pow(sh, 11) - 230. * pow(sh, 12) + 10. * pow(sh, 13))
3489  - Lsh * (26.074074074074073 * Li2sh * pow(-1 + sh, -3) *
3490  pow(sh, -5) + 0.7111111111111111 * ash * sqrt4sh * sqrtsh *
3491  pow(sh, 2)*(-204. + 654. * sh + 3621. * pow(sh, 2) -
3492  9390. * pow(sh, 3) + 8928. * pow(sh, 4) -
3493  4384. * pow(sh, 5) + 1190. * pow(sh, 6) -
3494  170. * pow(sh, 7) + 10. * pow(sh, 8)) +
3495  2.239578959155679e-6 * pow(-1 + sh, -8) * pow(sh, -12)*
3496  (3900. + 100. * sh - 116036. * pow(sh, 2) -
3497  329570. * pow(sh, 3) + 93490. * pow(sh, 4) +
3498  (4.740596068e9 - 5.71536e7 * Lshb) * pow(sh, 5) +
3499  4. * (-9.479986241e9 + 1.13778e8 * Lshb) * pow(sh, 6) +
3500  2. * (6.6407275091e10 - 7.9348248e8 * Lshb +
3501  4.851e6 * pow(3.141592653589793, 2)) * pow(sh, 7) +
3502  10. * (-2.6593392899e10 + 3.16207584e8 * Lshb -
3503  4.851e6 * pow(3.141592653589793, 2)) * pow(sh, 8) +
3504  10. * (3.3290343127e10 - 3.92931e8 * Lshb +
3505  9.702e6 * pow(3.141592653589793, 2)) * pow(sh, 9) +
3506  (-2.66790821833e11 + 3.1026996e9 * Lshb -
3507  9.702e7 * pow(3.141592653589793, 2)) * pow(sh, 10)\
3508  + (1.33671533459e11 - 1.5018696e9 * Lshb +
3509  4.851e7 * pow(3.141592653589793, 2)) * pow(sh, 11)\
3510  + (-3.8283679243e10 + 3.9541824e8 * Lshb -
3511  9.702e6 * pow(3.141592653589793, 2)) * pow(sh, 12)\
3512  + (4.796104102e9 - 3.693816e7 * Lshb) *
3513  pow(sh, 13) + 1.055215e6 * pow(sh, 14) -
3514  172235. * pow(sh, 15) -
3515  735. * (307. + 720. * Lshb) * pow(sh, 16) +
3516  1176. * (23. + 45. * Lshb) * pow(sh, 17) +
3517  294. * (11. + 180. * Lshb) * pow(sh, 18))) -
3518  0.00047031158142269255 * pow(Lsh, 2) * pow(-1 + sh, -9) *
3519  pow(sh, -12)*(-60. - 340. * sh - 312. * pow(sh, 2) +
3520  1872. * pow(sh, 3) + 4980. * pow(sh, 4) +
3521  1.1658504e7 * pow(sh, 5) - 1.04832846e8 * pow(sh, 6) +
3522  11. * (3.8074319e7 + 2520. * Lshb) * pow(sh, 7) -
3523  6. * (1.62766363e8 + 27720. * Lshb) * pow(sh, 8) +
3524  3. * (4.88268437e8 + 138600. * Lshb) * pow(sh, 9) -
3525  (1.465559189e9 + 554400. * Lshb) * pow(sh, 10) +
3526  (9.78147321e8 + 415800. * Lshb) * pow(sh, 11) -
3527  30. * (1.3999939e7 + 5544. * Lshb) * pow(sh, 12) +
3528  2. * (5.2652911e7 + 13860. * Lshb) * pow(sh, 13) -
3529  1.1751384e7 * pow(sh, 14) - 1260. * pow(sh, 16) +
3530  1386. * pow(sh, 17) - 126. * pow(sh, 19)) -
3531  0.00047031158142269255 * pow(lz, 2) * pow(sh, -12)*
3532  (15. + 220. * sh + 1518. * pow(sh, 2) + 6534. * pow(sh, 3) +
3533  19503. * pow(sh, 4) - 1.1615304e7 * pow(sh, 5) -
3534  20790. * pow(sh, 6) - 6546. * pow(sh, 7) -
3535  24741. * pow(sh, 8) - 29490. * pow(sh, 9) -
3536  19183. * pow(sh, 10) - 15. * pow(sh, 11) -
3537  42336. * pow(sh, 12) - 50652. * pow(sh, 13) -
3538  42336. * pow(sh, 14) - 522396. * pow(sh, 15) -
3539  514080. * pow(sh, 16) + 5.330178e6 * pow(sh, 17) -
3540  8.247204e6 * pow(sh, 18) + 6.008688e6 * pow(sh, 19) -
3541  2.443392e6 * pow(sh, 20) + 570780. * pow(sh, 21) -
3542  71820. * pow(sh, 22) + 3780. * pow(sh, 23)) -
3543  lz * (-512. * lmu * pow(sh, -7) -
3544  13.037037037037036 * pow(Lsh, 2) * pow(-1 + sh, -3) *
3545  pow(sh, -5) + 1.4222222222222223 * ash * sqrt4sh * sqrtsh *
3546  pow(sh, 2)*(-204. + 654. * sh + 3621. * pow(sh, 2) -
3547  9390. * pow(sh, 3) + 8928. * pow(sh, 4) -
3548  4384. * pow(sh, 5) + 1190. * pow(sh, 6) -
3549  170. * pow(sh, 7) + 10. * pow(sh, 8)) -
3550  0.0009406231628453851 * Lsh * pow(-1 + sh, -8) *
3551  pow(sh, -12)*(30. + 200. * sh + 356. * pow(sh, 2) -
3552  580. * pow(sh, 3) - 3070. * pow(sh, 4) -
3553  1.1660764e7 * pow(sh, 5) + 9.3173522e7 * pow(sh, 6) -
3554  3.25763741e8 * pow(sh, 7) +
3555  6.51103141e8 * pow(sh, 8) - 8.1359378e8 * pow(sh, 9) +
3556  6.50748419e8 * pow(sh, 10) -
3557  3.25285222e8 * pow(sh, 11) +
3558  9.2859728e7 * pow(sh, 12) -
3559  1.1567032e7 * pow(sh, 13) - 2380. * pow(sh, 14) -
3560  2065. * pow(sh, 15) - 945. * pow(sh, 16) +
3561  462. * pow(sh, 17) + 21. * pow(sh, 18)) +
3562  6.78660290653236e-8 * pow(-1 + sh, -7) * pow(sh, -12)*
3563  (64350. + 66000. * sh - 1.848594e6 * pow(sh, 2) -
3564  7.286499e6 * pow(sh, 3) - 5.743914e6 * pow(sh, 4) +
3565  1.564114497e11 * pow(sh, 5) -
3566  1.092996615942e12 * pow(sh, 6) +
3567  3.274039012563e12 * pow(sh, 7) -
3568  5.447084215617e12 * pow(sh, 8) +
3569  5.433819864693e12 * pow(sh, 9) -
3570  3.247981504196e12 * pow(sh, 10) +
3571  1.075526023436e12 * pow(sh, 11) -
3572  1.50436790331e11 * pow(sh, 12) -
3573  5.482108499e9 * pow(sh, 13) +
3574  1.2697937753e10 * pow(sh, 14) -
3575  1.820498844e10 * pow(sh, 15) +
3576  4.184087512e9 * pow(sh, 16) +
3577  6.5568484406e10 * pow(sh, 17) -
3578  9.5193663855e10 * pow(sh, 18) -
3579  3.83610629052e11 * pow(sh, 19) +
3580  1.851933873636e12 * pow(sh, 20) -
3581  3.850977196836e12 * pow(sh, 21) +
3582  4.997388254166e12 * pow(sh, 22) -
3583  4.45400972478e12 * pow(sh, 23) +
3584  2.82695858676e12 * pow(sh, 24) -
3585  1.2912095196e12 * pow(sh, 25) +
3586  4.2141221892e11 * pow(sh, 26) -
3587  9.582123474e10 * pow(sh, 27) +
3588  1.44039357e10 * pow(sh, 28) -
3589  1.28490516e9 * pow(sh, 29) + 5.143446e7 * pow(sh, 30)))
3590  - 4.896538893601991e-12 * pow(-1 + sh, -8) * pow(sh, -12)*
3591  (2.074545e8 - 4.76982e8 * sh -
3592  3.223561968e9 * pow(sh, 2) +
3593  1.2229671465e10 * pow(sh, 3) +
3594  5.5118379195e10 * pow(sh, 4) -
3595  5.39918795738718e14 * pow(sh, 5) +
3596  4.299200276151924e15 * pow(sh, 6) -
3597  1.497521829460536e16 * pow(sh, 7) +
3598  2.979736241687578e16 * pow(sh, 8) -
3599  3.705409524476913e16 * pow(sh, 9) +
3600  2.9516698533084984e16 * pow(sh, 10) -
3601  1.4749822777601014e16 * pow(sh, 11) +
3602  4.277878063797251e15 * pow(sh, 12) -
3603  6.52624973981284e14 * pow(sh, 13) +
3604  2.5170701729432e14 * pow(sh, 14) -
3605  4.0013657985217e14 * pow(sh, 15) +
3606  1.47801666642455e14 * pow(sh, 16) +
3607  1.2877818678578e15 * pow(sh, 17) -
3608  2.076397177767913e15 * pow(sh, 18) -
3609  8.385630050032431e15 * pow(sh, 19) +
3610  4.538622316201646e16 * pow(sh, 20) -
3611  1.061838620189715e17 * pow(sh, 21) +
3612  1.575009771316346e17 * pow(sh, 22) -
3613  1.6342684496066314e17 * pow(sh, 23) +
3614  1.2333678370646925e17 * pow(sh, 24) -
3615  6.8698738259084936e16 * pow(sh, 25) +
3616  2.8233898574272776e16 * pow(sh, 26) -
3617  8.447633225048556e15 * pow(sh, 27) +
3618  1.786675943700648e15 * pow(sh, 28) -
3619  2.5272282124782e14 * pow(sh, 29) +
3620  2.141343983394e13 * pow(sh, 30) -
3621  8.2047522942e11 * pow(sh, 31) +
3622  3.20166e7 * pow(3.141592653589793, 2)*
3623  (-90. - 600. * sh - 1068. * pow(sh, 2) +
3624  1740. * pow(sh, 3) + 9210. * pow(sh, 4) +
3625  3.5821452e7 * pow(sh, 5) - 2.86356066e8 * pow(sh, 6) +
3626  1.001798639e9 * pow(sh, 7) -
3627  2.003828431e9 * pow(sh, 8) +
3628  2.50626266e9 * pow(sh, 9) -
3629  2.006862017e9 * pow(sh, 10) +
3630  1.004429086e9 * pow(sh, 11) -
3631  2.8716356e8 * pow(sh, 12) + 3.622858e7 * pow(sh, 13) -
3632  1.140968e6 * pow(sh, 14) + 600307. * pow(sh, 15) +
3633  5.766227e6 * pow(sh, 16) - 8.667286e6 * pow(sh, 17) -
3634  7.4435635e7 * pow(sh, 18) +
3635  4.29448764e8 * pow(sh, 19) -
3636  1.174957056e9 * pow(sh, 20) +
3637  2.075532984e9 * pow(sh, 21) -
3638  2.59118244e9 * pow(sh, 22) +
3639  2.377353888e9 * pow(sh, 23) -
3640  1.631212128e9 * pow(sh, 24) +
3641  8.40926772e8 * pow(sh, 25) -
3642  3.23868888e8 * pow(sh, 26) +
3643  9.1648368e7 * pow(sh, 27) -
3644  1.8464544e7 * pow(sh, 28) + 2.50236e6 * pow(sh, 29) -
3645  204120. * pow(sh, 30) + 7560. * pow(sh, 31)))) * pow(z, 7);
3646  else
3647  res += pow(z, 7)*(-51610.88930322329 -
3648  347049.77916686254 * (1. - sh) -
3649  1.3506484596566306e6 * pow(1. - sh, 2) -
3650  3.942197589163436e6 * pow(1. - sh, 3) -
3651  9.550309146362534e6 * pow(1. - sh, 4) +
3652  log(muh)*(587.9873015873015 +
3653  4627.9111111111115 * (1. - sh) +
3654  20303.644444444446 * pow(1. - sh, 2) +
3655  65689.6 * pow(1. - sh, 3) +
3656  174976. * pow(1. - sh, 4)) +
3657  log(z)*(10201.948065363957 +
3658  86007.6529570384 * (1. - sh) +
3659  379663.80341596896 * pow(1. - sh, 2) +
3660  1.2326804892307315e6 * pow(1. - sh, 3) +
3661  3.309516784057691e6 * pow(1. - sh, 4) +
3662  log(muh)*(512. + 3584. * (1. - sh) +
3663  14336. * pow(1. - sh, 2) +
3664  43008. * pow(1. - sh, 3) +
3665  107520. * pow(1. - sh, 4))) +
3666  (5506.910758377425 + 38490.637037037035 * (1. - sh) +
3667  152831.80246913582 * pow(1. - sh, 2) +
3668  457767.65432098764 * pow(1. - sh, 3) +
3669  1.1442307160493827e6 * pow(1. - sh, 4)) *
3670  pow(log(z), 2));
3671  }
3672 
3673  if (15 <= maxpow) {
3674  if (sh < .900001)
3675  res += -4.047867295730543e-6 * pow(3.141592653589793, 2) * pow(sh, -13)*
3676  (3003. + 47124. * sh + 349398. * pow(sh, 2) +
3677  1.62554e6 * pow(sh, 3) + 5.297685e6 * pow(sh, 4) +
3678  1.265412e7 * pow(sh, 5) + 2.15477e7 * pow(sh, 6) +
3679  1.265412e7 * pow(sh, 7) + 5.297685e6 * pow(sh, 8) +
3680  1.62554e6 * pow(sh, 9) + 349398. * pow(sh, 10) +
3681  47124. * pow(sh, 11) + 3003. * pow(sh, 12)) * pow(z, 7.5);
3682  else
3683  res += (-2457.0347351559058 - 17199.24314609134 * (1. - sh) -
3684  71008.30384600567 * pow(1. - sh, 2) -
3685  224081.5678462186 * pow(1. - sh, 3) -
3686  596572.421257881 * pow(1. - sh, 4)) * pow(z, 7.5);
3687  }
3688 
3689  if (16 <= maxpow) {
3690  if (sh < .900001)
3691  res += (-1. * lmu * (-1940.6814814814816 * pow(sh, -8) +
3692  1642.6666666666667 * Lsh * pow(sh, -8)) -
3693  87.3113077596556 * pow(-1 + sh, -3) * pow(sh, -6) +
3694  72.63492063492063 * Li3sh * pow(-1 + sh, -3) * pow(sh, -6) -
3695  24.211640211640212 * pow(Lsh, 3) * pow(-1 + sh, -3) *
3696  pow(sh, -6) + 1.3037037037037038 * cl2 * sqrt4sh * sqrtsh *
3697  pow(sh, 2)*(-42. + 1287. * sh - 1614. * pow(sh, 2) -
3698  19017. * pow(sh, 3) + 50556. * pow(sh, 4) -
3699  55330. * pow(sh, 5) + 33315. * pow(sh, 6) -
3700  11945. * pow(sh, 7) + 2550. * pow(sh, 8) -
3701  300. * pow(sh, 9) + 15. * pow(sh, 10)) +
3702  0.00047031158142269255 * ash * sqrt4sh * sqrtsh *
3703  pow(-1 + sh, -3) * pow(sh, 2)*
3704  (228522. - 7.741593e6 * sh + 3.0723729e7 * pow(sh, 2) +
3705  6.0003996e7 * pow(sh, 3) - 5.8092981e8 * pow(sh, 4) +
3706  1.504380659e9 * pow(sh, 5) - 2.124842634e9 * pow(sh, 6) +
3707  1.888618168e9 * pow(sh, 7) - 1.114436468e9 * pow(sh, 8) +
3708  4.4384322e8 * pow(sh, 9) - 1.18087858e8 * pow(sh, 10) +
3709  2.0123511e7 * pow(sh, 11) - 1.986441e6 * pow(sh, 12) +
3710  86367. * pow(sh, 13)) -
3711  3.911111111111111 * pow(ash, 2) * pow(-1 + sh, -4) * pow(sh, 3)*
3712  (-700. + 7875. * sh - 14966. * pow(sh, 2) -
3713  79023. * pow(sh, 3) + 455850. * pow(sh, 4) -
3714  1.077135e6 * pow(sh, 5) + 1.523775e6 * pow(sh, 6) -
3715  1.432728e6 * pow(sh, 7) + 934836. * pow(sh, 8) -
3716  430150. * pow(sh, 9) + 139230. * pow(sh, 10) -
3717  31025. * pow(sh, 11) + 4530. * pow(sh, 12) -
3718  390. * pow(sh, 13) + 15. * pow(sh, 14)) -
3719  0.0028218694885361554 * Li2sh * pow(-1 + sh, -9) * pow(sh, -8)*
3720  (145530. - 1.30482e6 * sh + 5.20032e6 * pow(sh, 2) -
3721  1.208298e7 * pow(sh, 3) + 1.801254e7 * pow(sh, 4) -
3722  1.78178e7 * pow(sh, 5) + 1.163162e7 * pow(sh, 6) -
3723  4.77477e6 * pow(sh, 7) + 1.082136e6 * pow(sh, 8) -
3724  94842. * pow(sh, 9) - 420. * pow(sh, 13) +
3725  70. * pow(sh, 14) + 35. * pow(sh, 15)) -
3726  Lsh * (72.63492063492063 * Li2sh * pow(-1 + sh, -3) *
3727  pow(sh, -6) - 1.3037037037037038 * ash * sqrt4sh * sqrtsh *
3728  pow(sh, 2)*(-42. + 1287. * sh - 1614. * pow(sh, 2) -
3729  19017. * pow(sh, 3) + 50556. * pow(sh, 4) -
3730  55330. * pow(sh, 5) + 33315. * pow(sh, 6) -
3731  11945. * pow(sh, 7) + 2550. * pow(sh, 8) -
3732  300. * pow(sh, 9) + 15. * pow(sh, 10)) +
3733  7.998496282698853e-8 * pow(-1 + sh, -9) * pow(sh, -14)*
3734  (-70875. - 6750. * sh + 2.654475e6 * pow(sh, 2) +
3735  9.126108e6 * pow(sh, 3) + 678627. * pow(sh, 4) -
3736  4.643019e7 * pow(sh, 5) +
3737  25. * (-1.8964236617e10 + 2.05371936e8 * Lshb) *
3738  pow(sh, 6) - 180. *
3739  (-2.3705023777e10 + 2.5574472e8 * Lshb) * pow(sh, 7)\
3740  + 3. * (-5.691283317731e12 + 6.11557632e10 * Lshb -
3741  2.52252e8 * pow(3.141592653589793, 2)) * pow(sh, 8)\
3742  + 6. * (6.644381363023e12 - 7.10479224e10 * Lshb +
3743  7.56756e8 * pow(3.141592653589793, 2)) * pow(sh, 9)\
3744  + 225. * (-2.66023942651e11 +
3745  2.824366272e9 * Lshb -
3746  5.04504e7 * pow(3.141592653589793, 2)) * pow(sh, 10)
3747  + 120. * (4.99371243863e11 - 5.2384332e9 * Lshb +
3748  1.26126e8 * pow(3.141592653589793, 2)) * pow(sh, 11)
3749  + 225. * (-1.77796507943e11 +
3750  1.823838016e9 * Lshb -
3751  5.04504e7 * pow(3.141592653589793, 2)) * pow(sh, 12)
3752  + 2106. * (8.153537761e9 - 7.99876e7 * Lshb +
3753  2.156e6 * pow(3.141592653589793, 2)) * pow(sh, 13)\
3754  + (-4.299863603271e12 + 3.817775808e10 * Lshb -
3755  7.56756e8 * pow(3.141592653589793, 2)) * pow(sh, 14)
3756  - 140. * (-3.417060133e9 + 2.3900184e7 * Lshb) *
3757  pow(sh, 15) + 4.710132e7 * pow(sh, 16) +
3758  3.484152e7 * pow(sh, 17) - 7.916076e6 * pow(sh, 18) -
3759  6048. * (923. + 2450. * Lshb) * pow(sh, 19) +
3760  12600. * (59. + 196. * Lshb) * pow(sh, 20) +
3761  4200. * (13. + 294. * Lshb) * pow(sh, 21))) +
3762  0.00006718736877467037 * pow(Lsh, 2) * pow(-1 + sh, -10) *
3763  pow(sh, -14)*(-315. - 2115. * sh - 3255. * pow(sh, 2) +
3764  9681. * pow(sh, 3) + 37863. * pow(sh, 4) +
3765  21231. * pow(sh, 5) + 2.843603e8 * pow(sh, 6) -
3766  2.8424249e9 * pow(sh, 7) +
3767  6. * (2.129867959e9 + 90090. * Lshb) * pow(sh, 8) -
3768  42. * (8.10842339e8 + 90090. * Lshb) * pow(sh, 9) +
3769  84. * (7.09285376e8 + 135135. * Lshb) * pow(sh, 10) -
3770  1260. * (5.6749267e7 + 15015. * Lshb) * pow(sh, 11) +
3771  630. * (9.4632631e7 + 30030. * Lshb) * pow(sh, 12) -
3772  378. * (9.0217367e7 + 30030. * Lshb) * pow(sh, 13) +
3773  42. * (3.04968821e8 + 90090. * Lshb) * pow(sh, 14) -
3774  2. * (1.426541293e9 + 270270. * Lshb) * pow(sh, 15) +
3775  2.8627046e8 * pow(sh, 16) + 8820. * pow(sh, 19) -
3776  10290. * pow(sh, 20) + 735. * pow(sh, 21) +
3777  735. * pow(sh, 22)) +
3778  0.00001679684219366759 * pow(lz, 2) * pow(sh, -14)*
3779  (-315. - 5265. * sh - 41730. * pow(sh, 2) -
3780  208494. * pow(sh, 3) - 734877. * pow(sh, 4) -
3781  1.926639e6 * pow(sh, 5) + 1.1339384e9 * pow(sh, 6) +
3782  2.16216e6 * pow(sh, 7) + 48987. * pow(sh, 8) +
3783  1.669041e6 * pow(sh, 9) + 2.629962e6 * pow(sh, 10) +
3784  2.41431e6 * pow(sh, 11) + 1.436625e6 * pow(sh, 12) +
3785  315. * pow(sh, 13) + 3.764376e6 * pow(sh, 14) +
3786  4.230072e6 * pow(sh, 15) + 5.006232e6 * pow(sh, 16) -
3787  7.37352e6 * pow(sh, 17) + 1.0643094e8 * pow(sh, 18) +
3788  1.95359472e8 * pow(sh, 19) -
3789  1.425010356e9 * pow(sh, 20) +
3790  2.406212424e9 * pow(sh, 21) -
3791  2.05080876e9 * pow(sh, 22) + 1.03141962e9 * pow(sh, 23) -
3792  3.2026302e8 * pow(sh, 24) + 6.054048e7 * pow(sh, 25) -
3793  6.40332e6 * pow(sh, 26) + 291060. * pow(sh, 27)) -
3794  lz * (-1642.6666666666667 * lmu * pow(sh, -8) -
3795  36.317460317460316 * pow(Lsh, 2) * pow(-1 + sh, -3) *
3796  pow(sh, -6) - 2.6074074074074076 * ash * sqrt4sh * sqrtsh *
3797  pow(sh, 2)*(-42. + 1287. * sh - 1614. * pow(sh, 2) -
3798  19017. * pow(sh, 3) + 50556. * pow(sh, 4) -
3799  55330. * pow(sh, 5) + 33315. * pow(sh, 6) -
3800  11945. * pow(sh, 7) + 2550. * pow(sh, 8) -
3801  300. * pow(sh, 9) + 15. * pow(sh, 10)) -
3802  0.00006718736877467037 * Lsh * pow(-1 + sh, -9) *
3803  pow(sh, -14)*(-315. - 2430. * sh - 5685. * pow(sh, 2) +
3804  3996. * pow(sh, 3) + 41859. * pow(sh, 4) +
3805  63090. * pow(sh, 5) + 5.68853935e8 * pow(sh, 6) -
3806  5.11611966e9 * pow(sh, 7) +
3807  2.0446767111e10 * pow(sh, 8) -
3808  4.7676829206e10 * pow(sh, 9) +
3809  7.1479964025e10 * pow(sh, 10) -
3810  7.145286696e10 * pow(sh, 11) +
3811  4.7617276155e10 * pow(sh, 12) -
3812  2.039566545e10 * pow(sh, 13) +
3813  5.092669737e9 * pow(sh, 14) -
3814  5.64250624e8 * pow(sh, 15) + 37800. * pow(sh, 16) -
3815  47460. * pow(sh, 17) - 29232. * pow(sh, 18) -
3816  9828. * pow(sh, 19) + 6930. * pow(sh, 20) +
3817  210. * pow(sh, 21)) +
3818  2.796677021922676e-10 * pow(-1 + sh, -8) * pow(sh, -14)*
3819  (-1.0135125e7 - 1.1100375e7 * sh +
3820  3.6848955e8 * pow(sh, 2) +
3821  1.673522994e9 * pow(sh, 3) +
3822  1.770566655e9 * pow(sh, 4) -
3823  4.868950515e9 * pow(sh, 5) -
3824  1.355916766061e14 * pow(sh, 6) +
3825  1.08320914263562e15 * pow(sh, 7) -
3826  3.786163163932292e15 * pow(sh, 8) +
3827  7.56111391441978e15 * pow(sh, 9) -
3828  9.4338729874103e15 * pow(sh, 10) +
3829  7.52783212419654e15 * pow(sh, 11) -
3830  3.74950772533818e15 * pow(sh, 12) +
3831  1.064521016851092e15 * pow(sh, 13) -
3832  1.32239959812912e14 * pow(sh, 14) +
3833  4.822522515092e12 * pow(sh, 15) -
3834  1.3702469432263e13 * pow(sh, 16) +
3835  2.0211432885167e13 * pow(sh, 17) -
3836  1.5340657706842e13 * pow(sh, 18) +
3837  3.8517131981282e13 * pow(sh, 19) -
3838  1.98231128437323e14 * pow(sh, 20) +
3839  2.48611036890867e14 * pow(sh, 21) +
3840  1.312843416208632e15 * pow(sh, 22) -
3841  6.858549767677608e15 * pow(sh, 23) +
3842  1.6510967898168744e16 * pow(sh, 24) -
3843  2.57336419311972e16 * pow(sh, 25) +
3844  2.851348331813982e16 * pow(sh, 26) -
3845  2.336070503975208e16 * pow(sh, 27) +
3846  1.439716999494774e16 * pow(sh, 28) -
3847  6.70336841266092e15 * pow(sh, 29) +
3848  2.34397396677444e15 * pow(sh, 30) -
3849  6.0527470649646e14 * pow(sh, 31) +
3850  1.1182510300962e14 * pow(sh, 32) -
3851  1.396347000048e13 * pow(sh, 33) +
3852  1.054350297e12 * pow(sh, 34) -
3853  3.631041414e10 * pow(sh, 35))) +
3854  7.760786496621921e-16 * pow(-1 + sh, -9) * pow(sh, -14)*
3855  (7.34806697625e11 - 1.86465740175e12 * sh -
3856  1.3539275231625e13 * pow(sh, 2) +
3857  6.7027116030732e13 * pow(sh, 3) +
3858  3.63276406618983e14 * pow(sh, 4) +
3859  7.707518005473e13 * pow(sh, 5) -
3860  1.517387130121548e19 * pow(sh, 6) +
3861  1.361134491880303e20 * pow(sh, 7) -
3862  5.426853793481742e20 * pow(sh, 8) +
3863  1.262085401071148e21 * pow(sh, 9) -
3864  1.886986812950732e21 * pow(sh, 10) +
3865  1.8816744004909767e21 * pow(sh, 11) -
3866  1.2525799935976913e21 * pow(sh, 12) +
3867  5.37888683654858e20 * pow(sh, 13) -
3868  1.3573327538305124e20 * pow(sh, 14) +
3869  1.3896509010095016e19 * pow(sh, 15) +
3870  5.883932779473471e18 * pow(sh, 16) -
3871  1.0545119614382879e19 * pow(sh, 17) +
3872  1.1056449646096937e19 * pow(sh, 18) -
3873  2.3434959475666616e19 * pow(sh, 19) +
3874  1.0419598368525897e20 * pow(sh, 20) -
3875  1.688591180885733e20 * pow(sh, 21) -
3876  5.308738122339353e20 * pow(sh, 22) +
3877  3.5306726064196524e21 * pow(sh, 23) -
3878  9.689077766441178e21 * pow(sh, 24) +
3879  1.7097533811227756e22 * pow(sh, 25) -
3880  2.1588630869532427e22 * pow(sh, 26) +
3881  2.038422378040867e22 * pow(sh, 27) -
3882  1.4690695476739364e22 * pow(sh, 28) +
3883  8.14476034656345e21 * pow(sh, 29) -
3884  3.4697517653715583e21 * pow(sh, 30) +
3885  1.1250567404926722e21 * pow(sh, 31) -
3886  2.7233981875541377e20 * pow(sh, 32) +
3887  4.759269487750347e19 * pow(sh, 33) -
3888  5.663805036845516e18 * pow(sh, 34) +
3889  4.101841359381566e17 * pow(sh, 35) -
3890  1.362249094884678e16 * pow(sh, 36) +
3891  4.32864432e10 * pow(3.141592653589793, 2)*
3892  (-315. - 2430. * sh - 5685. * pow(sh, 2) +
3893  3996. * pow(sh, 3) + 41859. * pow(sh, 4) +
3894  63090. * pow(sh, 5) + 5.81369515e8 * pow(sh, 6) -
3895  5.23068642e9 * pow(sh, 7) +
3896  2.0914846601e10 * pow(sh, 8) -
3897  4.8797229546e10 * pow(sh, 9) +
3898  7.3211460495e10 * pow(sh, 10) -
3899  7.324423592e10 * pow(sh, 11) +
3900  4.8857255585e10 * pow(sh, 12) -
3901  2.094858111e10 * pow(sh, 13) +
3902  5.235387183e9 * pow(sh, 14) -
3903  5.73585856e8 * pow(sh, 15) -
3904  2.302929e7 * pow(sh, 16) + 4.790626e7 * pow(sh, 17) -
3905  1.24781262e8 * pow(sh, 18) +
3906  4.35359256e8 * pow(sh, 19) -
3907  5.45760408e8 * pow(sh, 20) -
3908  3.99911175e9 * pow(sh, 21) +
3909  2.559251793e10 * pow(sh, 22) -
3910  7.87509723e10 * pow(sh, 23) +
3911  1.60158041736e11 * pow(sh, 24) -
3912  2.35861111332e11 * pow(sh, 25) +
3913  2.6202440418e11 * pow(sh, 26) -
3914  2.2419142284e11 * pow(sh, 27) +
3915  1.491808626e11 * pow(sh, 28) -
3916  7.7359627884e10 * pow(sh, 29) +
3917  3.1118686368e10 * pow(sh, 30) -
3918  9.59731542e9 * pow(sh, 31) +
3919  2.22259884e9 * pow(sh, 32) -
3920  3.733653e8 * pow(sh, 33) + 4.288284e7 * pow(sh, 34) -
3921  3.00762e6 * pow(sh, 35) + 97020. * pow(sh, 36)))) *
3922  pow(z, 8);
3923  else
3924  res += pow(z, 8)*(-177282.7451111828 -
3925  1.362845028834542e6 * (1. - sh) -
3926  5.9880687949730605e6 * pow(1. - sh, 2) -
3927  1.9481491807919256e7 * pow(1. - sh, 3) -
3928  5.2053685182060525e7 * pow(1. - sh, 4) +
3929  log(muh)*(1940.6814814814816 +
3930  17168.118518518517 * (1. - sh) +
3931  83827.2 * pow(1. - sh, 2) +
3932  299136. * pow(1. - sh, 3) +
3933  871904. * pow(1. - sh, 4)) +
3934  log(z)*(36437.04027695534 +
3935  345607.09636221116 * (1. - sh) +
3936  1.691397924301905e6 * pow(1. - sh, 2) +
3937  6.051670084075397e6 * pow(1. - sh, 3) +
3938  1.778888064751204e7 * pow(1. - sh, 4) +
3939  log(muh)*(1642.6666666666667 +
3940  13141.333333333334 * (1. - sh) +
3941  59136. * pow(1. - sh, 2) +
3942  197120. * pow(1. - sh, 3) +
3943  542080. * pow(1. - sh, 4))) +
3944  (19228.65843621399 + 153417.80082304525 * (1. - sh) +
3945  684734.1037037037 * pow(1. - sh, 2) +
3946  2.279762479012346e6 * pow(1. - sh, 3) +
3947  6.2693611104056435e6 * pow(1. - sh, 4)) *
3948  pow(log(z), 2));
3949  }
3950 
3951  if (17 <= maxpow) {
3952  if (sh < .900001)
3953  res += -1.4445330349469783e-6 * pow(3.141592653589793, 2) * pow(sh, -15)*
3954  (6435. + 114114. * sh + 962577. * pow(sh, 2) +
3955  5.137524e6 * pow(sh, 3) + 1.9445755e7 * pow(sh, 4) +
3956  5.526435e7 * pow(sh, 5) + 1.20557265e8 * pow(sh, 6) +
3957  1.9446652e8 * pow(sh, 7) + 1.20557265e8 * pow(sh, 8) +
3958  5.526435e7 * pow(sh, 9) + 1.9445755e7 * pow(sh, 10) +
3959  5.137524e6 * pow(sh, 11) + 962577. * pow(sh, 12) +
3960  114114. * pow(sh, 13) + 6435. * pow(sh, 14)) * pow(z, 8.5);
3961  else
3962  res += (-8517.720415207139 - 68141.76332165711 * (1. - sh) -
3963  315581.54138342454 * pow(1. - sh, 2) -
3964  1.1026189077485641e6 * pow(1. - sh, 3) -
3965  3.2181012443704475e6 * pow(1. - sh, 4)) * pow(z, 8.5);
3966  }
3967 
3968  if (18 <= maxpow) {
3969  if (sh < .900001)
3970  res += (-1. * lmu * (-6542.252322163433 * pow(sh, -9) +
3971  5423.407407407408 * Lsh * pow(sh, -9)) -
3972  254.65798096566218 * pow(-1 + sh, -3) * pow(sh, -7) +
3973  211.85185185185185 * Li3sh * pow(-1 + sh, -3) * pow(sh, -7) -
3974  70.61728395061728 * pow(Lsh, 3) * pow(-1 + sh, -3) *
3975  pow(sh, -7) - 2.6901822457378013 * cl2 * sqrt4sh * sqrtsh *
3976  pow(sh, 3)*(552. - 6504. * sh + 954. * pow(sh, 2) +
3977  96534. * pow(sh, 3) - 256765. * pow(sh, 4) +
3978  311884. * pow(sh, 5) - 219753. * pow(sh, 6) +
3979  97149. * pow(sh, 7) - 27453. * pow(sh, 8) +
3980  4830. * pow(sh, 9) - 483. * pow(sh, 10) + 21. * pow(sh, 11))\
3981  - 0.00010451368476059834 * ash * sqrt4sh * sqrtsh *
3982  pow(-1 + sh, -3) * pow(sh, 3)*
3983  (-2.9602032e7 + 4.3918554e8 * sh -
3984  1.183665042e9 * pow(sh, 2) - 4.124801388e9 * pow(sh, 3) +
3985  2.9786749451e10 * pow(sh, 4) -
3986  7.6073083277e10 * pow(sh, 5) +
3987  1.12343648214e11 * pow(sh, 6) -
3988  1.08358670795e11 * pow(sh, 7) +
3989  7.1769426953e10 * pow(sh, 8) -
3990  3.3301199019e10 * pow(sh, 9) +
3991  1.0824913791e10 * pow(sh, 10) -
3992  2.416552923e9 * pow(sh, 11) +
3993  3.53029242e8 * pow(sh, 12) - 3.0393246e7 * pow(sh, 13) +
3994  1.168971e6 * pow(sh, 14)) +
3995  8.070546737213403 * pow(ash, 2) * pow(-1 + sh, -4) * pow(sh, 3)*
3996  (-112. + 5446. * sh - 40068. * pow(sh, 2) +
3997  45402. * pow(sh, 3) + 481386. * pow(sh, 4) -
3998  2.416545e6 * pow(sh, 5) + 5.68308e6 * pow(sh, 6) -
3999  8.356089e6 * pow(sh, 7) + 8.410689e6 * pow(sh, 8) -
4000  6.034798e6 * pow(sh, 9) + 3.142636e6 * pow(sh, 10) -
4001  1.191618e6 * pow(sh, 11) + 325686. * pow(sh, 12) -
4002  62481. * pow(sh, 13) + 7980. * pow(sh, 14) -
4003  609. * pow(sh, 15) + 21. * pow(sh, 16)) -
4004  0.004703115814226925 * Li2sh * pow(-1 + sh, -10) * pow(sh, -9)*
4005  (-288288. + 2.873871e6 * sh - 1.2889503e7 * pow(sh, 2) +
4006  3.423222e7 * pow(sh, 3) - 5.956146e7 * pow(sh, 4) +
4007  7.0825482e7 * pow(sh, 5) - 5.8121154e7 * pow(sh, 6) +
4008  3.2324292e7 * pow(sh, 7) - 1.153152e7 * pow(sh, 8) +
4009  2.327611e6 * pow(sh, 9) - 186043. * pow(sh, 10) -
4010  252. * pow(sh, 15) + 54. * pow(sh, 16) + 18. * pow(sh, 17))\
4011  - Lsh * (211.85185185185185 * Li2sh * pow(-1 + sh, -3) *
4012  pow(sh, -7) + 2.6901822457378013 * ash * sqrt4sh * sqrtsh *
4013  pow(sh, 3)*(552. - 6504. * sh + 954. * pow(sh, 2) +
4014  96534. * pow(sh, 3) - 256765. * pow(sh, 4) +
4015  311884. * pow(sh, 5) - 219753. * pow(sh, 6) +
4016  97149. * pow(sh, 7) - 27453. * pow(sh, 8) +
4017  4830. * pow(sh, 9) - 483. * pow(sh, 10) +
4018  21. * pow(sh, 11)) +
4019  1.5552631660803325e-7 * pow(-1 + sh, -10) * pow(sh, -16)*
4020  (24990. + 3675. * sh - 1.155555e6 * pow(sh, 2) -
4021  4.697175e6 * pow(sh, 3) - 2.300739e6 * pow(sh, 4) +
4022  2.4304707e7 * pow(sh, 5) + 4.9414911e7 * pow(sh, 6) +
4023  (8.82608902003e11 - 8.71782912e9 * Lshb) *
4024  pow(sh, 7) + (-8.826874533745e12 +
4025  8.690585904e10 * Lshb) * pow(sh, 8) +
4026  15. * (2.648605733525e12 - 2.5985238048e10 * Lshb +
4027  7.56756e7 * pow(3.141592653589793, 2)) * pow(sh, 9)\
4028  + 3. * (-3.5329412670653e13 +
4029  3.450607776e11 * Lshb -
4030  2.648646e9 * pow(3.141592653589793, 2)) *
4031  pow(sh, 10) +
4032  105. * (1.767535730921e12 - 1.715370048e10 * Lshb +
4033  2.270268e8 * pow(3.141592653589793, 2)) *
4034  pow(sh, 11) +
4035  21. * (-1.0613371381061e13 +
4036  1.0198869408e11 * Lshb -
4037  1.89189e9 * pow(3.141592653589793, 2)) * pow(sh, 12)
4038  + 189. * (9.83624804999e11 - 9.29938464e9 * Lshb +
4039  2.1021e8 * pow(3.141592653589793, 2)) * pow(sh, 13)\
4040  + 15. * (-7.089591334283e12 +
4041  6.5165772672e10 * Lshb -
4042  1.5891876e9 * pow(3.141592653589793, 2)) *
4043  pow(sh, 14) +
4044  33. * (1.209854560067e12 - 1.05670656e10 * Lshb +
4045  2.40786e8 * pow(3.141592653589793, 2)) * pow(sh, 15)
4046  + 2. * (-4.441328248151e12 +
4047  3.519347832e10 * Lshb -
4048  5.67567e8 * pow(3.141592653589793, 2)) * pow(sh, 16)
4049  + (8.88980806162e11 - 5.62594032e9 * Lshb) *
4050  pow(sh, 17) - 3.8377206e7 * pow(sh, 18) +
4051  4.2700014e7 * pow(sh, 19) +
4052  1.8171216e7 * pow(sh, 20) - 5.847282e6 * pow(sh, 21) -
4053  1890. * (1387. + 4032. * Lshb) * pow(sh, 22) +
4054  2430. * (149. + 672. * Lshb) * pow(sh, 23) +
4055  1215. * (15. + 448. * Lshb) * pow(sh, 24))) -
4056  0.00009798157946306095 * pow(Lsh, 2) * pow(-1 + sh, -11) *
4057  pow(sh, -16)*(-168. - 1302. * sh - 2760. * pow(sh, 2) +
4058  4440. * pow(sh, 3) + 27552. * pow(sh, 4) +
4059  26796. * pow(sh, 5) - 59136. * pow(sh, 6) +
4060  6.91904744e8 * pow(sh, 7) - 7.607607766e9 * pow(sh, 8) +
4061  (3.8011106171e10 + 1.08108e6 * Lshb) * pow(sh, 9) -
4062  36. * (3.165700357e9 + 240240. * Lshb) * pow(sh, 10) +
4063  720. * (3.16454927e8 + 42042. * Lshb) * pow(sh, 11) -
4064  504. * (6.32852603e8 + 120120. * Lshb) * pow(sh, 12) +
4065  84. * (3.797894797e9 + 900900. * Lshb) * pow(sh, 13) -
4066  192. * (1.187472428e9 + 315315. * Lshb) * pow(sh, 14) +
4067  120. * (9.50840131e8 + 252252. * Lshb) * pow(sh, 15) -
4068  104. * (3.66207253e8 + 83160. * Lshb) * pow(sh, 16) +
4069  (7.631953801e9 + 1.08108e6 * Lshb) * pow(sh, 17) -
4070  6.95689448e8 * pow(sh, 18) - 6048. * pow(sh, 22) +
4071  7344. * pow(sh, 23) - 864. * pow(sh, 24) - 432. * pow(sh, 25)
4072  ) + 0.00004899078973153047 * pow(lz, 2) * pow(sh, -16)*
4073  (-84. - 1575. * sh - 14085. * pow(sh, 2) -
4074  79950. * pow(sh, 3) - 323154. * pow(sh, 4) -
4075  987129. * pow(sh, 5) - 2.347059e6 * pow(sh, 6) +
4076  1.379703232e9 * pow(sh, 7) + 2.7027e6 * pow(sh, 8) -
4077  473685. * pow(sh, 9) + 1.243629e6 * pow(sh, 10) +
4078  2.698722e6 * pow(sh, 11) + 2.985906e6 * pow(sh, 12) +
4079  2.433285e6 * pow(sh, 13) + 1.388619e6 * pow(sh, 14) +
4080  84. * pow(sh, 15) + 4.25568e6 * pow(sh, 16) +
4081  4.612608e6 * pow(sh, 17) + 5.189184e6 * pow(sh, 18) +
4082  7.605312e6 * pow(sh, 19) - 6.1281792e7 * pow(sh, 20) +
4083  2.75438592e8 * pow(sh, 21) + 8.71398528e8 * pow(sh, 22) -
4084  5.028236928e9 * pow(sh, 23) +
4085  8.99602704e9 * pow(sh, 24) -
4086  8.653636992e9 * pow(sh, 25) +
4087  5.137333344e9 * pow(sh, 26) -
4088  1.978438176e9 * pow(sh, 27) +
4089  4.97379168e8 * pow(sh, 28) - 7.8990912e7 * pow(sh, 29) +
4090  7.2072e6 * pow(sh, 30) - 288288. * pow(sh, 31)) -
4091  lz * (-5423.407407407408 * lmu * pow(sh, -9) -
4092  105.92592592592592 * pow(Lsh, 2) * pow(-1 + sh, -3) *
4093  pow(sh, -7) + 5.380364491475603 * ash * sqrt4sh * sqrtsh *
4094  pow(sh, 3)*(552. - 6504. * sh + 954. * pow(sh, 2) +
4095  96534. * pow(sh, 3) - 256765. * pow(sh, 4) +
4096  311884. * pow(sh, 5) - 219753. * pow(sh, 6) +
4097  97149. * pow(sh, 7) - 27453. * pow(sh, 8) +
4098  4830. * pow(sh, 9) - 483. * pow(sh, 10) +
4099  21. * pow(sh, 11)) +
4100  0.0001959631589261219 * Lsh * pow(-1 + sh, -10) *
4101  pow(sh, -16)*(-84. - 735. * sh - 2115. * pow(sh, 2) +
4102  105. * pow(sh, 3) + 13881. * pow(sh, 4) +
4103  27279. * pow(sh, 5) - 2289. * pow(sh, 6) +
4104  6.91956971e8 * pow(sh, 7) -
4105  6.915895655e9 * pow(sh, 8) +
4106  3.1099607139e10 * pow(sh, 9) -
4107  8.2880063541e10 * pow(sh, 10) +
4108  1.44964071231e11 * pow(sh, 11) -
4109  1.73879170521e11 * pow(sh, 12) +
4110  1.44837476805e11 * pow(sh, 13) -
4111  8.2722854787e10 * pow(sh, 14) +
4112  3.0998246241e10 * pow(sh, 15) -
4113  6.879851159e9 * pow(sh, 16) +
4114  6.86365796e8 * pow(sh, 17) - 75600. * pow(sh, 18) -
4115  9072. * pow(sh, 19) + 22680. * pow(sh, 20) +
4116  9828. * pow(sh, 21) + 2268. * pow(sh, 22) -
4117  2484. * pow(sh, 23) - 54. * pow(sh, 24)) +
4118  5.43798309818298e-10 * pow(-1 + sh, -9) * pow(sh, -16)*
4119  (3.57357e6 + 4.099095e6 * sh -
4120  1.6114527e8 * pow(sh, 2) - 8.32841295e8 * pow(sh, 3) -
4121  1.161846972e9 * pow(sh, 4) +
4122  2.313726129e9 * pow(sh, 5) +
4123  9.380058402e9 * pow(sh, 6) +
4124  2.52441684058135e14 * pow(sh, 7) -
4125  2.26944762991947e15 * pow(sh, 8) +
4126  9.067251405053984e15 * pow(sh, 9) -
4127  2.113009526738253e16 * pow(sh, 10) +
4128  3.1647467902192624e16 * pow(sh, 11) -
4129  3.158667323807502e16 * pow(sh, 12) +
4130  2.1002634158609704e16 * pow(sh, 13) -
4131  8.966860615674702e15 * pow(sh, 14) +
4132  2.228333766410625e15 * pow(sh, 15) -
4133  2.43656770617994e14 * pow(sh, 16) -
4134  9.520266140208e12 * pow(sh, 17) +
4135  3.1476144603672e13 * pow(sh, 18) -
4136  6.08108801358e13 * pow(sh, 19) +
4137  8.0522179628688e13 * pow(sh, 20) -
4138  7.1735262216768e13 * pow(sh, 21) -
4139  1.85972284144884e14 * pow(sh, 22) +
4140  1.24257330785952e15 * pow(sh, 23) -
4141  1.516348491395922e15 * pow(sh, 24) -
4142  9.623404446386016e15 * pow(sh, 25) +
4143  5.409785863372176e16 * pow(sh, 26) -
4144  1.4651551524606797e17 * pow(sh, 27) +
4145  2.639914855668742e17 * pow(sh, 28) -
4146  3.46785263569046e17 * pow(sh, 29) +
4147  3.4581010205224454e17 * pow(sh, 30) -
4148  2.67102371124581e17 * pow(sh, 31) +
4149  1.612804363486636e17 * pow(sh, 32) -
4150  7.625393556018638e16 * pow(sh, 33) +
4151  2.809203040360517e16 * pow(sh, 34) -
4152  7.968174811781184e15 * pow(sh, 35) +
4153  1.704011763662208e15 * pow(sh, 36) -
4154  2.65362784294608e14 * pow(sh, 37) +
4155  2.836102317048e13 * pow(sh, 38) -
4156  1.857724700832e12 * pow(sh, 39) +
4157  5.6166718608e10 * pow(sh, 40))) -
4158  2.263562728181394e-15 * pow(-1 + sh, -10) * pow(sh, -16)*
4159  (1.522039519e11 - 4.26276275425e11 * sh -
4160  3.315607505925e12 * pow(sh, 2) +
4161  1.9935815474575e13 * pow(sh, 3) +
4162  1.24680380503679e14 * pow(sh, 4) +
4163  9.4734104241777e13 * pow(sh, 5) -
4164  6.72219759402191e14 * pow(sh, 6) -
4165  2.148676883608435e19 * pow(sh, 7) +
4166  2.1433741656451708e20 * pow(sh, 8) -
4167  9.621528485908101e20 * pow(sh, 9) +
4168  2.559493442861416e21 * pow(sh, 10) -
4169  4.468559626678942e21 * pow(sh, 11) +
4170  5.35099530515921e21 * pow(sh, 12) -
4171  4.4525844044562044e21 * pow(sh, 13) +
4172  2.544142477915097e21 * pow(sh, 14) -
4173  9.568948351796755e20 * pow(sh, 15) +
4174  2.1500361682429e20 * pow(sh, 16) -
4175  2.422139078794151e19 * pow(sh, 17) +
4176  8.145618788181729e18 * pow(sh, 18) -
4177  1.8132101139625396e19 * pow(sh, 19) +
4178  2.789986937416512e19 * pow(sh, 20) -
4179  2.916708794791665e19 * pow(sh, 21) -
4180  4.506612585214779e19 * pow(sh, 22) +
4181  3.9814881989842764e20 * pow(sh, 23) -
4182  7.61642854944141e20 * pow(sh, 24) -
4183  1.912231127650318e21 * pow(sh, 25) +
4184  1.5547276029752026e22 * pow(sh, 26) -
4185  4.875241535562659e22 * pow(sh, 27) +
4186  9.909337425361018e22 * pow(sh, 28) -
4187  1.4647795672750128e23 * pow(sh, 29) +
4188  1.651330016200192e23 * pow(sh, 30) -
4189  1.453924699389752e23 * pow(sh, 31) +
4190  1.011735575962528e23 * pow(sh, 32) -
4191  5.58883301567305e22 * pow(sh, 33) +
4192  2.447160559972393e22 * pow(sh, 34) -
4193  8.433457866753118e21 * pow(sh, 35) +
4194  2.2566304052798968e21 * pow(sh, 36) -
4195  4.585243554016694e20 * pow(sh, 37) +
4196  6.826335499960051e19 * pow(sh, 38) -
4197  7.011890262150629e18 * pow(sh, 39) +
4198  4.434709029248097e17 * pow(sh, 40) -
4199  1.2998152420597344e16 * pow(sh, 41) +
4200  4.32864432e10 * pow(3.141592653589793, 2)*
4201  (-84. - 735. * sh - 2115. * pow(sh, 2) +
4202  105. * pow(sh, 3) + 13881. * pow(sh, 4) +
4203  27279. * pow(sh, 5) - 2289. * pow(sh, 6) +
4204  7.06083083e8 * pow(sh, 7) -
4205  7.059427043e9 * pow(sh, 8) +
4206  3.1757931649e10 * pow(sh, 9) -
4207  8.4675129727e10 * pow(sh, 10) +
4208  1.48186623501e11 * pow(sh, 11) -
4209  1.77858935891e11 * pow(sh, 12) +
4210  1.48260913367e11 * pow(sh, 13) -
4211  8.4747202497e10 * pow(sh, 14) +
4212  3.1784695387e10 * pow(sh, 15) -
4213  7.061392333e9 * pow(sh, 16) +
4214  7.13289054e8 * pow(sh, 17) -
4215  3.2675014e7 * pow(sh, 18) + 7.242013e7 * pow(sh, 19) -
4216  7.6735758e7 * pow(sh, 20) -
4217  2.40223726e8 * pow(sh, 21) +
4218  1.627847962e9 * pow(sh, 22) -
4219  2.273776974e9 * pow(sh, 23) -
4220  1.712105386e10 * pow(sh, 24) +
4221  1.18341944808e11 * pow(sh, 25) -
4222  3.9995878208e11 * pow(sh, 26) +
4223  9.10773328608e11 * pow(sh, 27) -
4224  1.531097366656e12 * pow(sh, 28) +
4225  1.98076916752e12 * pow(sh, 29) -
4226  2.016366553344e12 * pow(sh, 30) +
4227  1.634962897568e12 * pow(sh, 31) -
4228  1.06202452928e12 * pow(sh, 32) +
4229  5.53053223008e11 * pow(sh, 33) -
4230  2.30009473408e11 * pow(sh, 34) +
4231  7.5735678304e10 * pow(sh, 35) -
4232  1.945628256e10 * pow(sh, 36) +
4233  3.810741792e9 * pow(sh, 37) -
4234  5.48735616e8 * pow(sh, 38) +
4235  5.4678624e7 * pow(sh, 39) - 3.36336e6 * pow(sh, 40) +
4236  96096. * pow(sh, 41)))) * pow(z, 9);
4237  else
4238  res += pow(z, 9)*(-622069.3836274818 -
4239  5.380712316126128e6 * (1. - sh) -
4240  2.6348101173329648e7 * pow(1. - sh, 2) -
4241  9.453816935977913e7 * pow(1. - sh, 3) -
4242  2.761541131481308e8 * pow(1. - sh, 4) +
4243  log(muh)*(6542.252322163433 +
4244  64303.678306878304 * (1. - sh) +
4245  345923.7248677249 * pow(1. - sh, 2) +
4246  1.349738102292769e6 * pow(1. - sh, 3) +
4247  4.272929862433863e6 * pow(1. - sh, 4)) +
4248  log(z)*(131849.69275238464 +
4249  1.3908505037480777e6 * (1. - sh) +
4250  7.472361309110008e6 * pow(1. - sh, 2) +
4251  2.920814956913386e7 * pow(1. - sh, 3) +
4252  9.329175253624554e7 * pow(1. - sh, 4) +
4253  log(muh)*(5423.407407407408 +
4254  48810.666666666664 * (1. - sh) +
4255  244053.33333333334 * pow(1. - sh, 2) +
4256  894862.2222222222 * pow(1. - sh, 3) +
4257  2.6845866666666665e6 * pow(1. - sh, 4))) +
4258  (68317.8044287674 + 612595.3262786596 * (1. - sh) +
4259  3.035726507936508e6 * pow(1. - sh, 2) +
4260  1.1122724390358612e7 * pow(1. - sh, 3) +
4261  3.3373027717813052e7 * pow(1. - sh, 4)) *
4262  pow(log(z), 2));
4263  }
4264 
4265  if (19 <= maxpow) {
4266  if (sh < .900001)
4267  res += -6.708357747431788e-8 * pow(3.141592653589793, 2) * pow(sh, -17)*
4268  (109395. + 2.16216e6 * sh + 2.0430696e7 * pow(sh, 2) +
4269  1.22866128e8 * pow(sh, 3) + 5.27900436e8 * pow(sh, 4) +
4270  1.72236568e9 * pow(sh, 5) + 4.41295356e9 * pow(sh, 6) +
4271  8.96714376e9 * pow(sh, 7) + 1.385377093e10 * pow(sh, 8) +
4272  8.96714376e9 * pow(sh, 9) + 4.41295356e9 * pow(sh, 10) +
4273  1.72236568e9 * pow(sh, 11) + 5.27900436e8 * pow(sh, 12) +
4274  1.22866128e8 * pow(sh, 13) + 2.0430696e7 * pow(sh, 14) +
4275  2.16216e6 * pow(sh, 15) + 109395. * pow(sh, 16)) * pow(z, 9.5);
4276  else
4277  res += (-30062.542641907552 - 270562.883777168 * (1. - sh) -
4278  1.388889470056129e6 * pow(1. - sh, 2) -
4279  5.321070047617637e6 * pow(1. - sh, 3) -
4280  1.6887633329091568e7 * pow(1. - sh, 4)) * pow(z, 9.5);
4281  }
4282 
4283  if (20 <= maxpow) {
4284  if (sh < .900001)
4285  res += (-1. * lmu * (-22436.0126984127 * pow(sh, -10) +
4286  18304. * Lsh * pow(sh, -10)) -
4287  769.6330091406679 * pow(-1 + sh, -3) * pow(sh, -8) +
4288  640.2633744855967 * Li3sh * pow(-1 + sh, -3) * pow(sh, -8) -
4289  213.42112482853224 * pow(Lsh, 3) * pow(-1 + sh, -3) *
4290  pow(sh, -8) + 6.052910052910053 * cl2 * sqrt4sh * sqrtsh *
4291  pow(sh, 3)*(72. - 4364. * sh + 28750. * pow(sh, 2) +
4292  23168. * pow(sh, 3) - 476659. * pow(sh, 4) +
4293  1.255353e6 * pow(sh, 5) - 1.649661e6 * pow(sh, 6) +
4294  1.316274e6 * pow(sh, 7) - 686175. * pow(sh, 8) +
4295  239883. * pow(sh, 9) - 55951. * pow(sh, 10) +
4296  8372. * pow(sh, 11) - 728. * pow(sh, 12) + 28. * pow(sh, 13))
4297  + 0.0009406231628453851 * ash * sqrt4sh * sqrtsh *
4298  pow(-1 + sh, -3) * pow(sh, 3)*
4299  (-1.003446e6 + 6.399262e7 * sh -
4300  5.88476654e8 * pow(sh, 2) + 1.052685443e9 * pow(sh, 3) +
4301  6.558619027e9 * pow(sh, 4) -
4302  3.9015984112e10 * pow(sh, 5) +
4303  9.831642973e10 * pow(sh, 6) -
4304  1.5050270954e11 * pow(sh, 7) +
4305  1.55340604554e11 * pow(sh, 8) -
4306  1.13220265218e11 * pow(sh, 9) +
4307  5.9521934912e10 * pow(sh, 10) -
4308  2.2692174847e10 * pow(sh, 11) +
4309  6.219574195e9 * pow(sh, 12) -
4310  1.194652762e9 * pow(sh, 13) + 1.5263422e8 * pow(sh, 14) -
4311  1.1648401e7 * pow(sh, 15) + 401669. * pow(sh, 16)) -
4312  18.158730158730158 * pow(ash, 2) * pow(-1 + sh, -4) *
4313  pow(sh, 4)*(1638. - 34902. * sh + 187614. * pow(sh, 2) -
4314  73296. * pow(sh, 3) - 2.717613e6 * pow(sh, 4) +
4315  1.2278721e7 * pow(sh, 5) - 2.8715127e7 * pow(sh, 6) +
4316  4.3584072e7 * pow(sh, 7) - 4.6464222e7 * pow(sh, 8) +
4317  3.6125334e7 * pow(sh, 9) - 2.0866662e7 * pow(sh, 10) +
4318  9.012312e6 * pow(sh, 11) - 2.899701e6 * pow(sh, 12) +
4319  684873. * pow(sh, 13) - 115255. * pow(sh, 14) +
4320  13076. * pow(sh, 15) - 896. * pow(sh, 16) + 28. * pow(sh, 17)
4321  ) - 0.0011757789535567313 * Li2sh * pow(-1 + sh, -11) *
4322  pow(sh, -10)*(3.891888e6 - 4.2698656e7 * sh +
4323  2.12860648e8 * pow(sh, 2) - 6.36197562e8 * pow(sh, 3) +
4324  1.265813472e9 * pow(sh, 4) - 1.758542016e9 * pow(sh, 5) +
4325  1.737624672e9 * pow(sh, 6) - 1.217575632e9 * pow(sh, 7) +
4326  5.89815408e8 * pow(sh, 8) - 1.86234048e8 * pow(sh, 9) +
4327  3.3715396e7 * pow(sh, 10) - 2.523664e6 * pow(sh, 11) -
4328  1008. * pow(sh, 17) + 252. * pow(sh, 18) + 63. * pow(sh, 19))
4329  - Lsh * (640.2633744855967 * Li2sh * pow(-1 + sh, -3) *
4330  pow(sh, -8) - 6.052910052910053 * ash * sqrt4sh * sqrtsh *
4331  pow(sh, 3)*(72. - 4364. * sh + 28750. * pow(sh, 2) +
4332  23168. * pow(sh, 3) - 476659. * pow(sh, 4) +
4333  1.255353e6 * pow(sh, 5) - 1.649661e6 * pow(sh, 6) +
4334  1.316274e6 * pow(sh, 7) - 686175. * pow(sh, 8) +
4335  239883. * pow(sh, 9) - 55951. * pow(sh, 10) +
4336  8372. * pow(sh, 11) - 728. * pow(sh, 12) +
4337  28. * pow(sh, 13)) +
4338  1.0368421107202216e-8 * pow(-1 + sh, -11) * pow(sh, -18)*
4339  (-268128. - 50176. * sh + 1.5037316e7 * pow(sh, 2) +
4340  7.0758368e7 * pow(sh, 3) + 6.454424e7 * pow(sh, 4) -
4341  3.47363296e8 * pow(sh, 5) -
4342  9.86787592e8 * pow(sh, 6) - 3.5646688e7 * pow(sh, 7) +
4343  448. * (-1.08098395051e11 + 9.8513415e8 * Lshb) *
4344  pow(sh, 8) - 2464. *
4345  (-2.16214325051e11 + 1.9651086e9 * Lshb) * pow(sh, 9)
4346  + (-2.664090635973398e15 +
4347  2.41383974832e13 * Lshb -
4348  5.1459408e10 * pow(3.141592653589793, 2)) *
4349  pow(sh, 10) +
4350  (7.994327088697714e15 - 7.21448035308e13 * Lshb +
4351  4.11675264e11 * pow(3.141592653589793, 2)) *
4352  pow(sh, 11) +
4353  28. * (-5.71247555169563e14 +
4354  5.1265445616e12 * Lshb -
4355  5.1459408e10 * pow(3.141592653589793, 2)) *
4356  pow(sh, 12) +
4357  112. * (2.00040160003213e14 -
4358  1.7805237912e12 * Lshb +
4359  2.5729704e10 * pow(3.141592653589793, 2)) *
4360  pow(sh, 13) +
4361  14. * (-1.601332890109447e15 +
4362  1.40747598432e13 * Lshb -
4363  2.5729704e11 * pow(3.141592653589793, 2)) *
4364  pow(sh, 14) +
4365  112. * (1.43081208030667e14 -
4366  1.2327953274e12 * Lshb +
4367  2.5729704e10 * pow(3.141592653589793, 2)) *
4368  pow(sh, 15) +
4369  28. * (-2.86396712598419e14 +
4370  2.3887524024e12 * Lshb -
4371  5.1459408e10 * pow(3.141592653589793, 2)) *
4372  pow(sh, 16) +
4373  32. * (8.3604554894621e13 - 6.599669076e11 * Lshb +
4374  1.2864852e10 * pow(3.141592653589793, 2)) *
4375  pow(sh, 17) +
4376  (-5.35506196250843e14 + 3.8233259064e12 * Lshb -
4377  5.1459408e10 * pow(3.141592653589793, 2)) *
4378  pow(sh, 18) -
4379  252. * (-1.93318721627e11 + 1.1356488e9 * Lshb) *
4380  pow(sh, 19) - 3.861655812e9 * pow(sh, 20) -
4381  5.0733144e7 * pow(sh, 21) +
4382  8.74592334e8 * pow(sh, 22) +
4383  2.56502232e8 * pow(sh, 23) -
4384  1.152693e8 * pow(sh, 24) -
4385  1800. * (20357. + 63504. * Lshb) * pow(sh, 25) +
4386  11025. * (461. + 2592. * Lshb) * pow(sh, 26) +
4387  11025. * (17. + 648. * Lshb) * pow(sh, 27))) -
4388  0.000013064210595074793 * pow(Lsh, 2) * pow(-1 + sh, -12) *
4389  pow(sh, -18)*(1008. + 8848. * sh + 23688. * pow(sh, 2) -
4390  17352. * pow(sh, 3) - 212592. * pow(sh, 4) -
4391  311184. * pow(sh, 5) + 400176. * pow(sh, 6) +
4392  1.492176e6 * pow(sh, 7) - 1.8665467128e10 * pow(sh, 8) +
4393  2.23865173224e11 * pow(sh, 9) -
4394  3. * (4.10179236011e11 + 8.16816e6 * Lshb) * pow(sh, 10) +
4395  1053. * (3.893290287e9 + 209440. * Lshb) * pow(sh, 11) -
4396  234. * (3.9404650781e10 + 3.76992e6 * Lshb) *
4397  pow(sh, 12) + 1848. *
4398  (7.981764103e9 + 1.11384e6 * Lshb) * pow(sh, 13) -
4399  5040. * (3.414494773e9 + 612612. * Lshb) * pow(sh, 14) +
4400  3528. * (4.182077137e9 + 875160. * Lshb) * pow(sh, 15) -
4401  1344. * (6.864759043e9 + 1.53153e6 * Lshb) * pow(sh, 16) +
4402  1224. * (3.352868227e9 + 720720. * Lshb) * pow(sh, 17) -
4403  18. * (6.8479648117e10 + 1.225224e7 * Lshb) *
4404  pow(sh, 18) + (2.24483274986e11 + 2.450448e7 * Lshb) *
4405  pow(sh, 19) - 1.8748455264e10 * pow(sh, 20) -
4406  45360. * pow(sh, 25) + 56700. * pow(sh, 26) -
4407  8505. * pow(sh, 27) - 2835. * pow(sh, 28)) +
4408  0.000013064210595074793 * pow(lz, 2) * pow(sh, -18)*
4409  (-252. - 5236. * sh - 52122. * pow(sh, 2) -
4410  330990. * pow(sh, 3) - 1.50586e6 * pow(sh, 4) -
4411  5.221788e6 * pow(sh, 5) - 1.4306214e7 * pow(sh, 6) -
4412  3.1500898e7 * pow(sh, 7) + 1.8610077024e10 * pow(sh, 8) +
4413  3.675672e7 * pow(sh, 9) - 1.1865305e7 * pow(sh, 10) +
4414  7.819275e6 * pow(sh, 11) + 2.920308e7 * pow(sh, 12) +
4415  3.763735e7 * pow(sh, 13) + 3.5618775e7 * pow(sh, 14) +
4416  2.7424047e7 * pow(sh, 15) + 1.5311086e7 * pow(sh, 16) +
4417  252. * pow(sh, 17) + 5.397678e7 * pow(sh, 18) +
4418  5.722002e7 * pow(sh, 19) + 6.231654e7 * pow(sh, 20) +
4419  6.996132e7 * pow(sh, 21) + 2.7057888e8 * pow(sh, 22) -
4420  3.18810492e9 * pow(sh, 23) + 7.5729654e9 * pow(sh, 24) +
4421  4.194296964e10 * pow(sh, 25) -
4422  2.0547002619e11 * pow(sh, 26) +
4423  3.8218629735e11 * pow(sh, 27) -
4424  4.0430890071e11 * pow(sh, 28) +
4425  2.7416659842e11 * pow(sh, 29) -
4426  1.2521582073e11 * pow(sh, 30) +
4427  3.911266359e10 * pow(sh, 31) -
4428  8.26458633e9 * pow(sh, 32) + 1.13189076e9 * pow(sh, 33) -
4429  9.081072e7 * pow(sh, 34) + 3.24324e6 * pow(sh, 35)) -
4430  lz * (-18304. * lmu * pow(sh, -10) -
4431  320.13168724279836 * pow(Lsh, 2) * pow(-1 + sh, -3) *
4432  pow(sh, -8) - 12.105820105820106 * ash * sqrt4sh * sqrtsh *
4433  pow(sh, 3)*(72. - 4364. * sh + 28750. * pow(sh, 2) +
4434  23168. * pow(sh, 3) - 476659. * pow(sh, 4) +
4435  1.255353e6 * pow(sh, 5) - 1.649661e6 * pow(sh, 6) +
4436  1.316274e6 * pow(sh, 7) - 686175. * pow(sh, 8) +
4437  239883. * pow(sh, 9) - 55951. * pow(sh, 10) +
4438  8372. * pow(sh, 11) - 728. * pow(sh, 12) +
4439  28. * pow(sh, 13)) -
4440  0.000026128421190149586 * Lsh * pow(-1 + sh, -11) *
4441  pow(sh, -18)*(-504. - 4928. * sh - 16772. * pow(sh, 2) -
4442  8096. * pow(sh, 3) + 98200. * pow(sh, 4) +
4443  253792. * pow(sh, 5) + 53704. * pow(sh, 6) -
4444  692384. * pow(sh, 7) + 1.8664647232e10 * pow(sh, 8) -
4445  2.05207139984e11 * pow(sh, 9) +
4446  1.025430782207e12 * pow(sh, 10) -
4447  3.074555676226e12 * pow(sh, 11) +
4448  6.145992007736e12 * pow(sh, 12) -
4449  8.60044812004e12 * pow(sh, 13) +
4450  8.596678573448e12 * pow(sh, 14) -
4451  6.137611319224e12 * pow(sh, 15) +
4452  3.067041035912e12 * pow(sh, 16) -
4453  1.021522277272e12 * pow(sh, 17) +
4454  2.04049226678e11 * pow(sh, 18) -
4455  1.8515048904e10 * pow(sh, 19) +
4456  864864. * pow(sh, 20) + 769608. * pow(sh, 21) -
4457  13608. * pow(sh, 22) - 222264. * pow(sh, 23) -
4458  69120. * pow(sh, 24) - 9000. * pow(sh, 25) +
4459  19215. * pow(sh, 26) + 315. * pow(sh, 27)) -
4460  4.265084782888612e-12 * pow(-1 + sh, -10) * pow(sh, -18)*
4461  (3.25909584e8 + 3.86898512e8 * sh -
4462  1.7890959086e10 * pow(sh, 2) -
4463  1.0389775539e11 * pow(sh, 3) -
4464  1.8235127911e11 * pow(sh, 4) +
4465  2.39868807178e11 * pow(sh, 5) +
4466  1.439309125254e12 * pow(sh, 6) +
4467  1.482637674518e12 * pow(sh, 7) +
4468  1.1773533109183245e17 * pow(sh, 8) -
4469  1.1762786134932733e18 * pow(sh, 9) +
4470  5.287945685290232e18 * pow(sh, 10) -
4471  1.408573123970191e19 * pow(sh, 11) +
4472  2.461891448027823e19 * pow(sh, 12) -
4473  2.949733724851667e19 * pow(sh, 13) +
4474  2.4532821652619735e19 * pow(sh, 14) -
4475  1.3981789937805554e19 * pow(sh, 15) +
4476  5.223681256860368e18 * pow(sh, 16) -
4477  1.1543710933218002e18 * pow(sh, 17) +
4478  1.1493955705739667e17 * pow(sh, 18) -
4479  4.556468500926695e15 * pow(sh, 19) +
4480  1.7572146654042552e16 * pow(sh, 20) -
4481  3.9615878221273704e16 * pow(sh, 21) +
4482  5.638676809242492e16 * pow(sh, 22) -
4483  4.406121643569693e16 * pow(sh, 23) +
4484  3.2318412281568824e16 * pow(sh, 24) -
4485  4.259492022110168e17 * pow(sh, 25) +
4486  2.1201430825186813e18 * pow(sh, 26) -
4487  2.4923037486423537e18 * pow(sh, 27) -
4488  1.7838580318483542e19 * pow(sh, 28) +
4489  1.0701104247446746e20 * pow(sh, 29) -
4490  3.1929857696090705e20 * pow(sh, 30) +
4491  6.474487284281146e20 * pow(sh, 31) -
4492  9.760291519177703e20 * pow(sh, 32) +
4493  1.1392452492311442e21 * pow(sh, 33) -
4494  1.0520263768751638e21 * pow(sh, 34) +
4495  7.775724274489533e20 * pow(sh, 35) -
4496  4.624318941820542e20 * pow(sh, 36) +
4497  2.213656928475123e20 * pow(sh, 37) -
4498  8.494727327998501e19 * pow(sh, 38) +
4499  2.5900145606169035e19 * pow(sh, 39) -
4500  6.181939718636802e18 * pow(sh, 40) +
4501  1.1286121824774998e18 * pow(sh, 41) -
4502  1.5195925385464826e17 * pow(sh, 42) +
4503  1.420123992415128e16 * pow(sh, 43) -
4504  8.2168151561496e14 * pow(sh, 44) +
4505  2.214605244852e13 * pow(sh, 45))) -
4506  6.962130651845887e-19 * pow(-1 + sh, -11) * pow(sh, -18)*
4507  (-3.16414088198208e14 + 9.74539823921664e14 * sh +
4508  8.087033764735926e15 * pow(sh, 2) -
4509  5.684694862939435e16 * pow(sh, 3) -
4510  4.0319420043801754e17 * pow(sh, 4) -
4511  4.882604186351892e17 * pow(sh, 5) +
4512  1.9325128069129482e18 * pow(sh, 6) +
4513  6.292691026868566e18 * pow(sh, 7) +
4514  2.792081386627729e23 * pow(sh, 8) -
4515  3.0653776012724437e24 * pow(sh, 9) +
4516  1.5296980754272814e25 * pow(sh, 10) -
4517  4.580270398519267e25 * pow(sh, 11) +
4518  9.143594067412906e25 * pow(sh, 12) -
4519  1.2779495928946286e26 * pow(sh, 13) +
4520  1.2762486136562552e26 * pow(sh, 14) -
4521  9.110246500944438e25 * pow(sh, 15) +
4522  4.558305919883703e25 * pow(sh, 16) -
4523  1.5244656041943856e25 * pow(sh, 17) +
4524  3.073171046299431e24 * pow(sh, 18) -
4525  2.6184927906686532e23 * pow(sh, 19) -
4526  1.0487308963151102e23 * pow(sh, 20) +
4527  2.7045906540143195e23 * pow(sh, 21) -
4528  4.4609820546041925e23 * pow(sh, 22) +
4529  4.3341866014896366e23 * pow(sh, 23) -
4530  3.0284128932535685e23 * pow(sh, 24) +
4531  2.8502065219122033e24 * pow(sh, 25) -
4532  1.6744213714265902e25 * pow(sh, 26) +
4533  3.4546092096924117e25 * pow(sh, 27) +
4534  6.6958214497636675e25 * pow(sh, 28) -
4535  6.719624033223081e26 * pow(sh, 29) +
4536  2.3634332855143025e27 * pow(sh, 30) -
4537  5.406861258181357e27 * pow(sh, 31) +
4538  9.10419041097793e27 * pow(sh, 32) -
4539  1.1865952156817548e28 * pow(sh, 33) +
4540  1.2283961231268607e28 * pow(sh, 34) -
4541  1.0245250602869844e28 * pow(sh, 35) +
4542  6.935097181125567e27 * pow(sh, 36) -
4543  3.819594455600949e27 * pow(sh, 37) +
4544  1.7090015768187537e27 * pow(sh, 38) -
4545  6.177750381749111e26 * pow(sh, 39) +
4546  1.7862394817725466e26 * pow(sh, 40) -
4547  4.0667139734465495e25 * pow(sh, 41) +
4548  7.117942930727479e24 * pow(sh, 42) -
4549  9.229373088621336e23 * pow(sh, 43) +
4550  8.339200912205272e22 * pow(sh, 44) -
4551  4.6814118287209613e21 * pow(sh, 45) +
4552  1.2279937968685318e20 * pow(sh, 46) -
4553  6.2548910424e12 * pow(3.141592653589793, 2)*
4554  (-1512. - 14784. * sh - 50316. * pow(sh, 2) -
4555  24288. * pow(sh, 3) + 294600. * pow(sh, 4) +
4556  761376. * pow(sh, 5) + 161112. * pow(sh, 6) -
4557  2.077152e6 * pow(sh, 7) +
4558  5.7064210896e10 * pow(sh, 8) -
4559  6.27572398992e11 * pow(sh, 9) +
4560  3.137096776433e12 * pow(sh, 10) -
4561  9.409743553774e12 * pow(sh, 11) +
4562  1.8818560922504e13 * pow(sh, 12) -
4563  2.6347616980552e13 * pow(sh, 13) +
4564  2.6351485677944e13 * pow(sh, 14) -
4565  1.8825939544384e13 * pow(sh, 15) +
4566  9.414254480792e12 * pow(sh, 16) -
4567  3.137901366712e12 * pow(sh, 17) +
4568  6.27172370726e11 * pow(sh, 18) -
4569  5.6235529592e10 * pow(sh, 19) -
4570  3.03847082e9 * pow(sh, 20) +
4571  7.83321994e9 * pow(sh, 21) -
4572  1.36334135e10 * pow(sh, 22) +
4573  2.612527414e10 * pow(sh, 23) -
4574  1.2043334018e11 * pow(sh, 24) +
4575  5.11152445252e11 * pow(sh, 25) -
4576  7.00772118731e11 * pow(sh, 26) -
4577  5.082162807869e12 * pow(sh, 27) +
4578  3.7496386828908e13 * pow(sh, 28) -
4579  1.3686666259266e14 * pow(sh, 29) +
4580  3.4205865415722e14 * pow(sh, 30) -
4581  6.4118721989322e14 * pow(sh, 31) +
4582  9.3979081997658e14 * pow(sh, 32) -
4583  1.10202690808782e15 * pow(sh, 33) +
4584  1.04788397968254e15 * pow(sh, 34) -
4585  8.141721939351e14 * pow(sh, 35) +
4586  5.1869434238622e14 * pow(sh, 36) -
4587  2.7096438795426e14 * pow(sh, 37) +
4588  1.1569642322238e14 * pow(sh, 38) -
4589  4.010774591538e13 * pow(sh, 39) +
4590  1.116674149734e13 * pow(sh, 40) -
4591  2.4564705165e12 * pow(sh, 41) +
4592  4.1666228604e11 * pow(sh, 42) -
4593  5.249021778e10 * pow(sh, 43) +
4594  4.61837376e9 * pow(sh, 44) -
4595  2.5297272e8 * pow(sh, 45) + 6.48648e6 * pow(sh, 46)))) *
4596  pow(z, 10);
4597  else
4598  res += pow(z, 10)*(-2.2176369034656202e6 -
4599  2.1313657032968003e7 * (1. - sh) -
4600  1.1510510548217365e8 * pow(1. - sh, 2) -
4601  4.5152247350887704e8 * pow(1. - sh, 3) -
4602  1.4313252283712986e9 * pow(1. - sh, 4) +
4603  log(muh)*(22436.0126984127 +
4604  242664.12698412698 * (1. - sh) +
4605  1.4261726984126985e6 * pow(1. - sh, 2) +
4606  6.040264126984127e6 * pow(1. - sh, 3) +
4607  2.0637578412698414e7 * pow(1. - sh, 4)) +
4608  log(z)*(481985.82617224846 +
4609  5.600617111968864e6 * (1. - sh) +
4610  3.2763678189123973e7 * pow(1. - sh, 2) +
4611  1.3890575176721412e8 * pow(1. - sh, 3) +
4612  4.790156868849013e8 * pow(1. - sh, 4) +
4613  log(muh)*(18304. + 183040. * (1. - sh) +
4614  1.00672e6 * pow(1. - sh, 2) +
4615  4.02688e6 * pow(1. - sh, 3) +
4616  1.308736e7 * pow(1. - sh, 4))) +
4617  (245966.3111111111 +
4618  2.4484144197530863e6 * (1. - sh) +
4619  1.3337867328395061e7 * pow(1. - sh, 2) +
4620  5.3335035751205176e7 * pow(1. - sh, 3) +
4621  1.733848092131687e8 * pow(1. - sh, 4)) * pow(log(z), 2)
4622  );
4623  }
4624  }
4625  return res;
4626 }
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