- # if V(A,D) is strictly greater than N * V(D,A).
+ # if V(A,D) is greater or equal to N * V(D,A) and V(A,D) is strictly
+ # greater than V(D,A).
# 3. If a supermajority of S:1 is required for A, its majority ratio
# is S; otherwise, its majority ratio is 1.
# Any (non-default) option which does not defeat the default option
# 3. If a supermajority of S:1 is required for A, its majority ratio
# is S; otherwise, its majority ratio is 1.
# Any (non-default) option which does not defeat the default option
my $ratio = 1.0 * $Beat_Matrix[$i][$max_choices - 1] /
$Beat_Matrix[$max_choices - 1][$i];
$Ratio{$i} = sprintf("%.2f", $ratio);
my $ratio = 1.0 * $Beat_Matrix[$i][$max_choices - 1] /
$Beat_Matrix[$max_choices - 1][$i];
$Ratio{$i} = sprintf("%.2f", $ratio);
# If the next line is commented out, we get a more verbose set of results
$Drop{$i}++;
print {$RESULTS} "Dropping Option ", $order_to_options{$i + 1}{key},
" because of Majority. ($ratio)";
# If the next line is commented out, we get a more verbose set of results
$Drop{$i}++;
print {$RESULTS} "Dropping Option ", $order_to_options{$i + 1}{key},
" because of Majority. ($ratio)";
$ratio, $Beat_Matrix[$i][$max_choices - 1],
$Beat_Matrix[$max_choices - 1][$i],
$order_to_options{$i + 1}{majority};
$ratio, $Beat_Matrix[$i][$max_choices - 1],
$Beat_Matrix[$max_choices - 1][$i],
$order_to_options{$i + 1}{majority};