\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 r95077 = a;
double r95078 = c;
double r95079 = r95077 * r95078;
double r95080 = b;
double r95081 = d;
double r95082 = r95080 * r95081;
double r95083 = r95079 + r95082;
double r95084 = r95078 * r95078;
double r95085 = r95081 * r95081;
double r95086 = r95084 + r95085;
double r95087 = r95083 / r95086;
return r95087;
}
double f(double a, double b, double c, double d) {
double r95088 = a;
double r95089 = c;
double r95090 = r95088 * r95089;
double r95091 = b;
double r95092 = d;
double r95093 = r95091 * r95092;
double r95094 = r95090 + r95093;
double r95095 = r95089 * r95089;
double r95096 = r95092 * r95092;
double r95097 = r95095 + r95096;
double r95098 = sqrt(r95097);
double r95099 = r95094 / r95098;
double r95100 = r95099 / r95098;
return r95100;
}




Bits error versus a




Bits error versus b




Bits error versus c




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