\sqrt{re \cdot re + im \cdot im}\begin{array}{l}
\mathbf{if}\;re \le -1.505752205836537605611230467447200313868 \cdot 10^{136}:\\
\;\;\;\;-1 \cdot re\\
\mathbf{elif}\;re \le -3.200563398436491693418328268892598073539 \cdot 10^{-257}:\\
\;\;\;\;\sqrt{re \cdot re + im \cdot im}\\
\mathbf{elif}\;re \le 3.819778680555784511216531232393990012128 \cdot 10^{-227}:\\
\;\;\;\;im\\
\mathbf{elif}\;re \le 8.439330033545885045213726212950052594665 \cdot 10^{67}:\\
\;\;\;\;\sqrt{re \cdot re + im \cdot im}\\
\mathbf{else}:\\
\;\;\;\;re\\
\end{array}double f(double re, double im) {
double r113804 = re;
double r113805 = r113804 * r113804;
double r113806 = im;
double r113807 = r113806 * r113806;
double r113808 = r113805 + r113807;
double r113809 = sqrt(r113808);
return r113809;
}
double f(double re, double im) {
double r113810 = re;
double r113811 = -1.5057522058365376e+136;
bool r113812 = r113810 <= r113811;
double r113813 = -1.0;
double r113814 = r113813 * r113810;
double r113815 = -3.2005633984364917e-257;
bool r113816 = r113810 <= r113815;
double r113817 = r113810 * r113810;
double r113818 = im;
double r113819 = r113818 * r113818;
double r113820 = r113817 + r113819;
double r113821 = sqrt(r113820);
double r113822 = 3.8197786805557845e-227;
bool r113823 = r113810 <= r113822;
double r113824 = 8.439330033545885e+67;
bool r113825 = r113810 <= r113824;
double r113826 = r113825 ? r113821 : r113810;
double r113827 = r113823 ? r113818 : r113826;
double r113828 = r113816 ? r113821 : r113827;
double r113829 = r113812 ? r113814 : r113828;
return r113829;
}



Bits error versus re



Bits error versus im
Results
if re < -1.5057522058365376e+136Initial program 58.9
Taylor expanded around -inf 9.2
if -1.5057522058365376e+136 < re < -3.2005633984364917e-257 or 3.8197786805557845e-227 < re < 8.439330033545885e+67Initial program 18.7
if -3.2005633984364917e-257 < re < 3.8197786805557845e-227Initial program 30.2
Taylor expanded around 0 32.1
if 8.439330033545885e+67 < re Initial program 46.7
Taylor expanded around inf 12.0
Final simplification17.5
herbie shell --seed 2020001
(FPCore (re im)
:name "math.abs on complex"
:precision binary64
(sqrt (+ (* re re) (* im im))))