\frac{\tan^{-1}_* \frac{im}{re}}{\log 10}\frac{\tan^{-1}_* \frac{im}{re} \cdot \sqrt{\frac{1}{\log 10}}}{\sqrt{\log 10}}double f(double re, double im) {
double r36384 = im;
double r36385 = re;
double r36386 = atan2(r36384, r36385);
double r36387 = 10.0;
double r36388 = log(r36387);
double r36389 = r36386 / r36388;
return r36389;
}
double f(double re, double im) {
double r36390 = im;
double r36391 = re;
double r36392 = atan2(r36390, r36391);
double r36393 = 1.0;
double r36394 = 10.0;
double r36395 = log(r36394);
double r36396 = r36393 / r36395;
double r36397 = sqrt(r36396);
double r36398 = r36392 * r36397;
double r36399 = sqrt(r36395);
double r36400 = r36398 / r36399;
return r36400;
}



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