uniqueness-periods-vector-examples 0.8.0.1 → 0.8.0.2

raw patch · 3 files changed

+17/−9 lines, 3 files

Files

• ChangeLog.md +10/−2
• Proportion/Main.hs +6/−6
• uniqueness-periods-vector-examples.cabal +1/−1

@@ -80,10 +80,18 @@  * Eigth version. Added a new way to compare the results for processment of the uniqVec03 executable. Added the fifth command line argument to control this comparisons. Added a new lightweight dependency of lists-flines. Changed the names of the executables.-uniqVec01 -> linVariants++uniqVec01 -> lineVariants+ uniqVec02 -> rewritePoem+ uniqVec03 -> processText  ## 0.8.0.1 -- 2020-10-05 -* Eigth version. Fixed issue with wrong import statements order in the code for processText executable.+* Eigth version revised A. Fixed issue with wrong import statements order in the code for processText executable.++## 0.8.0.2 -- 2020-10-05++* Eigth version revised B. Fixed issue with Sturges' rule and the respective function in the processText executable. For more information, please, see:+Sturges H. (1926). The choice of a class-interval. J. Amer. Statist. Assoc., 21, 65-66.

@@ -99,16 +99,16 @@  getIntervalsN :: String -> [String] -> Int getIntervalsN xs yss-  | xs == "s" = sterdgess (length yss)+  | xs == "s" = sturgesH (length yss)   | xs == "l" = levynskyiMod (length yss)   | otherwise = fromMaybe 9 (readMaybe xs::(Maybe Int)) {-# INLINE getIntervalsN #-} -sterdgess :: Int -> Int-sterdgess n-  | compare n 0 == GT = ceiling (3.322 * logBase 10 (int2Float n)) + 1+sturgesH :: Int -> Int+sturgesH n+  | compare n 0 == GT = ceiling (logBase 2 (int2Float n))   | otherwise = error $ "sterdgess: undefined for the argument " ++ show n ++ newLineEnding-{-# INLINE sterdgess #-}+{-# INLINE sturgesH #-}  -- | According to @В. П. Левинський@ (V. P. Levynskyi) from @Опря А. Т. Статистика (модульний варіант з програмованою формою контролю знань). -- Навч. посіб. --- К.: Центр учбової літератури, 2012. --- 448 с. ISBN 978-611-01-0266-7@) page 60. Always return odd values.@@ -119,7 +119,7 @@   | compare n 300 == LT = 13   | compare n 400 == LT = 15   | compare n 500 == LT = 17-  | otherwise = let !k = sterdgess n in if even k then k + 7 else k + 8+  | otherwise = let !k = sturgesH n in if even k then k + 7 else k + 8        where g n               | compare n 60 == GT = 9               | compare n 40 == GT = 7

@@ -3,7 +3,7 @@ -- http://haskell.org/cabal/users-guide/  name:                uniqueness-periods-vector-examples-version:             0.8.0.1+version:             0.8.0.2 synopsis:            Usage examples for the uniqueness-periods-vector series of packages description:         Usage examples for the uniqueness-periods-vector series of packages. Several executables are planned to demonstrate the libraries work. homepage:            https://hackage.haskell.org/package/uniqueness-periods-vector-examples