\frac{-\left(f + n\right)}{f - n}\sqrt[3]{\log \left(e^{-\mathsf{log1p}\left(\mathsf{expm1}\left({\left(\frac{f + n}{f - n}\right)}^{3}\right)\right)}\right)}double f(double f, double n) {
double r26076 = f;
double r26077 = n;
double r26078 = r26076 + r26077;
double r26079 = -r26078;
double r26080 = r26076 - r26077;
double r26081 = r26079 / r26080;
return r26081;
}
double f(double f, double n) {
double r26082 = f;
double r26083 = n;
double r26084 = r26082 + r26083;
double r26085 = r26082 - r26083;
double r26086 = r26084 / r26085;
double r26087 = 3.0;
double r26088 = pow(r26086, r26087);
double r26089 = expm1(r26088);
double r26090 = log1p(r26089);
double r26091 = -r26090;
double r26092 = exp(r26091);
double r26093 = log(r26092);
double r26094 = cbrt(r26093);
return r26094;
}



Bits error versus f



Bits error versus n
Results
Initial program 0.0
rmApplied add-cbrt-cube41.7
Applied add-cbrt-cube42.6
Applied cbrt-undiv42.6
Simplified0.0
rmApplied add-log-exp0.0
Simplified0.0
rmApplied log1p-expm1-u0.0
Simplified0.0
Final simplification0.0
herbie shell --seed 2019174 +o rules:numerics
(FPCore (f n)
:name "subtraction fraction"
(/ (- (+ f n)) (- f n)))