\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 r13878 = im;
double r13879 = re;
double r13880 = atan2(r13878, r13879);
double r13881 = 10.0;
double r13882 = log(r13881);
double r13883 = r13880 / r13882;
return r13883;
}
double f(double re, double im) {
double r13884 = 1.0;
double r13885 = 10.0;
double r13886 = log(r13885);
double r13887 = sqrt(r13886);
double r13888 = r13884 / r13887;
double r13889 = im;
double r13890 = re;
double r13891 = atan2(r13889, r13890);
double r13892 = r13884 / r13886;
double r13893 = sqrt(r13892);
double r13894 = r13891 * r13893;
double r13895 = r13888 * r13894;
return r13895;
}



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 2020045 +o rules:numerics
(FPCore (re im)
:name "math.log10 on complex, imaginary part"
:precision binary64
(/ (atan2 im re) (log 10)))