\sqrt{re \cdot re + im \cdot im}\begin{array}{l}
\mathbf{if}\;re \le -1.156407601863717509012505141513837828653 \cdot 10^{112}:\\
\;\;\;\;-re\\
\mathbf{elif}\;re \le 1.359515531952330295686549505956711156315 \cdot 10^{138}:\\
\;\;\;\;\sqrt{re \cdot re + im \cdot im}\\
\mathbf{else}:\\
\;\;\;\;re\\
\end{array}double f(double re, double im) {
double r28078 = re;
double r28079 = r28078 * r28078;
double r28080 = im;
double r28081 = r28080 * r28080;
double r28082 = r28079 + r28081;
double r28083 = sqrt(r28082);
return r28083;
}
double f(double re, double im) {
double r28084 = re;
double r28085 = -1.1564076018637175e+112;
bool r28086 = r28084 <= r28085;
double r28087 = -r28084;
double r28088 = 1.3595155319523303e+138;
bool r28089 = r28084 <= r28088;
double r28090 = r28084 * r28084;
double r28091 = im;
double r28092 = r28091 * r28091;
double r28093 = r28090 + r28092;
double r28094 = sqrt(r28093);
double r28095 = r28089 ? r28094 : r28084;
double r28096 = r28086 ? r28087 : r28095;
return r28096;
}



Bits error versus re



Bits error versus im
Results
if re < -1.1564076018637175e+112Initial program 52.8
Taylor expanded around -inf 9.6
Simplified9.6
if -1.1564076018637175e+112 < re < 1.3595155319523303e+138Initial program 21.4
if 1.3595155319523303e+138 < re Initial program 58.8
Taylor expanded around inf 9.0
Final simplification17.8
herbie shell --seed 2019323
(FPCore (re im)
:name "math.abs on complex"
:precision binary64
(sqrt (+ (* re re) (* im im))))