\left(J \cdot \left(e^{\ell} - e^{-\ell}\right)\right) \cdot \cos \left(\frac{K}{2}\right) + UJ \cdot \left(\cos \left(\frac{K}{2}\right) \cdot \mathsf{fma}\left(\frac{1}{60}, {\ell}^{5}, \mathsf{fma}\left(\ell \cdot \ell, \frac{1}{3}, 2\right) \cdot \ell\right)\right) + Udouble f(double J, double l, double K, double U) {
double r3858439 = J;
double r3858440 = l;
double r3858441 = exp(r3858440);
double r3858442 = -r3858440;
double r3858443 = exp(r3858442);
double r3858444 = r3858441 - r3858443;
double r3858445 = r3858439 * r3858444;
double r3858446 = K;
double r3858447 = 2.0;
double r3858448 = r3858446 / r3858447;
double r3858449 = cos(r3858448);
double r3858450 = r3858445 * r3858449;
double r3858451 = U;
double r3858452 = r3858450 + r3858451;
return r3858452;
}
double f(double J, double l, double K, double U) {
double r3858453 = J;
double r3858454 = K;
double r3858455 = 2.0;
double r3858456 = r3858454 / r3858455;
double r3858457 = cos(r3858456);
double r3858458 = 0.016666666666666666;
double r3858459 = l;
double r3858460 = 5.0;
double r3858461 = pow(r3858459, r3858460);
double r3858462 = r3858459 * r3858459;
double r3858463 = 0.3333333333333333;
double r3858464 = fma(r3858462, r3858463, r3858455);
double r3858465 = r3858464 * r3858459;
double r3858466 = fma(r3858458, r3858461, r3858465);
double r3858467 = r3858457 * r3858466;
double r3858468 = r3858453 * r3858467;
double r3858469 = U;
double r3858470 = r3858468 + r3858469;
return r3858470;
}



Bits error versus J



Bits error versus l



Bits error versus K



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