version 1.127, 2004/03/23 16:35:15
|
version 1.128, 2004/03/26 22:01:30
|
Line 2004 sub get_problem_statistics {
|
Line 2004 sub get_problem_statistics {
|
$dbh->do($request); |
$dbh->do($request); |
# |
# |
# Collect the first suite of statistics |
# Collect the first suite of statistics |
$request = 'SELECT COUNT(*),SUM(tries),MAX(tries),AVG(tries),STD(tries) '. |
$request = 'SELECT COUNT(*),SUM(tries),'. |
|
'AVG(tries),STD(tries) '. |
'FROM '.$stats_table; |
'FROM '.$stats_table; |
my ($num,$tries,$mod,$mean,$STD) = &execute_SQL_request |
my ($num,$tries,$mean,$STD) = &execute_SQL_request |
($dbh,$request); |
($dbh,$request); |
|
# |
|
$request = 'SELECT MAX(tries),MIN(tries) FROM '.$stats_table. |
|
' WHERE awarded>0'; |
|
if (defined($time_requirements)) { |
|
$request .= ' AND '.$time_requirements; |
|
} |
|
my ($max,$min) = &execute_SQL_request($dbh,$request); |
|
# |
$request = 'SELECT SUM(awarded) FROM '.$stats_table; |
$request = 'SELECT SUM(awarded) FROM '.$stats_table; |
|
if (defined($time_requirements)) { |
|
$request .= ' AND '.$time_requirements; |
|
} |
my ($Solved) = &execute_SQL_request($dbh,$request); |
my ($Solved) = &execute_SQL_request($dbh,$request); |
|
# |
$request = 'SELECT SUM(awarded) FROM '.$stats_table. |
$request = 'SELECT SUM(awarded) FROM '.$stats_table. |
" WHERE solved='correct_by_override'"; |
" WHERE solved='correct_by_override'"; |
|
if (defined($time_requirements)) { |
|
$request .= ' AND '.$time_requirements; |
|
} |
my ($solved) = &execute_SQL_request($dbh,$request); |
my ($solved) = &execute_SQL_request($dbh,$request); |
# |
# |
$num = 0 if (! defined($num)); |
$num = 0 if (! defined($num)); |
$tries = 0 if (! defined($tries)); |
$tries = 0 if (! defined($tries)); |
$mod = 0 if (! defined($mod)); |
$max = 0 if (! defined($max)); |
|
$min = 0 if (! defined($min)); |
$STD = 0 if (! defined($STD)); |
$STD = 0 if (! defined($STD)); |
$Solved = 0 if (! defined($Solved)); |
$Solved = 0 if (! defined($Solved)); |
$solved = 0 if (! defined($solved)); |
$solved = 0 if (! defined($solved)); |
Line 2027 sub get_problem_statistics {
|
Line 2044 sub get_problem_statistics {
|
# |
# |
my $SKEW = 'nan'; |
my $SKEW = 'nan'; |
my $wrongpercent = 0; |
my $wrongpercent = 0; |
|
my $numwrong = 'nan'; |
if ($num > 0) { |
if ($num > 0) { |
($SKEW) = &execute_SQL_request($dbh,'SELECT SQRT(SUM('. |
($SKEW) = &execute_SQL_request($dbh,'SELECT SQRT(SUM('. |
'POWER(tries - '.$STD.',3)'. |
'POWER(tries - '.$STD.',3)'. |
'))/'.$num.' FROM '.$stats_table); |
'))/'.$num.' FROM '.$stats_table); |
$wrongpercent=int(10*100*($num-$Solved+$solved)/$num)/10; |
$numwrong = $num-$Solved; |
|
$wrongpercent=int(10*100*$numwrong/$num)/10; |
} |
} |
# |
# |
# Drop the temporary table |
# Drop the temporary table |
Line 2055 sub get_problem_statistics {
|
Line 2074 sub get_problem_statistics {
|
# Return result |
# Return result |
return { num_students => $num, |
return { num_students => $num, |
tries => $tries, |
tries => $tries, |
max_tries => $mod, |
max_tries => $max, |
|
min_tries => $min, |
mean_tries => $mean, |
mean_tries => $mean, |
std_tries => $STD, |
std_tries => $STD, |
skew_tries => $SKEW, |
skew_tries => $SKEW, |
num_solved => $Solved, |
num_solved => $Solved, |
num_override => $solved, |
num_override => $solved, |
|
num_wrong => $numwrong, |
per_wrong => $wrongpercent, |
per_wrong => $wrongpercent, |
deg_of_diff => $DegOfDiff }; |
deg_of_diff => $DegOfDiff }; |
} |
} |