\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 r449705 = 0.5;
double r449706 = /* ERROR: no posit support in C */;
double r449707 = 2.0;
double r449708 = /* ERROR: no posit support in C */;
double r449709 = re;
double r449710 = r449709 * r449709;
double r449711 = im;
double r449712 = r449711 * r449711;
double r449713 = r449710 + r449712;
double r449714 = sqrt(r449713);
double r449715 = r449714 + r449709;
double r449716 = r449708 * r449715;
double r449717 = sqrt(r449716);
double r449718 = r449706 * r449717;
return r449718;
}
double f(double re, double im) {
double r449719 = 0.5;
double r449720 = 2.0;
double r449721 = re;
double r449722 = r449721 * r449721;
double r449723 = /*Error: no posit support in C */;
double r449724 = im;
double r449725 = /*Error: no posit support in C */;
double r449726 = /*Error: no posit support in C */;
double r449727 = sqrt(r449726);
double r449728 = r449727 + r449721;
double r449729 = r449720 * r449728;
double r449730 = sqrt(r449729);
double r449731 = r449719 * r449730;
return r449731;
}



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 2019153 +o rules:numerics
(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)))))