\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 r71882 = a;
double r71883 = c;
double r71884 = r71882 * r71883;
double r71885 = b;
double r71886 = d;
double r71887 = r71885 * r71886;
double r71888 = r71884 + r71887;
double r71889 = r71883 * r71883;
double r71890 = r71886 * r71886;
double r71891 = r71889 + r71890;
double r71892 = r71888 / r71891;
return r71892;
}
double f(double a, double b, double c, double d) {
double r71893 = a;
double r71894 = c;
double r71895 = r71893 * r71894;
double r71896 = b;
double r71897 = d;
double r71898 = r71896 * r71897;
double r71899 = r71895 + r71898;
double r71900 = r71894 * r71894;
double r71901 = r71897 * r71897;
double r71902 = r71900 + r71901;
double r71903 = sqrt(r71902);
double r71904 = r71899 / r71903;
double r71905 = r71904 / r71903;
return r71905;
}




Bits error versus a




Bits error versus b




Bits error versus c




Bits error versus d
Results
| Original | 26.8 |
|---|---|
| Target | 0.4 |
| Herbie | 26.7 |
Initial program 26.8
rmApplied add-sqr-sqrt26.8
Applied associate-/r*26.7
Simplified26.7
Final simplification26.7
herbie shell --seed 2019174
(FPCore (a b c d)
:name "Complex division, real part"
: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))))