\frac{\left(x - y\right) \cdot \left(x + y\right)}{x \cdot x + y \cdot y}\begin{array}{l}
\mathbf{if}\;y \leq -1.360803354623427 \cdot 10^{+154}:\\
\;\;\;\;-1\\
\mathbf{elif}\;y \leq -5.983925060339704 \cdot 10^{-156}:\\
\;\;\;\;\frac{\left(x - y\right) \cdot \left(y + x\right)}{x \cdot x + y \cdot y}\\
\mathbf{elif}\;y \leq 6.780097591949427 \cdot 10^{-255}:\\
\;\;\;\;1\\
\mathbf{elif}\;y \leq 1.8489230072387054 \cdot 10^{-193}:\\
\;\;\;\;-1\\
\mathbf{else}:\\
\;\;\;\;\frac{x \cdot x - y \cdot y}{x \cdot x + y \cdot y}\\
\end{array}(FPCore (x y) :precision binary64 (/ (* (- x y) (+ x y)) (+ (* x x) (* y y))))
(FPCore (x y)
:precision binary64
(if (<= y -1.360803354623427e+154)
-1.0
(if (<= y -5.983925060339704e-156)
(/ (* (- x y) (+ y x)) (+ (* x x) (* y y)))
(if (<= y 6.780097591949427e-255)
1.0
(if (<= y 1.8489230072387054e-193)
-1.0
(/ (- (* x x) (* y y)) (+ (* x x) (* y y))))))))double code(double x, double y) {
return ((x - y) * (x + y)) / ((x * x) + (y * y));
}
double code(double x, double y) {
double tmp;
if (y <= -1.360803354623427e+154) {
tmp = -1.0;
} else if (y <= -5.983925060339704e-156) {
tmp = ((x - y) * (y + x)) / ((x * x) + (y * y));
} else if (y <= 6.780097591949427e-255) {
tmp = 1.0;
} else if (y <= 1.8489230072387054e-193) {
tmp = -1.0;
} else {
tmp = ((x * x) - (y * y)) / ((x * x) + (y * y));
}
return tmp;
}




Bits error versus x




Bits error versus y
Results
| Original | 20.9 |
|---|---|
| Target | 0.1 |
| Herbie | 7.3 |
if y < -1.3608033546234269e154 or 6.78009759194942696e-255 < y < 1.84892300723870541e-193Initial program 54.3
Taylor expanded around 0 13.2
if -1.3608033546234269e154 < y < -5.9839250603397035e-156Initial program 0.0
if -5.9839250603397035e-156 < y < 6.78009759194942696e-255Initial program 28.9
Taylor expanded around inf 13.8
if 1.84892300723870541e-193 < y Initial program 5.2
rmApplied *-un-lft-identity_binary64_7675.2
Applied associate-/r*_binary64_7115.2
Simplified5.2
Final simplification7.3
herbie shell --seed 2020289
(FPCore (x y)
:name "Kahan p9 Example"
:precision binary64
:pre (and (< 0.0 x 1.0) (< y 1.0))
:herbie-target
(if (< 0.5 (fabs (/ x y)) 2.0) (/ (* (- x y) (+ x y)) (+ (* x x) (* y y))) (- 1.0 (/ 2.0 (+ 1.0 (* (/ x y) (/ x y))))))
(/ (* (- x y) (+ x y)) (+ (* x x) (* y y))))