\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im}\frac{\frac{1}{\frac{\sqrt{y.re \cdot y.re + y.im \cdot y.im}}{x.im \cdot y.re - x.re \cdot y.im}}}{\sqrt{y.re \cdot y.re + y.im \cdot y.im}}double f(double x_re, double x_im, double y_re, double y_im) {
double r50562 = x_im;
double r50563 = y_re;
double r50564 = r50562 * r50563;
double r50565 = x_re;
double r50566 = y_im;
double r50567 = r50565 * r50566;
double r50568 = r50564 - r50567;
double r50569 = r50563 * r50563;
double r50570 = r50566 * r50566;
double r50571 = r50569 + r50570;
double r50572 = r50568 / r50571;
return r50572;
}
double f(double x_re, double x_im, double y_re, double y_im) {
double r50573 = 1.0;
double r50574 = y_re;
double r50575 = r50574 * r50574;
double r50576 = y_im;
double r50577 = r50576 * r50576;
double r50578 = r50575 + r50577;
double r50579 = sqrt(r50578);
double r50580 = x_im;
double r50581 = r50580 * r50574;
double r50582 = x_re;
double r50583 = r50582 * r50576;
double r50584 = r50581 - r50583;
double r50585 = r50579 / r50584;
double r50586 = r50573 / r50585;
double r50587 = r50586 / r50579;
return r50587;
}



Bits error versus x.re



Bits error versus x.im



Bits error versus y.re



Bits error versus y.im
Results
Initial program 26.8
rmApplied add-sqr-sqrt26.8
Applied associate-/r*26.8
rmApplied clear-num26.8
Final simplification26.8
herbie shell --seed 2020034
(FPCore (x.re x.im y.re y.im)
:name "_divideComplex, imaginary part"
:precision binary64
(/ (- (* x.im y.re) (* x.re y.im)) (+ (* y.re y.re) (* y.im y.im))))