\Im(\left(\frac{e^{x} + e^{-x}}{2} \cdot \cos y + \frac{e^{x} - e^{-x}}{2} \cdot \sin y i\right))\Im(\left(\frac{e^{x} + e^{-x}}{2} \cdot \cos y + \frac{\mathsf{fma}\left({x}^{5}, \frac{1}{60}, x \cdot \left(2 + \frac{1}{3} \cdot \left(x \cdot x\right)\right)\right)}{2} \cdot \sin y i\right))double f(double x, double y) {
double r1327285 = x;
double r1327286 = exp(r1327285);
double r1327287 = -r1327285;
double r1327288 = exp(r1327287);
double r1327289 = r1327286 + r1327288;
double r1327290 = 2.0;
double r1327291 = r1327289 / r1327290;
double r1327292 = y;
double r1327293 = cos(r1327292);
double r1327294 = r1327291 * r1327293;
double r1327295 = r1327286 - r1327288;
double r1327296 = r1327295 / r1327290;
double r1327297 = sin(r1327292);
double r1327298 = r1327296 * r1327297;
double r1327299 = /* ERROR: no complex support in C */;
double r1327300 = /* ERROR: no complex support in C */;
return r1327300;
}
double f(double x, double y) {
double r1327301 = x;
double r1327302 = exp(r1327301);
double r1327303 = -r1327301;
double r1327304 = exp(r1327303);
double r1327305 = r1327302 + r1327304;
double r1327306 = 2.0;
double r1327307 = r1327305 / r1327306;
double r1327308 = y;
double r1327309 = cos(r1327308);
double r1327310 = r1327307 * r1327309;
double r1327311 = 5.0;
double r1327312 = pow(r1327301, r1327311);
double r1327313 = 0.016666666666666666;
double r1327314 = 2.0;
double r1327315 = 0.3333333333333333;
double r1327316 = r1327301 * r1327301;
double r1327317 = r1327315 * r1327316;
double r1327318 = r1327314 + r1327317;
double r1327319 = r1327301 * r1327318;
double r1327320 = fma(r1327312, r1327313, r1327319);
double r1327321 = r1327320 / r1327306;
double r1327322 = sin(r1327308);
double r1327323 = r1327321 * r1327322;
double r1327324 = /* ERROR: no complex support in C */;
double r1327325 = /* ERROR: no complex support in C */;
return r1327325;
}



Bits error versus x



Bits error versus y
Initial program 43.8
Taylor expanded around 0 0.7
Simplified0.7
Final simplification0.7
herbie shell --seed 2019170 +o rules:numerics
(FPCore (x y)
:name "Euler formula imaginary part (p55)"
(im (complex (* (/ (+ (exp x) (exp (- x))) 2.0) (cos y)) (* (/ (- (exp x) (exp (- x))) 2.0) (sin y)))))