\frac{a \cdot {k}^{m}}{\left(1 + 10 \cdot k\right) + k \cdot k}\begin{array}{l}
\mathbf{if}\;k \leq 9.999499964503198 \cdot 10^{+95}:\\
\;\;\;\;\frac{\left(a \cdot {\left(\sqrt[3]{k} \cdot \sqrt[3]{k}\right)}^{m}\right) \cdot {\left(\sqrt[3]{k}\right)}^{m}}{\left(1 + k \cdot 10\right) + k \cdot k}\\
\mathbf{else}:\\
\;\;\;\;\frac{a}{k} \cdot \frac{{k}^{m}}{k} + \left(a \cdot \frac{{k}^{m}}{{k}^{3}}\right) \cdot \left(\frac{99}{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
(if (<= k 9.999499964503198e+95)
(/
(* (* a (pow (* (cbrt k) (cbrt k)) m)) (pow (cbrt k) m))
(+ (+ 1.0 (* k 10.0)) (* k k)))
(+
(* (/ a k) (/ (pow k m) k))
(* (* a (/ (pow k m) (pow k 3.0))) (- (/ 99.0 k) 10.0)))))double code(double a, double k, double m) {
return (((double) (a * ((double) pow(k, m)))) / ((double) (((double) (1.0 + ((double) (10.0 * k)))) + ((double) (k * k)))));
}
double code(double a, double k, double m) {
double tmp;
if ((k <= 9.999499964503198e+95)) {
tmp = (((double) (((double) (a * ((double) pow(((double) (((double) cbrt(k)) * ((double) cbrt(k)))), m)))) * ((double) pow(((double) cbrt(k)), m)))) / ((double) (((double) (1.0 + ((double) (k * 10.0)))) + ((double) (k * k)))));
} else {
tmp = ((double) (((double) ((a / k) * (((double) pow(k, m)) / k))) + ((double) (((double) (a * (((double) pow(k, m)) / ((double) pow(k, 3.0))))) * ((double) ((99.0 / k) - 10.0))))));
}
return tmp;
}



Bits error versus a



Bits error versus k



Bits error versus m
Results
if k < 9.9994999645031976e95Initial program Error: 0.1 bits
rmApplied add-cube-cbrtError: 0.1 bits
Applied unpow-prod-downError: 0.1 bits
Applied associate-*r*Error: 0.1 bits
if 9.9994999645031976e95 < k Initial program Error: 8.2 bits
Taylor expanded around inf Error: 8.2 bits
SimplifiedError: 0.1 bits
Final simplificationError: 0.1 bits
herbie shell --seed 2020203
(FPCore (a k m)
:name "Falkner and Boettcher, Appendix A"
:precision binary64
(/ (* a (pow k m)) (+ (+ 1.0 (* 10.0 k)) (* k k))))