Make the Hessian calculation use the new all_matches vector.

[wloh] / train.pl

diff --git a/train.pl b/train.pl
index d8037db2f615b30b99a8a159aa39cae5092ac9ed..22a2741ccb8b12a71a81d1d9c065461cc4f00dd3 100755 (executable)
--- a/train.pl
+++ b/train.pl
@@ -47,6 +47,9 @@ WHERE deltager1.Nr > deltager2.nr
 $q->execute($last_season);
 
 while (my $ref = $q->fetchrow_hashref) {
+       next if ($ref->{'maalfor'} == 150 && $ref->{'maalmot'} == 0);
+       next if ($ref->{'maalfor'} == 0 && $ref->{'maalmot'} == 150);
+       next if ($ref->{'maalfor'} == 150 && $ref->{'maalmot'} == 150);
        printf DATA "%d %d %d %d %f\n", $ref->{'p1'}, $ref->{'p2'}, $ref->{'maalfor'}, $ref->{'maalmot'}, $ref->{'vekt'};
 }
 
@@ -55,7 +58,7 @@ close DATA;
 $dbh->do('DELETE FROM ratings');
 my $iq = $dbh->prepare('INSERT INTO ratings ( id, rating ) VALUES (?, ?)');
 
-open RATINGS, "/home/sesse/dev/bayeswf/bayeswf < $tmpnam |"
+open RATINGS, "$config::base_dir/bayeswf < $tmpnam |"
        or die "bayeswf: $!";
 while (<RATINGS>) {
        /(.*) (.*)/ or next;