\left(0.5 \cdot \cos re\right) \cdot \left(e^{-im} + e^{im}\right)\mathsf{fma}\left(e^{im}, 0.5 \cdot \cos re, \frac{0.5 \cdot \cos re}{e^{im}}\right)double f(double re, double im) {
double r61419 = 0.5;
double r61420 = re;
double r61421 = cos(r61420);
double r61422 = r61419 * r61421;
double r61423 = im;
double r61424 = -r61423;
double r61425 = exp(r61424);
double r61426 = exp(r61423);
double r61427 = r61425 + r61426;
double r61428 = r61422 * r61427;
return r61428;
}
double f(double re, double im) {
double r61429 = im;
double r61430 = exp(r61429);
double r61431 = 0.5;
double r61432 = re;
double r61433 = cos(r61432);
double r61434 = r61431 * r61433;
double r61435 = r61434 / r61430;
double r61436 = fma(r61430, r61434, r61435);
return r61436;
}



Bits error versus re



Bits error versus im
Initial program 0.0
Simplified0.0
rmApplied *-un-lft-identity0.0
Applied add-sqr-sqrt0.0
Applied times-frac0.0
Simplified0.0
rmApplied *-un-lft-identity0.0
Applied associate-*l*0.0
Simplified0.0
Final simplification0.0
herbie shell --seed 2020060 +o rules:numerics
(FPCore (re im)
:name "math.cos on complex, real part"
:precision binary64
(* (* 0.5 (cos re)) (+ (exp (- im)) (exp im))))