\left(0.5 \cdot \cos re\right) \cdot \left(e^{-im} + e^{im}\right)\frac{\cos re}{e^{im}} \cdot 0.5 + \sqrt{e^{im}} \cdot \left(\sqrt{e^{im}} \cdot \left(0.5 \cdot \cos re\right)\right)double f(double re, double im) {
double r71826 = 0.5;
double r71827 = re;
double r71828 = cos(r71827);
double r71829 = r71826 * r71828;
double r71830 = im;
double r71831 = -r71830;
double r71832 = exp(r71831);
double r71833 = exp(r71830);
double r71834 = r71832 + r71833;
double r71835 = r71829 * r71834;
return r71835;
}
double f(double re, double im) {
double r71836 = re;
double r71837 = cos(r71836);
double r71838 = im;
double r71839 = exp(r71838);
double r71840 = r71837 / r71839;
double r71841 = 0.5;
double r71842 = r71840 * r71841;
double r71843 = sqrt(r71839);
double r71844 = r71841 * r71837;
double r71845 = r71843 * r71844;
double r71846 = r71843 * r71845;
double r71847 = r71842 + r71846;
return r71847;
}



Bits error versus re



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