0.5 \cdot \sqrt{2 \cdot \left(\sqrt{re \cdot re + im \cdot im} + re\right)}\begin{array}{l}
\mathbf{if}\;re \le -1.015832581446431561803372347247675693307 \cdot 10^{-264}:\\
\;\;\;\;0.5 \cdot \sqrt{2 \cdot \frac{im \cdot im}{\sqrt{re \cdot re + im \cdot im} - re}}\\
\mathbf{elif}\;re \le 2.165263052480363094004576098455732339339 \cdot 10^{-217}:\\
\;\;\;\;0.5 \cdot \sqrt{2 \cdot \left(re + im\right)}\\
\mathbf{elif}\;re \le 2.065651901617657621042712121435180714289 \cdot 10^{119}:\\
\;\;\;\;0.5 \cdot \sqrt{2 \cdot e^{\log \left(\sqrt{\sqrt{re \cdot re + im \cdot im}} \cdot \sqrt{\sqrt{re \cdot re + im \cdot im}} + re\right)}}\\
\mathbf{else}:\\
\;\;\;\;0.5 \cdot \sqrt{2 \cdot \left(2 \cdot re\right)}\\
\end{array}double f(double re, double im) {
double r221366 = 0.5;
double r221367 = 2.0;
double r221368 = re;
double r221369 = r221368 * r221368;
double r221370 = im;
double r221371 = r221370 * r221370;
double r221372 = r221369 + r221371;
double r221373 = sqrt(r221372);
double r221374 = r221373 + r221368;
double r221375 = r221367 * r221374;
double r221376 = sqrt(r221375);
double r221377 = r221366 * r221376;
return r221377;
}
double f(double re, double im) {
double r221378 = re;
double r221379 = -1.0158325814464316e-264;
bool r221380 = r221378 <= r221379;
double r221381 = 0.5;
double r221382 = 2.0;
double r221383 = im;
double r221384 = r221383 * r221383;
double r221385 = r221378 * r221378;
double r221386 = r221385 + r221384;
double r221387 = sqrt(r221386);
double r221388 = r221387 - r221378;
double r221389 = r221384 / r221388;
double r221390 = r221382 * r221389;
double r221391 = sqrt(r221390);
double r221392 = r221381 * r221391;
double r221393 = 2.165263052480363e-217;
bool r221394 = r221378 <= r221393;
double r221395 = r221378 + r221383;
double r221396 = r221382 * r221395;
double r221397 = sqrt(r221396);
double r221398 = r221381 * r221397;
double r221399 = 2.0656519016176576e+119;
bool r221400 = r221378 <= r221399;
double r221401 = sqrt(r221387);
double r221402 = r221401 * r221401;
double r221403 = r221402 + r221378;
double r221404 = log(r221403);
double r221405 = exp(r221404);
double r221406 = r221382 * r221405;
double r221407 = sqrt(r221406);
double r221408 = r221381 * r221407;
double r221409 = 2.0;
double r221410 = r221409 * r221378;
double r221411 = r221382 * r221410;
double r221412 = sqrt(r221411);
double r221413 = r221381 * r221412;
double r221414 = r221400 ? r221408 : r221413;
double r221415 = r221394 ? r221398 : r221414;
double r221416 = r221380 ? r221392 : r221415;
return r221416;
}




Bits error versus re




Bits error versus im
Results
| Original | 38.8 |
|---|---|
| Target | 33.8 |
| Herbie | 27.4 |
if re < -1.0158325814464316e-264Initial program 47.3
rmApplied flip-+47.2
Simplified36.2
if -1.0158325814464316e-264 < re < 2.165263052480363e-217Initial program 30.5
Taylor expanded around 0 33.0
if 2.165263052480363e-217 < re < 2.0656519016176576e+119Initial program 18.0
rmApplied add-sqr-sqrt18.0
Applied sqrt-prod18.0
rmApplied add-exp-log20.6
if 2.0656519016176576e+119 < re Initial program 55.6
rmApplied add-sqr-sqrt55.6
Applied sqrt-prod55.6
rmApplied add-sqr-sqrt55.6
Applied sqrt-prod55.6
Applied sqrt-prod55.6
Applied associate-*r*55.6
Simplified55.7
rmApplied add-sqr-sqrt55.7
Taylor expanded around inf 9.7
Final simplification27.4
herbie shell --seed 2019353
(FPCore (re im)
:name "math.sqrt on complex, real part"
:precision binary64
:herbie-target
(if (< re 0.0) (* 0.5 (* (sqrt 2) (sqrt (/ (* im im) (- (sqrt (+ (* re re) (* im im))) re))))) (* 0.5 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))))
(* 0.5 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))))