\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 r146225 = a;
double r146226 = c;
double r146227 = r146225 * r146226;
double r146228 = b;
double r146229 = d;
double r146230 = r146228 * r146229;
double r146231 = r146227 + r146230;
double r146232 = r146226 * r146226;
double r146233 = r146229 * r146229;
double r146234 = r146232 + r146233;
double r146235 = r146231 / r146234;
return r146235;
}
double f(double a, double b, double c, double d) {
double r146236 = a;
double r146237 = c;
double r146238 = r146236 * r146237;
double r146239 = b;
double r146240 = d;
double r146241 = r146239 * r146240;
double r146242 = r146238 + r146241;
double r146243 = r146237 * r146237;
double r146244 = r146240 * r146240;
double r146245 = r146243 + r146244;
double r146246 = sqrt(r146245);
double r146247 = r146242 / r146246;
double r146248 = r146247 / r146246;
return r146248;
}




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.8 |
Initial program 25.9
rmApplied add-sqr-sqrt25.9
Applied associate-/r*25.8
Final simplification25.8
herbie shell --seed 2020033
(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))))