\frac{x.re \cdot y.re + x.im \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im}\frac{1}{\sqrt{y.re \cdot y.re + y.im \cdot y.im}} \cdot \frac{y.re \cdot x.re + y.im \cdot x.im}{\sqrt{y.re \cdot y.re + y.im \cdot y.im}}(FPCore (x.re x.im y.re y.im) :precision binary64 (/ (+ (* x.re y.re) (* x.im y.im)) (+ (* y.re y.re) (* y.im y.im))))
(FPCore (x.re x.im y.re y.im) :precision binary64 (* (/ 1.0 (sqrt (+ (* y.re y.re) (* y.im y.im)))) (/ (+ (* y.re x.re) (* y.im x.im)) (sqrt (+ (* y.re y.re) (* y.im y.im))))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
return ((x_46_re * y_46_re) + (x_46_im * y_46_im)) / ((y_46_re * y_46_re) + (y_46_im * y_46_im));
}
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
return (1.0 / sqrt((y_46_re * y_46_re) + (y_46_im * y_46_im))) * (((y_46_re * x_46_re) + (y_46_im * x_46_im)) / sqrt((y_46_re * y_46_re) + (y_46_im * y_46_im)));
}



Bits error versus x.re



Bits error versus x.im



Bits error versus y.re



Bits error versus y.im
Results
Initial program 26.4
rmApplied add-sqr-sqrt_binary6426.4
Applied *-un-lft-identity_binary6426.4
Applied times-frac_binary6426.4
Final simplification26.4
herbie shell --seed 2020253
(FPCore (x.re x.im y.re y.im)
:name "_divideComplex, real part"
:precision binary64
(/ (+ (* x.re y.re) (* x.im y.im)) (+ (* y.re y.re) (* y.im y.im))))