\frac{b \cdot c - a \cdot d}{c \cdot c + d \cdot d}\begin{array}{l}
\mathbf{if}\;c \leq -6.473773710016467 \cdot 10^{+43}:\\
\;\;\;\;\frac{b}{c} - \frac{a \cdot d}{c \cdot c}\\
\mathbf{elif}\;c \leq -4.543194765813328 \cdot 10^{-138}:\\
\;\;\;\;\frac{c \cdot b - a \cdot d}{c \cdot c + d \cdot d}\\
\mathbf{elif}\;c \leq 2.6776275404858526 \cdot 10^{-124}:\\
\;\;\;\;\frac{c \cdot b}{d \cdot d} - \frac{a}{d}\\
\mathbf{elif}\;c \leq 6.219416782523323 \cdot 10^{+140}:\\
\;\;\;\;\frac{\frac{c \cdot b - a \cdot d}{\sqrt{c \cdot c + d \cdot d}}}{\sqrt{c \cdot c + d \cdot d}}\\
\mathbf{else}:\\
\;\;\;\;\frac{b}{c}\\
\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 (<= c -6.473773710016467e+43)
(- (/ b c) (/ (* a d) (* c c)))
(if (<= c -4.543194765813328e-138)
(/ (- (* c b) (* a d)) (+ (* c c) (* d d)))
(if (<= c 2.6776275404858526e-124)
(- (/ (* c b) (* d d)) (/ a d))
(if (<= c 6.219416782523323e+140)
(/
(/ (- (* c b) (* a d)) (sqrt (+ (* c c) (* d d))))
(sqrt (+ (* c c) (* d d))))
(/ b c))))))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 (c <= -6.473773710016467e+43) {
tmp = (b / c) - ((a * d) / (c * c));
} else if (c <= -4.543194765813328e-138) {
tmp = ((c * b) - (a * d)) / ((c * c) + (d * d));
} else if (c <= 2.6776275404858526e-124) {
tmp = ((c * b) / (d * d)) - (a / d);
} else if (c <= 6.219416782523323e+140) {
tmp = (((c * b) - (a * d)) / sqrt((c * c) + (d * d))) / sqrt((c * c) + (d * d));
} else {
tmp = b / c;
}
return tmp;
}




Bits error versus a




Bits error versus b




Bits error versus c




Bits error versus d
Results
| Original | 26.6 |
|---|---|
| Target | 0.5 |
| Herbie | 15.0 |
if c < -6.473773710016467e43Initial program 36.0
Taylor expanded around 0 17.8
Simplified17.8
if -6.473773710016467e43 < c < -4.54319476581332804e-138Initial program 13.9
if -4.54319476581332804e-138 < c < 2.6776275404858526e-124Initial program 23.4
Taylor expanded around 0 10.6
Simplified10.6
if 2.6776275404858526e-124 < c < 6.21941678252332329e140Initial program 18.1
rmApplied add-sqr-sqrt_binary64_351018.1
Applied associate-/r*_binary64_343218.0
if 6.21941678252332329e140 < c Initial program 43.3
Taylor expanded around 0 15.4
Final simplification15.0
herbie shell --seed 2020344
(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))))