Add a hidden option to show the covariance matrix.

diff --git a/www/index.pl b/www/index.pl
index cfeead2c2e7e2345c6f1388f7dfa9f5c513d5e3f..9bf692ce288ef7f0461f82d4d5e69edfe3d9f7d4 100755 (executable)
--- a/www/index.pl
+++ b/www/index.pl
@@ -303,6 +303,36 @@ EOF
 EOF
 }
 
+sub make_cov_table {
+       my ($cov) = @_;
+       my @players = (sort { $players{$a} cmp $players{$b} } keys %players);
+
+       print <<"EOF";
+    <table class="probmatrix">
+      <tr>
+        <th></th>
+EOF
+
+       for my $player (@players) {
+               printf "        <th>%s</th>\n", $players{$player};
+       }
+       print "      </tr>\n";
+
+       my $pnum = 0;
+       for my $player (@players) {
+               ++$pnum;
+               print "      <tr>\n";
+               printf "        <th>%s</th>\n", $players{$player};
+
+               for my $player2 (@players) {
+                       printf "        <td class=\"num\">%.3f</td>\n", $cov->{$player}{$player2};
+               }
+               print "      </tr>\n";
+       }
+
+       print "    </table>\n";
+}
+
 sub find_avg_rating {
        my ($ratings) = shift;
 
@@ -426,6 +456,10 @@ EOF
        my $avg_rating = find_avg_rating(\%ratings);
        printf "    <p style=\"clear: both; padding-top: 1em;\">Gjennomsnittlig rating i denne avdelingen er <strong>%.1f</strong>.</p>\n", $avg_rating;
 
+       if (defined($cgi->param('showcov'))) {
+               make_cov_table($cov);
+       }
+
        wloh_common::output_last_sync($dbh);
 }