version 1.18, 2003/01/11 06:28:19
|
version 1.19, 2003/01/13 00:07:51
|
Line 51 my $bar_space=10;
|
Line 51 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; |
$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 73 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=450; |
|
$Range2=200; |
|
} else { |
$Range1=800;#*$PNo; |
$Range1=800;#*$PNo; |
$Range2=200; |
$Range2=200; |
$skip_x=5; |
$skip_x=5; |
$bar_space=1; |
$bar_space=1; |
$xlab='Percentage_of_Correct_Problems'; |
|
} else { |
|
$Range1=450; |
|
$Range2=200; |
|
} |
} |
|
|
|
|