Make the Hessian calculation use the new all_matches vector.

[wloh] / www / rating.pl
diff --git a/www/rating.pl b/www/rating.pl

index bf9f49518acf37b6c728ed27f48ea951329d34ae..7d0a2e25c66cfaa4e1ff0d209cfcb772076b4dd7 100755 (executable)
--- a/www/rating.pl
+++ b/www/rating.pl
@@ -28,39 +28,22 @@ while (my $ref = $q->fetchrow_hashref) {
  }
  my $match_stddev = $params{-2} * sqrt(2.0);
  
-print CGI->header(-type=>'text/html; charset=utf-8', -expires=>'now');
+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>
-    <style type="text/css">
-body {
-       color: black;
-       background: white;
-       font-family: sans-serif;
-}
-table {
-       border-collapse: collapse;
-       border: 1px solid black;
-}
-td, th {
-       border: 1px solid black;
-       padding: 5px;
-}
-td.num {
-       text-align: right;
-}
-.even {
-       background-color: #ddd;
-}
-    </style>
+    <link rel="stylesheet" href="/style" type="text/css" />
    </head>
    <body>
      <h1>WLoH-rating</h1>
  
-    <p>Ratingen er basert på spilledata fra WLoH (takk til Lobotommy
+    <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
@@ -77,7 +60,8 @@ td.num {
  
      <h2>Modellparametre</h2>
  
-    <p>For de som vet litt om slikt. Mer utførlig forklaring for begynnere kommer seinere.</p>
+    <p>For de som vet litt om slikt. Det finnes også en lengre, mer detaljert
+      <a href="/ratings-explained">forklaring</a> beregnet på ikke-matematikere.</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>
@@ -85,16 +69,46 @@ td.num {
        <li>Rimelighetfunksjon, per kamp: Normalfordeling med µ=(score1 - score2), &sigma;=%.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.</li>
+        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;
+
+my $i = 0;
+while (my $ref = $q->fetchrow_hashref) {
+       if (++$i % 2 == 0) {
+               print "      <tr class=\"odd\">\n";
+       } else {
+               print "      <tr class=\"even\">\n";
+       }
+       printf "        <th>%d.</th>\n", $ref->{'divisjon'};
+       printf "        <td class=\"num\">%.1f</td>\n", $ref->{'avg_rating'};
+       printf "        <td class=\"num\">%.1f</td>\n", $ref->{'stddev_rating'};
+       print "      </tr>\n";
+}
+
+print <<"EOF";
+    </table>
+
    <h2>Rankingliste</h2>
  
    <table>
      <tr>
        <th></th>
        <th>Nick</th>
-      <th>Ranking</th>
+      <th>Rating</th>
        <th>Sist sett</th>
      </tr>
  EOF
@@ -107,7 +121,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 "    <tr class=\"odd\">\n";