\frac{b \cdot c - a \cdot d}{c \cdot c + d \cdot d}\frac{\frac{1}{\frac{\sqrt{c \cdot c + d \cdot d}}{c \cdot b - d \cdot a}}}{\sqrt{c \cdot c + d \cdot d}}double f(double a, double b, double c, double d) {
double r4843501 = b;
double r4843502 = c;
double r4843503 = r4843501 * r4843502;
double r4843504 = a;
double r4843505 = d;
double r4843506 = r4843504 * r4843505;
double r4843507 = r4843503 - r4843506;
double r4843508 = r4843502 * r4843502;
double r4843509 = r4843505 * r4843505;
double r4843510 = r4843508 + r4843509;
double r4843511 = r4843507 / r4843510;
return r4843511;
}
double f(double a, double b, double c, double d) {
double r4843512 = 1.0;
double r4843513 = c;
double r4843514 = r4843513 * r4843513;
double r4843515 = d;
double r4843516 = r4843515 * r4843515;
double r4843517 = r4843514 + r4843516;
double r4843518 = sqrt(r4843517);
double r4843519 = b;
double r4843520 = r4843513 * r4843519;
double r4843521 = a;
double r4843522 = r4843515 * r4843521;
double r4843523 = r4843520 - r4843522;
double r4843524 = r4843518 / r4843523;
double r4843525 = r4843512 / r4843524;
double r4843526 = r4843525 / r4843518;
return r4843526;
}




Bits error versus a




Bits error versus b




Bits error versus c




Bits error versus d
Results
| Original | 25.7 |
|---|---|
| Target | 0.5 |
| Herbie | 25.7 |
Initial program 25.7
rmApplied add-sqr-sqrt25.7
Applied associate-/r*25.6
rmApplied clear-num25.7
Final simplification25.7
herbie shell --seed 2019130
(FPCore (a b c d)
:name "Complex division, imag part"
:herbie-target
(if (< (fabs d) (fabs c)) (/ (- b (* a (/ d c))) (+ c (* d (/ d c)))) (/ (+ (- a) (* b (/ c d))) (+ d (* c (/ c d)))))
(/ (- (* b c) (* a d)) (+ (* c c) (* d d))))