\frac{\tan^{-1}_* \frac{im}{re}}{\log 10}\frac{1}{\sqrt{\log 10}} \cdot \left(\tan^{-1}_* \frac{im}{re} \cdot \frac{1}{\sqrt{\log 10}}\right)double f(double re, double im) {
double r32630 = im;
double r32631 = re;
double r32632 = atan2(r32630, r32631);
double r32633 = 10.0;
double r32634 = log(r32633);
double r32635 = r32632 / r32634;
return r32635;
}
double f(double re, double im) {
double r32636 = 1.0;
double r32637 = 10.0;
double r32638 = log(r32637);
double r32639 = sqrt(r32638);
double r32640 = r32636 / r32639;
double r32641 = im;
double r32642 = re;
double r32643 = atan2(r32641, r32642);
double r32644 = r32643 * r32640;
double r32645 = r32640 * r32644;
return r32645;
}



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