0.5 \cdot \sqrt{2 \cdot \left(\sqrt{re \cdot re + im \cdot im} - re\right)}\begin{array}{l}
\mathbf{if}\;re \le 566239061056037190000 \lor \neg \left(re \le 2.5184872634381228 \cdot 10^{80} \lor \neg \left(re \le 2.2835215283316402 \cdot 10^{148}\right)\right):\\
\;\;\;\;0.5 \cdot \sqrt{2 \cdot \left(\mathsf{hypot}\left(re, im\right) - re\right)}\\
\mathbf{else}:\\
\;\;\;\;0.5 \cdot \sqrt{2 \cdot \frac{{im}^{2} + 0}{re + \mathsf{hypot}\left(re, im\right)}}\\
\end{array}double code(double re, double im) {
return (0.5 * sqrt((2.0 * (sqrt(((re * re) + (im * im))) - re))));
}
double code(double re, double im) {
double VAR;
if (((re <= 5.662390610560372e+20) || !((re <= 2.518487263438123e+80) || !(re <= 2.2835215283316402e+148)))) {
VAR = (0.5 * sqrt((2.0 * (hypot(re, im) - re))));
} else {
VAR = (0.5 * sqrt((2.0 * ((pow(im, 2.0) + 0.0) / (re + hypot(re, im))))));
}
return VAR;
}



Bits error versus re



Bits error versus im
Results
if re < 5.662390610560372e+20 or 2.518487263438123e+80 < re < 2.2835215283316402e+148Initial program 34.3
rmApplied hypot-def7.8
if 5.662390610560372e+20 < re < 2.518487263438123e+80 or 2.2835215283316402e+148 < re Initial program 60.1
rmApplied flip--60.1
Simplified45.4
Simplified31.6
Final simplification12.0
herbie shell --seed 2020078 +o rules:numerics
(FPCore (re im)
:name "math.sqrt on complex, imaginary part, im greater than 0 branch"
:precision binary64
(* 0.5 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))))