\frac{\tan^{-1}_* \frac{im}{re}}{\log 10}\frac{\sqrt{\frac{1}{\log 10}}}{\sqrt{\log 10}} \cdot \tan^{-1}_* \frac{im}{re}double f(double re, double im) {
double r27525 = im;
double r27526 = re;
double r27527 = atan2(r27525, r27526);
double r27528 = 10.0;
double r27529 = log(r27528);
double r27530 = r27527 / r27529;
return r27530;
}
double f(double re, double im) {
double r27531 = 1.0;
double r27532 = 10.0;
double r27533 = log(r27532);
double r27534 = r27531 / r27533;
double r27535 = sqrt(r27534);
double r27536 = sqrt(r27533);
double r27537 = r27535 / r27536;
double r27538 = im;
double r27539 = re;
double r27540 = atan2(r27538, r27539);
double r27541 = r27537 * r27540;
return r27541;
}



Bits error versus re



Bits error versus im
Results
Initial program 0.9
rmApplied add-sqr-sqrt0.9
Applied *-un-lft-identity0.9
Applied times-frac0.8
Taylor expanded around 0 0.8
rmApplied associate-*r*0.8
Simplified0.8
Final simplification0.8
herbie shell --seed 2019195
(FPCore (re im)
:name "math.log10 on complex, imaginary part"
(/ (atan2 im re) (log 10.0)))