-- | epsilon is the value that will be used in all tests that require
-- some measure of \"closeness.\" Increasing it will make those
-- tests more tolerant.
-- | epsilon is the value that will be used in all tests that require
-- some measure of \"closeness.\" Increasing it will make those
-- tests more tolerant.
-- | Like 'almost_equals', except much more tolerant. The difference
-- between the two arguments must be less than one percent of the sum
-- of their magnitudes.
-- | Like 'almost_equals', except much more tolerant. The difference
-- between the two arguments must be less than one percent of the sum
-- of their magnitudes.
non_very_positive_entries :: [Double] -> [Double]
non_very_positive_entries = filter (not . very_positive)
non_very_positive_entries :: [Double] -> [Double]
non_very_positive_entries = filter (not . very_positive)