GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

ensure that negative probabilities are always avoided

Browse Source
This commit is contained in:
kr.angelov
2014-03-12 13:11:23 +00:00
parent f4be97c152
commit ebb61fbf1c
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/runtime/haskell/PGF/Probabilistic.hs
View File

@@ -68,7 +68,7 @@ mkProbabilities pgf probs =
where where
deflt = case length [f | (Nothing,f) <- pfs] of deflt = case length [f | (Nothing,f) <- pfs] of
0 -> 0 0 -> 0
n -> (1 - sum [d | (Just d,f) <- pfs]) / fromIntegral n n -> max 0 ((1 - sum [d | (Just d,f) <- pfs]) / fromIntegral n)
-- | Returns the default even distibution. -- | Returns the default even distibution.
defaultProbabilities :: PGF -> Probabilities defaultProbabilities :: PGF -> Probabilities