|
version 1.122.2.3, 2014/03/03 20:45:05
|
version 1.122.2.4, 2018/03/07 13:32:56
|
|
Line 1667 sub compute_discrimination_factor {
|
Line 1667 sub compute_discrimination_factor {
|
| my $number_to_grab = int(scalar(@{$ranking})/4); |
my $number_to_grab = int(scalar(@{$ranking})/4); |
| my $num_students = scalar(@{$ranking}); |
my $num_students = scalar(@{$ranking}); |
| my @BottomSet = map { $_->[&Apache::loncoursedata::RNK_student()]; |
my @BottomSet = map { $_->[&Apache::loncoursedata::RNK_student()]; |
| } @{$ranking}[0..$number_to_grab]; |
} @{$ranking}[0..$number_to_grab-1]; |
| my @TopSet = |
my @TopSet = |
| map { |
map { |
| $_->[&Apache::loncoursedata::RNK_student()]; |
$_->[&Apache::loncoursedata::RNK_student()]; |
| } @{$ranking}[-$number_to_grab..0]; |
} @{$ranking}[-$number_to_grab..-1]; |
| if (! @BottomSet || (@BottomSet == 1 && $BottomSet[0] eq '') || |
if (! @BottomSet || (@BottomSet == 1 && $BottomSet[0] eq '') || |
| ! @TopSet || (@TopSet == 1 && $TopSet[0] eq '')) { |
! @TopSet || (@TopSet == 1 && $TopSet[0] eq '')) { |
| return 'nan'; |
return 'nan'; |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonproblemstatistics.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface / statistics