\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 r150243 = 1.0;
double r150244 = k;
double r150245 = sqrt(r150244);
double r150246 = r150243 / r150245;
double r150247 = 2.0;
double r150248 = atan2(1.0, 0.0);
double r150249 = r150247 * r150248;
double r150250 = n;
double r150251 = r150249 * r150250;
double r150252 = r150243 - r150244;
double r150253 = r150252 / r150247;
double r150254 = pow(r150251, r150253);
double r150255 = r150246 * r150254;
return r150255;
}
double f(double k, double n) {
double r150256 = 1.0;
double r150257 = k;
double r150258 = sqrt(r150257);
double r150259 = r150256 / r150258;
double r150260 = sqrt(r150259);
double r150261 = 2.0;
double r150262 = atan2(1.0, 0.0);
double r150263 = r150261 * r150262;
double r150264 = n;
double r150265 = r150263 * r150264;
double r150266 = r150256 - r150257;
double r150267 = r150266 / r150261;
double r150268 = pow(r150265, r150267);
double r150269 = sqrt(r150268);
double r150270 = r150269 * r150269;
double r150271 = r150260 * r150270;
double r150272 = r150260 * r150271;
return r150272;
}



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 +o rules:numerics
(FPCore (k n)
:name "Migdal et al, Equation (51)"
:precision binary64
(* (/ 1 (sqrt k)) (pow (* (* 2 PI) n) (/ (- 1 k) 2))))