\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 + \sin y \cdot \frac{\frac{1}{60} \cdot {x}^{5} + \left(x \cdot 2 + {x}^{3} \cdot \frac{1}{3}\right)}{2} i\right))double f(double x, double y) {
double r51818 = x;
double r51819 = exp(r51818);
double r51820 = -r51818;
double r51821 = exp(r51820);
double r51822 = r51819 + r51821;
double r51823 = 2.0;
double r51824 = r51822 / r51823;
double r51825 = y;
double r51826 = cos(r51825);
double r51827 = r51824 * r51826;
double r51828 = r51819 - r51821;
double r51829 = r51828 / r51823;
double r51830 = sin(r51825);
double r51831 = r51829 * r51830;
double r51832 = /* ERROR: no complex support in C */;
double r51833 = /* ERROR: no complex support in C */;
return r51833;
}
double f(double x, double y) {
double r51834 = x;
double r51835 = exp(r51834);
double r51836 = -r51834;
double r51837 = exp(r51836);
double r51838 = r51835 + r51837;
double r51839 = 2.0;
double r51840 = r51838 / r51839;
double r51841 = y;
double r51842 = cos(r51841);
double r51843 = r51840 * r51842;
double r51844 = sin(r51841);
double r51845 = 0.016666666666666666;
double r51846 = 5.0;
double r51847 = pow(r51834, r51846);
double r51848 = r51845 * r51847;
double r51849 = 2.0;
double r51850 = r51834 * r51849;
double r51851 = 3.0;
double r51852 = pow(r51834, r51851);
double r51853 = 0.3333333333333333;
double r51854 = r51852 * r51853;
double r51855 = r51850 + r51854;
double r51856 = r51848 + r51855;
double r51857 = r51856 / r51839;
double r51858 = r51844 * r51857;
double r51859 = /* ERROR: no complex support in C */;
double r51860 = /* ERROR: no complex support in C */;
return r51860;
}



Bits error versus x



Bits error versus y
Initial program 43.0
Taylor expanded around 0 0.8
Simplified0.8
Final simplification0.8
herbie shell --seed 2019195
(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)))))