\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 r80308 = im;
double r80309 = re;
double r80310 = atan2(r80308, r80309);
double r80311 = 10.0;
double r80312 = log(r80311);
double r80313 = r80310 / r80312;
return r80313;
}
double f(double re, double im) {
double r80314 = 1.0;
double r80315 = 10.0;
double r80316 = log(r80315);
double r80317 = sqrt(r80316);
double r80318 = r80314 / r80317;
double r80319 = im;
double r80320 = re;
double r80321 = atan2(r80319, r80320);
double r80322 = r80314 / r80316;
double r80323 = sqrt(r80322);
double r80324 = r80321 * r80323;
double r80325 = r80318 * r80324;
return r80325;
}



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