\frac{\tan^{-1}_* \frac{im}{re}}{\log 10}\sqrt{\frac{1}{\sqrt{\log 10}}} \cdot \left(\left(\left(\frac{1}{\sqrt{\log 10}} \cdot \tan^{-1}_* \frac{im}{re}\right) \cdot \sqrt[3]{\sqrt{\frac{1}{\sqrt{\log 10}}}}\right) \cdot \left(\sqrt[3]{\sqrt{\frac{1}{\sqrt{\log 10}}}} \cdot \sqrt[3]{\sqrt{\frac{1}{\sqrt{\log 10}}}}\right)\right)double f(double re, double im) {
double r1632364 = im;
double r1632365 = re;
double r1632366 = atan2(r1632364, r1632365);
double r1632367 = 10.0;
double r1632368 = log(r1632367);
double r1632369 = r1632366 / r1632368;
return r1632369;
}
double f(double re, double im) {
double r1632370 = 1.0;
double r1632371 = 10.0;
double r1632372 = log(r1632371);
double r1632373 = sqrt(r1632372);
double r1632374 = r1632370 / r1632373;
double r1632375 = sqrt(r1632374);
double r1632376 = im;
double r1632377 = re;
double r1632378 = atan2(r1632376, r1632377);
double r1632379 = r1632374 * r1632378;
double r1632380 = cbrt(r1632375);
double r1632381 = r1632379 * r1632380;
double r1632382 = r1632380 * r1632380;
double r1632383 = r1632381 * r1632382;
double r1632384 = r1632375 * r1632383;
return r1632384;
}



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 div-inv0.8
rmApplied add-sqr-sqrt0.8
Applied associate-*l*0.8
rmApplied add-cube-cbrt0.1
Applied associate-*l*0.2
Final simplification0.2
herbie shell --seed 2019171
(FPCore (re im)
:name "math.log10 on complex, imaginary part"
(/ (atan2 im re) (log 10.0)))