\frac{\tan^{-1}_* \frac{im}{re}}{\log 10}\left(\sqrt{\sqrt{\frac{1}{\sqrt{\log 10}}}} \cdot \left(\left(\tan^{-1}_* \frac{im}{re} \cdot \sqrt{\sqrt{\frac{1}{\log 10}}}\right) \cdot \sqrt{\sqrt{\frac{1}{\sqrt{\log 10}}}}\right)\right) \cdot \frac{1}{\sqrt{\log 10}}double f(double re, double im) {
double r34486 = im;
double r34487 = re;
double r34488 = atan2(r34486, r34487);
double r34489 = 10.0;
double r34490 = log(r34489);
double r34491 = r34488 / r34490;
return r34491;
}
double f(double re, double im) {
double r34492 = 1.0;
double r34493 = 10.0;
double r34494 = log(r34493);
double r34495 = sqrt(r34494);
double r34496 = r34492 / r34495;
double r34497 = sqrt(r34496);
double r34498 = sqrt(r34497);
double r34499 = im;
double r34500 = re;
double r34501 = atan2(r34499, r34500);
double r34502 = r34492 / r34494;
double r34503 = sqrt(r34502);
double r34504 = sqrt(r34503);
double r34505 = r34501 * r34504;
double r34506 = r34505 * r34498;
double r34507 = r34498 * r34506;
double r34508 = r34507 * r34496;
return r34508;
}



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
Taylor expanded around 0 0.8
rmApplied add-sqr-sqrt0.8
Applied sqrt-prod0.8
Applied associate-*r*0.8
rmApplied add-sqr-sqrt0.8
Applied add-cube-cbrt0.8
Applied times-frac0.8
Applied sqrt-prod0.8
Applied sqrt-prod0.1
Applied associate-*r*0.1
Simplified0.1
Final simplification0.1
herbie shell --seed 2019303
(FPCore (re im)
:name "math.log10 on complex, imaginary part"
:precision binary64
(/ (atan2 im re) (log 10)))