\sqrt{re \cdot re + im \cdot im}\begin{array}{l}
\mathbf{if}\;re \leq -1.6030379465267134 \cdot 10^{+91}:\\
\;\;\;\;-re\\
\mathbf{elif}\;re \leq 1.1847833684373557 \cdot 10^{+118}:\\
\;\;\;\;\sqrt{re \cdot re + im \cdot im}\\
\mathbf{else}:\\
\;\;\;\;re\\
\end{array}double code(double re, double im) {
return ((double) sqrt(((double) (((double) (re * re)) + ((double) (im * im))))));
}
double code(double re, double im) {
double VAR;
if ((re <= -1.6030379465267134e+91)) {
VAR = ((double) -(re));
} else {
double VAR_1;
if ((re <= 1.1847833684373557e+118)) {
VAR_1 = ((double) sqrt(((double) (((double) (re * re)) + ((double) (im * im))))));
} else {
VAR_1 = re;
}
VAR = VAR_1;
}
return VAR;
}



Bits error versus re



Bits error versus im
Results
if re < -1.6030379465267134e91Initial program 51.6
Taylor expanded around -inf 11.2
Simplified11.2
if -1.6030379465267134e91 < re < 1.18478336843735573e118Initial program 21.5
if 1.18478336843735573e118 < re Initial program 55.2
Taylor expanded around inf 9.2
Final simplification17.7
herbie shell --seed 2020199
(FPCore (re im)
:name "math.abs on complex"
:precision binary64
(sqrt (+ (* re re) (* im im))))