\sqrt{re \cdot re + im \cdot im}\begin{array}{l}
\mathbf{if}\;re \le -5.330091552844717472226479932066920744645 \cdot 10^{114}:\\
\;\;\;\;-re\\
\mathbf{elif}\;re \le -4.215661627499373563855656419004671791113 \cdot 10^{-144}:\\
\;\;\;\;\sqrt{re \cdot re + im \cdot im}\\
\mathbf{elif}\;re \le 1.05978324146926776621503694441833231193 \cdot 10^{-253}:\\
\;\;\;\;im\\
\mathbf{elif}\;re \le 3.012224090936350650107808168583637972217 \cdot 10^{56}:\\
\;\;\;\;\sqrt{re \cdot re + im \cdot im}\\
\mathbf{else}:\\
\;\;\;\;re\\
\end{array}double f(double re, double im) {
double r43199 = re;
double r43200 = r43199 * r43199;
double r43201 = im;
double r43202 = r43201 * r43201;
double r43203 = r43200 + r43202;
double r43204 = sqrt(r43203);
return r43204;
}
double f(double re, double im) {
double r43205 = re;
double r43206 = -5.330091552844717e+114;
bool r43207 = r43205 <= r43206;
double r43208 = -r43205;
double r43209 = -4.2156616274993736e-144;
bool r43210 = r43205 <= r43209;
double r43211 = r43205 * r43205;
double r43212 = im;
double r43213 = r43212 * r43212;
double r43214 = r43211 + r43213;
double r43215 = sqrt(r43214);
double r43216 = 1.0597832414692678e-253;
bool r43217 = r43205 <= r43216;
double r43218 = 3.0122240909363507e+56;
bool r43219 = r43205 <= r43218;
double r43220 = r43219 ? r43215 : r43205;
double r43221 = r43217 ? r43212 : r43220;
double r43222 = r43210 ? r43215 : r43221;
double r43223 = r43207 ? r43208 : r43222;
return r43223;
}



Bits error versus re



Bits error versus im
Results
if re < -5.330091552844717e+114Initial program 54.3
Taylor expanded around -inf 8.7
Simplified8.7
if -5.330091552844717e+114 < re < -4.2156616274993736e-144 or 1.0597832414692678e-253 < re < 3.0122240909363507e+56Initial program 18.7
if -4.2156616274993736e-144 < re < 1.0597832414692678e-253Initial program 30.2
Taylor expanded around 0 35.6
if 3.0122240909363507e+56 < re Initial program 44.3
Taylor expanded around inf 12.9
Final simplification19.0
herbie shell --seed 2019325
(FPCore (re im)
:name "math.abs on complex"
:precision binary64
(sqrt (+ (* re re) (* im im))))