0.5 \cdot \sqrt{2 \cdot \left(\sqrt{re \cdot re + im \cdot im} + re\right)}0.5 \cdot \sqrt{\left(re + \mathsf{hypot}\left(re, im\right)\right) \cdot 2}double f(double re, double im) {
double r213969 = 0.5;
double r213970 = 2.0;
double r213971 = re;
double r213972 = r213971 * r213971;
double r213973 = im;
double r213974 = r213973 * r213973;
double r213975 = r213972 + r213974;
double r213976 = sqrt(r213975);
double r213977 = r213976 + r213971;
double r213978 = r213970 * r213977;
double r213979 = sqrt(r213978);
double r213980 = r213969 * r213979;
return r213980;
}
double f(double re, double im) {
double r213981 = 0.5;
double r213982 = re;
double r213983 = im;
double r213984 = hypot(r213982, r213983);
double r213985 = r213982 + r213984;
double r213986 = 2.0;
double r213987 = r213985 * r213986;
double r213988 = sqrt(r213987);
double r213989 = r213981 * r213988;
return r213989;
}




Bits error versus re




Bits error versus im
Results
| Original | 39.1 |
|---|---|
| Target | 34.1 |
| Herbie | 13.2 |
Initial program 39.1
Simplified13.2
Final simplification13.2
herbie shell --seed 2020046 +o rules:numerics
(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)))))