\frac{\left(x - y\right) \cdot \left(x + y\right)}{x \cdot x + y \cdot y}\begin{array}{l}
\mathbf{if}\;y \le -1.3453816967374705 \cdot 10^{153}:\\
\;\;\;\;-1\\
\mathbf{elif}\;y \le -1.2162082839611001 \cdot 10^{-151}:\\
\;\;\;\;\frac{\left(x - y\right) \cdot \left(x + y\right)}{x \cdot x + y \cdot y}\\
\mathbf{elif}\;y \le 1.19916786656018 \cdot 10^{-225}:\\
\;\;\;\;\sqrt{\frac{\frac{x - y}{\frac{\mathsf{hypot}\left(x, y\right)}{x + y}}}{\mathsf{hypot}\left(x, y\right)}} \cdot \sqrt{\frac{\frac{x - y}{\frac{\mathsf{hypot}\left(x, y\right)}{x + y}}}{\mathsf{hypot}\left(x, y\right)}}\\
\mathbf{elif}\;y \le 3.7703083762849001 \cdot 10^{-166}:\\
\;\;\;\;-1\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(x - y\right) \cdot \left(x + y\right)}{x \cdot x + y \cdot y}\\
\end{array}double code(double x, double y) {
return (((x - y) * (x + y)) / ((x * x) + (y * y)));
}
double code(double x, double y) {
double VAR;
if ((y <= -1.3453816967374705e+153)) {
VAR = -1.0;
} else {
double VAR_1;
if ((y <= -1.2162082839611001e-151)) {
VAR_1 = (((x - y) * (x + y)) / ((x * x) + (y * y)));
} else {
double VAR_2;
if ((y <= 1.1991678665601801e-225)) {
VAR_2 = (sqrt((((x - y) / (hypot(x, y) / (x + y))) / hypot(x, y))) * sqrt((((x - y) / (hypot(x, y) / (x + y))) / hypot(x, y))));
} else {
double VAR_3;
if ((y <= 3.7703083762849e-166)) {
VAR_3 = -1.0;
} else {
VAR_3 = (((x - y) * (x + y)) / ((x * x) + (y * y)));
}
VAR_2 = VAR_3;
}
VAR_1 = VAR_2;
}
VAR = VAR_1;
}
return VAR;
}




Bits error versus x




Bits error versus y
Results
| Original | 20.2 |
|---|---|
| Target | 0.1 |
| Herbie | 6.2 |
if y < -1.3453816967374705e+153 or 1.1991678665601801e-225 < y < 3.7703083762849e-166Initial program 55.2
Taylor expanded around 0 10.7
if -1.3453816967374705e+153 < y < -1.2162082839611001e-151 or 3.7703083762849e-166 < y Initial program 0.2
if -1.2162082839611001e-151 < y < 1.1991678665601801e-225Initial program 29.1
rmApplied add-sqr-sqrt29.1
Applied associate-/r*29.2
Simplified30.1
rmApplied hypot-def0.1
rmApplied add-sqr-sqrt13.9
Final simplification6.2
herbie shell --seed 2020075 +o rules:numerics
(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))))