0.5 \cdot \sqrt{2 \cdot \left(\sqrt{re \cdot re + im \cdot im} + re\right)}\begin{array}{l}
\mathbf{if}\;re \leq -4.015762233969269 \cdot 10^{+118}:\\
\;\;\;\;0.5 \cdot \sqrt{2 \cdot \frac{im}{\frac{re \cdot -2}{im}}}\\
\mathbf{elif}\;re \leq -1.6035883200910468 \cdot 10^{-206}:\\
\;\;\;\;0.5 \cdot \frac{\sqrt{2 \cdot \left(im \cdot im\right)}}{\sqrt{\sqrt{im \cdot im + re \cdot re} - re}}\\
\mathbf{elif}\;re \leq 8.017246655510101 \cdot 10^{-171}:\\
\;\;\;\;0.5 \cdot \sqrt{2 \cdot \frac{im}{\frac{im - re}{im}}}\\
\mathbf{elif}\;re \leq 1.4701524095992479 \cdot 10^{+57}:\\
\;\;\;\;0.5 \cdot \sqrt{2 \cdot \left(re + \sqrt{im \cdot im + re \cdot re}\right)}\\
\mathbf{else}:\\
\;\;\;\;0.5 \cdot \sqrt{2 \cdot \left(re + 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 -4.015762233969269e+118)
(* 0.5 (sqrt (* 2.0 (/ im (/ (* re -2.0) im)))))
(if (<= re -1.6035883200910468e-206)
(*
0.5
(/
(sqrt (* 2.0 (* im im)))
(sqrt (- (sqrt (+ (* im im) (* re re))) re))))
(if (<= re 8.017246655510101e-171)
(* 0.5 (sqrt (* 2.0 (/ im (/ (- im re) im)))))
(if (<= re 1.4701524095992479e+57)
(* 0.5 (sqrt (* 2.0 (+ re (sqrt (+ (* im im) (* re re)))))))
(* 0.5 (sqrt (* 2.0 (+ re 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 <= -4.015762233969269e+118) {
tmp = 0.5 * sqrt(2.0 * (im / ((re * -2.0) / im)));
} else if (re <= -1.6035883200910468e-206) {
tmp = 0.5 * (sqrt(2.0 * (im * im)) / sqrt(sqrt((im * im) + (re * re)) - re));
} else if (re <= 8.017246655510101e-171) {
tmp = 0.5 * sqrt(2.0 * (im / ((im - re) / im)));
} else if (re <= 1.4701524095992479e+57) {
tmp = 0.5 * sqrt(2.0 * (re + sqrt((im * im) + (re * re))));
} else {
tmp = 0.5 * sqrt(2.0 * (re + re));
}
return tmp;
}




Bits error versus re




Bits error versus im
Results
| Original | 38.9 |
|---|---|
| Target | 33.9 |
| Herbie | 23.7 |
if re < -4.0157622339692688e118Initial program 61.8
rmApplied flip-+_binary6461.8
Simplified46.8
rmApplied associate-/l*_binary6446.4
Taylor expanded around -inf 24.4
Simplified24.4
if -4.0157622339692688e118 < re < -1.60358832009104682e-206Initial program 41.8
rmApplied flip-+_binary6441.7
Simplified31.2
rmApplied associate-*r/_binary6431.2
Applied sqrt-div_binary6430.2
Simplified30.2
if -1.60358832009104682e-206 < re < 8.0172466555101013e-171Initial program 30.0
rmApplied flip-+_binary6430.7
Simplified30.7
rmApplied associate-/l*_binary6430.1
Taylor expanded around 0 33.0
if 8.0172466555101013e-171 < re < 1.4701524095992479e57Initial program 17.1
if 1.4701524095992479e57 < re Initial program 46.7
Taylor expanded around inf 12.2
Final simplification23.7
herbie shell --seed 2020273
(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)))))