diff -r ff0fa38bdb18 -r 437a60995fe1 gameServer/OfficialServer/Glicko2.hs --- a/gameServer/OfficialServer/Glicko2.hs Sat Nov 14 17:39:45 2015 +0300 +++ b/gameServer/OfficialServer/Glicko2.hs Sat Nov 14 22:19:05 2015 +0300 @@ -36,7 +36,11 @@ calcNewRating :: RatingData -> [GameData] -> RatingData -calcNewRating oldRating [] = oldRating +calcNewRating oldRating [] = RatingData (ratingValue oldRating) (173.7178 * sqrt (φ ^ 2 + σ ^ 2)) σ + where + φ = rD oldRating / 173.7178 + σ = volatility oldRating + calcNewRating oldRating games = RatingData (173.7178 * μ' + 1500) (173.7178 * sqrt φ'sqr) σ' where _Es = map (calcE oldRating) games