version 1.35.2.3, 2020/11/12 00:31:19
|
version 1.35.2.4, 2020/11/18 15:38:56
|
Line 223 sub analyze_times {
|
Line 223 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 235 sub analyze_times {
|
Line 235 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 257 sub analyze_times {
|
Line 257 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; |