PHPの折れ線グラフ生成関数と例

/*
* php は bbs.it-home.org によって折れ線グラフ
* を生成します
*/
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_pxdensity=($max_num_add-$min_num_add)/ /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); //グレー
 //グリッド線の幅
 $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 : $zero_y;
; $pic, 1,$empty_size_x-1,$high+4,"0",$color_2); //ゼロ点軸マーク
 for($i=1;$i <= $y_line_width;$i++){ / /垂直のネットワークを描画します グリッド線
 imageethickness($pic,1) //グリッド線の幅
 imageline($pic,$y_line_density*$i+$empty_size_x,0,$y_line_density*$i+$empty_size_x,$high,$color_3); ;
imagesthickness($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){ //水平グリッド Line
 imagestring($pic,1,0,$high-3,round($min_num_add,$fix),$color_2); //ゼロ点軸マーク
 for($i=1;$i  imageethickness($pic,1); //グリッド線の幅
 imageline($pic,0+$empty_size_x,$high-$x_line_density*$i,$width+$empty_size_x,$high-$ x_line_density* $i,$color_3);
 imageethickness($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) //ゼロ点軸ラベル
 =1;$ i  imageethickness($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  imageline($pic,0+$empty_size_x,$ zero_y+$x_line_density *$i,$width+$empty_size_x,$zero_y+$x_line_density*$i,$color_3);
 }
 imageethickness($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{
 画像ライン($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 $value = rand(1,200);
 $value_y[]=$value;
 }
 line_stats_pic($value_y,500,100,1,1);
?>