\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \pi\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)}\frac{1 \cdot {\left(\frac{1}{k}\right)}^{\frac{1}{4}}}{\sqrt{\sqrt{k}}} \cdot {\left(\left(2 \cdot \pi\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)}double f(double k, double n) {
double r137145 = 1.0;
double r137146 = k;
double r137147 = sqrt(r137146);
double r137148 = r137145 / r137147;
double r137149 = 2.0;
double r137150 = atan2(1.0, 0.0);
double r137151 = r137149 * r137150;
double r137152 = n;
double r137153 = r137151 * r137152;
double r137154 = r137145 - r137146;
double r137155 = r137154 / r137149;
double r137156 = pow(r137153, r137155);
double r137157 = r137148 * r137156;
return r137157;
}
double f(double k, double n) {
double r137158 = 1.0;
double r137159 = 1.0;
double r137160 = k;
double r137161 = r137159 / r137160;
double r137162 = 0.25;
double r137163 = pow(r137161, r137162);
double r137164 = r137158 * r137163;
double r137165 = sqrt(r137160);
double r137166 = sqrt(r137165);
double r137167 = r137164 / r137166;
double r137168 = 2.0;
double r137169 = atan2(1.0, 0.0);
double r137170 = r137168 * r137169;
double r137171 = n;
double r137172 = r137170 * r137171;
double r137173 = r137158 - r137160;
double r137174 = r137173 / r137168;
double r137175 = pow(r137172, r137174);
double r137176 = r137167 * r137175;
return r137176;
}



Bits error versus k



Bits error versus n
Results
Initial program 0.4
rmApplied add-sqr-sqrt0.4
Applied sqrt-prod0.5
Applied associate-/r*0.5
Taylor expanded around 0 0.4
Final simplification0.4
herbie shell --seed 2020042 +o rules:numerics
(FPCore (k n)
:name "Migdal et al, Equation (51)"
:precision binary64
(* (/ 1 (sqrt k)) (pow (* (* 2 PI) n) (/ (- 1 k) 2))))