\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 r76483 = im;
double r76484 = re;
double r76485 = atan2(r76483, r76484);
double r76486 = 10.0;
double r76487 = log(r76486);
double r76488 = r76485 / r76487;
return r76488;
}
double f(double re, double im) {
double r76489 = 1.0;
double r76490 = 10.0;
double r76491 = log(r76490);
double r76492 = sqrt(r76491);
double r76493 = r76489 / r76492;
double r76494 = im;
double r76495 = re;
double r76496 = atan2(r76494, r76495);
double r76497 = r76489 / r76491;
double r76498 = sqrt(r76497);
double r76499 = r76496 * r76498;
double r76500 = r76493 * r76499;
return r76500;
}



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