\frac{\tan^{-1}_* \frac{im}{re}}{\log 10}\frac{1}{\frac{\log 10}{\tan^{-1}_* \frac{im}{re}}}double f(double re, double im) {
double r36504 = im;
double r36505 = re;
double r36506 = atan2(r36504, r36505);
double r36507 = 10.0;
double r36508 = log(r36507);
double r36509 = r36506 / r36508;
return r36509;
}
double f(double re, double im) {
double r36510 = 1.0;
double r36511 = 10.0;
double r36512 = log(r36511);
double r36513 = im;
double r36514 = re;
double r36515 = atan2(r36513, r36514);
double r36516 = r36512 / r36515;
double r36517 = r36510 / r36516;
return r36517;
}



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