version 1.121, 2005/04/19 13:59:34
|
version 1.122, 2005/11/07 22:09:00
|
Line 341 sub numerical_plot_percent {
|
Line 341 sub numerical_plot_percent {
|
while (my ($ans,$submissions) = each(%$responses)) { |
while (my ($ans,$submissions) = each(%$responses)) { |
while (my ($submission,$counts) = each(%$submissions)) { |
while (my ($submission,$counts) = each(%$submissions)) { |
my ($correct_count,$incorrect_count) = @$counts; |
my ($correct_count,$incorrect_count) = @$counts; |
my $scaled_value = 100*($submission-$ans)/abs($ans); |
my $scaled_value = |
|
($ans) ? 100*($submission-$ans)/abs($ans) |
|
: 0; |
if ($scaled_value < $bins[0]) { |
if ($scaled_value < $bins[0]) { |
$bins[0]=$scaled_value -1; |
$bins[0]=$scaled_value -1; |
} |
} |