\left|\left(\left(\tan^{-1}_* \frac{\mathsf{expm1}\left(\sin \left(\mathsf{expm1}\left(a\right)\right)\right)}{\tan^{-1} a}\right) \bmod a\right)\right|\left|\left(\left(\tan^{-1}_* \frac{\left(\sqrt[3]{\mathsf{expm1}\left(\sin \left(\mathsf{expm1}\left(a\right)\right)\right)} \cdot \sqrt[3]{\mathsf{expm1}\left(\sin \left(\mathsf{expm1}\left(a\right)\right)\right)}\right) \cdot \left(\left(\sqrt[3]{\sqrt[3]{\mathsf{expm1}\left(\sin \left(\mathsf{expm1}\left(a\right)\right)\right)}} \cdot \sqrt[3]{\sqrt[3]{\mathsf{expm1}\left(\sin \left(\mathsf{expm1}\left(a\right)\right)\right)}}\right) \cdot \sqrt[3]{\sqrt[3]{\mathsf{expm1}\left(\sin \left(\mathsf{expm1}\left(a\right)\right)\right)}}\right)}{\tan^{-1} a}\right) \bmod a\right)\right|double f(double a) {
double r23272 = a;
double r23273 = expm1(r23272);
double r23274 = sin(r23273);
double r23275 = expm1(r23274);
double r23276 = atan(r23272);
double r23277 = atan2(r23275, r23276);
double r23278 = fmod(r23277, r23272);
double r23279 = fabs(r23278);
return r23279;
}
double f(double a) {
double r23280 = a;
double r23281 = expm1(r23280);
double r23282 = sin(r23281);
double r23283 = expm1(r23282);
double r23284 = cbrt(r23283);
double r23285 = r23284 * r23284;
double r23286 = cbrt(r23284);
double r23287 = r23286 * r23286;
double r23288 = r23287 * r23286;
double r23289 = r23285 * r23288;
double r23290 = atan(r23280);
double r23291 = atan2(r23289, r23290);
double r23292 = fmod(r23291, r23280);
double r23293 = fabs(r23292);
return r23293;
}



Bits error versus a
Initial program 33.6
rmApplied add-cube-cbrt33.6
rmApplied add-cube-cbrt33.6
Final simplification33.6
herbie shell --seed 2019306
(FPCore (a)
:name "Random Jason Timeout Test 006"
:precision binary64
(fabs (fmod (atan2 (expm1 (sin (expm1 a))) (atan a)) a)))