0.5 \cdot \sqrt{2.0 \cdot \left(\sqrt{re \cdot re + im \cdot im} - re\right)}\begin{array}{l}
\mathbf{if}\;re \le -6.527134745732682 \cdot 10^{+138}:\\
\;\;\;\;\sqrt{\left(-2 \cdot re\right) \cdot 2.0} \cdot 0.5\\
\mathbf{elif}\;re \le -1.0853955874561044 \cdot 10^{-276}:\\
\;\;\;\;0.5 \cdot \sqrt{2.0 \cdot \left(\sqrt{im \cdot im + re \cdot re} - re\right)}\\
\mathbf{elif}\;re \le 5.0588064944949425 \cdot 10^{-224}:\\
\;\;\;\;0.5 \cdot \sqrt{\left(im - re\right) \cdot 2.0}\\
\mathbf{elif}\;re \le 1.2645035986882906 \cdot 10^{+68}:\\
\;\;\;\;0.5 \cdot \left(\sqrt{\frac{\sqrt{\left(im \cdot im\right) \cdot 2.0}}{\sqrt{\sqrt{im \cdot im + re \cdot re} + re}}} \cdot \sqrt{\frac{\sqrt{\left(im \cdot im\right) \cdot 2.0}}{\sqrt{\sqrt{im \cdot im + re \cdot re} + re}}}\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{\sqrt{\left(im \cdot im\right) \cdot 2.0}}{\sqrt{re + re}} \cdot 0.5\\
\end{array}double f(double re, double im) {
double r706989 = 0.5;
double r706990 = 2.0;
double r706991 = re;
double r706992 = r706991 * r706991;
double r706993 = im;
double r706994 = r706993 * r706993;
double r706995 = r706992 + r706994;
double r706996 = sqrt(r706995);
double r706997 = r706996 - r706991;
double r706998 = r706990 * r706997;
double r706999 = sqrt(r706998);
double r707000 = r706989 * r706999;
return r707000;
}
double f(double re, double im) {
double r707001 = re;
double r707002 = -6.527134745732682e+138;
bool r707003 = r707001 <= r707002;
double r707004 = -2.0;
double r707005 = r707004 * r707001;
double r707006 = 2.0;
double r707007 = r707005 * r707006;
double r707008 = sqrt(r707007);
double r707009 = 0.5;
double r707010 = r707008 * r707009;
double r707011 = -1.0853955874561044e-276;
bool r707012 = r707001 <= r707011;
double r707013 = im;
double r707014 = r707013 * r707013;
double r707015 = r707001 * r707001;
double r707016 = r707014 + r707015;
double r707017 = sqrt(r707016);
double r707018 = r707017 - r707001;
double r707019 = r707006 * r707018;
double r707020 = sqrt(r707019);
double r707021 = r707009 * r707020;
double r707022 = 5.0588064944949425e-224;
bool r707023 = r707001 <= r707022;
double r707024 = r707013 - r707001;
double r707025 = r707024 * r707006;
double r707026 = sqrt(r707025);
double r707027 = r707009 * r707026;
double r707028 = 1.2645035986882906e+68;
bool r707029 = r707001 <= r707028;
double r707030 = r707014 * r707006;
double r707031 = sqrt(r707030);
double r707032 = r707017 + r707001;
double r707033 = sqrt(r707032);
double r707034 = r707031 / r707033;
double r707035 = sqrt(r707034);
double r707036 = r707035 * r707035;
double r707037 = r707009 * r707036;
double r707038 = r707001 + r707001;
double r707039 = sqrt(r707038);
double r707040 = r707031 / r707039;
double r707041 = r707040 * r707009;
double r707042 = r707029 ? r707037 : r707041;
double r707043 = r707023 ? r707027 : r707042;
double r707044 = r707012 ? r707021 : r707043;
double r707045 = r707003 ? r707010 : r707044;
return r707045;
}



Bits error versus re



Bits error versus im
Results
if re < -6.527134745732682e+138Initial program 57.2
Taylor expanded around -inf 8.5
if -6.527134745732682e+138 < re < -1.0853955874561044e-276Initial program 19.1
if -1.0853955874561044e-276 < re < 5.0588064944949425e-224Initial program 31.5
Taylor expanded around 0 32.8
if 5.0588064944949425e-224 < re < 1.2645035986882906e+68Initial program 38.1
rmApplied flip--38.0
Applied associate-*r/38.0
Applied sqrt-div38.2
Simplified30.6
rmApplied add-sqr-sqrt30.7
if 1.2645035986882906e+68 < re Initial program 58.1
rmApplied flip--58.1
Applied associate-*r/58.1
Applied sqrt-div58.1
Simplified40.9
Taylor expanded around inf 22.9
Final simplification22.3
herbie shell --seed 2019151
(FPCore (re im)
:name "math.sqrt on complex, imaginary part, im greater than 0 branch"
(* 0.5 (sqrt (* 2.0 (- (sqrt (+ (* re re) (* im im))) re)))))