';
foreach my $field (@SeqFields) {
-# next if ($field->{'selected'} ne 'yes');
+ next if ($field->{'selected'} ne 'yes');
$row .= '{'align'})) {
$row .= ' align="'.$field->{'align'}.'"';
@@ -970,6 +1023,11 @@ sub degrees_plot {
my $diffdata .= ''.join(',',@Labels).''.$/.
''.join(',',@Diff).''.$/;
#
+ my $title = 'Degree of Discrimination\nand Degree of Difficulty';
+ if ($xmax > 50) {
+ $title = 'Degree of Discrimination and Degree of Difficulty';
+ }
+ #
$plot=<<"END";
- Degree of Discrmination and Degree of Difficulty
+ $title
Problem Number
'.join(',',@Mean).''.$/.
''.join(',',@STD).''.$/;
#
+ my $title = 'Mean and S.D. of Tries';
+ if ($xmax > 25) {
+ $title = 'Mean and Standard Deviation of Tries';
+ }
+ #
$plot=<<"END";
- Mean and S.D. of Tries
+ $title
Problem Number
+ Number of Tries
'yes',
name => 'degrees',
- title => 'DoDisc and DoDiff' },
+ title => 'Difficulty Indexes' },
{ graphable=>'yes',
name => 'tries statistics',
- title => 'Mean and S.D. of Tries' });
+ title => 'Tries Statistics' });
#
my $Str= "\n".' |