0.5 \cdot \sqrt{2 \cdot \left(\sqrt{re \cdot re + im \cdot im} - re\right)}\begin{array}{l}
\mathbf{if}\;im \cdot im \le 9.9690502239827333 \cdot 10^{-305}:\\
\;\;\;\;0.5 \cdot \sqrt{2 \cdot \left(-2 \cdot re\right)}\\
\mathbf{elif}\;im \cdot im \le 1.401799690716079 \cdot 10^{-134}:\\
\;\;\;\;0.5 \cdot \sqrt{2 \cdot \left(\sqrt{\sqrt{re \cdot re + im \cdot im}} \cdot \sqrt{\sqrt{re \cdot re + im \cdot im}} - re\right)}\\
\mathbf{elif}\;im \cdot im \le 2.00006690755967991 \cdot 10^{303}:\\
\;\;\;\;0.5 \cdot \sqrt{2 \cdot \frac{im \cdot im}{re + \sqrt{re \cdot re + im \cdot im}}}\\
\mathbf{else}:\\
\;\;\;\;0.5 \cdot \sqrt{2 \cdot \left(im - re\right)}\\
\end{array}double code(double re, double im) {
return ((double) (0.5 * ((double) sqrt(((double) (2.0 * ((double) (((double) sqrt(((double) (((double) (re * re)) + ((double) (im * im)))))) - re))))))));
}
double code(double re, double im) {
double VAR;
if ((((double) (im * im)) <= 9.969050223982733e-305)) {
VAR = ((double) (0.5 * ((double) sqrt(((double) (2.0 * ((double) (-2.0 * re))))))));
} else {
double VAR_1;
if ((((double) (im * im)) <= 1.401799690716079e-134)) {
VAR_1 = ((double) (0.5 * ((double) sqrt(((double) (2.0 * ((double) (((double) (((double) sqrt(((double) sqrt(((double) (((double) (re * re)) + ((double) (im * im)))))))) * ((double) sqrt(((double) sqrt(((double) (((double) (re * re)) + ((double) (im * im)))))))))) - re))))))));
} else {
double VAR_2;
if ((((double) (im * im)) <= 2.00006690755968e+303)) {
VAR_2 = ((double) (0.5 * ((double) sqrt(((double) (2.0 * ((double) (((double) (im * im)) / ((double) (re + ((double) sqrt(((double) (((double) (re * re)) + ((double) (im * im))))))))))))))));
} else {
VAR_2 = ((double) (0.5 * ((double) sqrt(((double) (2.0 * ((double) (im - re))))))));
}
VAR_1 = VAR_2;
}
VAR = VAR_1;
}
return VAR;
}



Bits error versus re



Bits error versus im
Results
if (* im im) < 9.9690502239827333e-305Initial program 42.7
Taylor expanded around -inf 35.5
if 9.9690502239827333e-305 < (* im im) < 1.401799690716079e-134Initial program 29.5
rmApplied add-sqr-sqrt29.5
Applied sqrt-prod29.7
if 1.401799690716079e-134 < (* im im) < 2.00006690755967991e303Initial program 20.9
rmApplied add-sqr-sqrt20.9
Applied sqrt-prod21.0
rmApplied add-exp-log23.4
rmApplied flip--28.1
Applied log-div28.5
Applied exp-diff28.5
Simplified23.4
Simplified21.1
if 2.00006690755967991e303 < (* im im) Initial program 63.0
Taylor expanded around 0 34.5
Final simplification29.3
herbie shell --seed 2020155
(FPCore (re im)
:name "math.sqrt on complex, imaginary part, im greater than 0 branch"
:precision binary64
(* 0.5 (sqrt (* 2.0 (- (sqrt (+ (* re re) (* im im))) re)))))