\frac{\tan^{-1}_* \frac{im}{re}}{\log 10}\frac{\tan^{-1}_* \frac{im}{re}}{\frac{\log 10}{1}}double f(double re, double im) {
double r39784 = im;
double r39785 = re;
double r39786 = atan2(r39784, r39785);
double r39787 = 10.0;
double r39788 = log(r39787);
double r39789 = r39786 / r39788;
return r39789;
}
double f(double re, double im) {
double r39790 = im;
double r39791 = re;
double r39792 = atan2(r39790, r39791);
double r39793 = 10.0;
double r39794 = log(r39793);
double r39795 = 1.0;
double r39796 = r39794 / r39795;
double r39797 = r39792 / r39796;
return r39797;
}



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
rmApplied div-inv0.8
rmApplied add-sqr-sqrt0.8
Applied associate-*l*0.8
Simplified0.9
rmApplied add-sqr-sqrt0.9
Applied sqrt-prod0.1
Applied associate-*l*0.1
Final simplification0.8
herbie shell --seed 2019304
(FPCore (re im)
:name "math.log10 on complex, imaginary part"
:precision binary64
(/ (atan2 im re) (log 10)))