\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 r32117 = im;
double r32118 = re;
double r32119 = atan2(r32117, r32118);
double r32120 = 10.0;
double r32121 = log(r32120);
double r32122 = r32119 / r32121;
return r32122;
}
double f(double re, double im) {
double r32123 = 1.0;
double r32124 = 10.0;
double r32125 = log(r32124);
double r32126 = sqrt(r32125);
double r32127 = r32123 / r32126;
double r32128 = im;
double r32129 = re;
double r32130 = atan2(r32128, r32129);
double r32131 = r32123 / r32125;
double r32132 = sqrt(r32131);
double r32133 = r32130 * r32132;
double r32134 = r32127 * r32133;
return r32134;
}



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