![[BACK]](/icons/back.gif){kind=icon}
Return to loncorrectproblemplot.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface / statistics|
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)) { |