Communicate match stddev from the ratings table to the Monte Carlo simulation.

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

index 0967b82a58e68a4aa696350fc9633c3fdef1ea39..c2bab05d7ff9d6022f0b1f12a94a104ec2239df9 100755 (executable)
--- a/www/index.pl
+++ b/www/index.pl
@@ -22,6 +22,8 @@ binmode STDOUT, ':utf8';
  my %players = ();
  my %ratings = ();
  my @matches = ();
+my %parms = ();
+my $match_stddev;
  
  sub sanitize {
         $_ = shift;
@@ -50,6 +52,7 @@ EOF
         open MCCALC, ">", $tmpnam
                 or die "$tmpnam: $!";
  
+       printf MCCALC "%f\n", $match_stddev;
         printf MCCALC "%d\n", scalar keys %players;
  
         for my $id (keys %players) {
@@ -124,12 +127,21 @@ EOF
  EOF
  }
  
+# Get auxillary parameters
+my $q = $dbh->prepare('SELECT * FROM ratings WHERE id < 0');
+$q->execute;
+
+while (my $ref = $q->fetchrow_hashref) {
+       $parms{$ref->{'id'}} = $ref->{'rating'};
+}
+$match_stddev = $parms{-2} * sqrt(2.0);
+
  # Get players and ratings
  my $season = 18;
  my $division = 1;
  my $subdivision = 1;
  
-my $q = $dbh->prepare('SELECT fotballdeltagere.id,fotballdeltagere.navn,rating FROM fotballdeltagere JOIN fotballserier ON fotballdeltagere.serie=fotballserier.nr JOIN ratings ON fotballdeltagere.id=ratings.id AND sesong=? AND divisjon=? AND avdeling=?');
+$q = $dbh->prepare('SELECT fotballdeltagere.id,fotballdeltagere.navn,rating FROM fotballdeltagere JOIN fotballserier ON fotballdeltagere.serie=fotballserier.nr JOIN ratings ON fotballdeltagere.id=ratings.id AND sesong=? AND divisjon=? AND avdeling=?');
  $q->execute($season, $division, $subdivision);
  
  while (my $ref = $q->fetchrow_hashref) {
@@ -157,8 +169,10 @@ while (my $ref = $q->fetchrow_hashref) {
  }
  $q->finish;
  
+POSIX::setlocale(&POSIX::LC_ALL, 'nb_NO.UTF-8');
+
  print CGI->header(-type=>'text/html; charset=utf-8', -expires=>'Thu, 01 Dec 1994 16:00:00 GMT');
-print <<"EOF";
+printf <<"EOF", $match_stddev;
  <html>
    <head>
      <title>WLoH-plasseringsannsynlighetsberegning</title>
@@ -186,7 +200,7 @@ td {
  
      <p>Beregningen tar ikke hensyn til ujevn spillestyrke, ting som er sagt i forumet e.l.;
        den antar at samtlige uspilte kamper trekkes fra en normalfordeling med standardavvik
-      82,9 poeng. Sannsynlighetene kan summere til andre tall enn 100% pga. avrunding.
+      %.1f poeng. Sannsynlighetene kan summere til andre tall enn 100%% pga. avrunding.
        Tallene vil variere litt fra gang til gang fordi utregningen skjer ved randomisering.</p>
  
      <p>Andre divisjoner enn 1. divisjon kommer etter hvert.</p>