\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 r1181796 = im;
double r1181797 = re;
double r1181798 = atan2(r1181796, r1181797);
double r1181799 = 10.0;
double r1181800 = log(r1181799);
double r1181801 = r1181798 / r1181800;
return r1181801;
}
double f(double re, double im) {
double r1181802 = 1.0;
double r1181803 = 10.0;
double r1181804 = log(r1181803);
double r1181805 = sqrt(r1181804);
double r1181806 = r1181802 / r1181805;
double r1181807 = sqrt(r1181806);
double r1181808 = sqrt(r1181807);
double r1181809 = im;
double r1181810 = re;
double r1181811 = atan2(r1181809, r1181810);
double r1181812 = r1181811 * r1181807;
double r1181813 = r1181812 * r1181808;
double r1181814 = r1181808 * r1181813;
double r1181815 = r1181806 * r1181814;
return r1181815;
}



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