\frac{\left(\left(\left(x.re \cdot x.re\right) - \left(x.im \cdot x.im\right)\right) \cdot x.im\right)}{\left(\left(\frac{\left(x.re \cdot x.im\right)}{\left(x.im \cdot x.re\right)}\right) \cdot x.re\right)}\left(\mathsf{qma}\left(\left(\left(\left(\frac{x.re - x.im}{x.im + x.re} \cdot \left(x.im \cdot \left(x.im + x.re\right)\right)\right) \cdot \left(x.im + x.re\right)\right)\right), \left(x.im \cdot x.re + x.im \cdot x.re\right), x.re\right)\right)double f(double x_re, double x_im) {
double r917860 = x_re;
double r917861 = r917860 * r917860;
double r917862 = x_im;
double r917863 = r917862 * r917862;
double r917864 = r917861 - r917863;
double r917865 = r917864 * r917862;
double r917866 = r917860 * r917862;
double r917867 = r917862 * r917860;
double r917868 = r917866 + r917867;
double r917869 = r917868 * r917860;
double r917870 = r917865 + r917869;
return r917870;
}
double f(double x_re, double x_im) {
double r917871 = x_re;
double r917872 = x_im;
double r917873 = r917871 - r917872;
double r917874 = r917872 + r917871;
double r917875 = r917873 / r917874;
double r917876 = r917872 * r917874;
double r917877 = r917875 * r917876;
double r917878 = r917877 * r917874;
double r917879 = /*Error: no posit support in C */;
double r917880 = r917872 * r917871;
double r917881 = r917880 + r917880;
double r917882 = /*Error: no posit support in C */;
double r917883 = /*Error: no posit support in C */;
return r917883;
}



Bits error versus x.re



Bits error versus x.im
Initial program 0.4
rmApplied introduce-quire0.4
Applied insert-quire-fdp-add0.3
Simplified0.3
rmApplied p16-flip--0.3
Applied associate-*r/0.3
Simplified0.3
rmApplied *p16-rgt-identity-expand0.3
Applied p16-times-frac0.3
Simplified0.3
Simplified0.3
Final simplification0.3
herbie shell --seed 2019153 +o rules:numerics
(FPCore (x.re x.im)
:name "math.cube on complex, imaginary part"
(+.p16 (*.p16 (-.p16 (*.p16 x.re x.re) (*.p16 x.im x.im)) x.im) (*.p16 (+.p16 (*.p16 x.re x.im) (*.p16 x.im x.re)) x.re)))