-my $match_stddev = $params{-2} * sqrt(2.0);
-
-print CGI->header(-type=>'text/html; charset=utf-8', -expires=>'+5m');
-POSIX::setlocale(&POSIX::LC_ALL, 'nb_NO.UTF-8');
-
-printf <<"EOF", $params{-3}, $match_stddev;
-<html>
- <head>
- <title>WLoH-rating</title>
- <link rel="stylesheet" href="/style" type="text/css" />
- </head>
- <body>
- <h1>WLoH-rating</h1>
-
- <p><em>Dette er et hobbyprosjekt fra tredjepart, og ikke en offisiell del av
- <a href="http://wordfeud.aasmul.net/">Wordfeud Leage of Honour</a>.</em></p>
-
- <p>Ratingen er dog basert på spilledata fra WLoH (takk til Lobotommy
- for tilgang!), og oppdateres
- hver hele time. Den er fullstendig uoffisiell, og har ingen innflytelse
- på WLoH, men brukes for å estimere vinnersannsynligheter i
- <a href="/">sannsynlighetsberegningen</a>.</p>
-
- <p>Vær obs på at det
- er betydelig usikkerhetsmargin, spesielt for spillere som ikke
- har spilt spesielt mange kamper.</p>
-
- <p>Modellen kan endre seg når som helst når jeg føler for det :-)
- Ikke ta ratingen alt for alvorlig, selv om den er basert på
- relativt fornuftige matematiske modeller. Husk at all statistikk
- sier mer om fortiden enn om framtiden.</p>
-
- <h2>Modellparametre</h2>
-
- <p>For de som vet litt om slikt. Mer utførlig forklaring for begynnere kommer seinere.</p>
-
- <ul>
- <li>MLE-basert modell med én skalar (styrke) per spiller og to globale skalarer (begge standardavvik, se under), løst med syklisk MM (minorization-maximization). Antall iterasjoner før konvergens: $params{-1}.</li>
- <li>Rimelighetfunksjon, prior: Normalfordeling med µ=1500, σ=%.1f (est.)</li>
- <li>Rimelighetfunksjon, per kamp: Normalfordeling med µ=(score1 - score2), σ=%.1f (est.)</li>
- <li>Vekting: Inneværende sesong samt de tre siste vektes fullt ut
- (likt med prior). Deretter eksponentielt synkende vekting, med
- halveringstid på tre sesonger. Spill som er registrert med
- 150-0, 0-150 eller 150-150 ignoreres.</li>
- </ul>
-
- <h2>Divisjonsoversikt</h2>
-
- <table>
- <tr>
- <th>Div.</th>
- <th>Snitt</th>
- <th>Std.avvik</th>
- </tr>
-EOF
-
-$q = $dbh->prepare('SELECT divisjon,AVG(rating) AS avg_rating,STDDEV(rating) AS stddev_rating FROM ratings NATURAL JOIN siste_divisjon GROUP BY divisjon ORDER BY divisjon');
-$q->execute;