\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 r71690 = im;
double r71691 = re;
double r71692 = atan2(r71690, r71691);
double r71693 = 10.0;
double r71694 = log(r71693);
double r71695 = r71692 / r71694;
return r71695;
}
double f(double re, double im) {
double r71696 = 1.0;
double r71697 = 10.0;
double r71698 = log(r71697);
double r71699 = sqrt(r71698);
double r71700 = r71696 / r71699;
double r71701 = im;
double r71702 = re;
double r71703 = atan2(r71701, r71702);
double r71704 = r71703 * r71700;
double r71705 = r71700 * r71704;
return r71705;
}



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