git.sesse.net Git - foosball/blob - recalc-double-result.pl

   1 #! /usr/bin/perl
   2 use strict;
   3 use warnings;
   4 use DBI;
   5 use CGI;
   6 use CGI::Carp qw(fatalsToBrowser);
   7 require 'foosball.pm';
   8
   9 my $dbh = foosball::db_connect();
  10 $dbh->{AutoCommit} = 0;
  11
  12 $dbh->do('delete from double_rating');
  13
  14 my %ratings = ();
  15 my $q = $dbh->prepare('select * from double_results order by gametime');
  16 $q->execute;
  17
  18 while (my $ref = $q->fetchrow_hashref) {
  19         for my $user (($ref->{'team1_username1'}, $ref->{'team1_username2'},
  20                        $ref->{'team2_username1'}, $ref->{'team2_username2'})) {
  21                 if (!exists($ratings{$user})) {
  22                         $ratings{$user} = [ 1500, 350 ];
  23                 }
  24         }
  25
  26         my $rating1_1 = $ratings{$ref->{'team1_username1'}}->[0];
  27         my $rd1_1 = $ratings{$ref->{'team1_username1'}}->[1];
  28         my $rating1_2 = $ratings{$ref->{'team1_username2'}}->[0];
  29         my $rd1_2 = $ratings{$ref->{'team1_username2'}}->[1];
  30         my $rating2_1 = $ratings{$ref->{'team2_username1'}}->[0];
  31         my $rd2_1 = $ratings{$ref->{'team2_username1'}}->[1];
  32         my $rating2_2 = $ratings{$ref->{'team2_username2'}}->[0];
  33         my $rd2_2 = $ratings{$ref->{'team2_username2'}}->[1];
  34         my $score1 = $ref->{'score1'};
  35         my $score2 = $ref->{'score2'};
  36
  37         # make virtual "team players"
  38         my $rating_team1 = 0.5 * ($rating1_1 + $rating1_2);
  39         my $rd_team1 = sqrt($rd1_1 * $rd1_1 + $rd1_2 * $rd1_2) / sqrt(2.0);
  40         my $rating_team2 = 0.5 * ($rating1_2 + $rating2_2);
  41         my $rd_team2 = sqrt($rd2_1 * $rd2_1 + $rd2_2 * $rd2_2) / sqrt(2.0);
  42
  43         my ($new_t1r, undef) =  foosball::calc_rating($rating_team1, $rd_team1, $rating_team2, $rd_team2, $score1, $score2);
  44         my ($new_t2r, undef) =  foosball::calc_rating($rating_team2, $rd_team2, $rating_team1, $rd_team1, $score2, $score1);
  45         my $newr1_1 = $rating1_1 + ($new_t1r - $rating_team1);
  46         my $newr1_2 = $rating1_2 + ($new_t1r - $rating_team1);
  47         my $newr2_1 = $rating2_1 + ($new_t2r - $rating_team2);
  48         my $newr2_2 = $rating2_2 + ($new_t2r - $rating_team2);
  49
  50         my (undef, $newrd1_1) = foosball::calc_rating($rating1_1, $rd1_1, $rating_team2, $rd_team2, $score1, $score2);
  51         my (undef, $newrd1_2) = foosball::calc_rating($rating1_2, $rd1_2, $rating_team2, $rd_team2, $score1, $score2);
  52         my (undef, $newrd2_1) = foosball::calc_rating($rating2_1, $rd2_1, $rating_team1, $rd_team1, $score2, $score1);
  53         my (undef, $newrd2_2) = foosball::calc_rating($rating2_2, $rd2_2, $rating_team1, $rd_team1, $score2, $score1);
  54
  55         printf("%-10s/%-10s - %-10s/%-10s: %u - %u, new ratings %u/%u %u/%u   %u/%u %u/%u\n",
  56                 $ref->{'team1_username1'}, $ref->{'team1_username2'},
  57                 $ref->{'team2_username1'}, $ref->{'team2_username2'},
  58                 $ref->{'score1'}, $ref->{'score2'},
  59                 $newr1_1, $newrd1_1, $newr1_2, $newrd1_2,
  60                 $newr2_1, $newrd2_1, $newr2_2, $newrd2_2);
  61         $dbh->do('insert into double_rating values (?,?,?,?)', undef,
  62                 $ref->{'team1_username1'}, $ref->{'gametime'}, $newr1_1, $newrd1_1);
  63         $dbh->do('insert into double_rating values (?,?,?,?)', undef,
  64                 $ref->{'team1_username2'}, $ref->{'gametime'}, $newr1_2, $newrd1_2);
  65         $dbh->do('insert into double_rating values (?,?,?,?)', undef,
  66                 $ref->{'team2_username1'}, $ref->{'gametime'}, $newr2_1, $newrd2_1);
  67         $dbh->do('insert into double_rating values (?,?,?,?)', undef,
  68                 $ref->{'team2_username2'}, $ref->{'gametime'}, $newr2_2, $newrd2_2);
  69
  70         $ratings{$ref->{'team1_username1'}} = [ $newr1_1, $newrd1_1 ];
  71         $ratings{$ref->{'team1_username2'}} = [ $newr1_2, $newrd1_2 ];
  72         $ratings{$ref->{'team2_username1'}} = [ $newr2_1, $newrd2_1 ];
  73         $ratings{$ref->{'team2_username2'}} = [ $newr2_2, $newrd2_2 ];
  74 }
  75
  76 $dbh->commit;
  77 $dbh->disconnect;