0.5 \cdot \sqrt{2 \cdot \left(\sqrt{re \cdot re + im \cdot im} + re\right)}\begin{array}{l}
\mathbf{if}\;im \leq -1.075185445654715 \cdot 10^{+60}:\\
\;\;\;\;0.5 \cdot \left(\sqrt{2} \cdot \sqrt{re - im}\right)\\
\mathbf{elif}\;im \leq -3.0777245164695623 \cdot 10^{-229}:\\
\;\;\;\;\frac{im \cdot \sqrt{2}}{\sqrt{\sqrt{re \cdot re + im \cdot im} - re}} \cdot -0.5\\
\mathbf{elif}\;im \leq -5.870836699619269 \cdot 10^{-285}:\\
\;\;\;\;0.5 \cdot \left(2 \cdot \sqrt{re}\right)\\
\mathbf{elif}\;im \leq -5.766888255040992 \cdot 10^{-307}:\\
\;\;\;\;\frac{im \cdot \sqrt{2}}{\sqrt{\sqrt{re \cdot re + im \cdot im} - re}} \cdot -0.5\\
\mathbf{elif}\;im \leq 3.064655107843604 \cdot 10^{-303}:\\
\;\;\;\;0.5 \cdot \left(2 \cdot \sqrt{re}\right)\\
\mathbf{elif}\;im \leq 5.487010744950657 \cdot 10^{-42}:\\
\;\;\;\;0.5 \cdot \left(\sqrt{2} \cdot \frac{im}{\sqrt{\sqrt{re \cdot re + im \cdot im} - re}}\right)\\
\mathbf{elif}\;im \leq 1342268020.8883793:\\
\;\;\;\;0.5 \cdot \left(2 \cdot \sqrt{re}\right)\\
\mathbf{else}:\\
\;\;\;\;0.5 \cdot \sqrt{2 \cdot \left(im + 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 (<= im -1.075185445654715e+60)
(* 0.5 (* (sqrt 2.0) (sqrt (- re im))))
(if (<= im -3.0777245164695623e-229)
(*
(/ (* im (sqrt 2.0)) (sqrt (- (sqrt (+ (* re re) (* im im))) re)))
-0.5)
(if (<= im -5.870836699619269e-285)
(* 0.5 (* 2.0 (sqrt re)))
(if (<= im -5.766888255040992e-307)
(*
(/ (* im (sqrt 2.0)) (sqrt (- (sqrt (+ (* re re) (* im im))) re)))
-0.5)
(if (<= im 3.064655107843604e-303)
(* 0.5 (* 2.0 (sqrt re)))
(if (<= im 5.487010744950657e-42)
(*
0.5
(*
(sqrt 2.0)
(/ im (sqrt (- (sqrt (+ (* re re) (* im im))) re)))))
(if (<= im 1342268020.8883793)
(* 0.5 (* 2.0 (sqrt re)))
(* 0.5 (sqrt (* 2.0 (+ im 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 (im <= -1.075185445654715e+60) {
tmp = 0.5 * (sqrt(2.0) * sqrt(re - im));
} else if (im <= -3.0777245164695623e-229) {
tmp = ((im * sqrt(2.0)) / sqrt(sqrt((re * re) + (im * im)) - re)) * -0.5;
} else if (im <= -5.870836699619269e-285) {
tmp = 0.5 * (2.0 * sqrt(re));
} else if (im <= -5.766888255040992e-307) {
tmp = ((im * sqrt(2.0)) / sqrt(sqrt((re * re) + (im * im)) - re)) * -0.5;
} else if (im <= 3.064655107843604e-303) {
tmp = 0.5 * (2.0 * sqrt(re));
} else if (im <= 5.487010744950657e-42) {
tmp = 0.5 * (sqrt(2.0) * (im / sqrt(sqrt((re * re) + (im * im)) - re)));
} else if (im <= 1342268020.8883793) {
tmp = 0.5 * (2.0 * sqrt(re));
} else {
tmp = 0.5 * sqrt(2.0 * (im + re));
}
return tmp;
}




Bits error versus re




Bits error versus im
Results
| Original | 38.1 |
|---|---|
| Target | 33.3 |
| Herbie | 24.4 |
if im < -1.07518544565471504e60Initial program 47.9
Taylor expanded around -inf 11.8
Simplified11.8
rmApplied sqrt-prod_binary6412.1
if -1.07518544565471504e60 < im < -3.0777245164695623e-229 or -5.8708366996192692e-285 < im < -5.76688825504099228e-307Initial program 29.8
rmApplied flip-+_binary6442.4
Applied associate-*r/_binary6442.4
Applied sqrt-div_binary6442.6
Simplified34.3
Taylor expanded around -inf 30.1
if -3.0777245164695623e-229 < im < -5.8708366996192692e-285 or -5.76688825504099228e-307 < im < 3.06465510784360385e-303 or 5.48701074495065683e-42 < im < 1342268020.88837934Initial program 32.8
Taylor expanded around 0 40.7
Simplified40.3
if 3.06465510784360385e-303 < im < 5.48701074495065683e-42Initial program 36.6
rmApplied flip-+_binary6451.2
Applied associate-*r/_binary6451.2
Applied sqrt-div_binary6451.4
Simplified42.1
rmApplied *-un-lft-identity_binary6442.1
Applied sqrt-prod_binary6442.1
Applied sqrt-prod_binary6442.2
Applied times-frac_binary6442.2
Simplified42.2
Simplified34.3
if 1342268020.88837934 < im Initial program 41.8
Taylor expanded around 0 13.8
Final simplification24.4
herbie shell --seed 2021175
(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)))))