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



Bits error versus f



Bits error versus n
Results
Initial program 0.0
rmApplied clear-num_binary640.0
rmApplied div-sub_binary640.0
rmApplied neg-mul-1_binary640.0
Applied *-un-lft-identity_binary640.0
Applied times-frac_binary640.0
Applied neg-mul-1_binary640.0
Applied *-un-lft-identity_binary640.0
Applied times-frac_binary640.0
Applied distribute-lft-out--_binary640.0
Applied associate-/r*_binary640.0
Simplified0.0
Final simplification0.0
herbie shell --seed 2020292
(FPCore (f n)
:name "subtraction fraction"
:precision binary64
(/ (- (+ f n)) (- f n)))