\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)}\left(\left(\frac{y.re \cdot x.im - x.re \cdot y.im}{\left(\mathsf{qma}\left(\left(\left(y.re \cdot y.re\right)\right), y.im, y.im\right)\right)}\right)\right)double f(double x_re, double x_im, double y_re, double y_im) {
double r408266 = x_im;
double r408267 = y_re;
double r408268 = r408266 * r408267;
double r408269 = x_re;
double r408270 = y_im;
double r408271 = r408269 * r408270;
double r408272 = r408268 - r408271;
double r408273 = r408267 * r408267;
double r408274 = r408270 * r408270;
double r408275 = r408273 + r408274;
double r408276 = r408272 / r408275;
return r408276;
}
double f(double x_re, double x_im, double y_re, double y_im) {
double r408277 = y_re;
double r408278 = x_im;
double r408279 = r408277 * r408278;
double r408280 = x_re;
double r408281 = y_im;
double r408282 = r408280 * r408281;
double r408283 = r408279 - r408282;
double r408284 = r408277 * r408277;
double r408285 = /*Error: no posit support in C */;
double r408286 = /*Error: no posit support in C */;
double r408287 = /*Error: no posit support in C */;
double r408288 = r408283 / r408287;
double r408289 = /*Error: no posit support in C */;
double r408290 = /*Error: no posit support in C */;
return r408290;
}



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 p16-*-un-lft-identity1.1
Applied associate-/l*1.1
rmApplied introduce-quire1.1
Simplified1.1
Final simplification1.1
herbie shell --seed 2019156 +o rules:numerics
(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))))