0.5 \cdot \sqrt{2.0 \cdot \left(\sqrt{re \cdot re + im \cdot im} - re\right)}\begin{array}{l}
\mathbf{if}\;im \le -3.6111760266152055 \cdot 10^{-08}:\\
\;\;\;\;0.5 \cdot \sqrt{-\left(re + im\right) \cdot 2.0}\\
\mathbf{elif}\;im \le -2.9634639532950256 \cdot 10^{-188}:\\
\;\;\;\;\sqrt{2.0 \cdot \left(im \cdot \frac{im}{\sqrt{im \cdot im + re \cdot re} + re}\right)} \cdot 0.5\\
\mathbf{elif}\;im \le 6.510449215984508 \cdot 10^{-134}:\\
\;\;\;\;\sqrt{2.0 \cdot \left(re \cdot -2\right)} \cdot 0.5\\
\mathbf{elif}\;im \le 1.1476303183370092 \cdot 10^{+117}:\\
\;\;\;\;\sqrt{2.0 \cdot \left(\sqrt{\sqrt{im \cdot im + re \cdot re}} \cdot \sqrt{\sqrt{im \cdot im + re \cdot re}} - re\right)} \cdot 0.5\\
\mathbf{else}:\\
\;\;\;\;0.5 \cdot \sqrt{2.0 \cdot \left(im - re\right)}\\
\end{array}double f(double re, double im) {
double r1027018 = 0.5;
double r1027019 = 2.0;
double r1027020 = re;
double r1027021 = r1027020 * r1027020;
double r1027022 = im;
double r1027023 = r1027022 * r1027022;
double r1027024 = r1027021 + r1027023;
double r1027025 = sqrt(r1027024);
double r1027026 = r1027025 - r1027020;
double r1027027 = r1027019 * r1027026;
double r1027028 = sqrt(r1027027);
double r1027029 = r1027018 * r1027028;
return r1027029;
}
double f(double re, double im) {
double r1027030 = im;
double r1027031 = -3.6111760266152055e-08;
bool r1027032 = r1027030 <= r1027031;
double r1027033 = 0.5;
double r1027034 = re;
double r1027035 = r1027034 + r1027030;
double r1027036 = 2.0;
double r1027037 = r1027035 * r1027036;
double r1027038 = -r1027037;
double r1027039 = sqrt(r1027038);
double r1027040 = r1027033 * r1027039;
double r1027041 = -2.9634639532950256e-188;
bool r1027042 = r1027030 <= r1027041;
double r1027043 = r1027030 * r1027030;
double r1027044 = r1027034 * r1027034;
double r1027045 = r1027043 + r1027044;
double r1027046 = sqrt(r1027045);
double r1027047 = r1027046 + r1027034;
double r1027048 = r1027030 / r1027047;
double r1027049 = r1027030 * r1027048;
double r1027050 = r1027036 * r1027049;
double r1027051 = sqrt(r1027050);
double r1027052 = r1027051 * r1027033;
double r1027053 = 6.510449215984508e-134;
bool r1027054 = r1027030 <= r1027053;
double r1027055 = -2.0;
double r1027056 = r1027034 * r1027055;
double r1027057 = r1027036 * r1027056;
double r1027058 = sqrt(r1027057);
double r1027059 = r1027058 * r1027033;
double r1027060 = 1.1476303183370092e+117;
bool r1027061 = r1027030 <= r1027060;
double r1027062 = sqrt(r1027046);
double r1027063 = r1027062 * r1027062;
double r1027064 = r1027063 - r1027034;
double r1027065 = r1027036 * r1027064;
double r1027066 = sqrt(r1027065);
double r1027067 = r1027066 * r1027033;
double r1027068 = r1027030 - r1027034;
double r1027069 = r1027036 * r1027068;
double r1027070 = sqrt(r1027069);
double r1027071 = r1027033 * r1027070;
double r1027072 = r1027061 ? r1027067 : r1027071;
double r1027073 = r1027054 ? r1027059 : r1027072;
double r1027074 = r1027042 ? r1027052 : r1027073;
double r1027075 = r1027032 ? r1027040 : r1027074;
return r1027075;
}



Bits error versus re



Bits error versus im
Results
if im < -3.6111760266152055e-08Initial program 40.1
rmApplied add-sqr-sqrt40.1
Applied sqrt-prod40.2
rmApplied flip--42.1
Simplified40.9
Simplified40.9
Taylor expanded around -inf 14.4
if -3.6111760266152055e-08 < im < -2.9634639532950256e-188Initial program 29.8
rmApplied add-sqr-sqrt29.8
Applied sqrt-prod29.9
rmApplied flip--40.4
Simplified31.9
Simplified31.9
rmApplied *-un-lft-identity31.9
Applied times-frac30.8
Simplified30.8
if -2.9634639532950256e-188 < im < 6.510449215984508e-134Initial program 42.2
Taylor expanded around -inf 35.1
if 6.510449215984508e-134 < im < 1.1476303183370092e+117Initial program 22.8
rmApplied add-sqr-sqrt22.8
Applied sqrt-prod22.9
if 1.1476303183370092e+117 < im Initial program 52.5
Taylor expanded around 0 9.1
Final simplification22.6
herbie shell --seed 2019163
(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)))))