<?php
/******************************
*      折線圖生成函數(shù)
*      youd
*      090207-01
******************************/
function line_stats_pic($value_y,$width,$high,$strong=1,$fix=0){
//y值處理函數(shù)
function line_point_y($num,$width,$high,$max_num_add,$min_num_add,$y_pxdensity){
  $return=$high-floor(($num-$min_num_add+$y_pxdensity)/(($max_num_add-$min_num_add)/$high));
  return $return;
}
//參數(shù)處理
$allnum=sizeof($value_y);
$max_num=max($value_y);              //最大值
$min_num=min($value_y);              //最小值
$limit_m=$max_num-$min_num;            //極差
$max_num_add=$max_num+$limit_m*0.1;        //軸最大值
$min_num_add=$min_num-$limit_m*0.1;        //軸最小值
$limit=$max_num_add-$min_num_add;         //極差-坐標(biāo)軸y
$y_pxdensity=($max_num_add-$min_num_add)/$high;  //y軸密度
$x_pxdensity=floor($width/$allnum);        //x軸密度
reset($value_y);                 //將數(shù)組指針歸零
$i=0;
foreach($value_y as $val){
  $point_y[$i]=line_point_y($val,$width,$high,$max_num_add,$min_num_add,$y_pxdensity);
  $i++;
}
$zero_y=line_point_y(0,$width,$high,$max_num_add,$min_num_add,$y_pxdensity);  //零點(diǎn)的y值
$empty_size_x=(strlen($max_num) > strlen($min_num) ? strlen($max_num) : strlen($min_num))*5+3;          //左邊空白
//圖片流開始
header("Content-type:image/png");
$pic=imagecreate($width+$empty_size_x+10,$high+13);
imagecolorallocate($pic,255,255,255);     //背景色
$color_1=imagecolorallocate($pic,30,144,255); //線條色
$color_2=imagecolorallocate($pic,0,0,0);   //黑色
$color_3=imagecolorallocate($pic,194,194,194);//灰色
//繪制網(wǎng)格
imagesetthickness($pic,1);          //網(wǎng)格線寬
$y_line_width=floor($width/100);       //縱網(wǎng)格線數(shù)目
$y_line_density=$y_line_width==0 ? 0 :floor($width/$y_line_width); //縱網(wǎng)格線密度
$point_zero_y=$zero_y > $high ? $high : $zero_y;
imagestring($pic,1,$empty_size_x-1,$high+4,"0",$color_2); //零點(diǎn)數(shù)軸標(biāo)記
for($i=1;$i <= $y_line_width;$i++){      //繪制縱網(wǎng)格線
  imagesetthickness($pic,1);         //網(wǎng)格線寬
  imageline($pic,$y_line_density*$i+$empty_size_x,0,$y_line_density*$i+$empty_size_x,$high,$color_3);
  imagesetthickness($pic,2);         //軸點(diǎn)線寬
  imageline($pic,$y_line_density*$i+$empty_size_x,$point_zero_y-4,$y_line_density*$i+$empty_size_x,$point_zero_y,$color_2);
  imagestring($pic,1,100*$i+$empty_size_x-5,$high+4,$allnum/$y_line_width*$i,$color_2);  //數(shù)軸標(biāo)記
}
$x_line_width=floor($high/30);        //橫網(wǎng)格線數(shù)目
$x_line_density=$x_line_width==0 ? 0 :floor($high/$y_line_width);  //橫網(wǎng)格線密度
if($zero_y > $high){             //繪制橫網(wǎng)格線
  imagestring($pic,1,0,$high-3,round($min_num_add,$fix),$color_2); //零點(diǎn)數(shù)軸標(biāo)記
  for($i=1;$i <= $x_line_width;$i++){
   imagesetthickness($pic,1);        //網(wǎng)格線寬
   imageline($pic,0+$empty_size_x,$high-$x_line_density*$i,$width+$empty_size_x,$high-$x_line_density*$i,$color_3);
   imagesetthickness($pic,2);        //軸點(diǎn)線寬
   imageline($pic,0+$empty_size_x,$high-$x_line_density*$i,3+$empty_size_x,$high-$x_line_density*$i,$color_2);
   imagestring($pic,1,0,$high-$x_line_density*$i-3,round($limit/$x_line_width*$i+$min_num_add,$fix),$color_2);  //數(shù)軸標(biāo)記
  }
}else{
  imagestring($pic,1,$empty_size_x-8,$zero_y,"0",$color_2); //零點(diǎn)數(shù)軸標(biāo)記
  for($i=1;$i <= ceil($x_line_width/2);$i++){
   imagesetthickness($pic,1);        //網(wǎng)格線寬
   imageline($pic,0+$empty_size_x,$zero_y-$x_line_density*$i,$width+$empty_size_x,$zero_y-$x_line_density*$i,$color_3);
   if($zero_y+$x_line_density*$i < $high){
    imageline($pic,0+$empty_size_x,$zero_y+$x_line_density*$i,$width+$empty_size_x,$zero_y+$x_line_density*$i,$color_3);
   }
   imagesetthickness($pic,2);        //軸點(diǎn)線寬
   imageline($pic,0+$empty_size_x,$zero_y-$x_line_density*$i,3+$empty_size_x,$zero_y-$x_line_density*$i,$color_2);
   if($zero_y+$x_line_density*$i < $high){
    imageline($pic,0+$empty_size_x,$zero_y+$x_line_density*$i,3+$empty_size_x,$zero_y+$x_line_density*$i,$color_2);
   }
   imagestring($pic,1,0,$zero_y-$x_line_density*$i-3,round($limit/$x_line_width*$i,$fix),$color_2);   //數(shù)軸標(biāo)記
   if($zero_y+$x_line_density*$i < $high){
    imagestring($pic,1,0,$zero_y+$x_line_density*$i-3,round(-$limit/$x_line_width*$i,$fix),$color_2);  //數(shù)軸標(biāo)記
   }
  }
}
//繪制軸線
imagesetthickness($pic,2);          //軸線寬
imageline($pic,1+$empty_size_x,0,1+$empty_size_x,$high,$color_2);
if($zero_y > $high){             //x軸位置
  imageline($pic,0+$empty_size_x,$high,$width+$empty_size_x,$high,$color_2);
}else{
  imageline($pic,0+$empty_size_x,$zero_y,$width+$empty_size_x,$zero_y,$color_2);
}
//產(chǎn)生折線
$point_x=0;
$j=0;
imagesetthickness($pic,$strong);       //線條粗細(xì)
while($j+1 < $allnum){
  imageline($pic,$point_x+2+$empty_size_x,$point_y[$j],$point_x+$x_pxdensity+2+$empty_size_x,$point_y[$j+1],$color_1);
  $point_x+=$x_pxdensity;
  $j++;
}
imagepng($pic);
imagedestroy($pic);
}
/*
函數(shù)描述及例子
參數(shù)說明：
$value_y -------- 包含你想生成折線圖的數(shù)組，要求鍵值從0開始遞增。
$width--------生成的折線圖的網(wǎng)格寬度（不算白邊）
$high--------高度
$strong-------線條粗細(xì)（默認(rèn)為1）
$fix-------數(shù)據(jù)保留的位數(shù)（默認(rèn)為取整）
*/
for($i=0;$i<100;$i++){
    $value = rand(1,200);
    $value_y[]=$value;
}
line_stats_pic($value_y,500,100,1,1);
?>