\frac{\left(\frac{\left(x.re \cdot y.re\right)}{\left(x.im \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{qma}\left(\left(\left(x.re \cdot y.re\right)\right), x.im, 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 r566380 = x_re;
double r566381 = y_re;
double r566382 = r566380 * r566381;
double r566383 = x_im;
double r566384 = y_im;
double r566385 = r566383 * r566384;
double r566386 = r566382 + r566385;
double r566387 = r566381 * r566381;
double r566388 = r566384 * r566384;
double r566389 = r566387 + r566388;
double r566390 = r566386 / r566389;
return r566390;
}
double f(double x_re, double x_im, double y_re, double y_im) {
double r566391 = x_re;
double r566392 = y_re;
double r566393 = r566391 * r566392;
double r566394 = /*Error: no posit support in C */;
double r566395 = x_im;
double r566396 = y_im;
double r566397 = /*Error: no posit support in C */;
double r566398 = /*Error: no posit support in C */;
double r566399 = r566392 * r566392;
double r566400 = /*Error: no posit support in C */;
double r566401 = /*Error: no posit support in C */;
double r566402 = /*Error: no posit support in C */;
double r566403 = r566398 / r566402;
return r566403;
}



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-add1.0
Final simplification1.0
herbie shell --seed 2019154
(FPCore (x.re x.im y.re y.im)
:name "_divideComplex, real part"
(/.p16 (+.p16 (*.p16 x.re y.re) (*.p16 x.im y.im)) (+.p16 (*.p16 y.re y.re) (*.p16 y.im y.im))))