0.5 \cdot \sqrt{2.0 \cdot \left(\sqrt{re \cdot re + im \cdot im} + re\right)}\begin{array}{l}
\mathbf{if}\;re \le -7.694926734883939 \cdot 10^{-264}:\\
\;\;\;\;\frac{\sqrt{\left(im \cdot im\right) \cdot 2.0}}{\sqrt{\sqrt{im \cdot im + re \cdot re} - re}} \cdot 0.5\\
\mathbf{elif}\;re \le 3.185198141526603 \cdot 10^{+94}:\\
\;\;\;\;\sqrt{2.0 \cdot \left(re + \sqrt{\sqrt[3]{im \cdot im + re \cdot re} \cdot \left(\sqrt[3]{im \cdot im + re \cdot re} \cdot \sqrt[3]{im \cdot im + re \cdot re}\right)}\right)} \cdot 0.5\\
\mathbf{else}:\\
\;\;\;\;\sqrt{2.0 \cdot \left(re + re\right)} \cdot 0.5\\
\end{array}double f(double re, double im) {
double r8703829 = 0.5;
double r8703830 = 2.0;
double r8703831 = re;
double r8703832 = r8703831 * r8703831;
double r8703833 = im;
double r8703834 = r8703833 * r8703833;
double r8703835 = r8703832 + r8703834;
double r8703836 = sqrt(r8703835);
double r8703837 = r8703836 + r8703831;
double r8703838 = r8703830 * r8703837;
double r8703839 = sqrt(r8703838);
double r8703840 = r8703829 * r8703839;
return r8703840;
}
double f(double re, double im) {
double r8703841 = re;
double r8703842 = -7.694926734883939e-264;
bool r8703843 = r8703841 <= r8703842;
double r8703844 = im;
double r8703845 = r8703844 * r8703844;
double r8703846 = 2.0;
double r8703847 = r8703845 * r8703846;
double r8703848 = sqrt(r8703847);
double r8703849 = r8703841 * r8703841;
double r8703850 = r8703845 + r8703849;
double r8703851 = sqrt(r8703850);
double r8703852 = r8703851 - r8703841;
double r8703853 = sqrt(r8703852);
double r8703854 = r8703848 / r8703853;
double r8703855 = 0.5;
double r8703856 = r8703854 * r8703855;
double r8703857 = 3.185198141526603e+94;
bool r8703858 = r8703841 <= r8703857;
double r8703859 = cbrt(r8703850);
double r8703860 = r8703859 * r8703859;
double r8703861 = r8703859 * r8703860;
double r8703862 = sqrt(r8703861);
double r8703863 = r8703841 + r8703862;
double r8703864 = r8703846 * r8703863;
double r8703865 = sqrt(r8703864);
double r8703866 = r8703865 * r8703855;
double r8703867 = r8703841 + r8703841;
double r8703868 = r8703846 * r8703867;
double r8703869 = sqrt(r8703868);
double r8703870 = r8703869 * r8703855;
double r8703871 = r8703858 ? r8703866 : r8703870;
double r8703872 = r8703843 ? r8703856 : r8703871;
return r8703872;
}




Bits error versus re




Bits error versus im
Results
| Original | 37.4 |
|---|---|
| Target | 32.3 |
| Herbie | 25.3 |
if re < -7.694926734883939e-264Initial program 46.1
rmApplied flip-+46.0
Applied associate-*r/46.1
Applied sqrt-div46.1
Simplified34.0
if -7.694926734883939e-264 < re < 3.185198141526603e+94Initial program 21.3
rmApplied add-cube-cbrt21.5
if 3.185198141526603e+94 < re Initial program 48.1
Taylor expanded around inf 9.3
Final simplification25.3
herbie shell --seed 2019164
(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)))))