当前位置:编程学习 > php >>

PHP绘制心电形状曲线统计图表[源码]

   先看下最终效果:

diyblPic

       下面为PHP代码:

 

  1. /******************************  
  2. *            折线图生成函数  
  3. ******************************/  
  4. function line_stats_pic($value_y,$width,$high,$strong=1,$fix=0){  
  5. //y值处理函数  
  6. function line_point_y($num,$width,$high,$max_num_add,$min_num_add,$y_pxdensity){  
  7.     $return=$high-floor(($num-$min_num_add+$y_pxdensity)/(($max_num_add-$min_num_add)/$high));  
  8.     return $return;  
  9. }  
  10.  
  11. //参数处理  
  12. $allnum=sizeof($value_y);  
  13. $maxmax_num=max($value_y);                            //最大值  
  14. $minmin_num=min($value_y);                            //最小值  
  15. $limit_m=$max_num-$min_num;                        //极差  
  16. $max_num_add=$max_num+$limit_m*0.1;                //轴最大值  
  17. $min_num_add=$min_num-$limit_m*0.1;                //轴最小值  
  18. $limit=$max_num_add-$min_num_add;                 //极差-坐标轴y  
  19. $y_pxdensity=($max_num_add-$min_num_add)/$high;    //y轴密度  
  20. $x_pxdensity=floor($width/$allnum);                //x轴密度  
  21. reset($value_y);                                 //将数组指针归零  
  22. $i=0;  
  23. foreach($value_y as $val){  
  24.     $point_y[$i]=line_point_y($val,$width,$high,$max_num_add,$min_num_add,$y_pxdensity);  
  25.     $i++;  
  26. }  
  27. $zero_y=line_point_y(0,$width,$high,$max_num_add,$min_num_add,$y_pxdensity);    //零点的y值  
  28. $empty_size_x=(strlen($max_num) > strlen($min_num) ? strlen($max_num) : strlen($min_num))*5+3;                    //左边空白  
  29.  
  30. //图片流开始  
  31. header("Content-type:image/png");  
  32. $pic=imagecreate($width+$empty_size_x+10,$high+13);  
  33. imagecolorallocate($pic,255,255,255);         //背景色  
  34. $color_1=imagecolorallocate($pic,30,144,255); //线条色  
  35. $color_2=imagecolorallocate($pic,0,0,0);     //黑色  
  36. $color_3=imagecolorallocate($pic,194,194,194);//灰色  
  37. //绘制网格  
  38. imagesetthickness($pic,1);                    //网格线宽  
  39. $y_line_width=floor($width/100);             //纵网格线数目  
  40. $y_line_density=$y_line_width==0 ? 0 :floor($width/$y_line_width); //纵网格线密度  
  41. $point_zero_y=$zero_y > $high ? $high : $zero_y;  
  42. imagestring($pic,1,$empty_size_x-1,$high+4,"0",$color_2); //零点数轴标记  
  43. for($i=1;$i <= $y_line_width;$i++){            //绘制纵网格线  
  44.     imagesetthickness($pic,1);                 //网格线宽  
  45.     imageline($pic,$y_line_density*$i+$empty_size_x,0,$y_line_density*$i+$empty_size_x,$high,$color_3);  
  46.     imagesetthickness($pic,2);                 //轴点线宽  
  47.     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);  
  48.     imagestring($pic,1,10
补充:Web开发 , php ,
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,