\frac{\tan^{-1}_* \frac{im}{re}}{\log 10}\left(\left(\sqrt{\frac{1}{\sqrt{\log 10}}} \cdot \left(\frac{1}{\sqrt{\log 10}} \cdot \tan^{-1}_* \frac{im}{re}\right)\right) \cdot \sqrt{\sqrt{\frac{1}{\sqrt{\log 10}}}}\right) \cdot \sqrt{\sqrt{\frac{1}{\sqrt{\log 10}}}}double f(double re, double im) {
double r821600 = im;
double r821601 = re;
double r821602 = atan2(r821600, r821601);
double r821603 = 10.0;
double r821604 = log(r821603);
double r821605 = r821602 / r821604;
return r821605;
}
double f(double re, double im) {
double r821606 = 1.0;
double r821607 = 10.0;
double r821608 = log(r821607);
double r821609 = sqrt(r821608);
double r821610 = r821606 / r821609;
double r821611 = sqrt(r821610);
double r821612 = im;
double r821613 = re;
double r821614 = atan2(r821612, r821613);
double r821615 = r821610 * r821614;
double r821616 = r821611 * r821615;
double r821617 = sqrt(r821611);
double r821618 = r821616 * r821617;
double r821619 = r821618 * r821617;
return r821619;
}



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
rmApplied div-inv0.8
rmApplied add-sqr-sqrt0.8
Applied associate-*l*0.8
rmApplied add-sqr-sqrt0.8
Applied sqrt-prod0.1
Applied associate-*l*0.1
Final simplification0.1
herbie shell --seed 2019152
(FPCore (re im)
:name "math.log10 on complex, imaginary part"
(/ (atan2 im re) (log 10)))