\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 r27926 = im;
double r27927 = re;
double r27928 = atan2(r27926, r27927);
double r27929 = 10.0;
double r27930 = log(r27929);
double r27931 = r27928 / r27930;
return r27931;
}
double f(double re, double im) {
double r27932 = 1.0;
double r27933 = 10.0;
double r27934 = log(r27933);
double r27935 = sqrt(r27934);
double r27936 = r27932 / r27935;
double r27937 = im;
double r27938 = re;
double r27939 = atan2(r27937, r27938);
double r27940 = r27932 / r27934;
double r27941 = sqrt(r27940);
double r27942 = r27939 * r27941;
double r27943 = r27936 * r27942;
return r27943;
}



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)))