nearly_equals,
nearly_ge,
non_very_positive_entries,
- very_positive,
- )
+ very_positive )
where
+
-- | 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 :: Double
epsilon = 0.0001
+
-- | A tiny margin of error.
+--
theta :: Double
theta = 0.0000000000001
-- | Takes a list of 'Double' and returns the ones which are not very
-- positive.
+--
non_very_positive_entries :: [Double] -> [Double]
non_very_positive_entries = filter (not . very_positive)