- if (exists($used_ratings->{$id})) {
- printf MCCALC "%s %f\n", $id, $used_ratings->{$id};
- } else {
- printf MCCALC "%s %f\n", $id, 1500.0;
+ my $rating = $used_ratings->{$id} // 1500.0;
+ printf MCCALC "%s %f\n", $id, $rating;
+ }
+
+ # covariance matrix
+ for my $id1 (keys %players) {
+ for my $id2 (keys %players) {
+ if ($id1 == $id2) {
+ printf MCCALC "%f ", ($used_cov->{$id1}{$id2} // $parms{-3});
+ } else {
+ printf MCCALC "%f ", ($used_cov->{$id1}{$id2} // 0.0);
+ }