\Re(\left(\frac{e^{x} + e^{-x}}{2} \cdot \cos y + \frac{e^{x} - e^{-x}}{2} \cdot \sin y i\right))\left(\cos y \cdot \frac{\sqrt{e^{x} + e^{-x}}}{\sqrt{2}}\right) \cdot \sqrt{\frac{e^{x} + e^{-x}}{2}}double f(double x, double y) {
double r23109 = x;
double r23110 = exp(r23109);
double r23111 = -r23109;
double r23112 = exp(r23111);
double r23113 = r23110 + r23112;
double r23114 = 2.0;
double r23115 = r23113 / r23114;
double r23116 = y;
double r23117 = cos(r23116);
double r23118 = r23115 * r23117;
double r23119 = r23110 - r23112;
double r23120 = r23119 / r23114;
double r23121 = sin(r23116);
double r23122 = r23120 * r23121;
double r23123 = /* ERROR: no complex support in C */;
double r23124 = /* ERROR: no complex support in C */;
return r23124;
}
double f(double x, double y) {
double r23125 = y;
double r23126 = cos(r23125);
double r23127 = x;
double r23128 = exp(r23127);
double r23129 = -r23127;
double r23130 = exp(r23129);
double r23131 = r23128 + r23130;
double r23132 = sqrt(r23131);
double r23133 = 2.0;
double r23134 = sqrt(r23133);
double r23135 = r23132 / r23134;
double r23136 = r23126 * r23135;
double r23137 = r23131 / r23133;
double r23138 = sqrt(r23137);
double r23139 = r23136 * r23138;
return r23139;
}



Bits error versus x



Bits error versus y
Initial program 0.0
Simplified0.0
rmApplied add-sqr-sqrt1.5
Applied add-sqr-sqrt0.0
Applied times-frac0.0
Applied associate-*r*0.0
rmApplied sqrt-undiv0.0
Final simplification0.0
herbie shell --seed 2020043
(FPCore (x y)
:name "Euler formula real part (p55)"
:precision binary64
(re (complex (* (/ (+ (exp x) (exp (- x))) 2) (cos y)) (* (/ (- (exp x) (exp (- x))) 2) (sin y)))))