\frac{b \cdot c - a \cdot d}{c \cdot c + d \cdot d}\begin{array}{l}
\mathbf{if}\;d \leq 1.0135236429461193 \cdot 10^{+94} \lor \neg \left(d \leq 3.40778976921943 \cdot 10^{+151}\right):\\
\;\;\;\;\frac{\frac{1}{\frac{\sqrt{c \cdot c + d \cdot d}}{c \cdot b - d \cdot a}}}{\sqrt{c \cdot c + d \cdot d}}\\
\mathbf{else}:\\
\;\;\;\;\frac{-a}{\sqrt{c \cdot c + d \cdot d}}\\
\end{array}(FPCore (a b c d) :precision binary64 (/ (- (* b c) (* a d)) (+ (* c c) (* d d))))
(FPCore (a b c d)
:precision binary64
(if (or (<= d 1.0135236429461193e+94) (not (<= d 3.40778976921943e+151)))
(/
(/ 1.0 (/ (sqrt (+ (* c c) (* d d))) (- (* c b) (* d a))))
(sqrt (+ (* c c) (* d d))))
(/ (- a) (sqrt (+ (* c c) (* d d))))))double code(double a, double b, double c, double d) {
return ((b * c) - (a * d)) / ((c * c) + (d * d));
}
double code(double a, double b, double c, double d) {
double tmp;
if ((d <= 1.0135236429461193e+94) || !(d <= 3.40778976921943e+151)) {
tmp = (1.0 / (sqrt((c * c) + (d * d)) / ((c * b) - (d * a)))) / sqrt((c * c) + (d * d));
} else {
tmp = -a / sqrt((c * c) + (d * d));
}
return tmp;
}




Bits error versus a




Bits error versus b




Bits error versus c




Bits error versus d
Results
| Original | 25.9 |
|---|---|
| Target | 0.5 |
| Herbie | 26.0 |
if d < 1.0135236429461193e94 or 3.4077897692194302e151 < d Initial program 26.0
rmApplied add-sqr-sqrt_binary6426.0
Applied associate-/r*_binary6426.0
rmApplied clear-num_binary6426.0
Simplified26.0
if 1.0135236429461193e94 < d < 3.4077897692194302e151Initial program 23.2
rmApplied add-sqr-sqrt_binary6423.2
Applied associate-/r*_binary6423.1
Taylor expanded around 0 25.6
Simplified25.6
Final simplification26.0
herbie shell --seed 2020253
(FPCore (a b c d)
:name "Complex division, imag part"
:precision binary64
:herbie-target
(if (< (fabs d) (fabs c)) (/ (- b (* a (/ d c))) (+ c (* d (/ d c)))) (/ (+ (- a) (* b (/ c d))) (+ d (* c (/ c d)))))
(/ (- (* b c) (* a d)) (+ (* c c) (* d d))))