\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \pi\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)}\left(\left(1 \cdot \sqrt[3]{\frac{1}{k}}\right) \cdot \sqrt{\frac{1}{\left|\sqrt[3]{k}\right|}}\right) \cdot {\left(\left(2 \cdot \pi\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)}double f(double k, double n) {
double r174508 = 1.0;
double r174509 = k;
double r174510 = sqrt(r174509);
double r174511 = r174508 / r174510;
double r174512 = 2.0;
double r174513 = atan2(1.0, 0.0);
double r174514 = r174512 * r174513;
double r174515 = n;
double r174516 = r174514 * r174515;
double r174517 = r174508 - r174509;
double r174518 = r174517 / r174512;
double r174519 = pow(r174516, r174518);
double r174520 = r174511 * r174519;
return r174520;
}
double f(double k, double n) {
double r174521 = 1.0;
double r174522 = 1.0;
double r174523 = k;
double r174524 = r174522 / r174523;
double r174525 = cbrt(r174524);
double r174526 = r174521 * r174525;
double r174527 = cbrt(r174523);
double r174528 = fabs(r174527);
double r174529 = r174522 / r174528;
double r174530 = sqrt(r174529);
double r174531 = r174526 * r174530;
double r174532 = 2.0;
double r174533 = atan2(1.0, 0.0);
double r174534 = r174532 * r174533;
double r174535 = n;
double r174536 = r174534 * r174535;
double r174537 = r174521 - r174523;
double r174538 = r174537 / r174532;
double r174539 = pow(r174536, r174538);
double r174540 = r174531 * r174539;
return r174540;
}



Bits error versus k



Bits error versus n
Results
Initial program 0.4
rmApplied add-sqr-sqrt0.4
Applied sqrt-prod0.5
Applied *-un-lft-identity0.5
Applied times-frac0.5
rmApplied add-cube-cbrt0.5
Applied sqrt-prod0.5
Applied sqrt-prod0.5
Applied add-cube-cbrt0.5
Applied times-frac0.5
Applied associate-*r*0.5
Simplified0.5
Taylor expanded around 0 2.9
Simplified0.5
Final simplification0.5
herbie shell --seed 2019351
(FPCore (k n)
:name "Migdal et al, Equation (51)"
:precision binary64
(* (/ 1 (sqrt k)) (pow (* (* 2 PI) n) (/ (- 1 k) 2))))