X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=www%2Findex.pl;h=697470cdd75a6002c92ed6b2919bef3b15258007;hb=8964d30bbe836e9c0989208be582d3c7213eb574;hp=b96058d341677c82ce8218f89de827f1c4c990a1;hpb=b10dcb3b745f750a374dd0a4d8be2c77113543ba;p=wloh diff --git a/www/index.pl b/www/index.pl index b96058d..697470c 100755 --- a/www/index.pl +++ b/www/index.pl @@ -177,6 +177,10 @@ sub get_covariance_matrix { sub write_parms_to_file { my ($aux_parms, $match_stddev, $used_ratings, $used_cov) = @_; + POSIX::setlocale(&POSIX::LC_ALL, 'nb_NO.UTF-8'); + + my @sorted_players = sort { $players{$a} cmp $players{$b} } keys %players; + POSIX::setlocale(&POSIX::LC_ALL, 'C'); my $tmpnam = POSIX::tmpnam(); @@ -186,7 +190,7 @@ sub write_parms_to_file { printf MCCALC "%f\n", $match_stddev; printf MCCALC "%d\n", scalar keys %players; - for my $id (keys %players) { + for my $id (@sorted_players) { my $rating = $used_ratings->{$id} // 500.0; printf MCCALC "%s %f\n", $id, $rating; } @@ -213,12 +217,26 @@ sub write_parms_to_file { return $tmpnam; } +my $num_tables = 0; + sub make_table { - my ($aux_parms, $match_stddev, $lowest_division, $used_ratings, $used_cov) = @_; + my ($aux_parms, $match_stddev, $lowest_division, $used_ratings, $used_cov, $division, $subdivision) = @_; + ++$num_tables; print <<"EOF"; - - + +
EOF @@ -245,7 +263,9 @@ EOF print " \n" unless ($lowest_division); print " \n"; + my $pnum = 0; for my $player (sort { $a cmp $b } keys %prob) { + ++$pnum; print " \n"; print " \n"; @@ -262,7 +282,12 @@ EOF ($r, $b) = ($b, $r); } - printf " \n", $pn * 100.0; + my $num_total_games = ($num_games * ($num_games - 1)) / 2; + if (scalar @matches == $num_total_games || $prob{$player}->[$i - 1] == $trials) { + printf " \n", $pn * 100.0; + } else { + printf " \n", $pn * 100.0; + } } unless ($lowest_division) { @@ -278,6 +303,8 @@ EOF print << "EOF";
NEDRYKK
$player%.1f%%%.1f%%%.1f%%
+ +

EOF } @@ -320,9 +347,6 @@ EOF } sub print_footer { - my $dbh = shift; - wloh_common::output_last_sync($dbh); - print <<"EOF"; @@ -334,6 +358,8 @@ my $match_stddev = $aux_parms->{-2} * sqrt(2.0); my $division = $cgi->param('divisjon') // -1; my $subdivision = $cgi->param('avdeling') // -1; +my $match_player = $cgi->param('spiller'); +my $match_position = $cgi->param('posisjon'); my $season = get_max_season($dbh); my @divisions = get_divisions($dbh, $season); @@ -347,8 +373,41 @@ my $cov = get_covariance_matrix($dbh, keys %players); print_header($cgi, 'WLoH-plasseringsannsynlighetsberegning'); -POSIX::setlocale(&POSIX::LC_ALL, 'nb_NO.UTF-8'); -printf <<"EOF", $match_stddev; +if (defined($match_player) && defined($match_position)) { + my $tmpnam = write_parms_to_file($aux_parms, $match_stddev, \%ratings, $cov); + + --$match_player; + --$match_position; + + my @scenario = (); + open MCCALC, "$config::base_dir/mcwordfeud $trials $match_player $match_position < $tmpnam |" + or die "mccalc: $!"; + while () { + /(\d+) (\d+) (-?\d+)/ or next; + chomp; + push @scenario, [ $1, $2, $3 ]; + } + close MCCALC; + #unlink $tmpnam; + + my @sorted_players = sort { $players{$a} cmp $players{$b} } keys %players; + my $player_name = $players{$sorted_players[$match_player]}; + + if (scalar @scenario == 0) { + printf "

Fant ingen måte %s kan ende på %d. plass på.

\n", + $player_name, ($match_position + 1); + } else { + printf "

Scenario der %s ender på %d. plass:

\n", + $player_name, ($match_position + 1); + print " \n"; + } +} else { + POSIX::setlocale(&POSIX::LC_ALL, 'nb_NO.UTF-8'); + printf <<"EOF", $match_stddev;

WLoH-plasseringsannsynlighetsberegning

Dette er et hobbyprosjekt fra tredjepart, og ikke en offisiell del av @@ -357,25 +416,29 @@ printf <<"EOF", $match_stddev;

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 %.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.

+ Tallene vil variere litt fra gang til gang fordi utregningen skjer ved randomisering. + For scenarioeksempel, klikk i en rute.

Spillerne er sortert etter nick.

EOF -print_division_selector($dbh, \@divisions, \@subdivisions, $division, $subdivision); + print_division_selector($dbh, \@divisions, \@subdivisions, $division, $subdivision); -my $max_division = $divisions[$#divisions]; -my $lowest_division = ($division == $max_division); -make_table($aux_parms, $match_stddev, $lowest_division, {}, {}); + my $max_division = $divisions[$#divisions]; + my $lowest_division = ($division == $max_division); + make_table($aux_parms, $match_stddev, $lowest_division, {}, {}, $division, $subdivision); -print <<"EOF"; -

Under er en variant som tar relativ spillestyrke med i beregningen; + print <<"EOF"; +

Under er en variant som tar relativ spillestyrke med i beregningen; se ratingsiden.

EOF -make_table($aux_parms, $match_stddev, $lowest_division, \%ratings, $cov); + make_table($aux_parms, $match_stddev, $lowest_division, \%ratings, $cov, $division, $subdivision); -my $avg_rating = find_avg_rating(\%ratings); -printf "

Gjennomsnittlig rating i denne avdelingen er %.1f.

\n", $avg_rating; + my $avg_rating = find_avg_rating(\%ratings); + printf "

Gjennomsnittlig rating i denne avdelingen er %.1f.

\n", $avg_rating; + + wloh_common::output_last_sync($dbh); +} -print_footer($dbh); +print_footer();