\frac{a \cdot c + b \cdot d}{c \cdot c + d \cdot d}\frac{\frac{a \cdot c + d \cdot b}{\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 r114155 = a;
double r114156 = c;
double r114157 = r114155 * r114156;
double r114158 = b;
double r114159 = d;
double r114160 = r114158 * r114159;
double r114161 = r114157 + r114160;
double r114162 = r114156 * r114156;
double r114163 = r114159 * r114159;
double r114164 = r114162 + r114163;
double r114165 = r114161 / r114164;
return r114165;
}
double f(double a, double b, double c, double d) {
double r114166 = a;
double r114167 = c;
double r114168 = r114166 * r114167;
double r114169 = d;
double r114170 = b;
double r114171 = r114169 * r114170;
double r114172 = r114168 + r114171;
double r114173 = r114167 * r114167;
double r114174 = r114169 * r114169;
double r114175 = r114173 + r114174;
double r114176 = sqrt(r114175);
double r114177 = r114172 / r114176;
double r114178 = r114177 / r114176;
return r114178;
}




Bits error versus a




Bits error versus b




Bits error versus c




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