0.5 \cdot \sqrt{2 \cdot \left(\sqrt{re \cdot re + im \cdot im} - re\right)}\begin{array}{l}
\mathbf{if}\;re \le -9.958741127435869792223497733767457453485 \cdot 10^{-42}:\\
\;\;\;\;0.5 \cdot \sqrt{2 \cdot \left(-2 \cdot re\right)}\\
\mathbf{elif}\;re \le -1.998473793179742598054252273926425808671 \cdot 10^{-109}:\\
\;\;\;\;0.5 \cdot \sqrt{\frac{2 \cdot im}{\sqrt{re \cdot re + im \cdot im} + re} \cdot im}\\
\mathbf{elif}\;re \le 3.824319967948722127918572797361195693664 \cdot 10^{-251}:\\
\;\;\;\;0.5 \cdot \sqrt{2 \cdot \left(im - re\right)}\\
\mathbf{elif}\;re \le 5.243516123083839465290070379456236260621 \cdot 10^{57}:\\
\;\;\;\;0.5 \cdot \left(\frac{\sqrt{2}}{\sqrt{\sqrt{\sqrt{re \cdot re + im \cdot im} + re}}} \cdot \frac{\left|im\right|}{\sqrt{\sqrt{\sqrt{re \cdot re + im \cdot im} + re}}}\right)\\
\mathbf{else}:\\
\;\;\;\;0.5 \cdot \left(\sqrt{2} \cdot \frac{\left|im\right|}{\sqrt{2 \cdot re}}\right)\\
\end{array}double f(double re, double im) {
double r26034 = 0.5;
double r26035 = 2.0;
double r26036 = re;
double r26037 = r26036 * r26036;
double r26038 = im;
double r26039 = r26038 * r26038;
double r26040 = r26037 + r26039;
double r26041 = sqrt(r26040);
double r26042 = r26041 - r26036;
double r26043 = r26035 * r26042;
double r26044 = sqrt(r26043);
double r26045 = r26034 * r26044;
return r26045;
}
double f(double re, double im) {
double r26046 = re;
double r26047 = -9.95874112743587e-42;
bool r26048 = r26046 <= r26047;
double r26049 = 0.5;
double r26050 = 2.0;
double r26051 = -2.0;
double r26052 = r26051 * r26046;
double r26053 = r26050 * r26052;
double r26054 = sqrt(r26053);
double r26055 = r26049 * r26054;
double r26056 = -1.9984737931797426e-109;
bool r26057 = r26046 <= r26056;
double r26058 = im;
double r26059 = r26050 * r26058;
double r26060 = r26046 * r26046;
double r26061 = r26058 * r26058;
double r26062 = r26060 + r26061;
double r26063 = sqrt(r26062);
double r26064 = r26063 + r26046;
double r26065 = r26059 / r26064;
double r26066 = r26065 * r26058;
double r26067 = sqrt(r26066);
double r26068 = r26049 * r26067;
double r26069 = 3.824319967948722e-251;
bool r26070 = r26046 <= r26069;
double r26071 = r26058 - r26046;
double r26072 = r26050 * r26071;
double r26073 = sqrt(r26072);
double r26074 = r26049 * r26073;
double r26075 = 5.2435161230838395e+57;
bool r26076 = r26046 <= r26075;
double r26077 = sqrt(r26050);
double r26078 = sqrt(r26064);
double r26079 = sqrt(r26078);
double r26080 = r26077 / r26079;
double r26081 = fabs(r26058);
double r26082 = r26081 / r26079;
double r26083 = r26080 * r26082;
double r26084 = r26049 * r26083;
double r26085 = 2.0;
double r26086 = r26085 * r26046;
double r26087 = sqrt(r26086);
double r26088 = r26081 / r26087;
double r26089 = r26077 * r26088;
double r26090 = r26049 * r26089;
double r26091 = r26076 ? r26084 : r26090;
double r26092 = r26070 ? r26074 : r26091;
double r26093 = r26057 ? r26068 : r26092;
double r26094 = r26048 ? r26055 : r26093;
return r26094;
}



Bits error versus re



Bits error versus im
Results
if re < -9.95874112743587e-42Initial program 36.7
Taylor expanded around -inf 16.7
if -9.95874112743587e-42 < re < -1.9984737931797426e-109Initial program 16.2
rmApplied flip--36.1
Applied associate-*r/36.2
Applied sqrt-div36.4
Simplified36.4
rmApplied sqrt-undiv36.2
Simplified35.7
if -1.9984737931797426e-109 < re < 3.824319967948722e-251Initial program 27.5
Taylor expanded around 0 35.7
if 3.824319967948722e-251 < re < 5.2435161230838395e+57Initial program 38.6
rmApplied flip--38.5
Applied associate-*r/38.5
Applied sqrt-div38.6
Simplified31.9
rmApplied add-sqr-sqrt31.9
Applied sqrt-prod32.0
Applied sqrt-prod32.0
Applied times-frac32.0
Simplified20.6
if 5.2435161230838395e+57 < re Initial program 58.7
rmApplied flip--58.7
Applied associate-*r/58.7
Applied sqrt-div58.7
Simplified40.9
rmApplied *-un-lft-identity40.9
Applied sqrt-prod40.9
Applied sqrt-prod40.9
Applied times-frac40.9
Simplified40.9
Simplified36.4
Taylor expanded around inf 13.1
Final simplification21.9
herbie shell --seed 2019325
(FPCore (re im)
:name "math.sqrt on complex, imaginary part, im greater than 0 branch"
:precision binary64
(* 0.5 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))))