\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{x \cdot \left(2 + \frac{1}{3} \cdot \left(x \cdot x\right)\right) + {x}^{5} \cdot \frac{1}{60}}{2} \cdot \sin y i\right))double f(double x, double y) {
double r1784821 = x;
double r1784822 = exp(r1784821);
double r1784823 = -r1784821;
double r1784824 = exp(r1784823);
double r1784825 = r1784822 + r1784824;
double r1784826 = 2.0;
double r1784827 = r1784825 / r1784826;
double r1784828 = y;
double r1784829 = cos(r1784828);
double r1784830 = r1784827 * r1784829;
double r1784831 = r1784822 - r1784824;
double r1784832 = r1784831 / r1784826;
double r1784833 = sin(r1784828);
double r1784834 = r1784832 * r1784833;
double r1784835 = /* ERROR: no complex support in C */;
double r1784836 = /* ERROR: no complex support in C */;
return r1784836;
}
double f(double x, double y) {
double r1784837 = x;
double r1784838 = exp(r1784837);
double r1784839 = -r1784837;
double r1784840 = exp(r1784839);
double r1784841 = r1784838 + r1784840;
double r1784842 = 2.0;
double r1784843 = r1784841 / r1784842;
double r1784844 = y;
double r1784845 = cos(r1784844);
double r1784846 = r1784843 * r1784845;
double r1784847 = 2.0;
double r1784848 = 0.3333333333333333;
double r1784849 = r1784837 * r1784837;
double r1784850 = r1784848 * r1784849;
double r1784851 = r1784847 + r1784850;
double r1784852 = r1784837 * r1784851;
double r1784853 = 5.0;
double r1784854 = pow(r1784837, r1784853);
double r1784855 = 0.016666666666666666;
double r1784856 = r1784854 * r1784855;
double r1784857 = r1784852 + r1784856;
double r1784858 = r1784857 / r1784842;
double r1784859 = sin(r1784844);
double r1784860 = r1784858 * r1784859;
double r1784861 = /* ERROR: no complex support in C */;
double r1784862 = /* ERROR: no complex support in C */;
return r1784862;
}



Bits error versus x



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