\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 r104987 = a;
double r104988 = c;
double r104989 = r104987 * r104988;
double r104990 = b;
double r104991 = d;
double r104992 = r104990 * r104991;
double r104993 = r104989 + r104992;
double r104994 = r104988 * r104988;
double r104995 = r104991 * r104991;
double r104996 = r104994 + r104995;
double r104997 = r104993 / r104996;
return r104997;
}
double f(double a, double b, double c, double d) {
double r104998 = a;
double r104999 = c;
double r105000 = r104998 * r104999;
double r105001 = b;
double r105002 = d;
double r105003 = r105001 * r105002;
double r105004 = r105000 + r105003;
double r105005 = r104999 * r104999;
double r105006 = r105002 * r105002;
double r105007 = r105005 + r105006;
double r105008 = sqrt(r105007);
double r105009 = r105004 / r105008;
double r105010 = r105009 / r105008;
return r105010;
}




Bits error versus a




Bits error versus b




Bits error versus c




Bits error versus d
Results
| Original | 25.9 |
|---|---|
| Target | 0.4 |
| Herbie | 25.9 |
Initial program 25.9
rmApplied add-sqr-sqrt25.9
Applied associate-/r*25.9
Final simplification25.9
herbie shell --seed 2019318
(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))))