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 r3290459 = 0.5;
double r3290460 = 2.0;
double r3290461 = re;
double r3290462 = r3290461 * r3290461;
double r3290463 = im;
double r3290464 = r3290463 * r3290463;
double r3290465 = r3290462 + r3290464;
double r3290466 = sqrt(r3290465);
double r3290467 = r3290466 + r3290461;
double r3290468 = r3290460 * r3290467;
double r3290469 = sqrt(r3290468);
double r3290470 = r3290459 * r3290469;
return r3290470;
}
double f(double re, double im) {
double r3290471 = re;
double r3290472 = -6.084312799804569e+102;
bool r3290473 = r3290471 <= r3290472;
double r3290474 = 2.0;
double r3290475 = im;
double r3290476 = r3290475 * r3290475;
double r3290477 = r3290474 * r3290476;
double r3290478 = sqrt(r3290477);
double r3290479 = -2.0;
double r3290480 = r3290479 * r3290471;
double r3290481 = sqrt(r3290480);
double r3290482 = r3290478 / r3290481;
double r3290483 = 0.5;
double r3290484 = r3290482 * r3290483;
double r3290485 = 4.5556084918187003e-234;
bool r3290486 = r3290471 <= r3290485;
double r3290487 = fabs(r3290475);
double r3290488 = r3290471 * r3290471;
double r3290489 = r3290488 + r3290476;
double r3290490 = sqrt(r3290489);
double r3290491 = r3290490 - r3290471;
double r3290492 = sqrt(r3290491);
double r3290493 = r3290487 / r3290492;
double r3290494 = sqrt(r3290474);
double r3290495 = r3290493 * r3290494;
double r3290496 = r3290483 * r3290495;
double r3290497 = 6.306382616635563e-190;
bool r3290498 = r3290471 <= r3290497;
double r3290499 = r3290475 + r3290471;
double r3290500 = r3290499 * r3290474;
double r3290501 = sqrt(r3290500);
double r3290502 = r3290483 * r3290501;
double r3290503 = 1.5059919692642864e+126;
bool r3290504 = r3290471 <= r3290503;
double r3290505 = sqrt(r3290490);
double r3290506 = r3290505 * r3290505;
double r3290507 = r3290471 + r3290506;
double r3290508 = r3290474 * r3290507;
double r3290509 = sqrt(r3290508);
double r3290510 = r3290483 * r3290509;
double r3290511 = r3290471 + r3290471;
double r3290512 = r3290474 * r3290511;
double r3290513 = sqrt(r3290512);
double r3290514 = r3290483 * r3290513;
double r3290515 = r3290504 ? r3290510 : r3290514;
double r3290516 = r3290498 ? r3290502 : r3290515;
double r3290517 = r3290486 ? r3290496 : r3290516;
double r3290518 = r3290473 ? r3290484 : r3290517;
return r3290518;
}




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
Taylor expanded around 0 30.9
if 6.306382616635563e-190 < re < 1.5059919692642864e+126Initial program 16.4
rmApplied add-sqr-sqrt16.5
if 1.5059919692642864e+126 < re Initial program 55.3
rmApplied add-sqr-sqrt55.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)))))