\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 r43362 = im;
double r43363 = re;
double r43364 = atan2(r43362, r43363);
double r43365 = 10.0;
double r43366 = log(r43365);
double r43367 = r43364 / r43366;
return r43367;
}
double f(double re, double im) {
double r43368 = 1.0;
double r43369 = 10.0;
double r43370 = log(r43369);
double r43371 = sqrt(r43370);
double r43372 = r43368 / r43371;
double r43373 = im;
double r43374 = re;
double r43375 = atan2(r43373, r43374);
double r43376 = r43368 / r43370;
double r43377 = sqrt(r43376);
double r43378 = r43375 * r43377;
double r43379 = r43372 * r43378;
return r43379;
}



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