\frac{-\left(f + n\right)}{f - n}\frac{1}{\frac{n - f}{n + f}}(FPCore (f n) :precision binary64 (/ (- (+ f n)) (- f n)))
(FPCore (f n) :precision binary64 (/ 1.0 (/ (- n f) (+ n f))))
double code(double f, double n) {
return -(f + n) / (f - n);
}
double code(double f, double n) {
return 1.0 / ((n - f) / (n + f));
}



Bits error versus f



Bits error versus n
Results
Initial program 0.0
Simplified0.0
rmApplied clear-num_binary640.0
Final simplification0.0
herbie shell --seed 2021032
(FPCore (f n)
:name "subtraction fraction"
:precision binary64
(/ (- (+ f n)) (- f n)))