\frac{\tan^{-1}_* \frac{im}{re}}{\log 10}\left(\frac{\sqrt[3]{\tan^{-1}_* \frac{im}{re}}}{\sqrt{\sqrt[3]{\sqrt{\log 10}}} \cdot \sqrt{\sqrt[3]{\sqrt{\log 10}}}} \cdot \frac{\sqrt[3]{\tan^{-1}_* \frac{im}{re}} \cdot \frac{\sqrt[3]{\tan^{-1}_* \frac{im}{re}}}{\sqrt[3]{\sqrt{\log 10}}}}{\sqrt[3]{\sqrt{\log 10}}}\right) \cdot \frac{1}{\sqrt{\log 10}}double f(double re, double im) {
double r38252 = im;
double r38253 = re;
double r38254 = atan2(r38252, r38253);
double r38255 = 10.0;
double r38256 = log(r38255);
double r38257 = r38254 / r38256;
return r38257;
}
double f(double re, double im) {
double r38258 = im;
double r38259 = re;
double r38260 = atan2(r38258, r38259);
double r38261 = cbrt(r38260);
double r38262 = 10.0;
double r38263 = log(r38262);
double r38264 = sqrt(r38263);
double r38265 = cbrt(r38264);
double r38266 = sqrt(r38265);
double r38267 = r38266 * r38266;
double r38268 = r38261 / r38267;
double r38269 = r38261 / r38265;
double r38270 = r38261 * r38269;
double r38271 = r38270 / r38265;
double r38272 = r38268 * r38271;
double r38273 = 1.0;
double r38274 = r38273 / r38264;
double r38275 = r38272 * r38274;
return r38275;
}



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