\frac{\tan^{-1}_* \frac{im}{re}}{\log 10}\sqrt{\sqrt{\frac{1}{\sqrt{\log 10}}}} \cdot \left(\sqrt{\sqrt{\frac{1}{\sqrt{\log 10}}}} \cdot \left(\sqrt{\frac{1}{\sqrt{\log 10}}} \cdot \left(\tan^{-1}_* \frac{im}{re} \cdot \sqrt{\frac{1}{\log 10}}\right)\right)\right)double f(double re, double im) {
double r43488 = im;
double r43489 = re;
double r43490 = atan2(r43488, r43489);
double r43491 = 10.0;
double r43492 = log(r43491);
double r43493 = r43490 / r43492;
return r43493;
}
double f(double re, double im) {
double r43494 = 1.0;
double r43495 = 10.0;
double r43496 = log(r43495);
double r43497 = sqrt(r43496);
double r43498 = r43494 / r43497;
double r43499 = sqrt(r43498);
double r43500 = sqrt(r43499);
double r43501 = im;
double r43502 = re;
double r43503 = atan2(r43501, r43502);
double r43504 = r43494 / r43496;
double r43505 = sqrt(r43504);
double r43506 = r43503 * r43505;
double r43507 = r43499 * r43506;
double r43508 = r43500 * r43507;
double r43509 = r43500 * r43508;
return r43509;
}



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
Taylor expanded around 0 0.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 2019199
(FPCore (re im)
:name "math.log10 on complex, imaginary part"
(/ (atan2 im re) (log 10.0)))