\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \pi\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)}\sqrt{\frac{1}{\sqrt{k}}} \cdot \left(\sqrt{\frac{1}{\sqrt{k}}} \cdot \left(\sqrt{{\left(\left(2 \cdot \pi\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)}} \cdot \sqrt{{\left(\left(2 \cdot \pi\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)}}\right)\right)double f(double k, double n) {
double r132497 = 1.0;
double r132498 = k;
double r132499 = sqrt(r132498);
double r132500 = r132497 / r132499;
double r132501 = 2.0;
double r132502 = atan2(1.0, 0.0);
double r132503 = r132501 * r132502;
double r132504 = n;
double r132505 = r132503 * r132504;
double r132506 = r132497 - r132498;
double r132507 = r132506 / r132501;
double r132508 = pow(r132505, r132507);
double r132509 = r132500 * r132508;
return r132509;
}
double f(double k, double n) {
double r132510 = 1.0;
double r132511 = k;
double r132512 = sqrt(r132511);
double r132513 = r132510 / r132512;
double r132514 = sqrt(r132513);
double r132515 = 2.0;
double r132516 = atan2(1.0, 0.0);
double r132517 = r132515 * r132516;
double r132518 = n;
double r132519 = r132517 * r132518;
double r132520 = r132510 - r132511;
double r132521 = r132520 / r132515;
double r132522 = pow(r132519, r132521);
double r132523 = sqrt(r132522);
double r132524 = r132523 * r132523;
double r132525 = r132514 * r132524;
double r132526 = r132514 * r132525;
return r132526;
}



Bits error versus k



Bits error versus n
Results
Initial program 0.4
rmApplied add-sqr-sqrt0.5
Applied associate-*l*0.5
rmApplied add-sqr-sqrt0.6
Final simplification0.6
herbie shell --seed 2020039
(FPCore (k n)
:name "Migdal et al, Equation (51)"
:precision binary64
(* (/ 1 (sqrt k)) (pow (* (* 2 PI) n) (/ (- 1 k) 2))))