From 177f20ddd2e277cc09ce4bde5688144aad896d47 Mon Sep 17 00:00:00 2001 From: R0mb0 Date: Tue, 12 Jul 2022 16:32:10 +0200 Subject: [PATCH] Minor Fixes --- Haskell/Properties.hs | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/Haskell/Properties.hs b/Haskell/Properties.hs index 94e5426..20fe180 100644 --- a/Haskell/Properties.hs +++ b/Haskell/Properties.hs @@ -9,8 +9,8 @@ distance :: [Double] -> [Double] -> Double distance [] [_] = error "The First Argument Is Null" distance [_] [] = error "The Second Argument Is Null" distance detA detB - | length detA > 2 = error "The First Argument Has Too Much Elements" - | length detB > 2 = error "The Second Argument Has Too Much Elements" + | length detA > 2 = error "The First Argument Has Too Many Elements" + | length detB > 2 = error "The Second Argument Has Too Many Elements" | otherwise = 6372.795477598 * acos (sin latA * sin latB + cos latA * cos latB * cos ((lonA - lonB) * pi / 180)) where latA = head detA * pi / 180 @@ -29,8 +29,8 @@ phi :: [Double] -> [Double] -> Double phi [] [_] = error "The First Argument Is Null" phi [_] [] = error "The Second Argument Is Null" phi detA detB - | length detA > 2 = error "The First Argument Has Too Much Elements" - | length detB > 2 = error "The Second Argument Has Too Much Elements" + | length detA > 2 = error "The First Argument Has Too Many Elements" + | length detB > 2 = error "The Second Argument Has Too Many Elements" | head detA == head detB = pi / 180 * 0.000000001 | otherwise = log (tan (latB / 2 + pi / 4) / tan (latA / 2 + pi / 4)) where @@ -52,8 +52,8 @@ lon :: [Double] -> [Double] -> Double lon [] [_] = error "The First Argument Is Null" lon [_] [] = error "The Second Argument Is Null" lon detA detB - | length detA > 2 = error "The First Argument Has Too Much Elements" - | length detB > 2 = error "The Second Argument Has Too Much Elements" + | length detA > 2 = error "The First Argument Has Too Many Elements" + | length detB > 2 = error "The Second Argument Has Too Many Elements" | detA !! 1 == detB !! 1 = pi / 180 * 0.000000001 | otherwise = verLon (abs (detA !! 1 - detB !! 1)) @@ -64,8 +64,8 @@ direction :: [Double] -> [Double] -> Double direction [] [_] = error "The First Argument Is Null" direction [_] [] = error "The Second Argument Is Null" direction detA detB - | length detA > 2 = error "The First Argument Has Too Much Elements" - | length detB > 2 = error "The Second Argument Has Too Much Elements" + | length detA > 2 = error "The First Argument Has Too Many Elements" + | length detB > 2 = error "The Second Argument Has Too Many Elements" | otherwise = atan2 (lon detA detB * pi / 180) (abs (phi detA detB)) / pi * 180 {-Calculate the Inverse Direction Angle Between two Coordinates. @@ -75,6 +75,6 @@ invDirection :: [Double] -> [Double] -> Double invDirection [] [_] = error "The First Argument Is Null" invDirection [_] [] = error "The Second Argument Is Null" invDirection detA detB - | length detA > 2 = error "The First Argument Has Too Much Elements" - | length detB > 2 = error "The Second Argument Has Too Much Elements" + | length detA > 2 = error "The First Argument Has Too Many Elements" + | length detB > 2 = error "The Second Argument Has Too Many Elements" | otherwise = direction detA detB + 180 \ No newline at end of file