\frac{\tan^{-1}_* \frac{im}{re}}{\log 10}\left(\left(\sqrt{\frac{1}{\sqrt{\log 10}}} \cdot \left(\frac{1}{\sqrt{\log 10}} \cdot \tan^{-1}_* \frac{im}{re}\right)\right) \cdot \sqrt{\sqrt{\frac{1}{\sqrt{\log 10}}}}\right) \cdot \sqrt{\sqrt{\frac{1}{\sqrt{\log 10}}}}double f(double re, double im) {
double r1418748 = im;
double r1418749 = re;
double r1418750 = atan2(r1418748, r1418749);
double r1418751 = 10.0;
double r1418752 = log(r1418751);
double r1418753 = r1418750 / r1418752;
return r1418753;
}
double f(double re, double im) {
double r1418754 = 1.0;
double r1418755 = 10.0;
double r1418756 = log(r1418755);
double r1418757 = sqrt(r1418756);
double r1418758 = r1418754 / r1418757;
double r1418759 = sqrt(r1418758);
double r1418760 = im;
double r1418761 = re;
double r1418762 = atan2(r1418760, r1418761);
double r1418763 = r1418758 * r1418762;
double r1418764 = r1418759 * r1418763;
double r1418765 = sqrt(r1418759);
double r1418766 = r1418764 * r1418765;
double r1418767 = r1418766 * r1418765;
return r1418767;
}



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