0.5 \cdot \sqrt{2 \cdot \left(\sqrt{re \cdot re + im \cdot im} - re\right)}\begin{array}{l}
\mathbf{if}\;re \leq -7.455275584273787 \cdot 10^{+124}:\\
\;\;\;\;0.5 \cdot \sqrt{2 \cdot \left(re \cdot -2\right)}\\
\mathbf{elif}\;re \leq -3.938317007893133 \cdot 10^{-56}:\\
\;\;\;\;0.5 \cdot \sqrt{2 \cdot \left(\sqrt{re \cdot re + im \cdot im} - re\right)}\\
\mathbf{elif}\;re \leq 2.893530321473067 \cdot 10^{-80}:\\
\;\;\;\;0.5 \cdot \sqrt{2 \cdot \left(im - re\right)}\\
\mathbf{elif}\;re \leq 9454781094521.861:\\
\;\;\;\;0.5 \cdot \frac{\sqrt{2 \cdot \left(im \cdot im\right)}}{\sqrt{re + \sqrt{re \cdot re + im \cdot im}}}\\
\mathbf{elif}\;re \leq 6.41289896059484 \cdot 10^{+34}:\\
\;\;\;\;0.5 \cdot \sqrt{2 \cdot im}\\
\mathbf{else}:\\
\;\;\;\;0.5 \cdot \left(\left(\sqrt{0.5} \cdot \left(im \cdot \sqrt{2}\right)\right) \cdot \sqrt{\frac{1}{re}}\right)\\
\end{array}(FPCore (re im) :precision binary64 (* 0.5 (sqrt (* 2.0 (- (sqrt (+ (* re re) (* im im))) re)))))
(FPCore (re im)
:precision binary64
(if (<= re -7.455275584273787e+124)
(* 0.5 (sqrt (* 2.0 (* re -2.0))))
(if (<= re -3.938317007893133e-56)
(* 0.5 (sqrt (* 2.0 (- (sqrt (+ (* re re) (* im im))) re))))
(if (<= re 2.893530321473067e-80)
(* 0.5 (sqrt (* 2.0 (- im re))))
(if (<= re 9454781094521.861)
(*
0.5
(/
(sqrt (* 2.0 (* im im)))
(sqrt (+ re (sqrt (+ (* re re) (* im im)))))))
(if (<= re 6.41289896059484e+34)
(* 0.5 (sqrt (* 2.0 im)))
(* 0.5 (* (* (sqrt 0.5) (* im (sqrt 2.0))) (sqrt (/ 1.0 re))))))))))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 tmp;
if (re <= -7.455275584273787e+124) {
tmp = 0.5 * sqrt(2.0 * (re * -2.0));
} else if (re <= -3.938317007893133e-56) {
tmp = 0.5 * sqrt(2.0 * (sqrt((re * re) + (im * im)) - re));
} else if (re <= 2.893530321473067e-80) {
tmp = 0.5 * sqrt(2.0 * (im - re));
} else if (re <= 9454781094521.861) {
tmp = 0.5 * (sqrt(2.0 * (im * im)) / sqrt(re + sqrt((re * re) + (im * im))));
} else if (re <= 6.41289896059484e+34) {
tmp = 0.5 * sqrt(2.0 * im);
} else {
tmp = 0.5 * ((sqrt(0.5) * (im * sqrt(2.0))) * sqrt(1.0 / re));
}
return tmp;
}



Bits error versus re



Bits error versus im
Results
if re < -7.4552755842737874e124Initial program 56.5
Taylor expanded around -inf 9.5
if -7.4552755842737874e124 < re < -3.9383170078931331e-56Initial program 16.4
if -3.9383170078931331e-56 < re < 2.893530321473067e-80Initial program 28.6
Taylor expanded around 0 11.1
if 2.893530321473067e-80 < re < 9454781094521.86133Initial program 40.9
rmApplied flip--_binary6440.9
Applied associate-*r/_binary6440.9
Applied sqrt-div_binary6441.0
Simplified28.4
Simplified28.4
if 9454781094521.86133 < re < 6.41289896059484017e34Initial program 47.5
Taylor expanded around 0 30.5
Simplified30.5
Taylor expanded around 0 30.3
Simplified30.3
rmApplied sqrt-unprod_binary6430.0
Simplified30.0
if 6.41289896059484017e34 < re Initial program 58.5
Taylor expanded around 0 13.6
Final simplification13.7
herbie shell --seed 2021174
(FPCore (re im)
:name "math.sqrt on complex, imaginary part, im greater than 0 branch"
:precision binary64
:pre (> im 0.0)
(* 0.5 (sqrt (* 2.0 (- (sqrt (+ (* re re) (* im im))) re)))))