[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.73 and 1.77

version 1.73, 2004/02/20 16:38:49 version 1.77, 2004/03/11 20:11:18
Line 99  sub BuildProblemAnalysisPage { Line 99  sub BuildProblemAnalysisPage {
     }      }
     $r->rflush();      $r->rflush();
     #      #
     my $problem_types = '(option|radiobutton|numerical)';      my $problem_types = '(option|radiobutton)';
     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 552  sub OR_tries_analysis { Line 552  sub OR_tries_analysis {
                                                      $mintries,$maxtries);                                                       $mintries,$maxtries);
     my $analysis = '';      my $analysis = '';
     if ($ENV{'form.AnalyzeAs'} eq 'Foils') {      if ($ENV{'form.AnalyzeAs'} eq 'Foils') {
         $analysis = &OR_Tries_Foil_Analysis($mintries,$maxtries,$Foils,          $analysis = &OR_Tries_Foil_Analysis($mintries,$maxtries,$Concepts,
                                          \%ResponseData,$ORdata);                                           \%ResponseData,$ORdata);
     } else {      } else {
         $analysis = &OR_Tries_Concept_Analysis($mintries,$maxtries,          $analysis = &OR_Tries_Concept_Analysis($mintries,$maxtries,
Line 563  sub OR_tries_analysis { Line 563  sub OR_tries_analysis {
 }  }
   
 sub OR_Tries_Foil_Analysis {  sub OR_Tries_Foil_Analysis {
     my ($mintries,$maxtries,$Foils,$respdat,$ORdata) = @_;      my ($mintries,$maxtries,$Concepts,$respdat,$ORdata) = @_;
     my %ResponseData = %$respdat;      my %ResponseData = %$respdat;
     #      #
     # Compute the data neccessary to make the plots      # Compute the data neccessary to make the plots
     my @PlotData;       my @PlotData; 
     foreach my $foilid (@$Foils) {      foreach my $concept (@$Concepts) {
         for (my $i=$mintries;$i<=$maxtries;$i++) {          foreach my $foilid (@{$concept->{'foils'}}) {
             if ($ResponseData{$foilid}->[$i]->{'_total'} == 0) {              for (my $try=$mintries;$try<=$maxtries;$try++) {
                 push(@{$PlotData[$i]->{'_correct'}},0);                  if ($ResponseData{$foilid}->[$try]->{'_total'} == 0) {
             } else {                      push(@{$PlotData[$try]->{'_correct'}},0);
                 push(@{$PlotData[$i]->{'_correct'}},  
                      100*$ResponseData{$foilid}->[$i]->{'_correct'}/  
                      $ResponseData{$foilid}->[$i]->{'_total'});  
             }  
             foreach my $option (@{$ORdata->{'_Options'}}) {  
                 push(@{$PlotData[$i]->{'_total'}},  
                      $ResponseData{$foilid}->[$i]->{'_total'});  
                 if ($ResponseData{$foilid}->[$i]->{'_total'} == 0) {  
                     push (@{$PlotData[$i]->{$option}},0);  
                 } else {                  } else {
                     if ($ResponseData{$foilid}->[$i]->{'_total'} ==                      push(@{$PlotData[$try]->{'_correct'}},
                         $ResponseData{$foilid}->[$i]->{'_correct'}) {                           100*$ResponseData{$foilid}->[$try]->{'_correct'}/
                         push(@{$PlotData[$i]->{$option}},0);                           $ResponseData{$foilid}->[$try]->{'_total'});
                   }
                   foreach my $option (@{$ORdata->{'_Options'}}) {
                       push(@{$PlotData[$try]->{'_total'}},
                            $ResponseData{$foilid}->[$try]->{'_total'});
                       if ($ResponseData{$foilid}->[$try]->{'_total'} == 0) {
                           push (@{$PlotData[$try]->{$option}},0);
                     } else {                      } else {
                         push (@{$PlotData[$i]->{$option}},                          if ($ResponseData{$foilid}->[$try]->{'_total'} ==
                               100 * $ResponseData{$foilid}->[$i]->{$option} /                               $ResponseData{$foilid}->[$try]->{'_correct'}) {
                               ($ResponseData{$foilid}->[$i]->{'_total'} -                               push(@{$PlotData[$try]->{$option}},0);
                                $ResponseData{$foilid}->[$i]->{'_correct'}));                          } else {
                               push (@{$PlotData[$try]->{$option}},
                                     100 * 
                                     $ResponseData{$foilid}->[$try]->{$option} / 
                                     ($ResponseData{$foilid}->[$try]->{'_total'} 
                                      - 
                                      $ResponseData{$foilid}->[$try]->{'_correct'}
                                      ));
                           }
                     }                      }
                 }                  } # End of foreach my $option
             }              }
         }          } # End of foreach my $foilid
     }      } # End of foreach my $concept
     #       # 
     # Build a table for the plots      # Build a table for the plots
     my $analysis_html = "<table>\n";      my $analysis_html = "<table>\n";
     my $foilkey = &build_option_index($ORdata);      my $optionkey = &build_option_index($ORdata);
     for (my $i=$mintries;$i<=$maxtries;$i++) {      for (my $try=$mintries;$try<=$maxtries;$try++) {
         my $count = $ResponseData{'_total'}->[$i];          my $count = $ResponseData{'_total'}->[$try];
         if ($count == 0) {          my $title = 'Submission '.$try.' (N='.$count.')';
             $count = 'no submissions';  
         } elsif ($count == 1) {  
             $count = '1 submission';  
         } else {  
             $count = $count.' submissions';  
         }  
         my $title = 'Attempt '.$i.', '.$count;  
         my @Datasets;          my @Datasets;
         foreach my $option ('_correct',@{$ORdata->{'_Options'}}) {          foreach my $option ('_correct',@{$ORdata->{'_Options'}}) {
             next if (! exists($PlotData[$i]->{$option}));              next if (! exists($PlotData[$try]->{$option}));
             push(@Datasets,$PlotData[$i]->{$option});              push(@Datasets,$PlotData[$try]->{$option});
         }          }
           #
           # Put a blank in the data set between concepts
           for (my $set =0;$set<=$#Datasets;$set++) {
               my @Data = @{$Datasets[$set]};
               my $idx = 0;
               foreach my $concept (@{$Concepts}) {
                   foreach my $foilid (@{$concept->{'foils'}}) {
                       $Datasets[$set]->[$idx++]=shift(@Data);
                   }
                   if ($concept->{'name'} ne $Concepts->[-1]->{'name'}) {
                       $Datasets[$set]->[$idx++] = 0;
                   }
               }
           }
           #
           # Set up the labels needed for the bar graph
           my @Labels;
           my $idx = 1;
           foreach my $concept (@{$Concepts}) {
               foreach my $foilid (@{$concept->{'foils'}}) {
                   push(@Labels,$idx++);
               }
               push(@Labels,'');
           }
           #
         my $correctgraph = &Apache::loncommon::DrawBarGraph          my $correctgraph = &Apache::loncommon::DrawBarGraph
             ($title,'Foil Number','Percent Correct',              ($title,'Foil Number','Percent Correct',
              100,$plotcolors,undef,$Datasets[0]);               100,$plotcolors,\@Labels,$Datasets[0]);
         $analysis_html.= '<tr><td>'.$correctgraph.'</td>';          $analysis_html.= '<tr><td>'.$correctgraph.'</td>';
         ##          
         ##          #
           #
         next if (! defined($Datasets[0]));          next if (! defined($Datasets[0]));
         for (my $i=0; $i< scalar(@{$Datasets[0]});$i++) {          for (my $i=0; $i< scalar(@{$Datasets[0]});$i++) {
             $Datasets[0]->[$i]=0;              $Datasets[0]->[$i]=0;
         }          }
         $count = $ResponseData{'_total'}->[$i]-$ResponseData{'_correct'}->[$i];          $count = $ResponseData{'_total'}->[$try] - 
         if ($count == 0) {                                             $ResponseData{'_correct'}->[$try];
             $count = 'no submissions';          $title = 'Submission '.$try.' (N='.$count.')';
         } elsif ($count == 1) {  
             $count = '1 submission';  
         } else {  
             $count = $count.' submissions';  
         }  
         $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,undef,@Datasets);               100,$plotcolors,\@Labels,@Datasets);
         $analysis_html.= '<td>'.$incorrectgraph.'</td>';          $analysis_html.= '<td>'.$incorrectgraph.'</td>';
         $analysis_html.= '<td>'.$foilkey."<td></tr>\n";          $analysis_html.= '<td>'.$optionkey."<td></tr>\n";
     }      }
     $analysis_html .= "</table>\n";      $analysis_html .= "</table>\n";
     return $analysis_html;      return $analysis_html;
Line 1299  sub CreateInterface { Line 1317  sub CreateInterface {
     ## Build the menu      ## Build the menu
     my $Str = '';      my $Str = '';
     $Str .= &Apache::lonhtmlcommon::breadcrumbs      $Str .= &Apache::lonhtmlcommon::breadcrumbs
         (undef,&mt('Detailed Problem Analysis'));          (undef,'Detailed Problem Analysis');
     $Str .= '<table cellspacing="5">'."\n";      $Str .= '<table cellspacing="5">'."\n";
     $Str .= '<tr>';      $Str .= '<tr>';
     $Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>';      $Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>';
Removed from v.1.73  
changed lines
  Added in v.1.77

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