\frac{a \cdot c + b \cdot d}{c \cdot c + d \cdot d}\frac{\frac{a \cdot c + b \cdot d}{\sqrt{c \cdot c + d \cdot d}}}{\sqrt{c \cdot c + d \cdot d}}double f(double a, double b, double c, double d) {
double r135555 = a;
double r135556 = c;
double r135557 = r135555 * r135556;
double r135558 = b;
double r135559 = d;
double r135560 = r135558 * r135559;
double r135561 = r135557 + r135560;
double r135562 = r135556 * r135556;
double r135563 = r135559 * r135559;
double r135564 = r135562 + r135563;
double r135565 = r135561 / r135564;
return r135565;
}
double f(double a, double b, double c, double d) {
double r135566 = a;
double r135567 = c;
double r135568 = r135566 * r135567;
double r135569 = b;
double r135570 = d;
double r135571 = r135569 * r135570;
double r135572 = r135568 + r135571;
double r135573 = r135567 * r135567;
double r135574 = r135570 * r135570;
double r135575 = r135573 + r135574;
double r135576 = sqrt(r135575);
double r135577 = r135572 / r135576;
double r135578 = r135577 / r135576;
return r135578;
}




Bits error versus a




Bits error versus b




Bits error versus c




Bits error versus d
Results
| Original | 26.4 |
|---|---|
| Target | 0.4 |
| Herbie | 26.3 |
Initial program 26.4
rmApplied add-sqr-sqrt26.4
Applied associate-/r*26.3
Final simplification26.3
herbie shell --seed 2020062
(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))))