\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(\left(\sqrt[3]{\tan^{-1}_* \frac{\mathsf{expm1}\left(\sin \left(\mathsf{expm1}\left(a\right)\right)\right)}{\tan^{-1} a}} \cdot \log \left(e^{\sqrt[3]{\tan^{-1}_* \frac{\mathsf{expm1}\left(\sin \left(\mathsf{expm1}\left(a\right)\right)\right)}{\tan^{-1} a}}}\right)\right) \cdot \sqrt[3]{\tan^{-1}_* \frac{\mathsf{expm1}\left(\sin \left(\mathsf{expm1}\left(a\right)\right)\right)}{\tan^{-1} a}}\right) \bmod a\right)} \cdot \sqrt[3]{\left(\left(\left(\sqrt[3]{\tan^{-1}_* \frac{\mathsf{expm1}\left(\sin \left(\mathsf{expm1}\left(a\right)\right)\right)}{\tan^{-1} a}} \cdot \log \left(e^{\sqrt[3]{\tan^{-1}_* \frac{\mathsf{expm1}\left(\sin \left(\mathsf{expm1}\left(a\right)\right)\right)}{\tan^{-1} a}}}\right)\right) \cdot \sqrt[3]{\tan^{-1}_* \frac{\mathsf{expm1}\left(\sin \left(\mathsf{expm1}\left(a\right)\right)\right)}{\tan^{-1} a}}\right) \bmod a\right)}\right) \cdot \sqrt[3]{\left(\left(\left(\sqrt[3]{\tan^{-1}_* \frac{\mathsf{expm1}\left(\sin \left(\mathsf{expm1}\left(a\right)\right)\right)}{\tan^{-1} a}} \cdot \log \left(e^{\sqrt[3]{\tan^{-1}_* \frac{\mathsf{expm1}\left(\sin \left(\mathsf{expm1}\left(a\right)\right)\right)}{\tan^{-1} a}}}\right)\right) \cdot \log \left(e^{\sqrt[3]{\tan^{-1}_* \frac{\mathsf{expm1}\left(\sin \left(\mathsf{expm1}\left(a\right)\right)\right)}{\tan^{-1} a}}}\right)\right) \bmod a\right)}\right|double f(double a) {
double r14825 = a;
double r14826 = expm1(r14825);
double r14827 = sin(r14826);
double r14828 = expm1(r14827);
double r14829 = atan(r14825);
double r14830 = atan2(r14828, r14829);
double r14831 = fmod(r14830, r14825);
double r14832 = fabs(r14831);
return r14832;
}
double f(double a) {
double r14833 = a;
double r14834 = expm1(r14833);
double r14835 = sin(r14834);
double r14836 = expm1(r14835);
double r14837 = atan(r14833);
double r14838 = atan2(r14836, r14837);
double r14839 = cbrt(r14838);
double r14840 = exp(r14839);
double r14841 = log(r14840);
double r14842 = r14839 * r14841;
double r14843 = r14842 * r14839;
double r14844 = fmod(r14843, r14833);
double r14845 = cbrt(r14844);
double r14846 = r14845 * r14845;
double r14847 = r14842 * r14841;
double r14848 = fmod(r14847, r14833);
double r14849 = cbrt(r14848);
double r14850 = r14846 * r14849;
double r14851 = fabs(r14850);
return r14851;
}



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