0.5 \cdot \sqrt{2 \cdot \left(\sqrt{re \cdot re + im \cdot im} + re\right)}\begin{array}{l}
\mathbf{if}\;re \leq -8.962122735460895 \cdot 10^{+136}:\\
\;\;\;\;0.5 \cdot \left(\frac{1}{\sqrt{re \cdot -2}} \cdot \left(\left|im\right| \cdot \sqrt{2}\right)\right)\\
\mathbf{elif}\;re \leq 4.071140785912515 \cdot 10^{-303}:\\
\;\;\;\;0.5 \cdot \frac{\sqrt{2}}{\frac{\sqrt{\sqrt{re \cdot re + im \cdot im} - re}}{\left|im\right|}}\\
\mathbf{elif}\;re \leq 3.963621779117234 \cdot 10^{-220}:\\
\;\;\;\;0.5 \cdot \sqrt{2 \cdot \left(re + \left(im + 0.5 \cdot \frac{re \cdot re}{im}\right)\right)}\\
\mathbf{elif}\;re \leq 3.4795012242168694 \cdot 10^{-174}:\\
\;\;\;\;0.5 \cdot \sqrt{2 \cdot \left(re + \left(\frac{re \cdot re}{im} \cdot -0.5 - im\right)\right)}\\
\mathbf{elif}\;re \leq 5.743696651812785 \cdot 10^{+111}:\\
\;\;\;\;0.5 \cdot \sqrt{2 \cdot \left(re + \sqrt{re \cdot re + im \cdot im}\right)}\\
\mathbf{else}:\\
\;\;\;\;0.5 \cdot \left(2 \cdot \sqrt{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 -8.962122735460895e+136)
(* 0.5 (* (/ 1.0 (sqrt (* re -2.0))) (* (fabs im) (sqrt 2.0))))
(if (<= re 4.071140785912515e-303)
(*
0.5
(/
(sqrt 2.0)
(/ (sqrt (- (sqrt (+ (* re re) (* im im))) re)) (fabs im))))
(if (<= re 3.963621779117234e-220)
(* 0.5 (sqrt (* 2.0 (+ re (+ im (* 0.5 (/ (* re re) im)))))))
(if (<= re 3.4795012242168694e-174)
(* 0.5 (sqrt (* 2.0 (+ re (- (* (/ (* re re) im) -0.5) im)))))
(if (<= re 5.743696651812785e+111)
(* 0.5 (sqrt (* 2.0 (+ re (sqrt (+ (* re re) (* im im)))))))
(* 0.5 (* 2.0 (sqrt 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 <= -8.962122735460895e+136) {
tmp = 0.5 * ((1.0 / sqrt(re * -2.0)) * (fabs(im) * sqrt(2.0)));
} else if (re <= 4.071140785912515e-303) {
tmp = 0.5 * (sqrt(2.0) / (sqrt(sqrt((re * re) + (im * im)) - re) / fabs(im)));
} else if (re <= 3.963621779117234e-220) {
tmp = 0.5 * sqrt(2.0 * (re + (im + (0.5 * ((re * re) / im)))));
} else if (re <= 3.4795012242168694e-174) {
tmp = 0.5 * sqrt(2.0 * (re + ((((re * re) / im) * -0.5) - im)));
} else if (re <= 5.743696651812785e+111) {
tmp = 0.5 * sqrt(2.0 * (re + sqrt((re * re) + (im * im))));
} else {
tmp = 0.5 * (2.0 * sqrt(re));
}
return tmp;
}




Bits error versus re




Bits error versus im
Results
| Original | 38.7 |
|---|---|
| Target | 33.3 |
| Herbie | 17.3 |
if re < -8.96212273546089458e136Initial program 63.0
rmApplied flip-+_binary64_209863.0
Applied associate-*r/_binary64_206663.0
Applied sqrt-div_binary64_214163.0
Simplified47.7
rmApplied sqrt-prod_binary64_214047.7
Applied associate-/l*_binary64_206947.7
Simplified46.3
rmApplied div-inv_binary64_212146.3
Applied *-un-lft-identity_binary64_212446.3
Applied sqrt-prod_binary64_214046.3
Applied times-frac_binary64_213046.1
Simplified46.1
Simplified46.1
Taylor expanded around -inf 9.0
Simplified9.0
if -8.96212273546089458e136 < re < 4.07114078591251498e-303Initial program 39.9
rmApplied flip-+_binary64_209839.7
Applied associate-*r/_binary64_206639.7
Applied sqrt-div_binary64_214139.8
Simplified29.9
rmApplied sqrt-prod_binary64_214030.0
Applied associate-/l*_binary64_206930.0
Simplified20.5
if 4.07114078591251498e-303 < re < 3.96362177911723373e-220Initial program 29.1
Taylor expanded around 0 33.6
Simplified33.6
if 3.96362177911723373e-220 < re < 3.47950122421686942e-174Initial program 25.6
Taylor expanded around -inf 34.0
Simplified34.0
if 3.47950122421686942e-174 < re < 5.74369665181278522e111Initial program 16.2
if 5.74369665181278522e111 < re Initial program 54.3
Taylor expanded around 0 9.8
Simplified8.7
Final simplification17.3
herbie shell --seed 2021045
(FPCore (re im)
:name "math.sqrt on complex, real part"
:precision binary64
:herbie-target
(if (< re 0.0) (* 0.5 (* (sqrt 2.0) (sqrt (/ (* im im) (- (sqrt (+ (* re re) (* im im))) re))))) (* 0.5 (sqrt (* 2.0 (+ (sqrt (+ (* re re) (* im im))) re)))))
(* 0.5 (sqrt (* 2.0 (+ (sqrt (+ (* re re) (* im im))) re)))))