[LON-CAPA-cvs] cvs: loncom /interface/statistics lonproblemstatistics.pm
matthew
lon-capa-cvs@mail.lon-capa.org
Tue, 25 Mar 2003 23:00:40 -0000
This is a MIME encoded message
--matthew1048633240
Content-Type: text/plain
matthew Tue Mar 25 18:00:40 2003 EDT
Modified files:
/loncom/interface/statistics lonproblemstatistics.pm
Log:
Removed GDBM_File dependence.
Removed &InitializeProblemStatistics, &ExtractStudentData, &SortDivideByTries,
&SortProblems, and &CalculateStatistics.
Added: &CreateInterface and shamelessly ripped off &OutputDescriptions and
&CreateAndParseOutputSelect from lonstudentassessment.pm.
Added &Gather_Student_Data to ensure the student data is up to date.
Rewrote &BuildProblemStatisticsPage to call &CreateInterface,
&Gather_Student_Data, and the proper output functions.
Added &output_html_grouped_by_sequence
Added &output_html_ungrouped which is not fully implemented at this time.
--matthew1048633240
Content-Type: text/plain
Content-Disposition: attachment; filename="matthew-20030325180040.txt"
Index: loncom/interface/statistics/lonproblemstatistics.pm
diff -u loncom/interface/statistics/lonproblemstatistics.pm:1.40 loncom/interface/statistics/lonproblemstatistics.pm:1.41
--- loncom/interface/statistics/lonproblemstatistics.pm:1.40 Tue Feb 25 15:47:47 2003
+++ loncom/interface/statistics/lonproblemstatistics.pm Tue Mar 25 18:00:40 2003
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lonproblemstatistics.pm,v 1.40 2003/02/25 20:47:47 matthew Exp $
+# $Id: lonproblemstatistics.pm,v 1.41 2003/03/25 23:00:40 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -25,12 +25,6 @@
# http://www.lon-capa.org/
#
# (Navigate problems for statistical reports
-# YEAR=2001
-# 5/5,7/9,7/25/1,8/11,9/13,9/26,10/5,10/9,10/22,10/26 Behrouz Minaei
-# 11/1,11/4,11/16,12/14,12/16,12/18,12/20,12/31 Behrouz Minaei
-# YEAR=2002
-# 1/22,2/1,2/6,2/25,3/2,3/26,4/7,5/6 Behrouz Minaei
-# 5/12,5/26,7/16,7/29,8/5,10/31 Behrouz Minaei
#
###
@@ -40,215 +34,393 @@
use Apache::lonnet();
use Apache::lonhtmlcommon;
use Apache::loncoursedata;
-use GDBM_File;
+use Apache::lonstatistics;
+#######################################################
+#######################################################
-sub InitializeProblemStatistics {
- my ($cacheDB, $students, $courseID, $c, $r)=@_;
- my %cache;
+sub CreateInterface {
+ my $Str = '';
+ $Str .= '<table cellspacing="5">'."\n";
+ $Str .= '<tr>';
+ $Str .= '<td align="center"><b>Sections</b></td>';
+ $Str .= '<td align="center"><b>Sequences and Folders</b></td>';
+ $Str .= '<td align="center"><b>Output</b></td>';
+ $Str .= '</tr>'."\n";
+ #
+ $Str .= '<tr><td align="center">'."\n";
+ $Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5);
+ $Str .= '</td><td align="center">';
+ #
+ my $only_seq_with_assessments = sub {
+ my $s=shift;
+ if ($s->{'num_assess'} < 1) {
+ return 0;
+ } else {
+ return 1;
+ }
+ };
+ $Str .= &Apache::lonstatistics::MapSelect('Maps','multiple,all',5,
+ $only_seq_with_assessments);
+ $Str .= '</td><td>'."\n";
+ $Str .= &CreateAndParseOutputSelector();
+ $Str .= '</td></tr>'."\n";
+ $Str .= '</table>'."\n";
+ return $Str;
+}
- unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
- $r->print('Unable to tie database1.');
- return ('ERROR', undef);
- }
+#######################################################
+#######################################################
- # Remove students who don't have the proper section.
- my @sectionsSelected = split(':',$cache{'sectionsSelected'});
- for(my $studentIndex=((scalar @$students)-1); $studentIndex>=0;
- $studentIndex--) {
- my $value = $cache{$students->[$studentIndex].':section'};
- my $found = 0;
- foreach (@sectionsSelected) {
- if($_ eq 'none') {
- if($value eq '' || !defined($value) || $value eq ' ') {
- $found = 1;
- last;
- }
- } else {
- if($value eq $_) {
- $found = 1;
- last;
- }
- }
- }
- if($found == 0) {
- splice(@$students, $studentIndex, 1);
- }
- }
+=pod
- my $isNotCached = 0;
- my $lastStatus = (defined($cache{'StatisticsLastStatus'})) ?
- $cache{'StatisticsLastStatus'} : 'Nothing';
- my $whichStudents = join(':::',sort(@$students));
- if(!defined($cache{'StatisticsCached'}) ||
- $lastStatus ne $cache{'Status'} ||
- $whichStudents ne $cache{'StatisticsWhichStudents'}) {
- $isNotCached = 1;
- }
+=item &CreateAndParseOutputSelector()
- untie(%cache);
- unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_WRCREAT(),0640)) {
- $r->print('Unable to tie database.2');
- return ('ERROR', undef);
- }
- if($isNotCached && defined($cache{'StatisticsCached'})) {
- my @statkeys = split(':::', $cache{'StatisticsKeys'});
- delete $cache{'StatisticsKeys'};
- delete $cache{'StatisticsCached'};
- foreach(@statkeys) {
- delete $cache{$_};
- }
- }
+=cut
- untie(%cache);
- if($isNotCached) {
- &Apache::loncoursedata::DownloadStudentCourseDataSeparate($students,
- 'true',
- $cacheDB,
- 'true',
- 'true',
- $courseID,
- $r, $c);
+#######################################################
+#######################################################
+my $output_mode;
+my $show;
+
+my @OutputOptions =
+ (
+ { name => 'problem statistics grouped by sequence',
+ value => 'HTML problem statistics grouped',
+ description => 'Output statistics for the problem parts.',
+ mode => 'html',
+ show => 'grouped',
+ },
+ { name => 'problem statistics ungrouped',
+ value => 'HTML problem statistics ungrouped',
+ description => 'Output statistics for the problem parts.',
+ mode => 'html',
+ show => 'ungrouped',
+ },
+ { name => 'problem statistics, Excel',
+ value => 'Excel problem statistics',
+ description => 'Output statistics for the problem parts '.
+ 'in an Excel workbook',
+ mode => 'excel',
+ show => 'all',
+ },
+ { name => 'Degree of Difficulty Plot',
+ value => 'plot deg diff',
+ description => 'Generate a plot of the degree of difficulty of each '.
+ 'problem part.',
+ mode => 'plot',
+ show => 'deg of diff',
+ },
+ { name => 'Percent Wrong Plot',
+ value => 'plot per wrong',
+ description => 'Generate a plot showing the percent of students who '.
+ 'were unable to complete each problem part',
+ mode => 'plot',
+ show => 'per wrong',
+ },
+ );
+
+sub OutputDescriptions {
+ my $Str = '';
+ $Str .= "<h2>Output Modes</h2>\n";
+ $Str .= "<dl>\n";
+ foreach my $outputmode (@OutputOptions) {
+ $Str .=" <dt>".$outputmode->{'name'}."</dt>\n";
+ $Str .=" <dd>".$outputmode->{'description'}."</dd>\n";
}
- if($c->aborted()) { return ('ERROR', undef); }
+ $Str .= "</dl>\n";
+ return $Str;
+}
- unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
- $r->print('Unable to tie database.3');
- return ('ERROR', undef);
+sub CreateAndParseOutputSelector {
+ my $Str = '';
+ my $elementname = 'outputmode';
+ #
+ # Format for output options is 'mode, restrictions';
+ my $selected = 'html, with links';
+ if (exists($ENV{'form.'.$elementname})) {
+ if (ref($ENV{'form.'.$elementname} eq 'ARRAY')) {
+ $selected = $ENV{'form.'.$elementname}->[0];
+ } else {
+ $selected = $ENV{'form.'.$elementname};
+ }
}
- my $problemData;
- if($isNotCached) {
- ($problemData) = &ExtractStudentData(\%cache, $students);
- &CalculateStatistics($problemData, \%cache, $courseID);
+ #
+ # Set package variables describing output mode
+ $output_mode = 'html';
+ $show = 'all';
+ foreach my $option (@OutputOptions) {
+ next if ($option->{'value'} ne $selected);
+ $output_mode = $option->{'mode'};
+ $show = $option->{'show'};
+ }
+ #
+ # Build the form element
+ $Str = qq/<select size="5" name="$elementname">/;
+ foreach my $option (@OutputOptions) {
+ $Str .= "\n".' <option value="'.$option->{'value'}.'"';
+ $Str .= " selected " if ($option->{'value'} eq $selected);
+ $Str .= ">".$option->{'name'}."<\/option>";
}
- untie(%cache);
+ $Str .= "\n</select>";
+ return $Str;
+}
- unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_WRCREAT(),0640)) {
- $r->print('Unable to tie database.4');
- return ('ERROR', undef);
- }
- if($isNotCached) {
- foreach(keys(%$problemData)) {
- $cache{$_} = $problemData->{$_};
- }
- $cache{'StatisticsKeys'} = join(':::', keys(%$problemData));
- $cache{'StatisticsCached'} = 'true';
- $cache{'StatisticsLastStatus'} = $cache{'Status'};
- $cache{'StatisticsWhichStudents'} = $whichStudents;
- }
- untie(%cache);
+###############################################
+###############################################
- unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
- $r->print('Unable to tie database.5');
- return ('ERROR', undef);
+###############################################
+###############################################
+sub Gather_Student_Data {
+ my ($r) = @_;
+ my $c = $r->connection();
+ #
+ my @Sequences = &Apache::lonstatistics::Sequences_with_Assess();
+ #
+ my @Students = @Apache::lonstatistics::Students;
+ #
+ # Open the progress window
+ my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin
+ ($r,'Statistics Compilation Status',
+ 'Statistics Compilation Progress', scalar(@Students));
+ #
+ while (my $student = shift @Students) {
+ return if ($c->aborted());
+ my ($status,undef) = &Apache::loncoursedata::ensure_current_data
+ ($student->{'username'},$student->{'domain'},
+ $ENV{'request.course.id'});
+ &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
+ 'last student');
}
-
- my $orderedProblems = &SortProblems(\%cache,
- $cache{'ProblemStatisticsSort'},
- $cache{'SortProblems'},
- $cache{'ProblemStatisticsAscend'});
- untie(%cache);
-
- return ('OK', $orderedProblems);
+ &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
+ $r->rflush();
}
+###############################################
+###############################################
+
+###############################################
+###############################################
sub BuildProblemStatisticsPage {
- my ($cacheDB, $students, $courseID, $c, $r)=@_;
+ my ($r,$c)=@_;
+ #
+ $output_mode = 'html';
+ $show = 'grouped';
+ #
+ $r->print(&CreateInterface());
+ $r->print('<input type="hidden" name="statsfirstcall" value="no" />');
+ $r->print('<input type="hidden" name="sortby" value="'.$ENV{'form.sortby'}.
+ '" />');
+ if (! exists($ENV{'form.statsfirstcall'})) {
+ return;
+ }
+ #
+ &Gather_Student_Data($r);
+ #
+ #
+ if ($output_mode eq 'html') {
+ $r->print("<h2>".
+ $ENV{'course.'.$ENV{'request.course.id'}.'.description'}.
+ "</h2>\n");
+ $r->print("<h3>".localtime(time)."</h3>");
+ $r->rflush();
+ if ($show eq 'grouped') {
+ &output_html_grouped_by_sequence($r);
+ } elsif ($show eq 'ungrouped') {
+ &output_html_ungrouped($r);
+ }
+ } else {
+ $r->print("<h1>Not implemented</h1>");
+ }
+ return;
+}
- my @Header = ("Homework Sets Order","#Stdnts","Tries","Mod",
+sub output_html_grouped_by_sequence {
+ my ($r) = @_;
+ #$r->print(&ProblemStatisticsLegend());
+ my @Header = ("Title","Part","#Stdnts","Tries","Mod",
"Mean","#YES","#yes","%Wrng","DoDiff",
- "S.D.","Skew.","D.F.1st","D.F.2nd");
- my $color=&setbgcolor(0);
- my %cache;
+ "S.D.","Skew.");#,"D.F.1st","D.F.2nd");
+ # #FFFFE6 #EEFFCC #DDFFFF FFDDDD #DDFFDD #FFDDFF
+ foreach my $sequence (&Apache::lonstatistics::Sequences_with_Assess()) {
+ next if ($sequence->{'num_assess'}<1);
+ $r->print("<h3>".$sequence->{'title'}."</h3>");
+ $r->print('<table border="0"><tr><td bgcolor="#777777">'."\n");
+ $r->print('<table border="0" cellpadding="3">'."\n");
+ $r->print('<tr bgcolor="#FFFFE6"><th>'.
+ join("</th><th>",@Header)."</th></tr>\n");
+ foreach my $resource (@{$sequence->{'contents'}}) {
+ next if ($resource->{'type'} ne 'assessment');
+ foreach my $part (@{$resource->{'parts'}}) {
+ if ($part == 0) {
+ $part = ' ';
+ }
+ my ($num,$tries,$mod,$mean,$Solved,$solved,$DegOfDiff,$STD,
+ $SKEW) = &Apache::loncoursedata::get_problem_statistics
+ (undef,$resource->{'symb'},$part,
+ $ENV{'request.course.id'});
+ my $wrongpercent = 0;
+ if (defined($num) && $num > 0) {
+ $wrongpercent=int(10*100*($num-$Solved+$solved)/$num)/10;
+ }
+ $r->print('<tr>'.&statistics_html_table_data
+ ($resource,$part,$num,$tries,$mod,$mean,$Solved,
+ $solved,$wrongpercent,$DegOfDiff,$STD,$SKEW).
+ "</tr>\n");
+ }
+ }
+ $r->print("</table>\n");
+ $r->print("</td></tr></table>\n");
+ $r->rflush();
+ }
+ #
+ return;
+}
- unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
- $r->print('Unable to tie database.6');
- return;
+
+###############################################
+###############################################
+
+###############################################
+###############################################
+sub output_html_ungrouped {
+ my ($r) = @_;
+ #
+ my $sortby = $ENV{'form.sortby'};
+ if (! defined($sortby) || $sortby eq '') {
+ $sortby = 'sequence';
+ }
+ #
+ my $show_container = 0;
+ #$r->print(&ProblemStatisticsLegend());
+ my @Header = ("Title","Part","#Stdnts","Tries","Mod",
+ "Mean","#YES","#yes","%Wrng","DoDiff",
+ "S.D.","Skew.");#,"D.F.1st","D.F.2nd");
+ # #FFFFE6 #EEFFCC #DDFFFF FFDDDD #DDFFDD #FFDDFF
+ my @Sequences = &Apache::lonstatistics::Sequences_with_Assess();
+ if (@Sequences > 1) {
+ unshift(@Header,"Container");
+ $show_container = 1;
+ }
+ #
+ $r->print('<table border="0"><tr><td bgcolor="#777777">'."\n");
+ $r->print('<table border="0" cellpadding="3">'."\n");
+ my $Str = '';
+ foreach (@Header) {
+ $Str .= '<th>'.
+ '<a href="javascript:document.Statistics.sortby.value='."'$_'".
+ ';document.Statistics.submit();">'.
+ $_.'</a></th>';
}
- my $Ptr = '';
- $Ptr .= '<table border="0" cellspacing="5"><tbody>';
- $Ptr .= '<tr><td align="right"><b>Select Map</b></td>'."\n";
- $Ptr .= '<td align="left">';
- $Ptr .= &Apache::lonhtmlcommon::MapOptions(\%cache, 'Statistics',
- 'Statistics');
- $Ptr .= '</td></tr>'."\n";
- $Ptr .= '<tr><td align="right"><b>Sorting Type:</b></td>'."\n";
- $Ptr .= '<td align="left">'."\n";
- $Ptr .= &Apache::lonhtmlcommon::AscendOrderOptions(
- $cache{'ProblemStatisticsAscend'},
- 'ProblemStatistics',
- 'Statistics');
- $Ptr .= '</td></tr>'."\n";
- $Ptr .= '<tr><td align="right"><b>Select Sections</b>';
- $Ptr .= '</td>'."\n";
- $Ptr .= '<td align="left">'."\n";
- my @sections = split(':',$cache{'sectionList'});
- my @sectionsSelected = split(':',$cache{'sectionsSelected'});
- $Ptr .= &Apache::lonstatistics::SectionSelect('Section','multiple',5);
- $Ptr .= '</td></tr>'."\n";
- $Ptr .= &ProblemStatisticsButtons($cache{'DisplayFormat'},
- $cache{'DisplayLegend'},
- $cache{'SortProblems'});
- $Ptr .= '</table>';
- if($cache{'DisplayLegend'} eq 'Show Legend') {
- $Ptr .= &ProblemStatisticsLegend();
+ $r->print('<tr bgcolor="#FFFFE6">'.$Str."</tr>\n");
+ $r->rflush();
+ #
+ foreach my $sequence (@Sequences) {
+ next if ($sequence->{'num_assess'}<1);
+ foreach my $resource (@{$sequence->{'contents'}}) {
+ next if ($resource->{'type'} ne 'assessment');
+ foreach my $part (@{$resource->{'parts'}}) {
+ my ($num,$tries,$mod,$mean,$Solved,$solved,$DegOfDiff,$STD,
+ $SKEW) = &Apache::loncoursedata::get_problem_statistics
+ (undef,$resource->{'symb'},$part,
+ $ENV{'request.course.id'});
+ if ($part == 0) {
+ $part = ' ';
+ }
+ my $wrongpercent = 0;
+ if (defined($num) && $num > 0) {
+ $wrongpercent=int(10*100*($num-$Solved+$solved)/$num)/10;
+ }
+ if ($show_container) {
+ $r->print('<tr>'.
+ '<td bgcolor="#FFFFE6">'.$sequence->{'title'}.
+ '</td>'.
+ &statistics_html_table_data
+ ($resource,$part,$num,$tries,$mod,$mean,$Solved,
+ $solved,$wrongpercent,$DegOfDiff,$STD,$SKEW).
+ "</tr>\n");
+ } else {
+ $r->print('<tr>'.&statistics_html_table_data
+ ($resource,$part,$num,$tries,$mod,$mean,$Solved,
+ $solved,$wrongpercent,$DegOfDiff,$STD,$SKEW).
+ "</tr>\n");
+ }
+ }
+ }
}
- $r->print($Ptr);
+ $r->print("</table>\n");
+ $r->print("</td></tr></table>\n");
$r->rflush();
- untie(%cache);
+ #
+ return;
+}
- my ($result, $orderedProblems) =
- &InitializeProblemStatistics($cacheDB, $students, $courseID, $c, $r);
- if($result ne 'OK') {
- return;
- }
+###############################################
+###############################################
- unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
- $r->print('Unable to tie database.6');
- return;
+###############################################
+###############################################
+sub statistics_html_table_data {
+ my ($resource,$part,$num,$tries,$mod,$mean,$Solved,$solved,$wrongpercent,
+ $DegOfDiff,$STD,$SKEW) = @_;
+ my $row = '';
+ $row .= '<td bgcolor="#FFFFE6">'.
+ '<a href="'.$resource->{'src'}.'" target="_blank" >'.
+ $resource->{'title'}.'</a>'.
+ '</td>';
+ $row .= '<td bgcolor="#FFFFE6">'.$part.'</td>' if (defined($part));
+ foreach ($num,$tries) {
+ $row .= '<td bgcolor="#EEFFCC" align="right">'.$_.'</td>';
+ }
+ foreach ($mod,$mean) {
+ $row .= '<td bgcolor="#DDFFFF" align="right">'.
+ sprintf("%5.2f",$_).'</td>';
+ }
+ foreach ($Solved,$solved) {
+ $row .= '<td bgcolor="#DDFFFF" align="right">'.$_.'</td>';
+ }
+ foreach ($wrongpercent) {
+ $row .= '<td bgcolor="#DDFFFF" align="right">'.
+ sprintf("%5.1f",$_).'</td>';
+ }
+ foreach ($DegOfDiff,$STD,$SKEW) {
+ $row .= '<td bgcolor="#FFDDDD" align="right">'.
+ sprintf("%5.2f",$_).'</td>';
}
- &BuildStatisticsTable(\%cache, $cache{'DisplayFormat'},
- $cache{'SortProblems'}, $orderedProblems,
- \@Header, $r, $color);
- untie(%cache);
-
- return;
+ return $row;
}
+
+###############################################
+###############################################
+
sub BuildGraphicChart {
my ($graph,$cacheDB,$courseDescription,$students,$courseID,$r,$c)=@_;
my %cache;
my $max;
-
my $title = '';
if($graph eq 'DoDiffGraph') {
$title = 'Degree-of-Difficulty';
} else {
$title = 'Wrong-Percentage';
}
-
my $currentSequence = -1;
my $sortProblems = 'Sort Within Sequence';
-
my ($result, $orderedProblems) =
&InitializeProblemStatistics($cacheDB, $students, $courseID, $c, $r);
if($result ne 'OK') {
return;
}
-
my @values = ();
-
unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
return 'Unable to tie database.7';
}
-
foreach(@$orderedProblems) {
my ($sequence,$problem,$part)=split(':', $_);
if($cache{'StatisticsMaps'} ne 'All Maps' &&
$cache{'StatisticsMaps'} ne $cache{$sequence.':title'}) {
next;
}
-
if( $currentSequence == -1 ||
($sortProblems eq 'Sort Within Sequence' &&
$currentSequence != $sequence)) {
@@ -258,7 +430,6 @@
if($sortProblems eq 'Sort Within Sequence') {
$r->print('<br><b>'.$cache{$sequence.':title'}.'</b>'."\n");
}
-
$currentSequence = $sequence;
@values = ();
$max=0;
@@ -275,13 +446,10 @@
push(@values, $data);
}
untie(%cache);
-
&DrawGraph(\@values,$courseDescription,$title,$max,$r);
-
return;
}
-
sub DrawGraph {
my ($values,$courseDescription,$title,$Max,$r)=@_;
my $sendValues = join(',', @$values);
@@ -296,9 +464,7 @@
}
#(10 - $Max % 10);
} else { $Max = 1; }
-
my @GData = ('','Problem_number',$title,$Max,$sendCount,$sendValues);
-
# $r->print('</form>'."\n");
$r->print('<br>'."\n");
$r->print('<IMG src="/cgi-bin/graph.png?'.
@@ -308,10 +474,8 @@
}
#---- Problem Statistics Web Page ---------------------------------------
-
sub CreateProblemStatisticsTableHeading {
my ($headings,$r)=@_;
-
my $Str='';
$Str .= '<tr>'."\n";
$Str .= '<th bgcolor="#ffffe6">P#</th>'."\n";
@@ -323,14 +487,12 @@
$Str .= &Apache::lonnet::escape($_).'">'.$_.'</a> </th>'."\n";
}
$Str .= "\n".'</tr>'."\n";
-
return $Str;
}
sub BuildStatisticsTable {
my ($cache,$displayFormat,$sortProblems,$orderedProblems,$headings,
$r,$color)=@_;
-
my $count = 1;
my $currentSequence = -1;
foreach(@$orderedProblems) {
@@ -339,7 +501,6 @@
$cache->{'StatisticsMaps'} ne $cache->{$sequence.':title'}) {
next;
}
-
if($currentSequence == -1 ||
($sortProblems eq 'Sort Within Sequence' &&
$currentSequence != $sequence)) {
@@ -362,7 +523,6 @@
}
$currentSequence = $sequence;
}
-
my $ref = '<a href="'.$cache->{$problem.':source'}.
'" target="_blank">'.$cache->{$problem.':title'}.'</a>';
my $title = $cache->{$problem.':title'};
@@ -383,9 +543,7 @@
$cache->{$_.':skewness'},
$cache->{$_.':discriminationFactor1'},
$cache->{$_.':discriminationFactor2'});
-
&TableRow($displayFormat,$tableData,$count,$r,$color);
-
$count++;
}
if($displayFormat ne 'Display CSV Format') {
@@ -394,7 +552,6 @@
} else {
$r->print('<br>');
}
-
return;
}
@@ -420,7 +577,6 @@
'"'.$_D1.'",'."\n".
'"'.$_D2.'"'."\n".
"<br>\n";
-
$r->print("\n".$Ptr);
} else {
$Ptr='<tr>'."\n".
@@ -440,7 +596,6 @@
'<td bgcolor='.$color->{"purple"}.'> '.$_D2.'</td>'."\n";
$r->print($Ptr.'</tr>'."\n");
}
-
return;
}
@@ -461,13 +616,11 @@
$color{"green"}="#DDFFDD";
$color{"purple"}="#FFDDFF";
}
-
return \%color;
}
sub ProblemStatisticsButtons {
my ($displayFormat, $displayLegend, $sortProblems)=@_;
-
my $Ptr = '<tr><td></td><td align="left">';
$Ptr .= '<input type="submit" name="DoDiffGraph" ';
$Ptr .= 'value="Plot Degree of Difficulty" />'."\n";
@@ -496,7 +649,6 @@
$Ptr .= 'value="Display CSV Format" />'."\n";
}
$Ptr .= '</td></tr>';
-
return $Ptr;
}
@@ -552,305 +704,7 @@
$Ptr .= '<tr><td><b>Disc.</b></td>';
$Ptr .= '<td>Number of Students had at least one discussion.';
$Ptr .= '</td></tr></table>';
-
return $Ptr;
-}
-
-sub ExtractStudentData {
- my ($cache, $students)=@_;
-
- my @problemList=();
- my %problemData;
- foreach my $sequence (split(':', $cache->{'orderedSequences'})) {
- foreach my $problemID (split(':', $cache->{$sequence.':problems'})) {
- foreach my $part (split(/\:/,$cache->{$sequence.':'.
- $problemID.
- ':parts'})) {
- my $id = $sequence.':'.$problemID.':'.$part;
- push(@problemList, $id);
- my $totalTries = 0;
- my $totalAwarded = 0;
- my $correct = 0;
- my $correctByOverride = 0;
- my $studentCount = 0;
- my $maxTries = 0;
- my $totalFirst = 0;
- my @studentTries=();
- foreach(@$students) {
- my $code = $cache->{"$_:$problemID:$part:code"};
-
- if(defined($cache->{$_.':error'}) || $code eq ' ' ||
- $cache->{"$_:$problemID:NoVersion"} eq 'true') {
- next;
- }
-
- $studentCount++;
- my $tries = $cache->{"$_:$problemID:$part:tries"};
- if($maxTries < $tries) {
- $maxTries = $tries;
- }
- $totalTries += $tries;
- push(@studentTries, $tries);
-
- my $awarded = $cache->{"$_:$problemID:$part:awarded"};
- $totalAwarded += $awarded;
-
- if($code eq '*') {
- $correct++;
- if($tries == 1) {
- $totalFirst++;
- }
- } elsif($code eq '+') {
- $correctByOverride++;
- }
- }
-
- my $studentTriesJoined = join(':::', @studentTries);
- $problemData{$id.':sequenceTitle'} =
- $cache->{$sequence.':title'};
- $problemData{$id.':studentCount'} = $studentCount;
- $problemData{$id.':totalTries'} = $totalTries;
- $problemData{$id.':studentTries'} = $studentTriesJoined;
- $problemData{$id.':totalAwarded'} = $totalAwarded;
- $problemData{$id.':correct'} = $correct;
- $problemData{$id.':correctByOverride'} = $correctByOverride;
- $problemData{$id.':wrong'} = $studentCount -
- ($correct + $correctByOverride);
- $problemData{$id.':maxTries'} = $maxTries;
- $problemData{$id.':totalFirst'} = $totalFirst;
- }
- }
- }
-
- my @upperStudents1=();
- my @lowerStudents1=();
- my @upperStudents2=();
- my @lowerStudents2=();
- my $upperCount = int(0.27*scalar(@$students));
- # Discriminant Factor criterion 1
- my $sortedStudents = &SortDivideByTries($students,$cache,':totalAwarded');
-
- for(my $i=0; $i<$upperCount; $i++) {
- push(@lowerStudents1, $sortedStudents->[$i]);
- push(@upperStudents1, $sortedStudents->[(scalar(@$students)-$i-1)]);
- }
-
- $problemData{'studentsUpperListCriterion1'}=join(':::', @upperStudents1);
- $problemData{'studentsLowerListCriterion1'}=join(':::', @lowerStudents1);
-
- # Discriminant Factor criterion 2
- $sortedStudents = &SortDivideByTries($students, $cache, ':totalSolved');
-
- for(my $i=0; $i<$upperCount; $i++) {
- push(@lowerStudents2, $sortedStudents->[$i]);
- push(@upperStudents2, $sortedStudents->[(scalar(@$students)-$i-1)]);
- }
- $problemData{'studentsUpperListCriterion2'}=join(':::', @upperStudents2);
- $problemData{'studentsLowerListCriterion2'}=join(':::', @lowerStudents2);
-
- $problemData{'problemList'} = join(':::', @problemList);
-
- return \%problemData;
-}
-
-sub SortDivideByTries {
- my ($toSort, $data, $sortOn)=@_;
- my @orderedData = sort { ($data->{$a.':totalTries'}) ?
- ($data->{$a.$sortOn}/$data->{$a.':totalTries'}):0
- <=>
- ($data->{$b.':totalTries'}) ?
- ($data->{$b.$sortOn}/$data->{$b.':totalTries'}):0
- } @$toSort;
-
- return \@orderedData;
-}
-
-sub SortProblems {
- my ($problemData,$sortBy,$sortProblems,$ascend)=@_;
-
- my @problems = split(':::', $problemData->{'problemList'});
- if($sortBy eq "Homework Sets Order") {
- return \@problems;
- }
-
- my $data;
-
- if ($sortBy eq "#Stdnts") { $data = ':studentCount'; }
- elsif($sortBy eq "Tries") { $data = ':totalTries'; }
- elsif($sortBy eq "Mod") { $data = ':maxTries'; }
- elsif($sortBy eq "Mean") { $data = ':mean'; }
- elsif($sortBy eq "#YES") { $data = ':correct'; }
- elsif($sortBy eq "#yes") { $data = ':correctByOverride'; }
- elsif($sortBy eq "%Wrng") { $data = ':percentWrong'; }
- elsif($sortBy eq "DoDiff") { $data = ':degreeOfDifficulty'; }
- elsif($sortBy eq "S.D.") { $data = ':standardDeviation'; }
- elsif($sortBy eq "Skew.") { $data = ':skewness'; }
- elsif($sortBy eq "D.F.1st") { $data = ':discriminationFactor1'; }
- elsif($sortBy eq "D.F.2nd") { $data = ':discriminationFactor2'; }
- else { return \@problems; }
-
- my %temp;
- my @sequenceList=();
- foreach(@problems) {
- my ($sequence) = split(':', $_);
-
- my @array=();
- my $tempArray;
- if(defined($temp{$sequence})) {
- $tempArray = $temp{$sequence};
- } else {
- push(@sequenceList, $sequence);
- $tempArray = \@array;
- $temp{$sequence} = $tempArray;
- }
-
- push(@$tempArray, $_);
- }
-
- my @orderedProblems;
- if($sortProblems eq "Sort Within Sequence") {
- foreach(keys(%temp)) {
- my $tempArray = $temp{$_};
- my @tempOrder =
- sort { $problemData->{$a.$data} <=> $problemData->{$b.$data} }
- @$tempArray;
- $temp{$_} = \@tempOrder;
- }
- foreach(@sequenceList) {
- my $tempArray = $temp{$_};
- @orderedProblems = (@orderedProblems, @$tempArray);
- }
- } else {
- @orderedProblems =
- sort { $problemData->{$a.$data} <=> $problemData->{$b.$data} }
- @problems;
- }
-
- if($ascend eq 'Descending') {
- @orderedProblems = reverse(@orderedProblems);
- }
-
- return \@orderedProblems;
-}
-
-sub CalculateStatistics {
- my ($data, $cache, $courseID)=@_;
-
- my @problems = split(':::', $data->{'problemList'});
- foreach(@problems) {
- # Mean
- my $mean = ($data->{$_.':studentCount'}) ?
- ($data->{$_.':totalTries'} / $data->{$_.':studentCount'}) : 0;
- $data->{$_.':mean'} = sprintf("%.2f", $mean);
-
- # %Wrong
- my $pw = ($data->{$_.':studentCount'}) ?
- (($data->{$_.':wrong'} / $data->{$_.':studentCount'}) * 100.0) :
- 100.0;
- $data->{$_.':percentWrong'} = sprintf("%.1f", $pw);
-
- # Degree of Difficulty
- my $dod = ($data->{$_.':totalTries'}) ?
- (1 - (($data->{$_.':correct'} + $data->{$_.':correctByOverride'}) /
- $data->{$_.':totalTries'})) : 0;
-
- $data->{$_.':degreeOfDifficulty'} = sprintf("%.2f", $dod);
-
- # Factor in mean
- my @studentTries = split(':::', $data->{$_.':studentTries'});
- foreach(my $index=0; $index < scalar(@studentTries); $index++) {
- $studentTries[$index] -= $mean;
- }
- my $sumSquared = 0;
- my $sumCubed = 0;
- foreach(@studentTries) {
- my $squared = ($_ * $_);
- my $cubed = ($squared * $_);
- $sumSquared += $squared;
- $sumCubed += $cubed;
- }
-
- # Standard deviation
- my $standardDeviation;
- if($data->{$_.':studentCount'} - 1 > 0) {
- $standardDeviation = (sqrt($sumSquared)) /
- ($data->{$_.':studentCount'} - 1);
- } else {
- $standardDeviation = 0.0;
- }
- $data->{$_.':standardDeviation'} = sprintf("%.1f", $standardDeviation);
-
- # Skewness
- my $skew;
- if($standardDeviation > 0.0999 && $data->{$_.':studentCount'} > 0) {
- $skew = (((sqrt($sumSquared)) / $data->{$_.':studentCount'}) /
- ($standardDeviation *
- $standardDeviation *
- $standardDeviation));
- } else {
- $skew = 0.0;
- }
-
- $data->{$_.':skewness'} = sprintf("%.1f", $skew);
-
- # Discrimination Factor 1
- my ($sequence, $problem, $part) = split(':', $_);
-
- my @upper1 = split(':::', $data->{'studentsUpperListCriterion1'});
- my @lower1 = split(':::', $data->{'studentsLowerListCriterion1'});
-
- my $upper1Sum=0;
- foreach my $name (@upper1) {
- $upper1Sum += $cache->{"$name:$problem:$part:awarded"};
- }
- $upper1Sum = (scalar(@upper1)) ? ($upper1Sum/(scalar(@upper1))) : 0;
-
- my $lower1Sum=0;
- foreach my $name (@lower1) {
- $lower1Sum += $cache->{"$name:$problem:$part:awarded"};
- }
- $lower1Sum = (scalar(@lower1)) ? ($lower1Sum/(scalar(@lower1))) : 0;
-
- my $df1 = $upper1Sum - $lower1Sum;
- $data->{$_.':discriminationFactor1'} = sprintf("%.2f", $df1);
-
- # Discrimination Factor 2
- my @upper2 = split(':::', $data->{'studentsUpperListCriterion2'});
- my @lower2 = split(':::', $data->{'studentsLowerListCriterion2'});
-
- my $upper2Sum=0;
- foreach my $name (@upper2) {
- $upper2Sum += $cache->{"$name:$problem:$part:awarded"};
- }
- $upper2Sum = (scalar(@upper2)) ? ($upper2Sum/(scalar(@upper2))) : 0;
-
- my $lower2Sum=0;
- foreach my $name (@lower2) {
- $lower2Sum += $cache->{"$name:$problem:$part:awarded"};
- }
- $lower2Sum = (scalar(@lower2)) ? ($lower2Sum/(scalar(@lower2))) : 0;
-
- my $df2 = $upper2Sum - $lower2Sum;
- $data->{$_.':discriminationFactor2'} = sprintf("%.2f", $df2);
-
- my %storestats;
- my $Average = ($data->{$_.':studentCount'}) ?
- $data->{$_.':totalTries'}/$data->{$_.':studentCount'} : 0;
- $storestats{$courseID.'___'.$cache->{$sequence.':source'}.
- '___timestamp'}=time;
- $storestats{$courseID.'___'.$cache->{$sequence.':source'}.
- '___stdno'}=$data->{$_.':studentCount'};
- $storestats{$courseID.'___'.$cache->{$sequence.':source'}.
- '___avetries'}=$Average;
- $storestats{$courseID.'___'.$cache->{$sequence.':source'}.
- '___difficulty'}=$data->{$_.':degreeOfDifficulty'};
- $cache->{$sequence.':source'} =~ /^(\w+)\/(\w+)/;
- if($data->{$_.':studentCount'}) {
- &Apache::lonnet::put('nohist_resevaldata',\%storestats,$1,$2);
- }
- }
-
- return;
}
#---- END Problem Statistics Web Page ----------------------------------------
--matthew1048633240--