\frac{\tan^{-1}_* \frac{im}{re}}{\log 10}\tan^{-1}_* \frac{im}{re} \cdot \frac{\sqrt{\frac{1}{\log 10}}}{\sqrt{\log 10}}double f(double re, double im) {
double r35876 = im;
double r35877 = re;
double r35878 = atan2(r35876, r35877);
double r35879 = 10.0;
double r35880 = log(r35879);
double r35881 = r35878 / r35880;
return r35881;
}
double f(double re, double im) {
double r35882 = im;
double r35883 = re;
double r35884 = atan2(r35882, r35883);
double r35885 = 1.0;
double r35886 = 10.0;
double r35887 = log(r35886);
double r35888 = r35885 / r35887;
double r35889 = sqrt(r35888);
double r35890 = sqrt(r35887);
double r35891 = r35889 / r35890;
double r35892 = r35884 * r35891;
return r35892;
}



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
rmApplied associate-*l/0.8
Simplified0.8
rmApplied *-un-lft-identity0.8
Applied times-frac0.8
Simplified0.8
Final simplification0.8
herbie shell --seed 2019294
(FPCore (re im)
:name "math.log10 on complex, imaginary part"
:precision binary64
(/ (atan2 im re) (log 10)))