







if (- (tan (+ x eps)) (tan x)) < -1.2236342f-08 or 1.9222349f-13 < (- (tan (+ x eps)) (tan x)) rm if -1.2236342f-08 < (- (tan (+ x eps)) (tan x)) < 1.9222349f-13rm Original test:
(lambda ((x default) (eps default))
#:name "NMSE problem 3.3.2"
(- (tan (+ x eps)) (tan x))
#:target
(/ (sin eps) (* (cos x) (cos (+ x eps)))))