\frac{\tan^{-1}_* \frac{im}{re}}{\log 10}\frac{1}{\left(\sqrt[3]{\frac{\log 10}{\tan^{-1}_* \frac{im}{re}}} \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 r82289 = im;
double r82290 = re;
double r82291 = atan2(r82289, r82290);
double r82292 = 10.0;
double r82293 = log(r82292);
double r82294 = r82291 / r82293;
return r82294;
}
double f(double re, double im) {
double r82295 = 1.0;
double r82296 = 10.0;
double r82297 = log(r82296);
double r82298 = im;
double r82299 = re;
double r82300 = atan2(r82298, r82299);
double r82301 = r82297 / r82300;
double r82302 = cbrt(r82301);
double r82303 = r82302 * r82302;
double r82304 = r82303 * r82302;
double r82305 = r82295 / r82304;
return r82305;
}



Bits error versus re



Bits error versus im
Results
Initial program 0.8
rmApplied clear-num1.0
rmApplied add-cube-cbrt0.8
Final simplification0.8
herbie shell --seed 2020083
(FPCore (re im)
:name "math.log10 on complex, imaginary part"
:precision binary64
(/ (atan2 im re) (log 10)))