\frac{b \cdot c - a \cdot d}{c \cdot c + d \cdot d}\frac{\frac{b \cdot c - a \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 r103332 = b;
double r103333 = c;
double r103334 = r103332 * r103333;
double r103335 = a;
double r103336 = d;
double r103337 = r103335 * r103336;
double r103338 = r103334 - r103337;
double r103339 = r103333 * r103333;
double r103340 = r103336 * r103336;
double r103341 = r103339 + r103340;
double r103342 = r103338 / r103341;
return r103342;
}
double f(double a, double b, double c, double d) {
double r103343 = b;
double r103344 = c;
double r103345 = r103343 * r103344;
double r103346 = a;
double r103347 = d;
double r103348 = r103346 * r103347;
double r103349 = r103345 - r103348;
double r103350 = r103344 * r103344;
double r103351 = r103347 * r103347;
double r103352 = r103350 + r103351;
double r103353 = sqrt(r103352);
double r103354 = r103349 / r103353;
double r103355 = r103354 / r103353;
return r103355;
}




Bits error versus a




Bits error versus b




Bits error versus c




Bits error versus d
Results
| Original | 26.6 |
|---|---|
| Target | 0.5 |
| Herbie | 26.5 |
Initial program 26.6
rmApplied add-sqr-sqrt26.6
Applied associate-/r*26.5
Final simplification26.5
herbie shell --seed 2020025
(FPCore (a b c d)
:name "Complex division, imag part"
:precision binary64
: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))))