\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im}\begin{array}{l}
\mathbf{if}\;y.im \le 1.39961108870036364 \cdot 10^{39}:\\
\;\;\;\;\frac{x.im}{\frac{{y.re}^{2} + {y.im}^{2}}{y.re}} - \frac{x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im}\\
\mathbf{else}:\\
\;\;\;\;\frac{x.im \cdot y.re}{y.re \cdot y.re + y.im \cdot y.im} - \frac{x.re}{\sqrt{y.re \cdot y.re + y.im \cdot y.im}} \cdot \frac{y.im}{\sqrt{y.re \cdot y.re + y.im \cdot y.im}}\\
\end{array}double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
return ((double) (((double) (((double) (x_46_im * y_46_re)) - ((double) (x_46_re * y_46_im)))) / ((double) (((double) (y_46_re * y_46_re)) + ((double) (y_46_im * y_46_im))))));
}
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double VAR;
if ((y_46_im <= 1.3996110887003636e+39)) {
VAR = ((double) (((double) (x_46_im / ((double) (((double) (((double) pow(y_46_re, 2.0)) + ((double) pow(y_46_im, 2.0)))) / y_46_re)))) - ((double) (((double) (x_46_re * y_46_im)) / ((double) (((double) (y_46_re * y_46_re)) + ((double) (y_46_im * y_46_im))))))));
} else {
VAR = ((double) (((double) (((double) (x_46_im * y_46_re)) / ((double) (((double) (y_46_re * y_46_re)) + ((double) (y_46_im * y_46_im)))))) - ((double) (((double) (x_46_re / ((double) sqrt(((double) (((double) (y_46_re * y_46_re)) + ((double) (y_46_im * y_46_im)))))))) * ((double) (y_46_im / ((double) sqrt(((double) (((double) (y_46_re * y_46_re)) + ((double) (y_46_im * y_46_im))))))))))));
}
return VAR;
}



Bits error versus x.re



Bits error versus x.im



Bits error versus y.re



Bits error versus y.im
Results
if y.im < 1.3996110887003636e+39Initial program 23.7
rmApplied div-sub23.7
rmApplied associate-/l*21.7
Simplified21.7
if 1.3996110887003636e+39 < y.im Initial program 34.8
rmApplied div-sub34.8
rmApplied add-sqr-sqrt34.8
Applied times-frac31.6
Final simplification23.9
herbie shell --seed 2020129
(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))))