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 r6652316 = 0.5;
double r6652317 = 2.0;
double r6652318 = re;
double r6652319 = r6652318 * r6652318;
double r6652320 = im;
double r6652321 = r6652320 * r6652320;
double r6652322 = r6652319 + r6652321;
double r6652323 = sqrt(r6652322);
double r6652324 = r6652323 + r6652318;
double r6652325 = r6652317 * r6652324;
double r6652326 = sqrt(r6652325);
double r6652327 = r6652316 * r6652326;
return r6652327;
}
double f(double re, double im) {
double r6652328 = re;
double r6652329 = im;
double r6652330 = hypot(r6652328, r6652329);
double r6652331 = r6652328 + r6652330;
double r6652332 = 2.0;
double r6652333 = r6652331 * r6652332;
double r6652334 = sqrt(r6652333);
double r6652335 = 0.5;
double r6652336 = r6652334 * r6652335;
return r6652336;
}




Bits error versus re




Bits error versus im
Results
| Original | 37.5 |
|---|---|
| Target | 32.6 |
| Herbie | 13.4 |
Initial program 37.5
Simplified13.4
Final simplification13.4
herbie shell --seed 2019130 +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)))))