\left(0.5\right) \cdot \left(\sqrt{\left(\left(2.0\right) \cdot \left(\left(\sqrt{\left(\frac{\left(re \cdot re\right)}{\left(im \cdot im\right)}\right)}\right) - re\right)\right)}\right)\begin{array}{l}
\mathbf{if}\;re \le 0.02642822265625:\\
\;\;\;\;0.5 \cdot \sqrt{2.0 \cdot \left(\sqrt{re \cdot re + im \cdot im} - re\right)}\\
\mathbf{else}:\\
\;\;\;\;0.5 \cdot \sqrt{2.0 \cdot \frac{im}{\frac{\sqrt{re \cdot re + im \cdot im} + re}{im}}}\\
\end{array}double f(double re, double im) {
double r2144430 = 0.5;
double r2144431 = /* ERROR: no posit support in C */;
double r2144432 = 2.0;
double r2144433 = /* ERROR: no posit support in C */;
double r2144434 = re;
double r2144435 = r2144434 * r2144434;
double r2144436 = im;
double r2144437 = r2144436 * r2144436;
double r2144438 = r2144435 + r2144437;
double r2144439 = sqrt(r2144438);
double r2144440 = r2144439 - r2144434;
double r2144441 = r2144433 * r2144440;
double r2144442 = sqrt(r2144441);
double r2144443 = r2144431 * r2144442;
return r2144443;
}
double f(double re, double im) {
double r2144444 = re;
double r2144445 = 0.02642822265625;
bool r2144446 = r2144444 <= r2144445;
double r2144447 = 0.5;
double r2144448 = 2.0;
double r2144449 = r2144444 * r2144444;
double r2144450 = im;
double r2144451 = r2144450 * r2144450;
double r2144452 = r2144449 + r2144451;
double r2144453 = sqrt(r2144452);
double r2144454 = r2144453 - r2144444;
double r2144455 = r2144448 * r2144454;
double r2144456 = sqrt(r2144455);
double r2144457 = r2144447 * r2144456;
double r2144458 = r2144453 + r2144444;
double r2144459 = r2144458 / r2144450;
double r2144460 = r2144450 / r2144459;
double r2144461 = r2144448 * r2144460;
double r2144462 = sqrt(r2144461);
double r2144463 = r2144447 * r2144462;
double r2144464 = r2144446 ? r2144457 : r2144463;
return r2144464;
}



Bits error versus re



Bits error versus im
if re < 0.02642822265625Initial program 0.7
if 0.02642822265625 < re Initial program 3.6
rmApplied p16-flip--3.3
Simplified0.9
rmApplied associate-/l*0.9
Final simplification0.8
herbie shell --seed 2019135
(FPCore (re im)
:name "math.sqrt on complex, imaginary part, im greater than 0 branch"
(*.p16 (real->posit16 0.5) (sqrt.p16 (*.p16 (real->posit16 2.0) (-.p16 (sqrt.p16 (+.p16 (*.p16 re re) (*.p16 im im))) re)))))