X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FComparisons.hs;h=d033159f23f827fa3776ca2c6dd2ac775780af91;hb=e45d789d67d3c4f38c84c7fde65836452e0794af;hp=4a8144469415668327567717239844a4b1c85a22;hpb=da61c2f5593476df49d05db0ee48bdc06ec3fa91;p=spline3.git diff --git a/src/Comparisons.hs b/src/Comparisons.hs index 4a81444..d033159 100644 --- a/src/Comparisons.hs +++ b/src/Comparisons.hs @@ -10,7 +10,7 @@ epsilon = 0.0001 -- | A tiny margin of error. theta :: Double -theta = 0.00000000000001 +theta = 0.0000000000001 -- | x almost equals y if x is within 'theta' of y. nearly_equals :: Double -> Double -> Bool