0.5 \cdot \sqrt{2.0 \cdot \left(\sqrt{re \cdot re + im \cdot im} + re\right)}\begin{array}{l}
\mathbf{if}\;re \le -2.709153750764979 \cdot 10^{-176}:\\
\;\;\;\;0.5 \cdot \sqrt{\frac{im \cdot im}{\sqrt{re \cdot re + im \cdot im} - re} \cdot 2.0}\\
\mathbf{elif}\;re \le 2.539134336777917 \cdot 10^{-238}:\\
\;\;\;\;0.5 \cdot \sqrt{2.0 \cdot \left(im + re\right)}\\
\mathbf{elif}\;re \le 7.000752032910662 \cdot 10^{+122}:\\
\;\;\;\;0.5 \cdot \sqrt{\left(re + \sqrt{\sqrt{\sqrt{re \cdot re + im \cdot im}}} \cdot \left(\sqrt{\sqrt{\sqrt{re \cdot re + im \cdot im}}} \cdot \sqrt{\sqrt{re \cdot re + im \cdot im}}\right)\right) \cdot 2.0}\\
\mathbf{else}:\\
\;\;\;\;0.5 \cdot \sqrt{2.0 \cdot \left(re + re\right)}\\
\end{array}double f(double re, double im) {
double r2784579 = 0.5;
double r2784580 = 2.0;
double r2784581 = re;
double r2784582 = r2784581 * r2784581;
double r2784583 = im;
double r2784584 = r2784583 * r2784583;
double r2784585 = r2784582 + r2784584;
double r2784586 = sqrt(r2784585);
double r2784587 = r2784586 + r2784581;
double r2784588 = r2784580 * r2784587;
double r2784589 = sqrt(r2784588);
double r2784590 = r2784579 * r2784589;
return r2784590;
}
double f(double re, double im) {
double r2784591 = re;
double r2784592 = -2.709153750764979e-176;
bool r2784593 = r2784591 <= r2784592;
double r2784594 = 0.5;
double r2784595 = im;
double r2784596 = r2784595 * r2784595;
double r2784597 = r2784591 * r2784591;
double r2784598 = r2784597 + r2784596;
double r2784599 = sqrt(r2784598);
double r2784600 = r2784599 - r2784591;
double r2784601 = r2784596 / r2784600;
double r2784602 = 2.0;
double r2784603 = r2784601 * r2784602;
double r2784604 = sqrt(r2784603);
double r2784605 = r2784594 * r2784604;
double r2784606 = 2.539134336777917e-238;
bool r2784607 = r2784591 <= r2784606;
double r2784608 = r2784595 + r2784591;
double r2784609 = r2784602 * r2784608;
double r2784610 = sqrt(r2784609);
double r2784611 = r2784594 * r2784610;
double r2784612 = 7.000752032910662e+122;
bool r2784613 = r2784591 <= r2784612;
double r2784614 = sqrt(r2784599);
double r2784615 = sqrt(r2784614);
double r2784616 = r2784615 * r2784614;
double r2784617 = r2784615 * r2784616;
double r2784618 = r2784591 + r2784617;
double r2784619 = r2784618 * r2784602;
double r2784620 = sqrt(r2784619);
double r2784621 = r2784594 * r2784620;
double r2784622 = r2784591 + r2784591;
double r2784623 = r2784602 * r2784622;
double r2784624 = sqrt(r2784623);
double r2784625 = r2784594 * r2784624;
double r2784626 = r2784613 ? r2784621 : r2784625;
double r2784627 = r2784607 ? r2784611 : r2784626;
double r2784628 = r2784593 ? r2784605 : r2784627;
return r2784628;
}




Bits error versus re




Bits error versus im
Results
| Original | 37.8 |
|---|---|
| Target | 33.0 |
| Herbie | 27.2 |
if re < -2.709153750764979e-176Initial program 49.5
rmApplied flip-+49.5
Simplified37.1
if -2.709153750764979e-176 < re < 2.539134336777917e-238Initial program 29.3
rmApplied add-sqr-sqrt29.3
Applied sqrt-prod29.5
Taylor expanded around 0 33.5
if 2.539134336777917e-238 < re < 7.000752032910662e+122Initial program 19.0
rmApplied add-sqr-sqrt19.0
Applied sqrt-prod19.1
rmApplied add-sqr-sqrt19.1
Applied sqrt-prod19.1
Applied sqrt-prod19.1
Applied associate-*r*19.1
if 7.000752032910662e+122 < re Initial program 52.6
Taylor expanded around inf 9.3
Final simplification27.2
herbie shell --seed 2019146
(FPCore (re im)
:name "math.sqrt on complex, real part"
:herbie-target
(if (< re 0) (* 0.5 (* (sqrt 2) (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)))))