\frac{a \cdot {k}^{m}}{\left(1 + 10 \cdot k\right) + k \cdot k}
\begin{array}{l}
t_0 := {k}^{\left(\frac{m}{2}\right)}\\
\frac{t_0 \cdot \left(a \cdot t_0\right)}{1 + k \cdot \left(k + 10\right)}
\end{array}
(FPCore (a k m) :precision binary64 (/ (* a (pow k m)) (+ (+ 1.0 (* 10.0 k)) (* k k))))
(FPCore (a k m) :precision binary64 (let* ((t_0 (pow k (/ m 2.0)))) (/ (* t_0 (* a t_0)) (+ 1.0 (* k (+ k 10.0))))))
double code(double a, double k, double m) {
return (a * pow(k, m)) / ((1.0 + (10.0 * k)) + (k * k));
}
double code(double a, double k, double m) {
double t_0 = pow(k, (m / 2.0));
return (t_0 * (a * t_0)) / (1.0 + (k * (k + 10.0)));
}



Bits error versus a



Bits error versus k



Bits error versus m
Results
Initial program 1.9
Simplified1.9
rmApplied sqr-pow_binary641.9
Applied associate-*r*_binary641.9
Simplified1.9
rmApplied add-sqr-sqrt_binary641.9
Simplified1.9
Simplified1.9
rmApplied *-un-lft-identity_binary641.9
Applied associate-*l*_binary641.9
Simplified1.9
Final simplification1.9
herbie shell --seed 2021205
(FPCore (a k m)
:name "Falkner and Boettcher, Appendix A"
:precision binary64
(/ (* a (pow k m)) (+ (+ 1.0 (* 10.0 k)) (* k k))))