\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 r41142 = im;
double r41143 = re;
double r41144 = atan2(r41142, r41143);
double r41145 = 10.0;
double r41146 = log(r41145);
double r41147 = r41144 / r41146;
return r41147;
}
double f(double re, double im) {
double r41148 = 1.0;
double r41149 = 10.0;
double r41150 = log(r41149);
double r41151 = sqrt(r41150);
double r41152 = r41148 / r41151;
double r41153 = im;
double r41154 = re;
double r41155 = atan2(r41153, r41154);
double r41156 = r41148 / r41150;
double r41157 = sqrt(r41156);
double r41158 = r41155 * r41157;
double r41159 = r41152 * r41158;
return r41159;
}



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