\left(J \cdot \left(e^{\ell} - e^{-\ell}\right)\right) \cdot \cos \left(\frac{K}{2}\right) + U\left(\left({\ell}^{5} \cdot \frac{1}{60} + \left(2 + \left(\frac{1}{3} \cdot \ell\right) \cdot \ell\right) \cdot \ell\right) \cdot J\right) \cdot \cos \left(\frac{K}{2}\right) + Udouble f(double J, double l, double K, double U) {
double r6446551 = J;
double r6446552 = l;
double r6446553 = exp(r6446552);
double r6446554 = -r6446552;
double r6446555 = exp(r6446554);
double r6446556 = r6446553 - r6446555;
double r6446557 = r6446551 * r6446556;
double r6446558 = K;
double r6446559 = 2.0;
double r6446560 = r6446558 / r6446559;
double r6446561 = cos(r6446560);
double r6446562 = r6446557 * r6446561;
double r6446563 = U;
double r6446564 = r6446562 + r6446563;
return r6446564;
}
double f(double J, double l, double K, double U) {
double r6446565 = l;
double r6446566 = 5.0;
double r6446567 = pow(r6446565, r6446566);
double r6446568 = 0.016666666666666666;
double r6446569 = r6446567 * r6446568;
double r6446570 = 2.0;
double r6446571 = 0.3333333333333333;
double r6446572 = r6446571 * r6446565;
double r6446573 = r6446572 * r6446565;
double r6446574 = r6446570 + r6446573;
double r6446575 = r6446574 * r6446565;
double r6446576 = r6446569 + r6446575;
double r6446577 = J;
double r6446578 = r6446576 * r6446577;
double r6446579 = K;
double r6446580 = r6446579 / r6446570;
double r6446581 = cos(r6446580);
double r6446582 = r6446578 * r6446581;
double r6446583 = U;
double r6446584 = r6446582 + r6446583;
return r6446584;
}



Bits error versus J



Bits error versus l



Bits error versus K



Bits error versus U
Results
Initial program 17.2
Taylor expanded around 0 0.4
Simplified0.4
rmApplied associate-*l*0.5
rmApplied associate-*r*0.4
Final simplification0.4
herbie shell --seed 2019107
(FPCore (J l K U)
:name "Maksimov and Kolovsky, Equation (4)"
(+ (* (* J (- (exp l) (exp (- l)))) (cos (/ K 2))) U))