0.5 \cdot \sqrt{2 \cdot \left(\sqrt{re \cdot re + im \cdot im} + re\right)}\sqrt{\left(re + \mathsf{hypot}\left(re, im\right)\right) \cdot 2} \cdot 0.5double f(double re, double im) {
double r118953 = 0.5;
double r118954 = 2.0;
double r118955 = re;
double r118956 = r118955 * r118955;
double r118957 = im;
double r118958 = r118957 * r118957;
double r118959 = r118956 + r118958;
double r118960 = sqrt(r118959);
double r118961 = r118960 + r118955;
double r118962 = r118954 * r118961;
double r118963 = sqrt(r118962);
double r118964 = r118953 * r118963;
return r118964;
}
double f(double re, double im) {
double r118965 = re;
double r118966 = im;
double r118967 = hypot(r118965, r118966);
double r118968 = r118965 + r118967;
double r118969 = 2.0;
double r118970 = r118968 * r118969;
double r118971 = sqrt(r118970);
double r118972 = 0.5;
double r118973 = r118971 * r118972;
return r118973;
}




Bits error versus re




Bits error versus im
Results
| Original | 37.6 |
|---|---|
| Target | 32.7 |
| Herbie | 12.9 |
Initial program 37.6
Simplified12.9
Final simplification12.9
herbie shell --seed 2019194 +o rules:numerics
(FPCore (re im)
:name "math.sqrt on complex, real part"
:herbie-target
(if (< re 0.0) (* 0.5 (* (sqrt 2.0) (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)))))