Add a friendly header to the scenario analysis.

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

index 7d0a2e25c66cfaa4e1ff0d209cfcb772076b4dd7..d1ba9450a00255dcf5a1d1d3f89e1f561d3470eb 100755 (executable)
--- 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,7 +33,11 @@ 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>
+<?xml version="1.0" encoding="UTF-8" ?>
+<!DOCTYPE
+  html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
+  "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="no">
    <head>
      <title>WLoH-rating</title>
      <link rel="stylesheet" href="/style" type="text/css" />
@@ -49,10 +54,6 @@ printf <<"EOF", $params{-3}, $match_stddev;
        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
@@ -65,7 +66,7 @@ printf <<"EOF", $params{-3}, $match_stddev;
  
      <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, &sigma;=%.1f (est.)</li>
+      <li>Rimelighetfunksjon, prior: Normalfordeling med µ=500, &sigma;=%.1f (est.)</li>
        <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
@@ -109,6 +110,7 @@ print <<"EOF";
        <th></th>
        <th>Nick</th>
        <th>Rating</th>
+      <th>Std.avvik</th>
        <th>Sist sett</th>
      </tr>
  EOF
@@ -131,12 +133,15 @@ while (my $ref = $q->fetchrow_hashref) {
         printf "      <th>%d.</th>\n", $i;
         printf "      <td><a href=\"http://wordfeud.aasmul.net/bruker-%d\">%s</a></td>\n", $ref->{'id'}, HTML::Entities::encode_entities(Encode::decode_utf8($ref->{'navn'}));
         printf "      <td class=\"num\">%.1f</td>\n", $ref->{'rating'};
+       printf "      <td class=\"num\">%.1f</td>\n", $ref->{'rating_stddev'};
         printf "      <td><a href=\"http://wordfeud.aasmul.net/serie-%d\">%s</a></td>\n", $ref->{'serie_id'}, $ref->{'serie_navn'};
         print "    </tr>\n";
  }
+print "    </table>\n";
+
+wloh_common::output_last_sync($dbh);
  
  print <<"EOF";
-    </table>
    </body>
  </html>
  EOF