0.5 \cdot \sqrt{2.0 \cdot \left(\sqrt{re \cdot re + im \cdot im} + re\right)}\sqrt{\left(re + \mathsf{hypot}\left(re, im\right)\right) \cdot 2.0} \cdot 0.5double f(double re, double im) {
double r2125390 = 0.5;
double r2125391 = 2.0;
double r2125392 = re;
double r2125393 = r2125392 * r2125392;
double r2125394 = im;
double r2125395 = r2125394 * r2125394;
double r2125396 = r2125393 + r2125395;
double r2125397 = sqrt(r2125396);
double r2125398 = r2125397 + r2125392;
double r2125399 = r2125391 * r2125398;
double r2125400 = sqrt(r2125399);
double r2125401 = r2125390 * r2125400;
return r2125401;
}
double f(double re, double im) {
double r2125402 = re;
double r2125403 = im;
double r2125404 = hypot(r2125402, r2125403);
double r2125405 = r2125402 + r2125404;
double r2125406 = 2.0;
double r2125407 = r2125405 * r2125406;
double r2125408 = sqrt(r2125407);
double r2125409 = 0.5;
double r2125410 = r2125408 * r2125409;
return r2125410;
}




Bits error versus re




Bits error versus im
Results
| Original | 38.3 |
|---|---|
| Target | 33.2 |
| Herbie | 14.2 |
Initial program 38.3
Simplified14.2
Final simplification14.2
herbie shell --seed 2019153 +o rules:numerics
(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)))))