0.5 \cdot \sqrt{2.0 \cdot \left(\sqrt{re \cdot re + im \cdot im} + re\right)}\begin{array}{l}
\mathbf{if}\;im \le -1.8776884943596414 \cdot 10^{-117}:\\
\;\;\;\;\sqrt{2.0 \cdot \left(re + \sqrt{\sqrt{\sqrt[3]{im \cdot im + re \cdot re}}} \cdot \left(\sqrt{\sqrt{im \cdot im + re \cdot re}} \cdot \sqrt{\sqrt{\left(\left(\sqrt[3]{\sqrt[3]{im \cdot im + re \cdot re}} \cdot \sqrt[3]{\sqrt[3]{im \cdot im + re \cdot re}}\right) \cdot \sqrt[3]{\sqrt[3]{im \cdot im + re \cdot re}}\right) \cdot \sqrt[3]{im \cdot im + re \cdot re}}}\right)\right)} \cdot 0.5\\
\mathbf{elif}\;im \le 1.2794987088213298 \cdot 10^{-198}:\\
\;\;\;\;\sqrt{\left(re + re\right) \cdot 2.0} \cdot 0.5\\
\mathbf{else}:\\
\;\;\;\;\sqrt{\left(re + im\right) \cdot 2.0} \cdot 0.5\\
\end{array}double f(double re, double im) {
double r30441209 = 0.5;
double r30441210 = 2.0;
double r30441211 = re;
double r30441212 = r30441211 * r30441211;
double r30441213 = im;
double r30441214 = r30441213 * r30441213;
double r30441215 = r30441212 + r30441214;
double r30441216 = sqrt(r30441215);
double r30441217 = r30441216 + r30441211;
double r30441218 = r30441210 * r30441217;
double r30441219 = sqrt(r30441218);
double r30441220 = r30441209 * r30441219;
return r30441220;
}
double f(double re, double im) {
double r30441221 = im;
double r30441222 = -1.8776884943596414e-117;
bool r30441223 = r30441221 <= r30441222;
double r30441224 = 2.0;
double r30441225 = re;
double r30441226 = r30441221 * r30441221;
double r30441227 = r30441225 * r30441225;
double r30441228 = r30441226 + r30441227;
double r30441229 = cbrt(r30441228);
double r30441230 = sqrt(r30441229);
double r30441231 = sqrt(r30441230);
double r30441232 = sqrt(r30441228);
double r30441233 = sqrt(r30441232);
double r30441234 = cbrt(r30441229);
double r30441235 = r30441234 * r30441234;
double r30441236 = r30441235 * r30441234;
double r30441237 = r30441236 * r30441229;
double r30441238 = sqrt(r30441237);
double r30441239 = sqrt(r30441238);
double r30441240 = r30441233 * r30441239;
double r30441241 = r30441231 * r30441240;
double r30441242 = r30441225 + r30441241;
double r30441243 = r30441224 * r30441242;
double r30441244 = sqrt(r30441243);
double r30441245 = 0.5;
double r30441246 = r30441244 * r30441245;
double r30441247 = 1.2794987088213298e-198;
bool r30441248 = r30441221 <= r30441247;
double r30441249 = r30441225 + r30441225;
double r30441250 = r30441249 * r30441224;
double r30441251 = sqrt(r30441250);
double r30441252 = r30441251 * r30441245;
double r30441253 = r30441225 + r30441221;
double r30441254 = r30441253 * r30441224;
double r30441255 = sqrt(r30441254);
double r30441256 = r30441255 * r30441245;
double r30441257 = r30441248 ? r30441252 : r30441256;
double r30441258 = r30441223 ? r30441246 : r30441257;
return r30441258;
}




Bits error versus re




Bits error versus im
Results
| Original | 37.6 |
|---|---|
| Target | 32.6 |
| Herbie | 30.5 |
if im < -1.8776884943596414e-117Initial program 36.4
rmApplied add-sqr-sqrt36.4
Applied sqrt-prod36.4
rmApplied add-cube-cbrt36.4
Applied sqrt-prod36.4
Applied sqrt-prod36.4
Applied associate-*r*36.4
rmApplied add-cube-cbrt36.5
if -1.8776884943596414e-117 < im < 1.2794987088213298e-198Initial program 40.1
rmApplied add-sqr-sqrt40.1
Applied sqrt-prod41.3
Taylor expanded around inf 33.9
if 1.2794987088213298e-198 < im Initial program 37.3
rmApplied add-sqr-sqrt37.3
Applied sqrt-prod37.4
Taylor expanded around 0 23.4
Final simplification30.5
herbie shell --seed 2019107
(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)))))