\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 r970018 = x_re;
double r970019 = y_re;
double r970020 = r970018 * r970019;
double r970021 = x_im;
double r970022 = y_im;
double r970023 = r970021 * r970022;
double r970024 = r970020 + r970023;
double r970025 = r970019 * r970019;
double r970026 = r970022 * r970022;
double r970027 = r970025 + r970026;
double r970028 = r970024 / r970027;
return r970028;
}
double f(double x_re, double x_im, double y_re, double y_im) {
double r970029 = x_re;
double r970030 = y_re;
double r970031 = r970029 * r970030;
double r970032 = /*Error: no posit support in C */;
double r970033 = x_im;
double r970034 = y_im;
double r970035 = /*Error: no posit support in C */;
double r970036 = /*Error: no posit support in C */;
double r970037 = r970030 * r970030;
double r970038 = /*Error: no posit support in C */;
double r970039 = /*Error: no posit support in C */;
double r970040 = /*Error: no posit support in C */;
double r970041 = r970036 / r970040;
return r970041;
}



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 2019151
(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))))