\frac{\tan^{-1}_* \frac{im}{re}}{\log 10}\frac{1}{\sqrt{\log 10}} \cdot \left(\left(\tan^{-1}_* \frac{im}{re} \cdot \sqrt{\frac{1}{\sqrt{\log 10}}}\right) \cdot \sqrt{\frac{1}{\sqrt{\log 10}}}\right)double f(double re, double im) {
double r38814 = im;
double r38815 = re;
double r38816 = atan2(r38814, r38815);
double r38817 = 10.0;
double r38818 = log(r38817);
double r38819 = r38816 / r38818;
return r38819;
}
double f(double re, double im) {
double r38820 = 1.0;
double r38821 = 10.0;
double r38822 = log(r38821);
double r38823 = sqrt(r38822);
double r38824 = r38820 / r38823;
double r38825 = im;
double r38826 = re;
double r38827 = atan2(r38825, r38826);
double r38828 = sqrt(r38824);
double r38829 = r38827 * r38828;
double r38830 = r38829 * r38828;
double r38831 = r38824 * r38830;
return r38831;
}



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
Simplified0.8
Final simplification0.8
herbie shell --seed 2019179
(FPCore (re im)
:name "math.log10 on complex, imaginary part"
(/ (atan2 im re) (log 10.0)))