X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=www%2Frating.pl;h=0c42ccc8ee29e79bef376ad5ab4d36cd93747735;hb=66520572d4efff80922e24d0169a76d5e640c952;hp=81030d05dc722b0c40ff39aaea469444cc529476;hpb=95122747b7f8e954595bde9ed0eb7b831aa5f6b6;p=wloh diff --git a/www/rating.pl b/www/rating.pl index 81030d0..0c42ccc 100755 --- a/www/rating.pl +++ b/www/rating.pl @@ -11,6 +11,7 @@ use HTML::Entities; use utf8; use locale; require '../config.pm'; +require '../common.pm'; my $dbh = DBI->connect($config::local_connstr, $config::local_username, $config::local_password) or die "connect: " . $DBI::errstr; @@ -32,30 +33,14 @@ 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; - + + + WLoH-rating - +

WLoH-rating

@@ -69,10 +54,6 @@ td.num { pÃ¥ WLoH, men brukes for Ã¥ estimere vinnersannsynligheter i sannsynlighetsberegningen.

VÃ¦r obs pÃ¥ at det - er betydelig usikkerhetsmargin, spesielt for spillere som ikke - har spilt spesielt mange kamper.

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 @@ -80,25 +61,58 @@ td.num {

Modellparametre

For de som vet litt om slikt. Mer utfÃ¸rlig forklaring for begynnere kommer seinere.

For de som vet litt om slikt. Det finnes ogsÃ¥ en lengre, mer detaljert + forklaring beregnet pÃ¥ ikke-matematikere.

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}.
Rimelighetfunksjon, prior: Normalfordeling med Âµ=1500, σ=%.1f (est.)
Rimelighetfunksjon, prior: Normalfordeling med Âµ=500, σ=%.1f (est.)
Rimelighetfunksjon, per kamp: Normalfordeling med Âµ=(score1 - score2), σ=%.1f (est.)
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.

Divisjonsoversikt

+ + + + + + + +EOF + +my $season = wloh_common::get_max_season($dbh); + +$q = $dbh->prepare('SELECT divisjon,AVG(rating) AS avg_rating,STDDEV(rating) AS stddev_rating FROM ratings NATURAL JOIN siste_divisjon WHERE sesong=? GROUP BY divisjon ORDER BY divisjon'); +$q->execute($season); + +my $i = 0; +while (my $ref = $q->fetchrow_hashref) { + if (++$i % 2 == 0) { + print " \n"; + } else { + print " \n"; + } + printf " \n", $ref->{'divisjon'}; + printf " \n", $ref->{'avg_rating'}; + printf " \n", $ref->{'stddev_rating'}; + print " \n"; +} + +print <<"EOF"; +

Div.	Snitt	Std.avvik
%d.	%.1f	%.1f

Rankingliste

- + + EOF @@ -111,7 +125,7 @@ FROM ratings ORDER BY rating DESC'); $q->execute; -my $i = 0; +$i = 0; while (my $ref = $q->fetchrow_hashref) { if (++$i % 2 == 0) { print " \n"; @@ -121,12 +135,15 @@ while (my $ref = $q->fetchrow_hashref) { printf " \n", $i; printf " \n", $ref->{'id'}, HTML::Entities::encode_entities(Encode::decode_utf8($ref->{'navn'})); printf " \n", $ref->{'rating'}; + printf " \n", $ref->{'rating_stddev'}; printf " \n", $ref->{'serie_id'}, $ref->{'serie_navn'}; print " \n"; } +print "

	Nick	Ranking	Rating	Std.avvik	Sist sett
%d.	%s	%.1f	%.1f	%s

\n"; + +wloh_common::output_last_sync($dbh); print <<"EOF"; - EOF