\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 r89845 = a;
double r89846 = c;
double r89847 = r89845 * r89846;
double r89848 = b;
double r89849 = d;
double r89850 = r89848 * r89849;
double r89851 = r89847 + r89850;
double r89852 = r89846 * r89846;
double r89853 = r89849 * r89849;
double r89854 = r89852 + r89853;
double r89855 = r89851 / r89854;
return r89855;
}
double f(double a, double b, double c, double d) {
double r89856 = a;
double r89857 = c;
double r89858 = r89856 * r89857;
double r89859 = b;
double r89860 = d;
double r89861 = r89859 * r89860;
double r89862 = r89858 + r89861;
double r89863 = r89857 * r89857;
double r89864 = r89860 * r89860;
double r89865 = r89863 + r89864;
double r89866 = sqrt(r89865);
double r89867 = r89862 / r89866;
double r89868 = r89867 / r89866;
return r89868;
}




Bits error versus a




Bits error versus b




Bits error versus c




Bits error versus d
Results
| Original | 26.1 |
|---|---|
| Target | 0.5 |
| Herbie | 26.0 |
Initial program 26.1
rmApplied add-sqr-sqrt26.1
Applied associate-/r*26.0
Final simplification26.0
herbie shell --seed 2020083
(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))))