GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-22 01:22:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

test probabilities for resource; rounding of prob sum

Browse Source
This commit is contained in:
aarne
2006-02-09 10:54:07 +00:00
parent fd9da86d24
commit 167a6dd60a
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/GF/Probabilistic/Probabilistic.hs
View File

@@ -200,7 +200,8 @@ hitRegion d vs = case vs of
checkSGrammar :: SGrammar -> Err SGrammar checkSGrammar :: SGrammar -> Err SGrammar
checkSGrammar = mapMTree chCat where checkSGrammar = mapMTree chCat where
chCat (c,rs) = case sum [p | ((p,f),_) <- rs] of chCat (c,rs) = case sum [p | ((p,f),_) <- rs] of
s | s /= 1.0 -> Bad $ "illegal probability sum " ++ show s ++ " in " ++ c s | abs (s - 1.0) > 0.01 ->
Bad $ "illegal probability sum " ++ show s ++ " in " ++ c
_ -> return (c,rs) _ -> return (c,rs)
-- for cases where explicit probability is not given (encoded as -- for cases where explicit probability is not given (encoded as