\frac{e^{x \cdot \log \left(\frac{x}{x + y}\right)}}{x}\begin{array}{l}
\mathbf{if}\;x \leq -7.078050218368682 \cdot 10^{+72} \lor \neg \left(x \leq 13.914858832862569\right):\\
\;\;\;\;\frac{e^{-y}}{x}\\
\mathbf{else}:\\
\;\;\;\;\frac{{\left(\frac{\sqrt[3]{x}}{\sqrt[3]{x + y}}\right)}^{x} \cdot \left({\left(\frac{\sqrt[3]{x}}{\sqrt[3]{x + y}}\right)}^{x} \cdot {\left(\frac{\sqrt[3]{x}}{\sqrt[3]{x + y}}\right)}^{x}\right)}{x}\\
\end{array}(FPCore (x y) :precision binary64 (/ (exp (* x (log (/ x (+ x y))))) x))
(FPCore (x y)
:precision binary64
(if (or (<= x -7.078050218368682e+72) (not (<= x 13.914858832862569)))
(/ (exp (- y)) x)
(/
(*
(pow (/ (cbrt x) (cbrt (+ x y))) x)
(*
(pow (/ (cbrt x) (cbrt (+ x y))) x)
(pow (/ (cbrt x) (cbrt (+ x y))) x)))
x)))double code(double x, double y) {
return exp(x * log(x / (x + y))) / x;
}
double code(double x, double y) {
double tmp;
if ((x <= -7.078050218368682e+72) || !(x <= 13.914858832862569)) {
tmp = exp(-y) / x;
} else {
tmp = (pow((cbrt(x) / cbrt(x + y)), x) * (pow((cbrt(x) / cbrt(x + y)), x) * pow((cbrt(x) / cbrt(x + y)), x))) / x;
}
return tmp;
}




Bits error versus x




Bits error versus y
Results
| Original | 10.9 |
|---|---|
| Target | 8.0 |
| Herbie | 0.2 |
if x < -7.0780502183686821e72 or 13.9148588328625689 < x Initial program 11.3
Simplified11.3
Taylor expanded around inf 0.0
if -7.0780502183686821e72 < x < 13.9148588328625689Initial program 10.6
Simplified10.6
rmApplied add-cube-cbrt_binary64_561814.2
Applied add-cube-cbrt_binary64_561810.6
Applied times-frac_binary64_558910.6
Applied unpow-prod-down_binary64_56622.4
rmApplied times-frac_binary64_55892.4
Applied unpow-prod-down_binary64_56620.4
Final simplification0.2
herbie shell --seed 2020277
(FPCore (x y)
:name "Numeric.SpecFunctions:invIncompleteBetaWorker from math-functions-0.1.5.2, F"
:precision binary64
:herbie-target
(if (< y -3.7311844206647956e+94) (/ (exp (/ -1.0 y)) x) (if (< y 2.817959242728288e+37) (/ (pow (/ x (+ y x)) x) x) (if (< y 2.347387415166998e+178) (log (exp (/ (pow (/ x (+ y x)) x) x))) (/ (exp (/ -1.0 y)) x))))
(/ (exp (* x (log (/ x (+ x y))))) x))