\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(\left(2 \cdot \pi\right) \cdot n\right)}^{\left(\frac{\frac{\frac{1 - k}{2}}{2}}{2}\right)} \cdot {\left(\left(2 \cdot \pi\right) \cdot n\right)}^{\left(\frac{\frac{\frac{1 - k}{2}}{2}}{2}\right)}\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 r137967 = 1.0;
double r137968 = k;
double r137969 = sqrt(r137968);
double r137970 = r137967 / r137969;
double r137971 = 2.0;
double r137972 = atan2(1.0, 0.0);
double r137973 = r137971 * r137972;
double r137974 = n;
double r137975 = r137973 * r137974;
double r137976 = r137967 - r137968;
double r137977 = r137976 / r137971;
double r137978 = pow(r137975, r137977);
double r137979 = r137970 * r137978;
return r137979;
}
double f(double k, double n) {
double r137980 = 1.0;
double r137981 = k;
double r137982 = sqrt(r137981);
double r137983 = r137980 / r137982;
double r137984 = 2.0;
double r137985 = atan2(1.0, 0.0);
double r137986 = r137984 * r137985;
double r137987 = n;
double r137988 = r137986 * r137987;
double r137989 = r137980 - r137981;
double r137990 = r137989 / r137984;
double r137991 = 2.0;
double r137992 = r137990 / r137991;
double r137993 = r137992 / r137991;
double r137994 = pow(r137988, r137993);
double r137995 = r137994 * r137994;
double r137996 = r137983 * r137995;
double r137997 = pow(r137988, r137992);
double r137998 = r137996 * r137997;
return r137998;
}



Bits error versus k



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