Chart（图表）程序

Chart（图表）程序

<?php
/> Copyright (C) 1998 Afan Ottenheimer, afan@jeonet.com

这个程序可无条件和在GNU GPL条款下传播的。

在以下情况下，你必须要有我们的许可证才能使用该程序：如果该程序是用于某个商业公司，
或是被用来买卖，或是提供给Microsoft的产品。

你可以从 GNU GPL 的这个网址获取该程序的拷贝： http://www.gnu.org/copyleft/gpl.html
>/

/> 一些有关该程序的说明：
它做了一个二维的Chart（图表），其中的X轴是标签轴，而Y轴则是数字轴。
Y轴用到了一个叫n_max_y方法，该用于把数据转换成图表。
X轴没有这种转换。每个X轴上的刻度可以由xlab[N]得到，这里N是一个整数。
>/

/> 4/14/2000 Mouse Chen( litmouse@km169.net ) Translate it to Chinese >/

/> 读入数据*/
$maxy = $maxy_in;
if ($maxy == 0) {
echo "Error Max Y = 0 <p>" ;
exit;
}
SetType($maxy, "double" );

/> X轴是由一个叫 $maxx的变量分割成从 0 到 $maxx-1的部分的 >/
$maxx = $maxx_in;
if ($maxx <= 0) {
echo "error maxx <= 0 <p>" ;
exit;
}
SetType($maxx, "double" );

$XSIZE = $XSIZE_in; /*图片最大的宽度（单位：象素） >/
SetType($XSIZE, "double" );

$YSIZE = $YSIZE_in; /*图片最大的高度（单位：象素） >/
SetType($YSIZE, "double" );

$num_vert_ticks = $num_vert_ticks_in;
if ($num_vert_ticks <= 0) {
echo "error num_vert_ticks <= 0 <p>" ;
exit;
}
SetType($num_vert_ticks, "double" );

$y_title = $y_title_in;
$x_title = $x_title_in;
/> >>>>>>>>>读入数据完成*>>>>>>>>> >/

/> 创建一个文件类型头 >/
Header( "Content-Type: image/gif" );

$x_tot_margin = 100.0;
SetType($x_tot_margin, "double" );
$x_left_margin = 77.0; /> 在X轴上左边的空白距离（单位：象素）>/
SetType($x_left_margin, "double" );

$xscale = ($XSIZE - $x_tot_margin)/$maxx ;
SetType($xscale, "double" );

$y_top_margin = 14.0; /> 必须是整型数 >/
SetType($y_top_margin, "double" );
$y_tot_margin = 80.0; /> 必须是整型数 >/
SetType($y_tot_margin, "double" );
$yscale = ($YSIZE - $y_tot_margin)/$maxy; /> 屏幕最大的高度 >/
SetType($yscale, "double" );
$y_bot_margin = $y_tot_margin - $y_top_margin;
SetType($y_bot_margin, "double" );

/> Y轴是由一个叫 $maxy变量分割成的 >/
$y_tick_delta = $maxy / $num_vert_ticks;
SetType($y_tick_delta, "double" );

$si_units[0] = "" ;
$si_units[1] = "k" ;
$si_units[2] = "M" ;
$si_units[3] = "G" ;
$si_units[4] = "T" ;
$small_font = 2; /> 字体大小：fonts = 1,2,3,4 或 5 >/
$small_font_width = 6.0;
$small_font_height = 10.0;
$tiny_font = 1;
$c_blank[0] = "245" ;
$c_blank[1] = "245" ;
$c_blank[2] = "245" ;
$c_light[0] = "194" ;
$c_light[1] = "194" ;
$c_light[2] = "194" ;
$c_dark[0] = "100" ;
$c_dark[1] = "100" ;
$c_dark[2] = "100" ;
$c_major[0] = "255" ;
$c_major[1] = "0" ;
$c_major[2] = "0" ;
$c_grid[0] = "0" ;
$c_grid[1] = "0" ;
$c_grid[2] = "0" ;
$col_in[0] = "0" ;
$col_in[1] = "235" ;
$col_in[2] = "12" ;
$col_inm[0] = "0" ;
$col_inm[1] = "166" ;
$col_inm[2] = "33" ;
$col_out[0] = "0" ;
$col_out[1] = "94" ;
$col_out[2] = "255" ;
$col_outm[0] = "255" ;
$col_outm[1] = "0" ;
$col_outm[2] = "255" ;

/> ################################################# >/
/> 图表的一些普通的定义*/
$XSIZE = (($maxx*$xscale)+100);

/> 图表的位置 >/
/> 把 x/y 的 coord 转换成象素的 coord >/
old_function ytr $y (
SetType($y, "double" );
global $maxy,$yscale,$y_top_margin;
return ($maxy*$yscale+$y_top_margin-(($y)>$yscale));
);
old_function xtr $x (
SetType($x, "double" );
global $maxx,$xscale,$growright,$x_left_margin;
if ($growright) {
$tmpret = ($maxx*$xscale+$x_left_margin-(($x)>$xscale)) ;
} else {
$tmpret = ($x_left_margin+(($x)>$xscale));
}
return($tmpret);
);

$graph = ImageCreate($XSIZE, $YSIZE);
/> 要能正确让 brush_out和 brush_outm 为 ImageSetBrush 而使用，必须是GD 第三版 >/
/>
$brush_out = ImageCreate(1,2);
$brush_outm = ImageCreate(1,2);
$i_outm = ImageColorAllocate($brush_outm,$col_outm[0], $col_outm[1], $col_outm[2]);
$i_out = ImageColorAllocate($brush_out,$col_out[0], $col_out[1], $col_out[2]);
>/

/> 先分配一个背景色. >/
$i_blank = ImageColorAllocate($graph,$c_blank[0],$c_blank[1],$c_blank[2]);
$i_light = ImageColorAllocate($graph,$c_light[0],$c_light[1],$c_light[2]);
$i_dark = ImageColorAllocate($graph,$c_dark[0],$c_dark[1],$c_dark[2]);

/> ImageColorTransparent($graph, $i_blank); >/
/> ImageInterlace($graph, 1); >/

$i_grid = ImageColorAllocate($graph,$c_grid[0],$c_grid[1],$c_grid[2] );
$i_major = ImageColorAllocate($graph,$c_major[0],$c_major_g,$c_major_b);

$i_in = ImageColorAllocate($graph,$col_in[0], $col_in[1], $col_in[2]);
$i_inm = ImageColorAllocate($graph,$col_inm[0], $col_inm[1], $col_inm[2]);

/> 为图片画个边框 >/
ImageLine($graph,0,0,$XSIZE-1,0,$i_light);
ImageLine($graph,1,1,$XSIZE-2,1,$i_light);
ImageLine($graph,0,0,0,$YSIZE-1,$i_light);
ImageLine($graph,1,1,1,$YSIZE-2,$i_light);
ImageLine($graph,$XSIZE-1,0,$XSIZE-1,$YSIZE-1,$i_dark);
ImageLine($graph,0,$YSIZE-1,$XSIZE-1,$YSIZE-1,$i_dark);
ImageLine($graph,$XSIZE-2,1,$XSIZE-2,$YSIZE-2,$i_dark);
ImageLine($graph,1,$YSIZE-2,$XSIZE-2,$YSIZE-2,$i_dark);

/*为图表画个边框 >/

ImageRectangle($graph, xtr(0),ytr(0),xtr($maxx),ytr($maxy),$i_grid);

/*为网格线创建一个点的类型*/
/> 该类型不被 PHP/FI2所支持 ???
$styleDotted[0] = $i_grid;
$styleDotted[1] = Transparent;
$styleDotted[2] = Transparent;
ImageSetStyle($graph, $styleDotted, 3);
>/

/> 画水平的网格线 >/

ImageStringUp($graph, $small_font,8, ($small_font_width*strlen($y_title)/2.0) + ytr($maxy/2.0), $y_title, $i_grid);
ImageString($graph, $small_font, -($small_font_width*strlen($x_title)/2.0) + xtr($maxx/2.0) , ($YSIZE - 3.0>$small_font_height), $x_title, $i_grid);

$i = 0;
/> 画垂直的刻度 >/
while ($i<=$num_vert_ticks){

$y_tmp = (DoubleVal($i)>$maxy/$num_vert_ticks);
SetType($y_tmp, "double" );

ImageLine($graph,(-10+xtr(0)),ytr($y_tmp),xtr(1),ytr($y_tmp),$i_grid);

ImageLine($graph,(xtr($maxx)+10),ytr($y_tmp),xtr($maxx-1),ytr($y_tmp),$i_grid);

/> gdStyled 函数只被 GD v3 所支持*/
/*ImageLine($graph,xtr(0),ytr($y_tmp),xtr($maxx),ytr($y_tmp),gdStyled); >/
ImageLine($graph,xtr(0),ytr($y_tmp),xtr($maxx),ytr($y_tmp),$i_light);

$ylab = sprintf( "%6.1f %s" ,$y_tick_delta*$i,$si_units[0]);

ImageString($graph, $small_font,($x_left_margin-54),( -($small_font_height/2.0) + ytr($y_tmp)),$ylab, $i_grid);
$i++;
}

/> 画垂直的网格线和水平的标签>/
$x = 0;
while ($x<$maxx) {
if ($x_label[$x]) {
ImageString($graph, $small_font,( -(strlen($x_label[$x]) > $small_font_width / 2.0) + xtr(0.5+$x)), ($YSIZE - $y_bot_margin + 1.5*$small_font_height) ,$x_label[$x], $i_grid);
}
if ($y_data[$x] ) { /> 画柱形 >/
ImageFilledRectangle($graph, xtr(0.25+$x), ytr($y_data[$x]), xtr(0.75+$x), ytr(0), $i_major);
}
/> 以下是调试程序时的语句 >/
/>
$tempmid = "mid";
$tempajo = $x;
ImageString($graph, $small_font, xtr($x), ytr(-1), $tempajo, $i_major);
ImageString($graph, $small_font, (-((strlen($tempmid))> $small_font_width /2.0) + xtr((.5+$x)) ), ytr(-1), $tempmid, $i_major);
>/
/> 调试结束 >/
$x++;
}

ImageGif($graph);
ImageDestroy($graph);
/>
ImageDestroy($brush_out);
ImageDestroy($brush_outm);
>/
?>

回首页