\sqrt{re \cdot re + im \cdot im}\begin{array}{l}
\mathbf{if}\;re \le -4.019634613598924703951801238213161238145 \cdot 10^{134}:\\
\;\;\;\;-re\\
\mathbf{elif}\;re \le 1.407306448838225519879757223457047572583 \cdot 10^{108}:\\
\;\;\;\;\sqrt{re \cdot re + im \cdot im}\\
\mathbf{else}:\\
\;\;\;\;re\\
\end{array}double f(double re, double im) {
double r45887 = re;
double r45888 = r45887 * r45887;
double r45889 = im;
double r45890 = r45889 * r45889;
double r45891 = r45888 + r45890;
double r45892 = sqrt(r45891);
return r45892;
}
double f(double re, double im) {
double r45893 = re;
double r45894 = -4.019634613598925e+134;
bool r45895 = r45893 <= r45894;
double r45896 = -r45893;
double r45897 = 1.4073064488382255e+108;
bool r45898 = r45893 <= r45897;
double r45899 = r45893 * r45893;
double r45900 = im;
double r45901 = r45900 * r45900;
double r45902 = r45899 + r45901;
double r45903 = sqrt(r45902);
double r45904 = r45898 ? r45903 : r45893;
double r45905 = r45895 ? r45896 : r45904;
return r45905;
}



Bits error versus re



Bits error versus im
Results
if re < -4.019634613598925e+134Initial program 58.4
Taylor expanded around -inf 8.5
Simplified8.5
if -4.019634613598925e+134 < re < 1.4073064488382255e+108Initial program 21.2
if 1.4073064488382255e+108 < re Initial program 52.1
Taylor expanded around inf 9.5
Final simplification17.5
herbie shell --seed 2019208
(FPCore (re im)
:name "math.abs on complex"
:precision binary64
(sqrt (+ (* re re) (* im im))))