\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 r75581 = im;
double r75582 = re;
double r75583 = atan2(r75581, r75582);
double r75584 = 10.0;
double r75585 = log(r75584);
double r75586 = r75583 / r75585;
return r75586;
}
double f(double re, double im) {
double r75587 = 1.0;
double r75588 = 10.0;
double r75589 = log(r75588);
double r75590 = sqrt(r75589);
double r75591 = r75587 / r75590;
double r75592 = im;
double r75593 = re;
double r75594 = atan2(r75592, r75593);
double r75595 = r75587 / r75589;
double r75596 = sqrt(r75595);
double r75597 = r75594 * r75596;
double r75598 = r75591 * r75597;
return r75598;
}



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