\frac{2 \cdot \tan a}{1 - \tan a \cdot \tan a}\frac{2 \cdot \tan a}{1 - \tan a \cdot \tan a}double code(double a) {
return ((double) (((double) (2.0 * ((double) tan(a)))) / ((double) (1.0 - ((double) (((double) tan(a)) * ((double) tan(a))))))));
}
double code(double a) {
return ((double) (((double) (2.0 * ((double) tan(a)))) / ((double) (1.0 - ((double) (((double) tan(a)) * ((double) tan(a))))))));
}



Bits error versus a
Results
Initial program 0.4
Final simplification0.4
herbie shell --seed 2020152
(FPCore (a)
:name "(/ (* 2 (tan a)) (- 1 (* (tan a) (tan a))))"
:precision binary64
(/ (* 2.0 (tan a)) (- 1.0 (* (tan a) (tan a)))))