version 1.80, 2004/04/01 21:14:32
|
version 1.82, 2004/04/01 22:13:39
|
Line 461 sub parse_field_selection {
|
Line 461 sub parse_field_selection {
|
} |
} |
} |
} |
} |
} |
|
# |
|
# Always show all the sequence statistics (for now) |
|
foreach my $field (@SeqFields) { |
|
$field->{'selected'} = 'yes'; |
|
} |
return; |
return; |
} |
} |
|
|
Line 818 sub sequence_html_header {
|
Line 823 sub sequence_html_header {
|
sub sequence_html_output { |
sub sequence_html_output { |
my ($seq) = @_; |
my ($seq) = @_; |
my $data = $SeqStat{$seq->{'symb'}}; |
my $data = $SeqStat{$seq->{'symb'}}; |
# $SeqStat{$symb}->{'max'} |
|
# $SeqStat{$symb}->{'min'} |
|
# $SeqStat{$symb}->{'mean'} |
|
# $SeqStat{$symb}->{'std'} |
|
# $SeqStat{$symb}->{'count'} |
|
# $SeqStat{$symb}->{'max_possible'} |
|
my $row = '<tr>'; |
my $row = '<tr>'; |
foreach my $field (@SeqFields) { |
foreach my $field (@SeqFields) { |
# next if ($field->{'selected'} ne 'yes'); |
next if ($field->{'selected'} ne 'yes'); |
$row .= '<td bgcolor="'.$field->{'color'}.'"'; |
$row .= '<td bgcolor="'.$field->{'color'}.'"'; |
if (exists($field->{'align'})) { |
if (exists($field->{'align'})) { |
$row .= ' align="'.$field->{'align'}.'"'; |
$row .= ' align="'.$field->{'align'}.'"'; |
Line 970 sub degrees_plot {
|
Line 969 sub degrees_plot {
|
my $diffdata .= '<data>'.join(',',@Labels).'</data>'.$/. |
my $diffdata .= '<data>'.join(',',@Labels).'</data>'.$/. |
'<data>'.join(',',@Diff).'</data>'.$/; |
'<data>'.join(',',@Diff).'</data>'.$/; |
# |
# |
|
my $title = 'Degree of Discrimination\nand Degree of Difficulty'; |
|
if ($xmax > 50) { |
|
$title = 'Degree of Discrimination and Degree of Difficulty'; |
|
} |
|
# |
$plot=<<"END"; |
$plot=<<"END"; |
<gnuplot |
<gnuplot |
texfont="10" |
texfont="10" |
Line 980 sub degrees_plot {
|
Line 984 sub degrees_plot {
|
align="center" |
align="center" |
border="on" |
border="on" |
transparent="on" |
transparent="on" |
alttag="Sample Plot" |
alttag="Degree of Discrimination and Degree of Difficulty Plot" |
samples="100" |
samples="100" |
bgcolor="xffffff" |
bgcolor="xffffff" |
height="$height" |
height="$height" |
Line 989 sub degrees_plot {
|
Line 993 sub degrees_plot {
|
pos="top right" |
pos="top right" |
title="" |
title="" |
box="off" /> |
box="off" /> |
<title>Degree of Discrmination and Degree of Difficulty</title> |
<title>$title</title> |
<axis xmin="0" ymin="$ymin" xmax="$xmax" ymax="$ymax" color="x000000" /> |
<axis xmin="0" ymin="$ymin" xmax="$xmax" ymax="$ymax" color="x000000" /> |
<xlabel>Problem Number</xlabel> |
<xlabel>Problem Number</xlabel> |
<curve |
<curve |
Line 1053 sub tries_data_plot {
|
Line 1057 sub tries_data_plot {
|
'<data>'.join(',',@Mean).'</data>'.$/. |
'<data>'.join(',',@Mean).'</data>'.$/. |
'<data>'.join(',',@STD).'</data>'.$/; |
'<data>'.join(',',@STD).'</data>'.$/; |
# |
# |
|
my $title = 'Mean and S.D. of Tries'; |
|
if ($xmax > 25) { |
|
$title = 'Mean and Standard Deviation of Tries'; |
|
} |
|
# |
$plot=<<"END"; |
$plot=<<"END"; |
<gnuplot |
<gnuplot |
texfont="10" |
texfont="10" |
Line 1063 sub tries_data_plot {
|
Line 1072 sub tries_data_plot {
|
align="center" |
align="center" |
border="on" |
border="on" |
transparent="on" |
transparent="on" |
alttag="Sample Plot" |
alttag="Mean and S.D of Tries Plot" |
samples="100" |
samples="100" |
bgcolor="xffffff" |
bgcolor="xffffff" |
height="$height" |
height="$height" |
width="$width"> |
width="$width"> |
<title>Mean and S.D. of Tries</title> |
<title>$title</title> |
<axis xmin="0" ymin="0" xmax="$xmax" ymax="$ymax" color="x000000" /> |
<axis xmin="0" ymin="0" xmax="$xmax" ymax="$ymax" color="x000000" /> |
<xlabel>Problem Number</xlabel> |
<xlabel>Problem Number</xlabel> |
|
<ylabel>Number of Tries</ylabel> |
<curve |
<curve |
linestyle="yerrorbars" |
linestyle="yerrorbars" |
name="S.D. Tries" |
name="S.D. Tries" |
Line 1103 sub plot_dropdown {
|
Line 1113 sub plot_dropdown {
|
my @Additional_Plots = ( |
my @Additional_Plots = ( |
{ graphable=>'yes', |
{ graphable=>'yes', |
name => 'degrees', |
name => 'degrees', |
title => 'DoDisc and DoDiff' }, |
title => 'Difficulty Indexes' }, |
{ graphable=>'yes', |
{ graphable=>'yes', |
name => 'tries statistics', |
name => 'tries statistics', |
title => 'Mean and S.D. of Tries' }); |
title => 'Tries Statistics' }); |
# |
# |
my $Str= "\n".'<select name="plot" size="1">'; |
my $Str= "\n".'<select name="plot" size="1">'; |
$Str .= '<option name="none"></option>'."\n"; |
$Str .= '<option name="none"></option>'."\n"; |
$Str .= '<option name="none2">none</option>'."\n"; |
$Str .= '<option name="none2">none</option>'."\n"; |
foreach my $field (@Fields,@Additional_Plots) { |
foreach my $field (@Additional_Plots,@Fields) { |
if (! exists($field->{'graphable'}) || |
if (! exists($field->{'graphable'}) || |
$field->{'graphable'} ne 'yes') { |
$field->{'graphable'} ne 'yes') { |
next; |
next; |
Line 1173 sub Excel_output {
|
Line 1183 sub Excel_output {
|
} |
} |
my $excel_sheet = $excel_workbook->addworksheet( |
my $excel_sheet = $excel_workbook->addworksheet( |
&Apache::loncommon::clean_excel_name($sheetname)); |
&Apache::loncommon::clean_excel_name($sheetname)); |
|
# |
|
my $format = &Apache::loncommon::define_excel_formats($excel_workbook); |
## |
## |
## Begin creating excel sheet |
## Begin creating excel sheet |
## |
## |
Line 1180 sub Excel_output {
|
Line 1192 sub Excel_output {
|
# |
# |
# Put the course description in the header |
# Put the course description in the header |
$excel_sheet->write($rows_output,$cols_output++, |
$excel_sheet->write($rows_output,$cols_output++, |
$ENV{'course.'.$ENV{'request.course.id'}.'.description'}); |
$ENV{'course.'.$ENV{'request.course.id'}.'.description'}, |
|
$format->{'h1'}); |
$cols_output += 3; |
$cols_output += 3; |
# |
# |
# Put a description of the sections listed |
# Put a description of the sections listed |
my $sectionstring = ''; |
my $sectionstring = ''; |
my @Sections = @Apache::lonstatistics::SelectedSections; |
$excel_sheet->write($rows_output,$cols_output++, |
if (scalar(@Sections) > 1) { |
&Apache::lonstathelpers::sections_description |
if (scalar(@Sections) > 2) { |
(@Apache::lonstatistics::SelectedSections), |
my $last = pop(@Sections); |
$format->{'h3'}); |
$sectionstring = "Sections ".join(', ',@Sections).', and '.$last; |
$cols_output += scalar(@Apache::lonstatistics::SelectedSections); |
} else { |
|
$sectionstring = "Sections ".join(' and ',@Sections); |
|
} |
|
} else { |
|
if ($Sections[0] eq 'all') { |
|
$sectionstring = "All sections"; |
|
} else { |
|
$sectionstring = "Section ".$Sections[0]; |
|
} |
|
} |
|
$excel_sheet->write($rows_output,$cols_output++,$sectionstring); |
|
$cols_output += scalar(@Sections); |
|
# |
# |
# Time restrictions |
# Time restrictions |
my $time_string; |
my $time_string; |
Line 1217 sub Excel_output {
|
Line 1218 sub Excel_output {
|
# See note above about lonlocal:locallocaltime |
# See note above about lonlocal:locallocaltime |
$time_string .= 'Data collected before '.localtime($endtime).'.'; |
$time_string .= 'Data collected before '.localtime($endtime).'.'; |
} |
} |
|
if (defined($time_string)) { |
|
$excel_sheet->write($rows_output,$cols_output++,$time_string); |
|
$cols_output+= 5; |
|
} |
# |
# |
# Put the date in there too |
# Put the date in there too |
$excel_sheet->write($rows_output,$cols_output++, |
$excel_sheet->write($rows_output,$cols_output++, |
Line 1224 sub Excel_output {
|
Line 1229 sub Excel_output {
|
# |
# |
$rows_output++; |
$rows_output++; |
$cols_output=0; |
$cols_output=0; |
# |
## |
# Long Headers |
## Sequence Statistics |
foreach my $field (@Fields) { |
## |
next if ($field->{'name'} eq 'problem_num'); |
&write_headers($excel_sheet,$format,\$rows_output,\$cols_output, |
next if ($field->{'selected'} ne 'yes'); |
\@SeqFields); |
if (exists($field->{'long_title'})) { |
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) { |
|
next if ($seq->{'num_assess'} < 1); |
|
my $data = $SeqStat{$seq->{'symb'}}; |
|
$cols_output=0; |
|
foreach my $field (@SeqFields) { |
|
next if ($field->{'selected'} ne 'yes'); |
$excel_sheet->write($rows_output,$cols_output++, |
$excel_sheet->write($rows_output,$cols_output++, |
$field->{'long_title'}); |
$data->{$field->{'name'}}); |
} else { |
|
$excel_sheet->write($rows_output,$cols_output++,''); |
|
} |
} |
|
$rows_output++; |
|
$cols_output=0; |
} |
} |
|
## |
|
## Resource Statistics |
|
## |
$rows_output++; |
$rows_output++; |
$cols_output=0; |
$cols_output=0; |
# Brief headers |
&write_headers($excel_sheet,$format,\$rows_output,\$cols_output, |
foreach my $field (@Fields) { |
\@Fields); |
next if ($field->{'selected'} ne 'yes'); |
# |
next if ($field->{'name'} eq 'problem_num'); |
|
# Use english for excel as I am not sure how well excel handles |
|
# other character sets.... |
|
$excel_sheet->write($rows_output,$cols_output++,$field->{'title'}); |
|
} |
|
$rows_output++; |
|
foreach my $data (@StatsArray) { |
foreach my $data (@StatsArray) { |
$cols_output=0; |
$cols_output=0; |
foreach my $field (@Fields) { |
foreach my $field (@Fields) { |
Line 1256 sub Excel_output {
|
Line 1263 sub Excel_output {
|
$data->{$field->{'name'}}); |
$data->{$field->{'name'}}); |
} |
} |
$rows_output++; |
$rows_output++; |
|
$cols_output=0; |
} |
} |
# |
# |
$excel_workbook->close(); |
$excel_workbook->close(); |
Line 1268 sub Excel_output {
|
Line 1276 sub Excel_output {
|
return; |
return; |
} |
} |
|
|
|
## |
|
## &write_headers |
|
## |
|
sub write_headers { |
|
my ($excel_sheet,$format,$rows_output,$cols_output,$Fields) = @_; |
|
## |
|
## First the long titles |
|
foreach my $field (@{$Fields}) { |
|
next if ($field->{'name'} eq 'problem_num'); |
|
next if ($field->{'selected'} ne 'yes'); |
|
if (exists($field->{'long_title'})) { |
|
$excel_sheet->write($$rows_output,${$cols_output}, |
|
$field->{'long_title'}, |
|
$format->{'bold'}); |
|
} else { |
|
$excel_sheet->write($$rows_output,${$cols_output},''); |
|
} |
|
${$cols_output}+= 1; |
|
} |
|
${$cols_output} =0; |
|
${$rows_output}+=1; |
|
## |
|
## Then the short titles |
|
foreach my $field (@{$Fields}) { |
|
next if ($field->{'selected'} ne 'yes'); |
|
next if ($field->{'name'} eq 'problem_num'); |
|
# Use english for excel as I am not sure how well excel handles |
|
# other character sets.... |
|
$excel_sheet->write($$rows_output,$$cols_output, |
|
$field->{'title'}, |
|
$format->{'bold'}); |
|
$$cols_output+=1; |
|
} |
|
${$cols_output} =0; |
|
${$rows_output}+=1; |
|
return; |
|
} |
|
|
################################################## |
################################################## |
################################################## |
################################################## |
## |
## |
Line 1301 sub compute_all_statistics {
|
Line 1347 sub compute_all_statistics {
|
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) { |
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) { |
last if ($c->aborted); |
last if ($c->aborted); |
next if ($seq->{'num_assess'} < 1); |
next if ($seq->{'num_assess'} < 1); |
|
&compute_sequence_statistics($seq); |
&compute_statistics_on_sequence($seq); |
&compute_statistics_on_sequence($seq); |
} |
} |
} |
} |
Line 1519 sub compute_sequence_statistics {
|
Line 1566 sub compute_sequence_statistics {
|
$SeqStat{$symb}->{'countmax'} = $cmax; |
$SeqStat{$symb}->{'countmax'} = $cmax; |
$SeqStat{$symb}->{'countmin'} = $cmin; |
$SeqStat{$symb}->{'countmin'} = $cmin; |
$SeqStat{$symb}->{'countstd'} = $cSTD; |
$SeqStat{$symb}->{'countstd'} = $cSTD; |
|
$SeqStat{$symb}->{'countmean'} = $cMean; |
$SeqStat{$symb}->{'count'} = $ccount; |
$SeqStat{$symb}->{'count'} = $ccount; |
$SeqStat{$symb}->{'items'} = $K; |
$SeqStat{$symb}->{'items'} = $K; |
$SeqStat{$symb}->{'KR-21'}=$kr_21; |
$SeqStat{$symb}->{'KR-21'}=$kr_21; |
|
|
return; |
return; |
} |
} |
|
|