version 1.80, 2004/04/01 21:14:32
|
version 1.81, 2004/04/01 21:35:52
|
Line 970 sub degrees_plot {
|
Line 970 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 985 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 994 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 1058 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 1073 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 1114 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; |