Return to loncorrectproblemplot.pm CVS log | Up to [LON-CAPA] / loncom / interface / statistics |
version 1.21, 2006/08/18 15:15:38 | version 1.22, 2006/12/31 22:43:48 |
---|---|
Line 248 sub bin_data { | Line 248 sub bin_data { |
my @Bins; | my @Bins; |
my $count=0; | my $count=0; |
my $idx=0; | my $idx=0; |
while ($idx < scalar(@$data) && ($endbin-$binend + $binsize)>0) { | while ($idx < scalar(@$data) && ($endbin-$binend + $binsize)>=0) { |
my $dataset = $data->[$idx++]; | my $dataset = $data->[$idx++]; |
my ($x,$y) = @{$dataset}; | my ($x,$y) = @{$dataset}; |
while ($x > ($binend-.001)) { | while ($x > ($binend-.001)) { |