\frac{\tan^{-1}_* \frac{im}{re}}{\log 10}\frac{1}{\sqrt{\log 10}} \cdot \left(\left(\left(\tan^{-1}_* \frac{im}{re} \cdot \sqrt{\frac{1}{\sqrt{\log 10}}}\right) \cdot \sqrt{\sqrt{\frac{1}{\sqrt{\log 10}}}}\right) \cdot \sqrt{\sqrt{\frac{1}{\sqrt{\log 10}}}}\right)double f(double re, double im) {
double r2396395 = im;
double r2396396 = re;
double r2396397 = atan2(r2396395, r2396396);
double r2396398 = 10.0;
double r2396399 = log(r2396398);
double r2396400 = r2396397 / r2396399;
return r2396400;
}
double f(double re, double im) {
double r2396401 = 1.0;
double r2396402 = 10.0;
double r2396403 = log(r2396402);
double r2396404 = sqrt(r2396403);
double r2396405 = r2396401 / r2396404;
double r2396406 = im;
double r2396407 = re;
double r2396408 = atan2(r2396406, r2396407);
double r2396409 = sqrt(r2396405);
double r2396410 = r2396408 * r2396409;
double r2396411 = sqrt(r2396409);
double r2396412 = r2396410 * r2396411;
double r2396413 = r2396412 * r2396411;
double r2396414 = r2396405 * r2396413;
return r2396414;
}



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-*r*0.8
rmApplied add-sqr-sqrt0.8
Applied sqrt-prod0.1
Applied associate-*r*0.1
Final simplification0.1
herbie shell --seed 2019174 +o rules:numerics
(FPCore (re im)
:name "math.log10 on complex, imaginary part"
(/ (atan2 im re) (log 10.0)))