\frac{a \cdot c + b \cdot d}{c \cdot c + d \cdot d}\begin{array}{l}
\mathbf{if}\;c \leq 3.3582445621159293 \cdot 10^{+22}:\\
\;\;\;\;\frac{\frac{c \cdot a + b \cdot d}{\sqrt{c \cdot c + d \cdot d}}}{\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 (/ (+ (* a c) (* b d)) (+ (* c c) (* d d))))
(FPCore (a b c d)
:precision binary64
(if (<= c 3.3582445621159293e+22)
(/
(/ (+ (* c a) (* b d)) (sqrt (+ (* c c) (* d d))))
(sqrt (+ (* c c) (* d d))))
(/ a (sqrt (+ (* c c) (* d d))))))double code(double a, double b, double c, double d) {
return (((double) (((double) (a * c)) + ((double) (b * d)))) / ((double) (((double) (c * c)) + ((double) (d * d)))));
}
double code(double a, double b, double c, double d) {
double tmp;
if ((c <= 3.3582445621159293e+22)) {
tmp = ((((double) (((double) (c * a)) + ((double) (b * d)))) / ((double) sqrt(((double) (((double) (c * c)) + ((double) (d * d))))))) / ((double) sqrt(((double) (((double) (c * c)) + ((double) (d * d)))))));
} else {
tmp = (a / ((double) sqrt(((double) (((double) (c * c)) + ((double) (d * d)))))));
}
return tmp;
}




Bits error versus a




Bits error versus b




Bits error versus c




Bits error versus d
Results
| Original | 26.2 |
|---|---|
| Target | 0.5 |
| Herbie | 26.9 |
if c < 3.358244562115929e22Initial program 24.0
rmApplied add-sqr-sqrt_binary6424.0
Applied associate-/r*_binary6423.9
if 3.358244562115929e22 < c Initial program 33.2
rmApplied add-sqr-sqrt_binary6433.2
Applied associate-/r*_binary6433.1
Taylor expanded around inf 36.3
Final simplification26.9
herbie shell --seed 2020219
(FPCore (a b c d)
:name "Complex division, real part"
:precision binary64
:herbie-target
(if (< (fabs d) (fabs c)) (/ (+ a (* b (/ d c))) (+ c (* d (/ d c)))) (/ (+ b (* a (/ c d))) (+ d (* c (/ c d)))))
(/ (+ (* a c) (* b d)) (+ (* c c) (* d d))))