\frac{\tan^{-1}_* \frac{im}{re}}{\log 10}\frac{1}{\sqrt{\log 10}} \cdot \left(\left(\left(\tan^{-1}_* \frac{im}{re} \cdot \sqrt{\frac{1}{\sqrt{\log 10}}}\right) \cdot \sqrt{\sqrt{\frac{1}{\sqrt{\log 10}}}}\right) \cdot \sqrt{\sqrt{\frac{1}{\sqrt{\log 10}}}}\right)double f(double re, double im) {
double r20407 = im;
double r20408 = re;
double r20409 = atan2(r20407, r20408);
double r20410 = 10.0;
double r20411 = log(r20410);
double r20412 = r20409 / r20411;
return r20412;
}
double f(double re, double im) {
double r20413 = 1.0;
double r20414 = 10.0;
double r20415 = log(r20414);
double r20416 = sqrt(r20415);
double r20417 = r20413 / r20416;
double r20418 = im;
double r20419 = re;
double r20420 = atan2(r20418, r20419);
double r20421 = sqrt(r20417);
double r20422 = r20420 * r20421;
double r20423 = sqrt(r20421);
double r20424 = r20422 * r20423;
double r20425 = r20424 * r20423;
double r20426 = r20417 * r20425;
return r20426;
}



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