0.5 \cdot \sqrt{2 \cdot \left(\sqrt{re \cdot re + im \cdot im} - re\right)}\begin{array}{l}
\mathbf{if}\;re \le 3.3156631937848607 \cdot 10^{67} \lor \neg \left(re \le 1.1383524170048822 \cdot 10^{124} \lor \neg \left(re \le 9.11944020096991939 \cdot 10^{157}\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 ((double) (0.5 * ((double) sqrt(((double) (2.0 * ((double) (((double) sqrt(((double) (((double) (re * re)) + ((double) (im * im)))))) - re))))))));
}
double code(double re, double im) {
double VAR;
if (((re <= 3.315663193784861e+67) || !((re <= 1.1383524170048822e+124) || !(re <= 9.11944020096992e+157)))) {
VAR = ((double) (0.5 * ((double) sqrt(((double) (2.0 * ((double) (((double) hypot(re, im)) - re))))))));
} else {
VAR = ((double) (0.5 * ((double) sqrt(((double) (2.0 * ((double) (((double) (((double) pow(im, 2.0)) + 0.0)) / ((double) (re + ((double) hypot(re, im))))))))))));
}
return VAR;
}



Bits error versus re



Bits error versus im
Results
if re < 3.315663193784861e+67 or 1.1383524170048822e+124 < re < 9.11944020096992e+157Initial program 33.9
rmApplied hypot-def7.9
if 3.315663193784861e+67 < re < 1.1383524170048822e+124 or 9.11944020096992e+157 < re Initial program 60.5
rmApplied flip--60.5
Simplified44.5
Simplified30.4
Final simplification11.7
herbie shell --seed 2020114 +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)))))