\left(0.5 \cdot \cos re\right) \cdot \left(e^{-im} + e^{im}\right)\left(0.5 \cdot \cos re\right) \cdot \left(e^{-im} + e^{im}\right)double f(double re, double im) {
double r33899 = 0.5;
double r33900 = re;
double r33901 = cos(r33900);
double r33902 = r33899 * r33901;
double r33903 = im;
double r33904 = -r33903;
double r33905 = exp(r33904);
double r33906 = exp(r33903);
double r33907 = r33905 + r33906;
double r33908 = r33902 * r33907;
return r33908;
}
double f(double re, double im) {
double r33909 = 0.5;
double r33910 = re;
double r33911 = cos(r33910);
double r33912 = r33909 * r33911;
double r33913 = im;
double r33914 = -r33913;
double r33915 = exp(r33914);
double r33916 = exp(r33913);
double r33917 = r33915 + r33916;
double r33918 = r33912 * r33917;
return r33918;
}



Bits error versus re



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