\frac{\tan^{-1}_* \frac{im}{re}}{\log 10}\frac{1}{\sqrt[3]{\frac{\log 10}{\tan^{-1}_* \frac{im}{re}}} \cdot \left(\left(\sqrt[3]{\sqrt[3]{\log 10} \cdot \sqrt[3]{\log 10}} \cdot \left(\sqrt[3]{\sqrt[3]{\frac{\sqrt[3]{\log 10}}{\tan^{-1}_* \frac{im}{re}}}} \cdot \left(\sqrt[3]{\sqrt[3]{\frac{\sqrt[3]{\log 10}}{\tan^{-1}_* \frac{im}{re}}}} \cdot \sqrt[3]{\sqrt[3]{\frac{\sqrt[3]{\log 10}}{\tan^{-1}_* \frac{im}{re}}}}\right)\right)\right) \cdot \sqrt[3]{\frac{\log 10}{\tan^{-1}_* \frac{im}{re}}}\right)}double f(double re, double im) {
double r950610 = im;
double r950611 = re;
double r950612 = atan2(r950610, r950611);
double r950613 = 10.0;
double r950614 = log(r950613);
double r950615 = r950612 / r950614;
return r950615;
}
double f(double re, double im) {
double r950616 = 1.0;
double r950617 = 10.0;
double r950618 = log(r950617);
double r950619 = im;
double r950620 = re;
double r950621 = atan2(r950619, r950620);
double r950622 = r950618 / r950621;
double r950623 = cbrt(r950622);
double r950624 = cbrt(r950618);
double r950625 = r950624 * r950624;
double r950626 = cbrt(r950625);
double r950627 = r950624 / r950621;
double r950628 = cbrt(r950627);
double r950629 = cbrt(r950628);
double r950630 = r950629 * r950629;
double r950631 = r950629 * r950630;
double r950632 = r950626 * r950631;
double r950633 = r950632 * r950623;
double r950634 = r950623 * r950633;
double r950635 = r950616 / r950634;
return r950635;
}



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-cube-cbrt1.2
Applied times-frac1.2
Applied cbrt-prod0.8
Simplified0.8
rmApplied add-cube-cbrt0.5
Final simplification0.5
herbie shell --seed 2019146
(FPCore (re im)
:name "math.log10 on complex, imaginary part"
(/ (atan2 im re) (log 10)))