0.5 \cdot \sqrt{2 \cdot \left(\sqrt{re \cdot re + im \cdot im} + re\right)}\begin{array}{l}
\mathbf{if}\;re \leq -1.306963558091192 \cdot 10^{+18}:\\
\;\;\;\;0.5 \cdot \frac{\left|im\right| \cdot \sqrt{2}}{\sqrt{re \cdot -2}}\\
\mathbf{elif}\;re \leq 1.0928277540347782 \cdot 10^{-101}:\\
\;\;\;\;0.5 \cdot \left(\left(\left|im\right| \cdot \sqrt{2}\right) \cdot \frac{1}{\sqrt{\sqrt{re \cdot re + im \cdot im} - 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 -1.306963558091192e+18)
(* 0.5 (/ (* (fabs im) (sqrt 2.0)) (sqrt (* re -2.0))))
(if (<= re 1.0928277540347782e-101)
(*
0.5
(*
(* (fabs im) (sqrt 2.0))
(/ 1.0 (sqrt (- (sqrt (+ (* re re) (* im im))) re)))))
(* 0.5 (sqrt (* 2.0 (+ re re)))))))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 tmp;
if ((re <= -1.306963558091192e+18)) {
tmp = ((double) (0.5 * (((double) (((double) fabs(im)) * ((double) sqrt(2.0)))) / ((double) sqrt(((double) (re * -2.0)))))));
} else {
double tmp_1;
if ((re <= 1.0928277540347782e-101)) {
tmp_1 = ((double) (0.5 * ((double) (((double) (((double) fabs(im)) * ((double) sqrt(2.0)))) * (1.0 / ((double) sqrt(((double) (((double) sqrt(((double) (((double) (re * re)) + ((double) (im * im)))))) - re)))))))));
} else {
tmp_1 = ((double) (0.5 * ((double) sqrt(((double) (2.0 * ((double) (re + re))))))));
}
tmp = tmp_1;
}
return tmp;
}




Bits error versus re




Bits error versus im
Results
| Original | 37.7 |
|---|---|
| Target | 32.9 |
| Herbie | 20.9 |
if re < -1306963558091192060Initial program Error: 57.7 bits
rmApplied flip-+Error: 57.7 bits
Applied associate-*r/Error: 57.8 bits
Applied sqrt-divError: 57.8 bits
SimplifiedError: 40.1 bits
rmApplied sqrt-prodError: 40.1 bits
SimplifiedError: 34.8 bits
Taylor expanded around -inf Error: 14.8 bits
SimplifiedError: 14.8 bits
if -1306963558091192060 < re < 1.09282775403477823e-101Initial program Error: 30.2 bits
rmApplied flip-+Error: 32.2 bits
Applied associate-*r/Error: 32.2 bits
Applied sqrt-divError: 32.6 bits
SimplifiedError: 30.2 bits
rmApplied sqrt-prodError: 30.2 bits
SimplifiedError: 24.4 bits
rmApplied div-invError: 24.4 bits
if 1.09282775403477823e-101 < re Initial program Error: 33.6 bits
Taylor expanded around inf Error: 20.5 bits
Final simplificationError: 20.9 bits
herbie shell --seed 2020203
(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)))))