\left(0.5 \cdot \cos re\right) \cdot \left(e^{-im} + e^{im}\right)\frac{0.5 \cdot \cos re}{e^{im}} + \left(0.5 \cdot \cos re\right) \cdot e^{im}double f(double re, double im) {
double r94398 = 0.5;
double r94399 = re;
double r94400 = cos(r94399);
double r94401 = r94398 * r94400;
double r94402 = im;
double r94403 = -r94402;
double r94404 = exp(r94403);
double r94405 = exp(r94402);
double r94406 = r94404 + r94405;
double r94407 = r94401 * r94406;
return r94407;
}
double f(double re, double im) {
double r94408 = 0.5;
double r94409 = re;
double r94410 = cos(r94409);
double r94411 = r94408 * r94410;
double r94412 = im;
double r94413 = exp(r94412);
double r94414 = r94411 / r94413;
double r94415 = r94411 * r94413;
double r94416 = r94414 + r94415;
return r94416;
}



Bits error versus re



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