\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \pi\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)}\frac{1 \cdot {\left(\left(2 \cdot \pi\right) \cdot n\right)}^{\left(\frac{1}{2}\right)}}{\sqrt{k} \cdot \left(\sqrt{{\left(\left(2 \cdot \pi\right) \cdot n\right)}^{\left(\frac{k}{2}\right)}} \cdot \sqrt{{\left(\left(2 \cdot \pi\right) \cdot n\right)}^{\left(\frac{k}{2}\right)}}\right)}double f(double k, double n) {
double r141612 = 1.0;
double r141613 = k;
double r141614 = sqrt(r141613);
double r141615 = r141612 / r141614;
double r141616 = 2.0;
double r141617 = atan2(1.0, 0.0);
double r141618 = r141616 * r141617;
double r141619 = n;
double r141620 = r141618 * r141619;
double r141621 = r141612 - r141613;
double r141622 = r141621 / r141616;
double r141623 = pow(r141620, r141622);
double r141624 = r141615 * r141623;
return r141624;
}
double f(double k, double n) {
double r141625 = 1.0;
double r141626 = 2.0;
double r141627 = atan2(1.0, 0.0);
double r141628 = r141626 * r141627;
double r141629 = n;
double r141630 = r141628 * r141629;
double r141631 = r141625 / r141626;
double r141632 = pow(r141630, r141631);
double r141633 = r141625 * r141632;
double r141634 = k;
double r141635 = sqrt(r141634);
double r141636 = r141634 / r141626;
double r141637 = pow(r141630, r141636);
double r141638 = sqrt(r141637);
double r141639 = r141638 * r141638;
double r141640 = r141635 * r141639;
double r141641 = r141633 / r141640;
return r141641;
}



Bits error versus k



Bits error versus n
Results
Initial program 0.5
rmApplied div-sub0.5
Applied pow-sub0.4
Applied frac-times0.4
rmApplied add-sqr-sqrt0.4
Final simplification0.4
herbie shell --seed 2020057 +o rules:numerics
(FPCore (k n)
:name "Migdal et al, Equation (51)"
:precision binary64
(* (/ 1 (sqrt k)) (pow (* (* 2 PI) n) (/ (- 1 k) 2))))