\frac{\left(x - y\right) \cdot \left(x + y\right)}{x \cdot x + y \cdot y}\begin{array}{l}
\mathbf{if}\;y \le -3.7202401672427106 \cdot 10^{146}:\\
\;\;\;\;\log \left(e^{-1}\right)\\
\mathbf{elif}\;y \le -2.4149536997492782 \cdot 10^{-160}:\\
\;\;\;\;\log \left(e^{\frac{\left(x - y\right) \cdot \left(x + y\right)}{x \cdot x + y \cdot y}}\right)\\
\mathbf{elif}\;y \le 3.08109527849197105 \cdot 10^{-177}:\\
\;\;\;\;1\\
\mathbf{else}:\\
\;\;\;\;\log \left(e^{\frac{\left(x - y\right) \cdot \left(x + y\right)}{x \cdot x + y \cdot y}}\right)\\
\end{array}double code(double x, double y) {
return ((double) (((double) (((double) (x - y)) * ((double) (x + y)))) / ((double) (((double) (x * x)) + ((double) (y * y))))));
}
double code(double x, double y) {
double VAR;
if ((y <= -3.7202401672427106e+146)) {
VAR = ((double) log(((double) exp(-1.0))));
} else {
double VAR_1;
if ((y <= -2.4149536997492782e-160)) {
VAR_1 = ((double) log(((double) exp(((double) (((double) (((double) (x - y)) * ((double) (x + y)))) / ((double) (((double) (x * x)) + ((double) (y * y))))))))));
} else {
double VAR_2;
if ((y <= 3.081095278491971e-177)) {
VAR_2 = 1.0;
} else {
VAR_2 = ((double) log(((double) exp(((double) (((double) (((double) (x - y)) * ((double) (x + y)))) / ((double) (((double) (x * x)) + ((double) (y * y))))))))));
}
VAR_1 = VAR_2;
}
VAR = VAR_1;
}
return VAR;
}




Bits error versus x




Bits error versus y
Results
| Original | 19.9 |
|---|---|
| Target | 0.1 |
| Herbie | 5.1 |
if y < -3.7202401672427106e+146Initial program 61.1
rmApplied add-log-exp61.1
Taylor expanded around 0 0
if -3.7202401672427106e+146 < y < -2.4149536997492782e-160 or 3.081095278491971e-177 < y Initial program 1.2
rmApplied add-log-exp1.2
if -2.4149536997492782e-160 < y < 3.081095278491971e-177Initial program 30.0
Taylor expanded around inf 14.9
Final simplification5.1
herbie shell --seed 2020113
(FPCore (x y)
:name "Kahan p9 Example"
:precision binary64
:pre (and (< 0.0 x 1) (< y 1))
:herbie-target
(if (< 0.5 (fabs (/ x y)) 2) (/ (* (- x y) (+ x y)) (+ (* x x) (* y y))) (- 1 (/ 2 (+ 1 (* (/ x y) (/ x y))))))
(/ (* (- x y) (+ x y)) (+ (* x x) (* y y))))