PHP生成曲线图（暂时还不知道该什么时候用哎！）

<?php /****************************** * 折线图生成函数 * youd * 090207-01 ******************************/ function line_stats_pic($value_y,$width,$high,$strong=1,$fix=0){ //y值处理函数 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; } //参数处理 $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; //极差-坐标轴y $y_pxdensity=($max_num_add-$min_num_add)/$high; //y轴密度 $x_pxdensity=floor($width/$allnum); //x轴密度 reset($value_y); //将数组指针归零 $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); //零点的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);//灰色 //绘制网格 imagesetthickness($pic,1); //网格线宽 $y_line_width=floor($width/100); //纵网格线数目 $y_line_density=$y_line_width==0 ? 0 :floor($width/$y_line_width); //纵网格线密度 $point_zero_y=$zero_y > $high ? $high : $zero_y; imagestring($pic,1,$empty_size_x-1,$high+4,"0",$color_2); //零点数轴标记 for($i=1;$i <= $y_line_width;$i++){ //绘制纵网格线 imagesetthickness($pic,1); //网格线宽 imageline($pic,$y_line_density*$i+$empty_size_x,0,$y_line_density*$i+$empty_size_x,$high,$color_3); imagesetthickness($pic,2); //轴点线宽 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); //数轴标记 } $x_line_width=floor($high/30); //横网格线数目 $x_line_density=$x_line_width==0 ? 0 :floor($high/$y_line_width); //横网格线密度 if($zero_y > $high){ //绘制横网格线 imagestring($pic,1,0,$high-3,round($min_num_add,$fix),$color_2); //零点数轴标记 for($i=1;$i <= $x_line_width;$i++){ imagesetthickness($pic,1); //网格线宽 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); //轴点线宽 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); //数轴标记 } }else{ imagestring($pic,1,$empty_size_x-8,$zero_y,"0",$color_2); //零点数轴标记 for($i=1;$i <= ceil($x_line_width/2);$i++){ imagesetthickness($pic,1); //网格线宽 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); //轴点线宽 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); //数轴标记 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); //数轴标记 } } } //绘制轴线 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); } //产生折线 $point_x=0; $j=0; imagesetthickness($pic,$strong); //线条粗细 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); } for($i=0;$i<100;$i++){ $value = rand(1,200); $value_y[]=$value; } line_stats_pic($value_y,500,100,1,1); ?>