\frac{\tan^{-1}_* \frac{im}{re}}{\log 10}\frac{1}{\sqrt{\log 10}} \cdot \left(\tan^{-1}_* \frac{im}{re} \cdot \sqrt{\frac{1}{\log 10}}\right)double f(double re, double im) {
double r72796 = im;
double r72797 = re;
double r72798 = atan2(r72796, r72797);
double r72799 = 10.0;
double r72800 = log(r72799);
double r72801 = r72798 / r72800;
return r72801;
}
double f(double re, double im) {
double r72802 = 1.0;
double r72803 = 10.0;
double r72804 = log(r72803);
double r72805 = sqrt(r72804);
double r72806 = r72802 / r72805;
double r72807 = im;
double r72808 = re;
double r72809 = atan2(r72807, r72808);
double r72810 = r72802 / r72804;
double r72811 = sqrt(r72810);
double r72812 = r72809 * r72811;
double r72813 = r72806 * r72812;
return r72813;
}



Bits error versus re



Bits error versus im
Results
Initial program 0.8
rmApplied add-sqr-sqrt0.8
Applied *-un-lft-identity0.8
Applied times-frac0.8
Taylor expanded around 0 0.8
Final simplification0.8
herbie shell --seed 2020060 +o rules:numerics
(FPCore (re im)
:name "math.log10 on complex, imaginary part"
:precision binary64
(/ (atan2 im re) (log 10)))