\frac{\tan^{-1}_* \frac{im}{re}}{\log 10}\frac{1}{\left(\left(\sqrt[3]{\frac{\sqrt{\log 10}}{1}} \cdot \frac{\sqrt[3]{\sqrt{\log 10}}}{\sqrt[3]{\tan^{-1}_* \frac{im}{re}}}\right) \cdot \sqrt[3]{\frac{\log 10}{\tan^{-1}_* \frac{im}{re}}}\right) \cdot \sqrt[3]{\frac{\log 10}{\tan^{-1}_* \frac{im}{re}}}}double f(double re, double im) {
double r30393 = im;
double r30394 = re;
double r30395 = atan2(r30393, r30394);
double r30396 = 10.0;
double r30397 = log(r30396);
double r30398 = r30395 / r30397;
return r30398;
}
double f(double re, double im) {
double r30399 = 1.0;
double r30400 = 10.0;
double r30401 = log(r30400);
double r30402 = sqrt(r30401);
double r30403 = r30402 / r30399;
double r30404 = cbrt(r30403);
double r30405 = cbrt(r30402);
double r30406 = im;
double r30407 = re;
double r30408 = atan2(r30406, r30407);
double r30409 = cbrt(r30408);
double r30410 = r30405 / r30409;
double r30411 = r30404 * r30410;
double r30412 = r30401 / r30408;
double r30413 = cbrt(r30412);
double r30414 = r30411 * r30413;
double r30415 = r30414 * r30413;
double r30416 = r30399 / r30415;
return r30416;
}



Bits error versus re



Bits error versus im
Results
Initial program 0.8
rmApplied clear-num1.0
rmApplied add-cube-cbrt0.8
rmApplied *-un-lft-identity0.8
Applied add-sqr-sqrt0.8
Applied times-frac0.8
Applied cbrt-prod0.8
rmApplied cbrt-div0.8
Final simplification0.8
herbie shell --seed 2020003 +o rules:numerics
(FPCore (re im)
:name "math.log10 on complex, imaginary part"
:precision binary64
(/ (atan2 im re) (log 10)))