\frac{\tan^{-1}_* \frac{im}{re}}{\log 10}\frac{1}{\sqrt{\log 10}} \cdot \left(\sqrt{\sqrt{\frac{1}{\sqrt{\log 10}}}} \cdot \left(\left(\tan^{-1}_* \frac{im}{re} \cdot \sqrt{\frac{1}{\sqrt{\log 10}}}\right) \cdot \sqrt{\sqrt{\frac{1}{\sqrt{\log 10}}}}\right)\right)double f(double re, double im) {
double r1405981 = im;
double r1405982 = re;
double r1405983 = atan2(r1405981, r1405982);
double r1405984 = 10.0;
double r1405985 = log(r1405984);
double r1405986 = r1405983 / r1405985;
return r1405986;
}
double f(double re, double im) {
double r1405987 = 1.0;
double r1405988 = 10.0;
double r1405989 = log(r1405988);
double r1405990 = sqrt(r1405989);
double r1405991 = r1405987 / r1405990;
double r1405992 = sqrt(r1405991);
double r1405993 = sqrt(r1405992);
double r1405994 = im;
double r1405995 = re;
double r1405996 = atan2(r1405994, r1405995);
double r1405997 = r1405996 * r1405992;
double r1405998 = r1405997 * r1405993;
double r1405999 = r1405993 * r1405998;
double r1406000 = r1405991 * r1405999;
return r1406000;
}



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