\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 r1425572 = im;
double r1425573 = re;
double r1425574 = atan2(r1425572, r1425573);
double r1425575 = 10.0;
double r1425576 = log(r1425575);
double r1425577 = r1425574 / r1425576;
return r1425577;
}
double f(double re, double im) {
double r1425578 = 1.0;
double r1425579 = 10.0;
double r1425580 = log(r1425579);
double r1425581 = sqrt(r1425580);
double r1425582 = r1425578 / r1425581;
double r1425583 = sqrt(r1425582);
double r1425584 = sqrt(r1425583);
double r1425585 = im;
double r1425586 = re;
double r1425587 = atan2(r1425585, r1425586);
double r1425588 = r1425587 * r1425583;
double r1425589 = r1425588 * r1425584;
double r1425590 = r1425584 * r1425589;
double r1425591 = r1425582 * r1425590;
return r1425591;
}



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