+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";
+}
+