version 1.104, 2004/11/10 21:23:10
|
version 1.105, 2004/11/12 19:47:29
|
Line 1258 sub OR_tries_analysis {
|
Line 1258 sub OR_tries_analysis {
|
# |
# |
$concept_graph = &Apache::loncommon::DrawBarGraph |
$concept_graph = &Apache::loncommon::DrawBarGraph |
('Correct Concepts','Concept Number','Percent Correct', |
('Correct Concepts','Concept Number','Percent Correct', |
100,$plotcolors,undef,\@concept_plot_data); |
100,$plotcolors,undef,\@concept_plot_data,{xskip=>1}); |
} |
} |
# |
# |
# Create Foil Plots |
# Create Foil Plots |
Line 1296 sub OR_tries_analysis {
|
Line 1296 sub OR_tries_analysis {
|
# |
# |
my $correct_graph = &Apache::loncommon::DrawBarGraph |
my $correct_graph = &Apache::loncommon::DrawBarGraph |
('Correct Statements','Statement','% Answered Correct', |
('Correct Statements','Statement','% Answered Correct', |
100,$plotcolors,\@Labels,$Datasets[0]); |
100,$plotcolors,\@Labels,$Datasets[0],{xskip=>1}); |
|
|
# |
# |
# |
# |
Line 1308 sub OR_tries_analysis {
|
Line 1308 sub OR_tries_analysis {
|
$response_data{'_correct'}->[$try]; |
$response_data{'_correct'}->[$try]; |
my $incorrect_graph = &Apache::loncommon::DrawBarGraph |
my $incorrect_graph = &Apache::loncommon::DrawBarGraph |
('Incorrect Statements','Statement','% Chosen Incorrectly', |
('Incorrect Statements','Statement','% Chosen Incorrectly', |
100,$plotcolors,\@Labels,@Datasets); |
100,$plotcolors,\@Labels,@Datasets,{xskip=>1}); |
$analysis_html.= |
$analysis_html.= |
'<tr><td colspan="4" align="center">'. |
'<tr><td colspan="4" align="center">'. |
'<font size="+1">'. |
'<font size="+1">'. |
Line 1502 sub OR_Foil_Time_Analysis {
|
Line 1502 sub OR_Foil_Time_Analysis {
|
100, |
100, |
$plotcolors, |
$plotcolors, |
undef, |
undef, |
$plotdata[0]); |
$plotdata[0], |
|
{xskip=>1}); |
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 1513 sub OR_Foil_Time_Analysis {
|
Line 1514 sub OR_Foil_Time_Analysis {
|
100, |
100, |
$plotcolors, |
$plotcolors, |
undef, |
undef, |
@plotdata); |
@plotdata,{xskip=>1}); |
return ($correct_plot,$incorrect_plot); |
return ($correct_plot,$incorrect_plot); |
} |
} |
|
|
Line 1544 sub OR_Concept_Time_Analysis {
|
Line 1545 sub OR_Concept_Time_Analysis {
|
100, |
100, |
$plotcolors, |
$plotcolors, |
undef, |
undef, |
\@plotdata); |
\@plotdata,{xskip=>1}); |
} |
} |
|
|
sub OR_time_process_data { |
sub OR_time_process_data { |