\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \pi\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)}\left(\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \pi\right) \cdot n\right)}^{\left(\frac{\frac{1 - k}{2}}{2}\right)}\right) \cdot {\left(\left(2 \cdot \pi\right) \cdot n\right)}^{\left(\frac{\frac{1 - k}{2}}{2}\right)}double f(double k, double n) {
double r133509 = 1.0;
double r133510 = k;
double r133511 = sqrt(r133510);
double r133512 = r133509 / r133511;
double r133513 = 2.0;
double r133514 = atan2(1.0, 0.0);
double r133515 = r133513 * r133514;
double r133516 = n;
double r133517 = r133515 * r133516;
double r133518 = r133509 - r133510;
double r133519 = r133518 / r133513;
double r133520 = pow(r133517, r133519);
double r133521 = r133512 * r133520;
return r133521;
}
double f(double k, double n) {
double r133522 = 1.0;
double r133523 = k;
double r133524 = sqrt(r133523);
double r133525 = r133522 / r133524;
double r133526 = 2.0;
double r133527 = atan2(1.0, 0.0);
double r133528 = r133526 * r133527;
double r133529 = n;
double r133530 = r133528 * r133529;
double r133531 = r133522 - r133523;
double r133532 = r133531 / r133526;
double r133533 = 2.0;
double r133534 = r133532 / r133533;
double r133535 = pow(r133530, r133534);
double r133536 = r133525 * r133535;
double r133537 = r133536 * r133535;
return r133537;
}



Bits error versus k



Bits error versus n
Results
Initial program 0.4
rmApplied sqr-pow0.5
Applied associate-*r*0.5
Final simplification0.5
herbie shell --seed 2019354 +o rules:numerics
(FPCore (k n)
:name "Migdal et al, Equation (51)"
:precision binary64
(* (/ 1 (sqrt k)) (pow (* (* 2 PI) n) (/ (- 1 k) 2))))