\left(0.5 \cdot \cos re\right) \cdot \left(e^{-im} + e^{im}\right)\left(e^{im} \cdot \cos re + \frac{\cos re}{e^{im}}\right) \cdot 0.5double f(double re, double im) {
double r1386542 = 0.5;
double r1386543 = re;
double r1386544 = cos(r1386543);
double r1386545 = r1386542 * r1386544;
double r1386546 = im;
double r1386547 = -r1386546;
double r1386548 = exp(r1386547);
double r1386549 = exp(r1386546);
double r1386550 = r1386548 + r1386549;
double r1386551 = r1386545 * r1386550;
return r1386551;
}
double f(double re, double im) {
double r1386552 = im;
double r1386553 = exp(r1386552);
double r1386554 = re;
double r1386555 = cos(r1386554);
double r1386556 = r1386553 * r1386555;
double r1386557 = r1386555 / r1386553;
double r1386558 = r1386556 + r1386557;
double r1386559 = 0.5;
double r1386560 = r1386558 * r1386559;
return r1386560;
}



Bits error versus re



Bits error versus im
Results
Initial program 0.0
Simplified0.0
Final simplification0.0
herbie shell --seed 2019146
(FPCore (re im)
:name "math.cos on complex, real part"
(* (* 0.5 (cos re)) (+ (exp (- im)) (exp im))))