\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 r25813 = im;
double r25814 = re;
double r25815 = atan2(r25813, r25814);
double r25816 = 10.0;
double r25817 = log(r25816);
double r25818 = r25815 / r25817;
return r25818;
}
double f(double re, double im) {
double r25819 = 1.0;
double r25820 = 10.0;
double r25821 = log(r25820);
double r25822 = sqrt(r25821);
double r25823 = r25819 / r25822;
double r25824 = im;
double r25825 = re;
double r25826 = atan2(r25824, r25825);
double r25827 = r25819 / r25821;
double r25828 = sqrt(r25827);
double r25829 = r25826 * r25828;
double r25830 = r25823 * r25829;
return r25830;
}



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