\frac{\tan^{-1}_* \frac{im}{re}}{\log 10}\left(\sqrt{\sqrt{\frac{1}{\sqrt{\log 10}}}} \cdot \left(\sqrt{\sqrt{\frac{1}{\sqrt{\log 10}}}} \cdot \left(\tan^{-1}_* \frac{im}{re} \cdot \sqrt{\sqrt{\frac{1}{\log 10}}}\right)\right)\right) \cdot \frac{1}{\sqrt{\log 10}}double f(double re, double im) {
double r19001 = im;
double r19002 = re;
double r19003 = atan2(r19001, r19002);
double r19004 = 10.0;
double r19005 = log(r19004);
double r19006 = r19003 / r19005;
return r19006;
}
double f(double re, double im) {
double r19007 = 1.0;
double r19008 = 10.0;
double r19009 = log(r19008);
double r19010 = sqrt(r19009);
double r19011 = r19007 / r19010;
double r19012 = sqrt(r19011);
double r19013 = sqrt(r19012);
double r19014 = im;
double r19015 = re;
double r19016 = atan2(r19014, r19015);
double r19017 = r19007 / r19009;
double r19018 = sqrt(r19017);
double r19019 = sqrt(r19018);
double r19020 = r19016 * r19019;
double r19021 = r19013 * r19020;
double r19022 = r19013 * r19021;
double r19023 = r19022 * r19011;
return r19023;
}



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
Taylor expanded around 0 0.8
rmApplied add-sqr-sqrt0.8
Applied sqrt-prod0.8
Applied associate-*r*0.8
rmApplied add-sqr-sqrt0.8
Applied add-cube-cbrt0.8
Applied times-frac0.8
Applied sqrt-prod0.8
Applied sqrt-prod0.1
Applied associate-*r*0.1
Simplified0.1
Final simplification0.1
herbie shell --seed 2019310 +o rules:numerics
(FPCore (re im)
:name "math.log10 on complex, imaginary part"
:precision binary64
(/ (atan2 im re) (log 10)))