\left(0.5\right) \cdot \left(\sqrt{\left(\left(2.0\right) \cdot \left(\frac{\left(\sqrt{\left(\frac{\left(re \cdot re\right)}{\left(im \cdot im\right)}\right)}\right)}{re}\right)\right)}\right)0.5 \cdot \sqrt{2.0 \cdot \left(\sqrt{\left(\mathsf{qma}\left(\left(\left(re \cdot re\right)\right), im, im\right)\right)} + re\right)}double f(double re, double im) {
double r294691 = 0.5;
double r294692 = /* ERROR: no posit support in C */;
double r294693 = 2.0;
double r294694 = /* ERROR: no posit support in C */;
double r294695 = re;
double r294696 = r294695 * r294695;
double r294697 = im;
double r294698 = r294697 * r294697;
double r294699 = r294696 + r294698;
double r294700 = sqrt(r294699);
double r294701 = r294700 + r294695;
double r294702 = r294694 * r294701;
double r294703 = sqrt(r294702);
double r294704 = r294692 * r294703;
return r294704;
}
double f(double re, double im) {
double r294705 = 0.5;
double r294706 = 2.0;
double r294707 = re;
double r294708 = r294707 * r294707;
double r294709 = /*Error: no posit support in C */;
double r294710 = im;
double r294711 = /*Error: no posit support in C */;
double r294712 = /*Error: no posit support in C */;
double r294713 = sqrt(r294712);
double r294714 = r294713 + r294707;
double r294715 = r294706 * r294714;
double r294716 = sqrt(r294715);
double r294717 = r294705 * r294716;
return r294717;
}



Bits error versus re



Bits error versus im
Initial program 2.1
rmApplied introduce-quire2.1
Applied insert-quire-fdp-add2.1
Final simplification2.1
herbie shell --seed 2019163
(FPCore (re im)
:name "math.sqrt on complex, real part"
(*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (+.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)))))