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 <= -2.7466643681102755e-252) || !(y_46_im <= 2.2944353920244916e-209))) {
VAR = ((double) (((double) (((double) (y_46_re * ((double) (x_46_im / ((double) sqrt(((double) (((double) (y_46_re * y_46_re)) + ((double) (y_46_im * y_46_im)))))))))) - ((double) (y_46_im * ((double) (x_46_re / ((double) sqrt(((double) (((double) (y_46_re * y_46_re)) + ((double) (y_46_im * y_46_im)))))))))))) / ((double) sqrt(((double) (((double) (y_46_re * y_46_re)) + ((double) (y_46_im * y_46_im))))))));
} else {
VAR = ((double) (((double) (((double) (1.0 / ((double) fabs(((double) cbrt(((double) (((double) (y_46_re * y_46_re)) + ((double) (y_46_im * y_46_im)))))))))) * ((double) (((double) (((double) (y_46_re * x_46_im)) - ((double) (y_46_im * x_46_re)))) / ((double) sqrt(((double) cbrt(((double) (((double) (y_46_re * y_46_re)) + ((double) (y_46_im * 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 < -2.74666436811027551e-252 or 2.29443539202449163e-209 < y.im Initial program 27.1
rmApplied add-sqr-sqrt27.1
Applied associate-/r*27.0
rmApplied div-sub27.0
Simplified25.6
Simplified23.4
if -2.74666436811027551e-252 < y.im < 2.29443539202449163e-209Initial program 24.0
rmApplied add-sqr-sqrt24.0
Applied associate-/r*23.9
rmApplied add-cube-cbrt24.3
Applied sqrt-prod24.3
Applied *-un-lft-identity24.3
Applied times-frac24.3
Simplified24.3
Simplified24.3
Final simplification23.5
herbie shell --seed 2020191
(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))))