Show rating standard deviation.

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

index 81030d05dc722b0c40ff39aaea469444cc529476..8c6026280a3de02ebfd0d8e02ed3d6e9f11f6f02 100755 (executable)
--- a/www/rating.pl
+++ b/www/rating.pl
@@ -35,27 +35,7 @@ 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>
@@ -69,10 +49,6 @@ td.num {
        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
@@ -80,7 +56,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>
@@ -92,13 +69,43 @@ td.num {
          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>Std.avvik</th>
        <th>Sist sett</th>
      </tr>
  EOF
@@ -111,7 +118,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";
@@ -121,6 +128,7 @@ 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";
  }