\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)}^{\left(\frac{\frac{1 - k}{2}}{2}\right)} \cdot {n}^{\left(\frac{\frac{1 - k}{2}}{2}\right)}\right)double f(double k, double n) {
double r78188 = 1.0;
double r78189 = k;
double r78190 = sqrt(r78189);
double r78191 = r78188 / r78190;
double r78192 = 2.0;
double r78193 = atan2(1.0, 0.0);
double r78194 = r78192 * r78193;
double r78195 = n;
double r78196 = r78194 * r78195;
double r78197 = r78188 - r78189;
double r78198 = r78197 / r78192;
double r78199 = pow(r78196, r78198);
double r78200 = r78191 * r78199;
return r78200;
}
double f(double k, double n) {
double r78201 = 1.0;
double r78202 = k;
double r78203 = sqrt(r78202);
double r78204 = r78201 / r78203;
double r78205 = 2.0;
double r78206 = atan2(1.0, 0.0);
double r78207 = r78205 * r78206;
double r78208 = n;
double r78209 = r78207 * r78208;
double r78210 = r78201 - r78202;
double r78211 = r78210 / r78205;
double r78212 = 2.0;
double r78213 = r78211 / r78212;
double r78214 = pow(r78209, r78213);
double r78215 = r78204 * r78214;
double r78216 = pow(r78207, r78213);
double r78217 = pow(r78208, r78213);
double r78218 = r78216 * r78217;
double r78219 = r78215 * r78218;
return r78219;
}



Bits error versus k



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