\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 r41174 = 0.5;
double r41175 = re;
double r41176 = cos(r41175);
double r41177 = r41174 * r41176;
double r41178 = im;
double r41179 = -r41178;
double r41180 = exp(r41179);
double r41181 = exp(r41178);
double r41182 = r41180 + r41181;
double r41183 = r41177 * r41182;
return r41183;
}
double f(double re, double im) {
double r41184 = 0.5;
double r41185 = re;
double r41186 = cos(r41185);
double r41187 = r41184 * r41186;
double r41188 = im;
double r41189 = -r41188;
double r41190 = exp(r41189);
double r41191 = exp(r41188);
double r41192 = r41190 + r41191;
double r41193 = r41187 * r41192;
return r41193;
}



Bits error versus re



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