\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \pi\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)}\frac{\left(\sqrt{2} \cdot {n}^{\left(\frac{1}{2} - k \cdot \frac{1}{2}\right)}\right) \cdot {\pi}^{\left(\frac{1}{2} - k \cdot \frac{1}{2}\right)}}{\sqrt{k} \cdot {2}^{\left(k \cdot \frac{1}{2}\right)}}double f(double k, double n) {
double r4885544 = 1.0;
double r4885545 = k;
double r4885546 = sqrt(r4885545);
double r4885547 = r4885544 / r4885546;
double r4885548 = 2.0;
double r4885549 = atan2(1.0, 0.0);
double r4885550 = r4885548 * r4885549;
double r4885551 = n;
double r4885552 = r4885550 * r4885551;
double r4885553 = r4885544 - r4885545;
double r4885554 = r4885553 / r4885548;
double r4885555 = pow(r4885552, r4885554);
double r4885556 = r4885547 * r4885555;
return r4885556;
}
double f(double k, double n) {
double r4885557 = 2.0;
double r4885558 = sqrt(r4885557);
double r4885559 = n;
double r4885560 = 0.5;
double r4885561 = k;
double r4885562 = r4885561 * r4885560;
double r4885563 = r4885560 - r4885562;
double r4885564 = pow(r4885559, r4885563);
double r4885565 = r4885558 * r4885564;
double r4885566 = atan2(1.0, 0.0);
double r4885567 = pow(r4885566, r4885563);
double r4885568 = r4885565 * r4885567;
double r4885569 = sqrt(r4885561);
double r4885570 = pow(r4885557, r4885562);
double r4885571 = r4885569 * r4885570;
double r4885572 = r4885568 / r4885571;
return r4885572;
}



Bits error versus k



Bits error versus n
Results
Initial program 0.3
Simplified0.3
rmApplied *-un-lft-identity0.3
Applied sqrt-prod0.3
Applied unpow-prod-down0.4
Applied times-frac0.4
Simplified0.4
Simplified0.4
rmApplied unpow-prod-down0.4
Applied associate-*l*0.4
rmApplied pow-sub0.4
Applied frac-times0.4
Applied associate-*r/0.4
Simplified0.4
Final simplification0.4
herbie shell --seed 2019164
(FPCore (k n)
:name "Migdal et al, Equation (51)"
(* (/ 1 (sqrt k)) (pow (* (* 2 PI) n) (/ (- 1 k) 2))))