\left(0.5 \cdot \cos re\right) \cdot \left(e^{-im} + e^{im}\right)\left(\frac{\cos re}{\sqrt{e^{im}}} \cdot \frac{1}{\sqrt{e^{im}}} + e^{im} \cdot \cos re\right) \cdot 0.5double f(double re, double im) {
double r1466266 = 0.5;
double r1466267 = re;
double r1466268 = cos(r1466267);
double r1466269 = r1466266 * r1466268;
double r1466270 = im;
double r1466271 = -r1466270;
double r1466272 = exp(r1466271);
double r1466273 = exp(r1466270);
double r1466274 = r1466272 + r1466273;
double r1466275 = r1466269 * r1466274;
return r1466275;
}
double f(double re, double im) {
double r1466276 = re;
double r1466277 = cos(r1466276);
double r1466278 = im;
double r1466279 = exp(r1466278);
double r1466280 = sqrt(r1466279);
double r1466281 = r1466277 / r1466280;
double r1466282 = 1.0;
double r1466283 = r1466282 / r1466280;
double r1466284 = r1466281 * r1466283;
double r1466285 = r1466279 * r1466277;
double r1466286 = r1466284 + r1466285;
double r1466287 = 0.5;
double r1466288 = r1466286 * r1466287;
return r1466288;
}



Bits error versus re



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