0.5 \cdot \sqrt{2.0 \cdot \left(\sqrt{re \cdot re + im \cdot im} + re\right)}\begin{array}{l}
\mathbf{if}\;re \le -6.084312799804569 \cdot 10^{+102}:\\
\;\;\;\;\frac{\sqrt{2.0 \cdot \left(im \cdot im\right)}}{\sqrt{-2 \cdot re}} \cdot 0.5\\
\mathbf{elif}\;re \le 4.5556084918187003 \cdot 10^{-234}:\\
\;\;\;\;0.5 \cdot \left(\frac{\left|im\right|}{\sqrt{\sqrt{re \cdot re + im \cdot im} - re}} \cdot \sqrt{2.0}\right)\\
\mathbf{elif}\;re \le 6.306382616635563 \cdot 10^{-190}:\\
\;\;\;\;0.5 \cdot \sqrt{\left(im + re\right) \cdot 2.0}\\
\mathbf{elif}\;re \le 1.5059919692642864 \cdot 10^{+126}:\\
\;\;\;\;0.5 \cdot \sqrt{2.0 \cdot \left(re + \sqrt{\sqrt{re \cdot re + im \cdot im}} \cdot \sqrt{\sqrt{re \cdot re + im \cdot im}}\right)}\\
\mathbf{else}:\\
\;\;\;\;0.5 \cdot \sqrt{2.0 \cdot \left(re + re\right)}\\
\end{array}double f(double re, double im) {
double r3238606 = 0.5;
double r3238607 = 2.0;
double r3238608 = re;
double r3238609 = r3238608 * r3238608;
double r3238610 = im;
double r3238611 = r3238610 * r3238610;
double r3238612 = r3238609 + r3238611;
double r3238613 = sqrt(r3238612);
double r3238614 = r3238613 + r3238608;
double r3238615 = r3238607 * r3238614;
double r3238616 = sqrt(r3238615);
double r3238617 = r3238606 * r3238616;
return r3238617;
}
double f(double re, double im) {
double r3238618 = re;
double r3238619 = -6.084312799804569e+102;
bool r3238620 = r3238618 <= r3238619;
double r3238621 = 2.0;
double r3238622 = im;
double r3238623 = r3238622 * r3238622;
double r3238624 = r3238621 * r3238623;
double r3238625 = sqrt(r3238624);
double r3238626 = -2.0;
double r3238627 = r3238626 * r3238618;
double r3238628 = sqrt(r3238627);
double r3238629 = r3238625 / r3238628;
double r3238630 = 0.5;
double r3238631 = r3238629 * r3238630;
double r3238632 = 4.5556084918187003e-234;
bool r3238633 = r3238618 <= r3238632;
double r3238634 = fabs(r3238622);
double r3238635 = r3238618 * r3238618;
double r3238636 = r3238635 + r3238623;
double r3238637 = sqrt(r3238636);
double r3238638 = r3238637 - r3238618;
double r3238639 = sqrt(r3238638);
double r3238640 = r3238634 / r3238639;
double r3238641 = sqrt(r3238621);
double r3238642 = r3238640 * r3238641;
double r3238643 = r3238630 * r3238642;
double r3238644 = 6.306382616635563e-190;
bool r3238645 = r3238618 <= r3238644;
double r3238646 = r3238622 + r3238618;
double r3238647 = r3238646 * r3238621;
double r3238648 = sqrt(r3238647);
double r3238649 = r3238630 * r3238648;
double r3238650 = 1.5059919692642864e+126;
bool r3238651 = r3238618 <= r3238650;
double r3238652 = sqrt(r3238637);
double r3238653 = r3238652 * r3238652;
double r3238654 = r3238618 + r3238653;
double r3238655 = r3238621 * r3238654;
double r3238656 = sqrt(r3238655);
double r3238657 = r3238630 * r3238656;
double r3238658 = r3238618 + r3238618;
double r3238659 = r3238621 * r3238658;
double r3238660 = sqrt(r3238659);
double r3238661 = r3238630 * r3238660;
double r3238662 = r3238651 ? r3238657 : r3238661;
double r3238663 = r3238645 ? r3238649 : r3238662;
double r3238664 = r3238633 ? r3238643 : r3238663;
double r3238665 = r3238620 ? r3238631 : r3238664;
return r3238665;
}




Bits error versus re




Bits error versus im
Results
| Original | 38.3 |
|---|---|
| Target | 33.2 |
| Herbie | 18.9 |
if re < -6.084312799804569e+102Initial program 60.0
rmApplied flip-+60.0
Applied associate-*r/60.0
Applied sqrt-div60.0
Simplified44.0
Taylor expanded around -inf 20.2
if -6.084312799804569e+102 < re < 4.5556084918187003e-234Initial program 36.9
rmApplied flip-+37.0
Applied associate-*r/37.0
Applied sqrt-div37.2
Simplified30.1
rmApplied *-un-lft-identity30.1
Applied sqrt-prod30.1
Applied sqrt-prod30.2
Applied times-frac30.2
Simplified30.2
Simplified22.1
if 4.5556084918187003e-234 < re < 6.306382616635563e-190Initial program 31.4
rmApplied add-sqr-sqrt31.4
Applied sqrt-prod31.5
Taylor expanded around 0 30.9
if 6.306382616635563e-190 < re < 1.5059919692642864e+126Initial program 16.4
rmApplied add-sqr-sqrt16.4
Applied sqrt-prod16.5
if 1.5059919692642864e+126 < re Initial program 55.3
Taylor expanded around inf 9.9
Final simplification18.9
herbie shell --seed 2019153
(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)))))