\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, 2, \left(\mathsf{fma}\left(\left({x}^{5}\right), \frac{1}{60}, \left(\left(x \cdot x\right) \cdot \left(x \cdot \frac{1}{3}\right)\right)\right)\right)\right)}{2} \cdot \sin y i\right))double f(double x, double y) {
double r1284138 = x;
double r1284139 = exp(r1284138);
double r1284140 = -r1284138;
double r1284141 = exp(r1284140);
double r1284142 = r1284139 + r1284141;
double r1284143 = 2.0;
double r1284144 = r1284142 / r1284143;
double r1284145 = y;
double r1284146 = cos(r1284145);
double r1284147 = r1284144 * r1284146;
double r1284148 = r1284139 - r1284141;
double r1284149 = r1284148 / r1284143;
double r1284150 = sin(r1284145);
double r1284151 = r1284149 * r1284150;
double r1284152 = /* ERROR: no complex support in C */;
double r1284153 = /* ERROR: no complex support in C */;
return r1284153;
}
double f(double x, double y) {
double r1284154 = x;
double r1284155 = exp(r1284154);
double r1284156 = -r1284154;
double r1284157 = exp(r1284156);
double r1284158 = r1284155 + r1284157;
double r1284159 = 2.0;
double r1284160 = r1284158 / r1284159;
double r1284161 = y;
double r1284162 = cos(r1284161);
double r1284163 = r1284160 * r1284162;
double r1284164 = 5.0;
double r1284165 = pow(r1284154, r1284164);
double r1284166 = 0.016666666666666666;
double r1284167 = r1284154 * r1284154;
double r1284168 = 0.3333333333333333;
double r1284169 = r1284154 * r1284168;
double r1284170 = r1284167 * r1284169;
double r1284171 = fma(r1284165, r1284166, r1284170);
double r1284172 = fma(r1284154, r1284159, r1284171);
double r1284173 = r1284172 / r1284159;
double r1284174 = sin(r1284161);
double r1284175 = r1284173 * r1284174;
double r1284176 = /* ERROR: no complex support in C */;
double r1284177 = /* ERROR: no complex support in C */;
return r1284177;
}



Bits error versus x



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