version 1.17, 2003/01/08 03:31:54
|
version 1.19, 2003/01/13 00:07:51
|
Line 46 my ($Titr,$xlab,$ylab,$Max,$PNo,$data1,$
|
Line 46 my ($Titr,$xlab,$ylab,$Max,$PNo,$data1,$
|
|
|
my @data11=split(/\,/,$data1); |
my @data11=split(/\,/,$data1); |
my @data12=split(/\,/,$data2); |
my @data12=split(/\,/,$data2); |
|
my $skip_x = 1; |
|
my $bar_space=10; |
|
|
my @xlabels; |
my @xlabels; |
|
|
if ($xlab=~/^Percentage$/){ |
if ($Titr =~ /^Percentage$/){ |
for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) { |
for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) { |
$xlabels[$nIdx]=$data11[$nIdx]; |
$xlabels[$nIdx]=$nIdx; |
} |
} |
@data11=(); |
@data11=(); |
@data11=split(/\,/,$data2); |
@data11=split(/\,/,$data2); |
@data12=(); |
@data12=(); |
|
$Titr = ''; |
} else { |
} else { |
for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) { |
for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) { |
$xlabels[$nIdx]=$nIdx+1; |
$xlabels[$nIdx]=$nIdx+1; |
Line 70 my $Range2;
|
Line 73 my $Range2;
|
if ($xlab=~/^Concepts$/){ |
if ($xlab=~/^Concepts$/){ |
$Range1=270; |
$Range1=270; |
$Range2=200; |
$Range2=200; |
} elsif ($xlab=~/^Percentage$/){ |
} elsif ($xlab=~/^Problem_number$/){ |
$Range1=250+20*$PNo; |
|
$Range2=200; |
|
} else { |
|
$Range1=450; |
$Range1=450; |
$Range2=200; |
$Range2=200; |
|
} else { |
|
$Range1=800;#*$PNo; |
|
$Range2=200; |
|
$skip_x=5; |
|
$bar_space=1; |
} |
} |
|
|
|
|
Line 90 $MyGraph->set(
|
Line 95 $MyGraph->set(
|
title => $Titr, |
title => $Titr, |
y_max_value => $Max, |
y_max_value => $Max, |
# y_tick_number => $ytic, |
# y_tick_number => $ytic, |
y_label_skip => 1, |
y_label_skip => 5, |
|
x_label_skip => $skip_x, |
|
|
dclrs => [ qw( lgreen dgreen lyellow lpurple cyan lorange)], |
dclrs => [ qw( lgreen dgreen lyellow lpurple cyan lorange)], |
|
|
bar_spacing => 10, |
bar_spacing => $bar_space, |
cumulate => 2, |
cumulate => 2, |
zero_axis => 1, |
zero_axis => 1, |
|
|