\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 r110921 = x_im;
double r110922 = y_re;
double r110923 = r110921 * r110922;
double r110924 = x_re;
double r110925 = y_im;
double r110926 = r110924 * r110925;
double r110927 = r110923 - r110926;
double r110928 = r110922 * r110922;
double r110929 = r110925 * r110925;
double r110930 = r110928 + r110929;
double r110931 = r110927 / r110930;
return r110931;
}
double f(double x_re, double x_im, double y_re, double y_im) {
double r110932 = 1.0;
double r110933 = y_re;
double r110934 = r110933 * r110933;
double r110935 = y_im;
double r110936 = r110935 * r110935;
double r110937 = r110934 + r110936;
double r110938 = sqrt(r110937);
double r110939 = x_im;
double r110940 = r110939 * r110933;
double r110941 = x_re;
double r110942 = r110941 * r110935;
double r110943 = r110940 - r110942;
double r110944 = r110938 / r110943;
double r110945 = r110932 / r110944;
double r110946 = r110945 / r110938;
return r110946;
}



Bits error versus x.re



Bits error versus x.im



Bits error versus y.re



Bits error versus y.im
Results
Initial program 26.0
rmApplied add-sqr-sqrt26.0
Applied associate-/r*25.9
rmApplied clear-num25.9
Final simplification25.9
herbie shell --seed 2020045
(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))))