\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 r45118 = im;
double r45119 = re;
double r45120 = atan2(r45118, r45119);
double r45121 = 10.0;
double r45122 = log(r45121);
double r45123 = r45120 / r45122;
return r45123;
}
double f(double re, double im) {
double r45124 = 1.0;
double r45125 = 10.0;
double r45126 = log(r45125);
double r45127 = sqrt(r45126);
double r45128 = r45124 / r45127;
double r45129 = im;
double r45130 = re;
double r45131 = atan2(r45129, r45130);
double r45132 = r45124 / r45126;
double r45133 = sqrt(r45132);
double r45134 = r45131 * r45133;
double r45135 = r45128 * r45134;
return r45135;
}



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
Final simplification0.8
herbie shell --seed 2019347
(FPCore (re im)
:name "math.log10 on complex, imaginary part"
:precision binary64
(/ (atan2 im re) (log 10)))