[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lon-capa-cvs
Subject:    [LON-CAPA-cvs] cvs: modules /gerd/harvesting dodiff.pl
From:       www <www () source ! lon-capa ! org>
Date:       2012-09-17 14:09:27
Message-ID: cvswww1347890967 () cvsserver
[Download RAW message or body]

www		Mon Sep 17 14:09:27 2012 EDT

  Modified files:              
    /modules/gerd/harvesting	dodiff.pl 
  Log:
  Find upper and lower quartile for a folder
  
  
Index: modules/gerd/harvesting/dodiff.pl
diff -u modules/gerd/harvesting/dodiff.pl:1.1 modules/gerd/harvesting/dodiff.pl:1.2
--- modules/gerd/harvesting/dodiff.pl:1.1	Sun Sep 16 21:00:14 2012
+++ modules/gerd/harvesting/dodiff.pl	Mon Sep 17 14:09:27 2012
@@ -61,12 +61,33 @@
    }
 }
 close(IN);
+# Who all worked on a folder?
 my %folder_totals=();
 my %students_who_did_folder=();
 foreach my $key (keys(%worked_folder)) {
    $folder_totals{$worked_folder{$key}}++;
    $students_who_did_folder{$worked_folder{$key}}.=','.$is_student_in_folder{$key};
 }
+# Find best and worst scoring students
+my %top=();
+my %bottom=();
+foreach my $key (keys(%students_who_did_folder)) {
+   if ($folder_totals{$key}<4) { next; }
+   $students_who_did_folder{$key}=~s/^\,//;
+   my @entries=split(/\,/,$students_who_did_folder{$key});
+   my @sorted=sort{ $student_folder_score{$key.':'.$a} <=> \
$student_folder_score{$key.':'.$b} } @entries; +   my \
$quartile=int(($#sorted+1.)/4.); +   \
$top{$key}=join(',',@sorted[$#sorted-$quartile+1..$#sorted]); +   \
$bottom{$key}=join(',',@sorted[0..$quartile-1]); +
+#   print "\n-------> ".$#sorted." -->".$quartile.
+#         "\n->".join(',',@sorted).
+#         "\n".$top{$key}.
+#         "\n".$bottom{$key}."\n";
+}
+
+exit;
+
 print "URL\tPart\tCourse\tFolder\tID\tExam?\tNumber tried folder\tNumber tried \
problem\tNumber problem correct\tTotal tries till problem correct\n";  foreach my \
$key (keys(%num_tried)) {  print $is_url{$key}."\t".


_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs


[prev in list] [next in list] [prev in thread] [next in thread]