\frac{\tan^{-1}_* \frac{im}{re}}{\log 10}\frac{1}{\sqrt{\log 10}} \cdot \left(\tan^{-1}_* \frac{im}{re} \cdot \frac{1}{\sqrt{\log 10}}\right)double f(double re, double im) {
double r29954 = im;
double r29955 = re;
double r29956 = atan2(r29954, r29955);
double r29957 = 10.0;
double r29958 = log(r29957);
double r29959 = r29956 / r29958;
return r29959;
}
double f(double re, double im) {
double r29960 = 1.0;
double r29961 = 10.0;
double r29962 = log(r29961);
double r29963 = sqrt(r29962);
double r29964 = r29960 / r29963;
double r29965 = im;
double r29966 = re;
double r29967 = atan2(r29965, r29966);
double r29968 = r29967 * r29964;
double r29969 = r29964 * r29968;
return r29969;
}



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
Final simplification0.8
herbie shell --seed 2020025
(FPCore (re im)
:name "math.log10 on complex, imaginary part"
:precision binary64
(/ (atan2 im re) (log 10)))