\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 r2624334 = b;
double r2624335 = c;
double r2624336 = r2624334 * r2624335;
double r2624337 = a;
double r2624338 = d;
double r2624339 = r2624337 * r2624338;
double r2624340 = r2624336 - r2624339;
double r2624341 = r2624335 * r2624335;
double r2624342 = r2624338 * r2624338;
double r2624343 = r2624341 + r2624342;
double r2624344 = r2624340 / r2624343;
return r2624344;
}
double f(double a, double b, double c, double d) {
double r2624345 = 1.0;
double r2624346 = c;
double r2624347 = r2624346 * r2624346;
double r2624348 = d;
double r2624349 = r2624348 * r2624348;
double r2624350 = r2624347 + r2624349;
double r2624351 = sqrt(r2624350);
double r2624352 = b;
double r2624353 = r2624346 * r2624352;
double r2624354 = a;
double r2624355 = r2624348 * r2624354;
double r2624356 = r2624353 - r2624355;
double r2624357 = r2624351 / r2624356;
double r2624358 = r2624345 / r2624357;
double r2624359 = r2624358 / r2624351;
return r2624359;
}




Bits error versus a




Bits error versus b




Bits error versus c




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