use Devel::Peek;
use HTML::Entities;
use Encode;
+use utf8;
use locale;
require '../config.pm';
chomp;
my @x = split /\s+/;
my $id = $x[0];
- my $player = sprintf "%s (%.0f ± %.0f)", $players{$id}, ($ratings{$id} // 1500.0), ($ratings_stddev{$id} // $parms{-3});
+ my $player = sprintf "%s (%.0f ± %.0f)", $players{$id}, ($ratings{$id} // 1500.0), ($ratings_stddev{$id} // $parms{-3});
$prob{$player} = [ @x[1..$#x] ];
}
close MCCALC;
print $cgi->header(-type=>'text/html; charset=utf-8', -expires=>'now');
printf <<"EOF", $match_stddev;
-<html>
+<?xml version="1.0" encoding="UTF-8" ?>
+<!DOCTYPE
+ html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
+ "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="no">
<head>
<title>WLoH-plasseringsannsynlighetsberegning</title>
<link rel="stylesheet" href="/style" type="text/css" />
make_table($lowest_division, \%ratings, \%ratings_stddev);
print << "EOF";
- </table>
</body>
</html>
EOF
POSIX::setlocale(&POSIX::LC_ALL, 'nb_NO.UTF-8');
printf <<"EOF", $params{-3}, $match_stddev;
-<html>
+<?xml version="1.0" encoding="UTF-8" ?>
+<!DOCTYPE
+ html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
+ "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="no">
<head>
<title>WLoH-rating</title>
<link rel="stylesheet" href="/style" type="text/css" />
-<html>
+<?xml version="1.0" encoding="UTF-8" ?>
+<!DOCTYPE
+ html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
+ "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="no">
<head>
<title>WLoH-rating</title>
<link rel="stylesheet" href="/style" type="text/css" />
det svinger? Her kommer <a href="http://en.wikipedia.org/wiki/Normal_distribution">normalfordelingen</a>
inn; de fleste har nok sett kurven for den før:</p>
- <p style="text-align: center;"><img src="norm1" style="width: 360px; height: 354px;"></p>
+ <p style="text-align: center;"><img src="norm1" style="width: 360px; height: 354px;" alt="Normalfordelingskurve med forventningsverdi 50" /></p>
<p>Kurven her sier rett og slett at hvis Anne og Bjørn spiller, er det mest
sannsynlige at Anne vinner med 50, siden dette er ratingforskjellen deres.
at Anne ikke bare har slått Bjørn med 50 poeng, men at hun en annen
gang har tapt med 80 for ham:</p>
- <p style="text-align: center;"><img src="norm2" style="width: 360px; height: 349px;"></p>
+ <p style="text-align: center;"><img src="norm2" style="width: 360px; height: 349px;" alt="Normalfordelingskurve med forventningsverdi ca. -18" /></p>
<p>Her blir det rimeligste resultatet at Bjørn er litt bedre
(ca. 18 poeng).</p>
med en <em>utgangsantagelse</em> (eller engelsk «prior») om
ratingen hos folk generelt, og igjen kommer normalfordelingen inn:</p>
- <p style="text-align: center;"><img src="norm3" style="width: 372px; height: 334px;"></p>
+ <p style="text-align: center;"><img src="norm3" style="width: 372px; height: 334px;" alt="Normalfordelingskurve med forventningsverdi 1500" /></p>
<p>Kurven her sier rett og slett at <em>det er få av de aller beste og dårligste spillerne</em>;
de fleste ligger rundt 1500 noe sted. Det er rett og slett ikke veldig