[BACK]Return to lonproblemanalysis.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface / statistics

Diff for /loncom/interface/statistics/lonproblemanalysis.pm between versions 1.61 and 1.68

version 1.61, 2004/01/20 15:51:06 version 1.68, 2004/02/16 20:50:03
Line 76  sub BuildProblemAnalysisPage { Line 76  sub BuildProblemAnalysisPage {
     #      #
     &Apache::lonstatistics::PrepareClasslist();      &Apache::lonstatistics::PrepareClasslist();
     #      #
     $r->print('<h2>'.&mt('Option Response Problem Analysis').'</h2>');      $r->print('<h2>'.&mt('Detailed Problem Analysis').'</h2>');
     $r->print(&CreateInterface());      $r->print(&CreateInterface());
     #      #
     my @Students = @Apache::lonstatistics::Students;      my @Students = @Apache::lonstatistics::Students;
Line 99  sub BuildProblemAnalysisPage { Line 99  sub BuildProblemAnalysisPage {
     }      }
     $r->rflush();      $r->rflush();
     #      #
       my $problem_types = '(option|radiobutton|numerical)';
     if (exists($ENV{'form.problemchoice'}) &&       if (exists($ENV{'form.problemchoice'}) && 
         ! exists($ENV{'form.SelectAnother'})) {          ! exists($ENV{'form.SelectAnother'})) {
         foreach my $button (@SubmitButtons) {          foreach my $button (@SubmitButtons) {
Line 120  sub BuildProblemAnalysisPage { Line 121  sub BuildProblemAnalysisPage {
         #          #
         my ($prev,$curr,$next) =           my ($prev,$curr,$next) = 
             &Apache::lonstathelpers::get_prev_curr_next($current_problem,              &Apache::lonstathelpers::get_prev_curr_next($current_problem,
                                                      '(option|radiobutton)',                                                          $problem_types,
                                                      'response',                                                          'response',
                                                         );                                                          );
         if (exists($ENV{'form.PrevProblemAnalysis'}) && defined($prev)) {          if (exists($ENV{'form.PrevProblemAnalysis'}) && defined($prev)) {
             $current_problem = $prev;              $current_problem = $prev;
Line 157  sub BuildProblemAnalysisPage { Line 158  sub BuildProblemAnalysisPage {
                 &RadioResponseAnalysis($r,$current_problem,                  &RadioResponseAnalysis($r,$current_problem,
                                        $ProblemData,                                         $ProblemData,
                                        \@Students);                                         \@Students);
               } elsif ($current_problem->{'resptype'} eq 'numerical') {
                   &NumericalResponseAnalysis($r,$current_problem,
                                              $ProblemData,\@Students);
             } else {              } else {
                 $r->print('<h2>This analysis is not supported</h2>');                  $r->print('<h2>This analysis is not supported</h2>');
             }              }
Line 168  sub BuildProblemAnalysisPage { Line 172  sub BuildProblemAnalysisPage {
         $r->print('&nbsp;'x5);          $r->print('&nbsp;'x5);
         $r->print('<h3>'.&mt('Please select a problem to analyze').'</h3>');          $r->print('<h3>'.&mt('Please select a problem to analyze').'</h3>');
         $r->print(&Apache::lonstathelpers::ProblemSelector          $r->print(&Apache::lonstathelpers::ProblemSelector
                   ('(option|radiobutton)'));                    ($problem_types));
     }      }
 }  }
   
   #########################################################
   #########################################################
   ##
   ##      Numerical Response Routines
   ##
   #########################################################
   #########################################################
   sub NumericalResponseAnalysis {
       my ($r,$problem,$ProblemData,$Students) = @_;
       $r->print('<h2>This analysis is not yet supported</h2>');
       my ($resource,$respid) = ($problem->{'resource'},
                                 $problem->{'respid'});
       my $analysis_html;
       my $PerformanceData = 
           &Apache::loncoursedata::get_response_data
           ($Students,$resource->{'symb'},$respid);
       if (! defined($PerformanceData) || 
           ref($PerformanceData) ne 'ARRAY' ) {
           $analysis_html = '<h2>'.
               &mt('There is no submission data for this resource').
               '</h2>';
           $r->print($analysis_html);
           return;
       }
       my ($max,$min) = &GetStudentAnswers($r,$problem,$Students);
       $r->print('Maximum = '.$max.' Minimum = '.$min);
       my $max_students = 0;
       my %Data;
       foreach my $student (@$Students) {
           my $answer = $student->{'answer'};
           $Data{$answer}++;
           if ($max_students < $Data{$answer}) {
               $max_students = $Data{$answer};
           }
       }
       foreach (5,10,20,25,50,75,100,150,200,250,500,1000,1500,2000,2500,5000) {
           if ($max_students < $_) {
               $max_students = $_;
               last;
           }
       }
       my @Labels = sort {$a <=> $b } keys(%Data);
       $r->print('number of labels = '.scalar(@Labels));
       my @PlotData = @Data{@Labels};
       $r->print('number of PlotData = '.scalar(@PlotData));
       my $graph = 
           &Apache::loncommon::DrawXYGraph('Correct Answer Distribution',
                                           'Correct Answer',
                                           'Number of students',
                                           $max_students,
                                           undef,
                                           \@Labels,
                                           [\@PlotData],
                                           (xskip=>10));
       $r->print($graph);
       return;
   }
   
   sub GetStudentAnswers {
       my ($r,$problem,$Students) = @_;
       my %Answers;
       my ($resource,$partid,$respid) = ($problem->{'resource'},
                                         $problem->{'part'},
                                         $problem->{'respid'});
       # Open progress window
       my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin
           ($r,'Student Answer Compilation Status',
            'Student Answer Compilation Progress', scalar(@$Students));
       $r->print("<table>\n");
       $r->rflush();
       my ($min,$max);
       foreach my $student (@$Students) {
           my $sname = $student->{'username'};
           my $sdom = $student->{'domain'};
           my $answer = analyze_problem_as_student($resource,
                                                   $sname,$sdom,
                                                   $partid,$respid);
           if (! defined($min) || $min > $answer) {
               $min = $answer;
           }
           if (! defined($max) || $max < $answer) {
               $max = $answer;
           }
   #        $r->print('<tr>'.
   #                  '<td>'.$sname.'</td>'.
   #                  '<td>'.$sdom.'</td>'.
   #                  '<td>'.$answer.'</td>'.
   #                  '</tr>'."\n");
           &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
                                                    &mt('last student'));
           $student->{'answer'} = $answer;
       }
       $r->print("</table>\n");
       $r->rflush();
       &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
       # close progress window
       return ($max,$min);
   }
   
   sub build_student_data_worksheet {
       my ($workbook,$format) = @_;
       my $rows_output = 3;
       my $cols_output = 0;
       my $worksheet  = $workbook->addworksheet('Student Data');
       $worksheet->write($rows_output++,0,'Student Data',$format->{'h3'});
       my @Headers = ('full name','username','domain','section',
                      "student\nnumber",'identifier');
       $worksheet->write_row($rows_output++,0,\@Headers,$format->{'header'});
       my @Students = @Apache::lonstatistics::Students;
       my $studentrows = &Apache::loncoursedata::get_student_data(\@Students);
       my %ids;
       foreach my $row (@$studentrows) {
           my ($mysqlid,$student) = @$row;
           $ids{$student}=$mysqlid;
       }
       foreach my $student (@Students) {
           my $name_domain = $student->{'username'}.':'.$student->{'domain'};
           $worksheet->write_row($rows_output++,0,
                             [$student->{'fullname'},
                              $student->{'username'},$student->{'domain'},
                              $student->{'section'},$student->{'id'},
                              $ids{$name_domain}]);
       }
       return $worksheet;
   }
   
 #########################################################  #########################################################
 #########################################################  #########################################################
Line 183  sub BuildProblemAnalysisPage { Line 312  sub BuildProblemAnalysisPage {
 sub RadioResponseAnalysis {  sub RadioResponseAnalysis {
     my ($r,$problem,$ProblemData,$Students) = @_;      my ($r,$problem,$ProblemData,$Students) = @_;
     my ($resource,$respid) = ($problem->{'resource'},      my ($resource,$respid) = ($problem->{'resource'},
                                     $problem->{'respid'});                                $problem->{'respid'});
     my $analysis_html;      my $analysis_html;
     my $PerformanceData =       my $PerformanceData = 
         &Apache::loncoursedata::get_response_data          &Apache::loncoursedata::get_response_data
Line 301  sub RR_Tries_Foil_Analysis { Line 430  sub RR_Tries_Foil_Analysis {
                                                   'Percent Choosing',                                                    'Percent Choosing',
                                                   100,                                                    100,
                                                   ['#33ff00','#ff3300'],                                                    ['#33ff00','#ff3300'],
                                                     undef,
                                                   \@PlotData_Correct,                                                    \@PlotData_Correct,
                                                   \@PlotData_Incorrect);                                                    \@PlotData_Incorrect);
     }      }
Line 493  sub OR_Tries_Foil_Analysis { Line 623  sub OR_Tries_Foil_Analysis {
         }          }
         my $correctgraph = &Apache::loncommon::DrawBarGraph          my $correctgraph = &Apache::loncommon::DrawBarGraph
             ($title,'Foil Number','Percent Correct',              ($title,'Foil Number','Percent Correct',
              100,$plotcolors,$Datasets[0]);               100,$plotcolors,undef,$Datasets[0]);
         $analysis_html.= '<tr><td>'.$correctgraph.'</td>';          $analysis_html.= '<tr><td>'.$correctgraph.'</td>';
         ##          ##
         ##          ##
Line 512  sub OR_Tries_Foil_Analysis { Line 642  sub OR_Tries_Foil_Analysis {
         $title = 'Attempt '.$i.', '.$count;          $title = 'Attempt '.$i.', '.$count;
         my $incorrectgraph = &Apache::loncommon::DrawBarGraph          my $incorrectgraph = &Apache::loncommon::DrawBarGraph
             ($title,'Foil Number','% Option Chosen Incorrectly',              ($title,'Foil Number','% Option Chosen Incorrectly',
              100,$plotcolors,@Datasets);               100,$plotcolors,undef,@Datasets);
         $analysis_html.= '<td>'.$incorrectgraph.'</td>';          $analysis_html.= '<td>'.$incorrectgraph.'</td>';
         $analysis_html.= '<td>'.$foilkey."<td></tr>\n";          $analysis_html.= '<td>'.$foilkey."<td></tr>\n";
     }      }
Line 579  sub OR_Tries_Concept_Analysis { Line 709  sub OR_Tries_Concept_Analysis {
         $title = 'Attempt '.$i.', '.$count;          $title = 'Attempt '.$i.', '.$count;
         my $graphlink = &Apache::loncommon::DrawBarGraph          my $graphlink = &Apache::loncommon::DrawBarGraph
             ($title,'Concept Number','Percent Correct',              ($title,'Concept Number','Percent Correct',
              100,$plotcolors,$PlotData[$i]->{'_correct'});               100,$plotcolors,undef,$PlotData[$i]->{'_correct'});
         $analysis_html.= '<tr><td>'.$graphlink."</td></tr>\n";          $analysis_html.= '<tr><td>'.$graphlink."</td></tr>\n";
     }      }
     $analysis_html .= "</table>\n";      $analysis_html .= "</table>\n";
Line 744  sub OR_Foil_Time_Analysis { Line 874  sub OR_Foil_Time_Analysis {
                                                        'Percent Correct',                                                         'Percent Correct',
                                                        100,                                                         100,
                                                        $plotcolors,                                                         $plotcolors,
                                                          undef,
                                                        $Plotdata[0]);                                                         $Plotdata[0]);
     for (my $j=0; $j< scalar(@{$Plotdata[0]});$j++) {      for (my $j=0; $j< scalar(@{$Plotdata[0]});$j++) {
         $Plotdata[0]->[$j]=0;          $Plotdata[0]->[$j]=0;
Line 761  sub OR_Foil_Time_Analysis { Line 892  sub OR_Foil_Time_Analysis {
                                                  'Incorrect Option Choice',                                                   'Incorrect Option Choice',
                                                  100,                                                   100,
                                                  $plotcolors,                                                   $plotcolors,
                                                    undef,
                                                  @Plotdata);                                                           @Plotdata);        
     $analysis_html.='<tr>'.      $analysis_html.='<tr>'.
         '<td>'.$correctplot.'</td>'.          '<td>'.$correctplot.'</td>'.
Line 825  sub OR_Concept_Time_Analysis { Line 957  sub OR_Concept_Time_Analysis {
                                                     'Percent Correct',                                                      'Percent Correct',
                                                     100,                                                      100,
                                                     $plotcolors,                                                      $plotcolors,
                                                       undef,
                                                     \@Plotdata);                                                      \@Plotdata);
     $analysis_html.='<tr>'.      $analysis_html.='<tr>'.
         '<td>'.$correctplot.'</td>'.          '<td>'.$correctplot.'</td>'.
Line 1264  sub build_foil_index { Line 1397  sub build_foil_index {
         my $a1 = lc($a);           my $a1 = lc($a); 
         my $b1 = lc($b);          my $b1 = lc($b);
         if (exists($Numbers{$a1})) {          if (exists($Numbers{$a1})) {
             $a = $Numbers{$a1};              $a1 = $Numbers{$a1};
         }          }
         if (exists($Numbers{$b1})) {          if (exists($Numbers{$b1})) {
             $b = $Numbers{$b1};              $b1 = $Numbers{$b1};
         }          }
         if (($a =~/^\d+$/) && ($b =~/^\d+$/)) {          if (($a1 =~/^\d+$/) && ($b1 =~/^\d+$/)) {
             return $a <=> $b;              return $a1 <=> $b1;
         } else {          } else {
             return $a cmp $b;              return $a1 cmp $b1;
         }          }
     };      };
     my @Concepts;      my @Concepts;
Line 1313  sub build_foil_index { Line 1446  sub build_foil_index {
         if (@Concepts > 1) {          if (@Concepts > 1) {
             $table .= '<tr>'.              $table .= '<tr>'.
                 '<td>'.$conceptindex.'</td>'.                  '<td>'.$conceptindex.'</td>'.
                 '<td>'.$concept->{'name'}.'</td>'.                  '<td>'.&HTML::Entities::encode($concept->{'name'}).'</td>'.
                 '<td>'.$foilindex++.'</td>'.                  '<td>'.$foilindex++.'</td>'.
                 '<td>'.$Foildata{$firstfoil}->{'name'}.'</td>'.                  '<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'name'}).'</td>'.
                 '<td>'.$Foildata{$firstfoil}->{'text'}.'</td>'.                  '<td>'.$Foildata{$firstfoil}->{'text'}.'</td>'.
                 '<td>'.$Foildata{$firstfoil}->{'value'}.'</td>'.                  '<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'value'}).'</td>'.
                 "</tr>\n";                  "</tr>\n";
         } else {          } else {
             $table .= '<tr>'.              $table .= '<tr>'.
                 '<td>'.$foilindex++.'</td>'.                  '<td>'.$foilindex++.'</td>'.
                 '<td>'.$Foildata{$firstfoil}->{'name'}.'</td>'.                  '<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'name'}).'</td>'.
                 '<td>'.$Foildata{$firstfoil}->{'text'}.'</td>'.                  '<td>'.$Foildata{$firstfoil}->{'text'}.'</td>'.
                 '<td>'.$Foildata{$firstfoil}->{'value'}.'</td>'.                  '<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'value'}).'</td>'.
                 "</tr>\n";                  "</tr>\n";
         }          }
         foreach my $foilid (@FoilsInConcept) {          foreach my $foilid (@FoilsInConcept) {
Line 1333  sub build_foil_index { Line 1466  sub build_foil_index {
                     '<td></td>'.                      '<td></td>'.
                     '<td></td>'.                      '<td></td>'.
                     '<td>'.$foilindex.'</td>'.                      '<td>'.$foilindex.'</td>'.
                     '<td>'.$Foildata{$foilid}->{'name'}.'</td>'.                      '<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'name'}).'</td>'.
                     '<td>'.$Foildata{$foilid}->{'text'}.'</td>'.                      '<td>'.$Foildata{$foilid}->{'text'}.'</td>'.
                     '<td>'.$Foildata{$foilid}->{'value'}.'</td>'.                      '<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'value'}).'</td>'.
                     "</tr>\n";                      "</tr>\n";
             } else {              } else {
                 $table .= '<tr>'.                  $table .= '<tr>'.
                     '<td>'.$foilindex.'</td>'.                      '<td>'.$foilindex.'</td>'.
                     '<td>'.$Foildata{$foilid}->{'name'}.'</td>'.                      '<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'name'}).'</td>'.
                     '<td>'.$Foildata{$foilid}->{'text'}.'</td>'.                      '<td>'.$Foildata{$foilid}->{'text'}.'</td>'.
                     '<td>'.$Foildata{$foilid}->{'value'}.'</td>'.                      '<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'value'}).'</td>'.
                     "</tr>\n";                      "</tr>\n";
             }                              }                
         } continue {          } continue {
Line 1367  sub build_option_index { Line 1500  sub build_option_index {
               '<tr>'.                '<tr>'.
               '<td bgcolor="'.$plotcolors->[$optionindex++].'">'.                '<td bgcolor="'.$plotcolors->[$optionindex++].'">'.
               ('&nbsp;'x4).'</td>'.                ('&nbsp;'x4).'</td>'.
               '<td>'.$option.'</td>'.                '<td>'.&HTML::Entities::encode($option).'</td>'.
               "</tr>\n");                "</tr>\n");
     }      }
     shift(@Rows); # Throw away 'correct option chosen' color      shift(@Rows); # Throw away 'correct option chosen' color
Line 1548  sub Process_OR_Row { Line 1681  sub Process_OR_Row {
     return %RowData;      return %RowData;
 }  }
   
   
   sub analyze_problem_as_student {
       my ($resource,$sname,$sdom,$partid,$respid) = @_;
       my $url = $resource->{'src'};
       my $symb = $resource->{'symb'};
       my $courseid = $ENV{'request.course.id'};
       my $Answ=&Apache::lonnet::ssi($url,('grade_target' => 'analyze',
                                           'grade_domain' => $sdom,
                                           'grade_username' => $sname,
                                           'grade_symb' => $symb,
                                           'grade_courseid' => $courseid));
       (my $garbage,$Answ)=split(/_HASH_REF__/,$Answ,2);
       my %Answer=&Apache::lonnet::str2hash($Answ);
       my $key = $partid.'.'.$respid.'.answer';
       my $student_answer = $Answer{$key}->[0];
       if (! defined($student_answer)) {
           $student_answer = $Answer{$key}->[1];
       }
       return ($student_answer);
   }
   
 ##  ##
 ## get problem data and put it into a useful data structure.  ## get problem data and put it into a useful data structure.
 ## note: we must force each foil and option to not begin or end with  ## note: we must force each foil and option to not begin or end with
Line 1562  sub get_problem_data { Line 1716  sub get_problem_data {
     my %Partdata;      my %Partdata;
     foreach my $part (@{$Answer{'parts'}}) {      foreach my $part (@{$Answer{'parts'}}) {
         while (my($key,$value) = each(%Answer)) {          while (my($key,$value) = each(%Answer)) {
               #
               # Logging code:
               if (0) {
                   &Apache::lonnet::logthis($part.' got key "'.$key.'"');
                   if (ref($value) eq 'ARRAY') {
                       &Apache::lonnet::logthis('    '.join(',',@$value));
                   } else {
                       &Apache::lonnet::logthis('    '.$value);
                   }
               }
               # End of logging code
             next if ($key !~ /^$part/);              next if ($key !~ /^$part/);
             $key =~ s/^$part\.//;              $key =~ s/^$part\.//;
             if (ref($value) eq 'ARRAY') {              if (ref($value) eq 'ARRAY') {
Line 1575  sub get_problem_data { Line 1740  sub get_problem_data {
                         $Partdata{$part}->{'_Foils'}->{$foil}->{'_Concept'}=                          $Partdata{$part}->{'_Foils'}->{$foil}->{'_Concept'}=
                                                                       $concept;                                                                        $concept;
                     }                      }
                   } elsif ($key =~ /^(incorrect|answer|ans_low|ans_high)$/) {
                       $Partdata{$part}->{$key}=$value;
                 }                  }
             } else {              } else {
                 if ($key=~ /^foil\.text\.(.*)$/) {                  if ($key=~ /^foil\.text\.(.*)$/) {
Line 1595  sub get_problem_data { Line 1762  sub get_problem_data {
 1;  1;
   
 __END__  __END__
   
 #####  
 # partdata{part}->{_Foils}->{foilid}->{'name'}     = $  
 #                                   ->{'text'}     = $  
 #                                   ->{'value'}    = $  
 #                                   ->{'_Concept'} = $  
 # partdata{part}->{_Options}  = @  
 # partdata{part}->{_Concepts} = @  
Removed from v.1.61  
changed lines
  Added in v.1.68

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>