version 1.37, 2020/11/10 19:28:32
|
version 1.38, 2020/11/18 15:31:40
|
Line 225 sub analyze_times {
|
Line 225 sub analyze_times {
|
my @Ydata=(0); # number of submissions |
my @Ydata=(0); # number of submissions |
my @AnsData=(0); # number of correct submissions |
my @AnsData=(0); # number of correct submissions |
my @Xlabel=($WeekDay[$wday]); # Labels of itmes |
my @Xlabel=($WeekDay[$wday]); # Labels of itmes |
my @BinEnd; # The end time of each bin |
my @BinEnd=($endtime); # The end time of each bin |
my $cumulative_answers = 0; # The sum of @AnsData |
my $cumulative_answers = 0; # The sum of @AnsData |
my %students; # which students have attempted the problem? |
my %students; # which students have attempted the problem? |
# |
# |
Line 237 sub analyze_times {
|
Line 237 sub analyze_times {
|
$Ydata[$bincount] = 0; |
$Ydata[$bincount] = 0; |
$AnsData[$bincount] = 0; |
$AnsData[$bincount] = 0; |
$endtime += $binsize; |
$endtime += $binsize; |
push(@BinEnd,$endtime); |
$BinEnd[$bincount] = $endtime; |
if ($bincount % (86400/$binsize) == 0) { |
if ($bincount % (86400/$binsize) == 0) { |
$wday++; |
$wday++; |
$wday %= 7; |
$wday %= 7; |
Line 259 sub analyze_times {
|
Line 259 sub analyze_times {
|
$Ydata[$bincount]=0; |
$Ydata[$bincount]=0; |
$AnsData[$bincount]=0; |
$AnsData[$bincount]=0; |
$endtime += $binsize; |
$endtime += $binsize; |
push(@BinEnd,$endtime); |
$BinEnd[$bincount]=$endtime; |
if ($bincount % (86400/$binsize) == 0) { |
if ($bincount % (86400/$binsize) == 0) { |
$wday ++; |
$wday ++; |
$wday %= 7; |
$wday %= 7; |