version 1.8, 2002/01/23 12:39:19
|
version 1.9, 2002/02/01 11:47:34
|
Line 27
|
Line 27
|
# The LearningOnline Network with CAPA |
# The LearningOnline Network with CAPA |
# Behrouz Minaei |
# Behrouz Minaei |
# YEAR=2001 |
# YEAR=2001 |
# 9/13/2001, 9/25/2001, 10/6/2001, 10/9/2001, 12/25/2001 |
# 9/13/01, 9/25/01, 10/6/01, 10/9/01, 12/25/01 |
# |
# YEAR=2002 |
|
# 2/1/02 |
# A CGI script that dynamically outputs a graphical chart for lonstatistics. |
# A CGI script that dynamically outputs a graphical chart for lonstatistics. |
# |
# |
#### |
#### |
|
|
use strict; |
use strict; |
use GD::Graph::bars3d; |
use GD::Graph::bars; |
use GD::Graph::colour; |
use GD::Graph::colour; |
use GD::Graph::Data; |
use GD::Graph::Data; |
|
|
Line 51 my @data =(\@xlabels,\@data1);
|
Line 52 my @data =(\@xlabels,\@data1);
|
|
|
my $Range; |
my $Range; |
if ( $PNo > 10 ) {$Range = 30*$PNo;} |
if ( $PNo > 10 ) {$Range = 30*$PNo;} |
else { $Range = 300+30*$PNo; } |
else { $Range = 400+30*$PNo; } |
|
|
$Max+=(10 - $Max % 10); |
$Max += (10 - $Max % 10); |
$Max=int($Max); |
$Max = int($Max); |
|
|
my $MyGraph = GD::Graph::bars3d->new($Range, 400); |
my $MyGraph = GD::Graph::bars->new($Range, 400); |
|
|
$MyGraph->set( |
$MyGraph->set( |
x_label => 'Problems #', |
x_label => 'Problems #', |