\frac{\left(\left(x.im \cdot y.re\right) - \left(x.re \cdot y.im\right)\right)}{\left(\frac{\left(y.re \cdot y.re\right)}{\left(y.im \cdot y.im\right)}\right)}\frac{\left(\mathsf{qms}\left(\left(\left(x.im \cdot y.re\right)\right), x.re, y.im\right)\right)}{\left(\mathsf{qma}\left(\left(\left(y.re \cdot y.re\right)\right), y.im, y.im\right)\right)}double f(double x_re, double x_im, double y_re, double y_im) {
double r932258 = x_im;
double r932259 = y_re;
double r932260 = r932258 * r932259;
double r932261 = x_re;
double r932262 = y_im;
double r932263 = r932261 * r932262;
double r932264 = r932260 - r932263;
double r932265 = r932259 * r932259;
double r932266 = r932262 * r932262;
double r932267 = r932265 + r932266;
double r932268 = r932264 / r932267;
return r932268;
}
double f(double x_re, double x_im, double y_re, double y_im) {
double r932269 = x_im;
double r932270 = y_re;
double r932271 = r932269 * r932270;
double r932272 = /*Error: no posit support in C */;
double r932273 = x_re;
double r932274 = y_im;
double r932275 = /*Error: no posit support in C */;
double r932276 = /*Error: no posit support in C */;
double r932277 = r932270 * r932270;
double r932278 = /*Error: no posit support in C */;
double r932279 = /*Error: no posit support in C */;
double r932280 = /*Error: no posit support in C */;
double r932281 = r932276 / r932280;
return r932281;
}



Bits error versus x.re



Bits error versus x.im



Bits error versus y.re



Bits error versus y.im
Initial program 1.1
rmApplied introduce-quire1.1
Applied insert-quire-fdp-add1.1
rmApplied introduce-quire1.1
Applied insert-quire-fdp-sub1.0
Final simplification1.0
herbie shell --seed 2019151
(FPCore (x.re x.im y.re y.im)
:name "_divideComplex, imaginary part"
(/.p16 (-.p16 (*.p16 x.im y.re) (*.p16 x.re y.im)) (+.p16 (*.p16 y.re y.re) (*.p16 y.im y.im))))