\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(\sqrt[3]{\left(\left(\tan^{-1}_* \frac{\mathsf{expm1}\left(\left(\left(\sqrt[3]{\sqrt[3]{\sin \left(\mathsf{expm1}\left(a\right)\right)} \cdot \sqrt[3]{\sin \left(\mathsf{expm1}\left(a\right)\right)}} \cdot \sqrt[3]{\sqrt[3]{\sin \left(\mathsf{expm1}\left(a\right)\right)} \cdot \sqrt[3]{\sin \left(\mathsf{expm1}\left(a\right)\right)}}\right) \cdot e^{\log \left(\sqrt[3]{\sqrt[3]{\sin \left(\mathsf{expm1}\left(a\right)\right)} \cdot \sqrt[3]{\sin \left(\mathsf{expm1}\left(a\right)\right)}}\right)}\right) \cdot \sqrt[3]{\sin \left(\mathsf{expm1}\left(a\right)\right)}\right)}{\tan^{-1} a}\right) \bmod a\right)} \cdot \sqrt[3]{\left(\left(\tan^{-1}_* \frac{\mathsf{expm1}\left(\left(\left(\sqrt[3]{\sqrt[3]{\sin \left(\mathsf{expm1}\left(a\right)\right)} \cdot \sqrt[3]{\sin \left(\mathsf{expm1}\left(a\right)\right)}} \cdot \sqrt[3]{\sqrt[3]{\sin \left(\mathsf{expm1}\left(a\right)\right)} \cdot \sqrt[3]{\sin \left(\mathsf{expm1}\left(a\right)\right)}}\right) \cdot e^{\log \left(\sqrt[3]{\sqrt[3]{\sin \left(\mathsf{expm1}\left(a\right)\right)} \cdot \sqrt[3]{\sin \left(\mathsf{expm1}\left(a\right)\right)}}\right)}\right) \cdot \sqrt[3]{\sin \left(\mathsf{expm1}\left(a\right)\right)}\right)}{\tan^{-1} a}\right) \bmod a\right)}\right) \cdot \sqrt[3]{\left(\left(\tan^{-1}_* \frac{\mathsf{expm1}\left(\left(\left(\sqrt[3]{\sqrt[3]{\sin \left(\mathsf{expm1}\left(a\right)\right)} \cdot \sqrt[3]{\sin \left(\mathsf{expm1}\left(a\right)\right)}} \cdot \sqrt[3]{\sqrt[3]{\sin \left(\mathsf{expm1}\left(a\right)\right)} \cdot \sqrt[3]{\sin \left(\mathsf{expm1}\left(a\right)\right)}}\right) \cdot e^{\log \left(\sqrt[3]{\sqrt[3]{\sin \left(\mathsf{expm1}\left(a\right)\right)} \cdot \sqrt[3]{\sin \left(\mathsf{expm1}\left(a\right)\right)}}\right)}\right) \cdot \sqrt[3]{\sin \left(\mathsf{expm1}\left(a\right)\right)}\right)}{\tan^{-1} a}\right) \bmod a\right)}\right|double f(double a) {
double r22217 = a;
double r22218 = expm1(r22217);
double r22219 = sin(r22218);
double r22220 = expm1(r22219);
double r22221 = atan(r22217);
double r22222 = atan2(r22220, r22221);
double r22223 = fmod(r22222, r22217);
double r22224 = fabs(r22223);
return r22224;
}
double f(double a) {
double r22225 = a;
double r22226 = expm1(r22225);
double r22227 = sin(r22226);
double r22228 = cbrt(r22227);
double r22229 = r22228 * r22228;
double r22230 = cbrt(r22229);
double r22231 = r22230 * r22230;
double r22232 = log(r22230);
double r22233 = exp(r22232);
double r22234 = r22231 * r22233;
double r22235 = r22234 * r22228;
double r22236 = expm1(r22235);
double r22237 = atan(r22225);
double r22238 = atan2(r22236, r22237);
double r22239 = fmod(r22238, r22225);
double r22240 = cbrt(r22239);
double r22241 = r22240 * r22240;
double r22242 = r22241 * r22240;
double r22243 = fabs(r22242);
return r22243;
}



Bits error versus a
Initial program 33.4
rmApplied add-cube-cbrt33.5
rmApplied add-cube-cbrt33.5
rmApplied add-exp-log33.5
rmApplied add-cube-cbrt33.5
Final simplification33.5
herbie shell --seed 2020036 +o rules:numerics
(FPCore (a)
:name "Random Jason Timeout Test 006"
:precision binary64
(fabs (fmod (atan2 (expm1 (sin (expm1 a))) (atan a)) a)))