绘制指数统计图表代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】绘制指数统计图表

作者:两把刷子 / 发布于2014/1/17/ 813

#

# This software is in the public domain.

#



usestrict;

useGD;

usePOSIX qw(log10)



my$width= 850;

my$height= 200;

my$end_space= 40;

my$marked_width=$width-$end_space-$end_space;

my$min_power= 0;

my$max_power= 6;

my$inter_space=$marked_width/ ($max_power-$min_power);



my$im= new GD::Image($width,$height);



my$white=$im->colorAllocate(255,255,255);

my$black=$im->colorAllocate(0,0,0);

my$red=$im->colorAllocate(255,0,0);

my$blue=$im->colorAllocate(0,0,255);



$im->setThickness(2);

$im->line(0, 100,$width, 100,$black);



formy$i($min_power..$max_power) {

$im->setThickness(2);

my$x=$inter_space*$i+$end_space;

$im->line($x, 75,$x, 125,$black);

my$str= 10**$i;

$str= (' 'x (7 -length($str))) .$str;

$im->stringUp(&gdTinyFont,$x-4, 160,$str,$black);

nextif$i==$max_power;

$im->setThickness(1);

formy$j(2..9) {

my$x2=$x+ (log10($j) *$inter_space);

my$str=sprintf'%g', log10(10**$i*$j);

$im->stringUp(&gdTinyFont,$x2-4, 75,$str,$black);

$im->line($x2, 80,$x2, 120,$blue);

}



}



openmy$image_out,"> ruler.png";

binmode$image_out;

$image_out->print($im->png);

//该代码片段来自于:http://www.sharejs.com/codes

试试其它关键字

　统计图表　

同语言下

可能有用的

两把刷子贡献的其它代码(6)