\frac{a \cdot {k}^{m}}{\left(1 + 10 \cdot k\right) + k \cdot k}\begin{array}{l}
\mathbf{if}\;k \le 4.210367473372475 \cdot 10^{+145}:\\
\;\;\;\;\frac{1}{\frac{1 + \left(k + 10\right) \cdot k}{{k}^{m} \cdot a}}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{e^{m \cdot \log k} \cdot a}{k}}{k} + \frac{\frac{e^{m \cdot \log k} \cdot a}{k}}{k} \cdot \left(\frac{99}{k \cdot k} - \frac{10}{k}\right)\\
\end{array}double f(double a, double k, double m) {
double r6422955 = a;
double r6422956 = k;
double r6422957 = m;
double r6422958 = pow(r6422956, r6422957);
double r6422959 = r6422955 * r6422958;
double r6422960 = 1.0;
double r6422961 = 10.0;
double r6422962 = r6422961 * r6422956;
double r6422963 = r6422960 + r6422962;
double r6422964 = r6422956 * r6422956;
double r6422965 = r6422963 + r6422964;
double r6422966 = r6422959 / r6422965;
return r6422966;
}
double f(double a, double k, double m) {
double r6422967 = k;
double r6422968 = 4.210367473372475e+145;
bool r6422969 = r6422967 <= r6422968;
double r6422970 = 1.0;
double r6422971 = 10.0;
double r6422972 = r6422967 + r6422971;
double r6422973 = r6422972 * r6422967;
double r6422974 = r6422970 + r6422973;
double r6422975 = m;
double r6422976 = pow(r6422967, r6422975);
double r6422977 = a;
double r6422978 = r6422976 * r6422977;
double r6422979 = r6422974 / r6422978;
double r6422980 = r6422970 / r6422979;
double r6422981 = log(r6422967);
double r6422982 = r6422975 * r6422981;
double r6422983 = exp(r6422982);
double r6422984 = r6422983 * r6422977;
double r6422985 = r6422984 / r6422967;
double r6422986 = r6422985 / r6422967;
double r6422987 = 99.0;
double r6422988 = r6422967 * r6422967;
double r6422989 = r6422987 / r6422988;
double r6422990 = r6422971 / r6422967;
double r6422991 = r6422989 - r6422990;
double r6422992 = r6422986 * r6422991;
double r6422993 = r6422986 + r6422992;
double r6422994 = r6422969 ? r6422980 : r6422993;
return r6422994;
}



Bits error versus a



Bits error versus k



Bits error versus m
Results
if k < 4.210367473372475e+145Initial program 0.1
Simplified0.1
rmApplied clear-num0.2
if 4.210367473372475e+145 < k Initial program 9.0
Simplified9.0
rmApplied add-cube-cbrt9.1
Applied associate-*r*9.1
Taylor expanded around -inf 63.0
Simplified0.0
Final simplification0.2
herbie shell --seed 2019139
(FPCore (a k m)
:name "Falkner and Boettcher, Appendix A"
(/ (* a (pow k m)) (+ (+ 1 (* 10 k)) (* k k))))