\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 r877296 = 0.5;
double r877297 = /* ERROR: no posit support in C */;
double r877298 = 2.0;
double r877299 = /* ERROR: no posit support in C */;
double r877300 = re;
double r877301 = r877300 * r877300;
double r877302 = im;
double r877303 = r877302 * r877302;
double r877304 = r877301 + r877303;
double r877305 = sqrt(r877304);
double r877306 = r877305 + r877300;
double r877307 = r877299 * r877306;
double r877308 = sqrt(r877307);
double r877309 = r877297 * r877308;
return r877309;
}
double f(double re, double im) {
double r877310 = 0.5;
double r877311 = 2.0;
double r877312 = re;
double r877313 = r877312 * r877312;
double r877314 = /*Error: no posit support in C */;
double r877315 = im;
double r877316 = /*Error: no posit support in C */;
double r877317 = /*Error: no posit support in C */;
double r877318 = sqrt(r877317);
double r877319 = r877318 + r877312;
double r877320 = r877311 * r877319;
double r877321 = sqrt(r877320);
double r877322 = r877310 * r877321;
return r877322;
}



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