浅谈PHP答题卡识别（一）

最近期末考试考完了，我们也要放寒假了。于是突发奇想，想用PHP写一个答题卡识别程序。已经实现了一些，现分享给大家。

具体的步骤如下：

上传答题卡=>图片二值化(已实现)=>寻找定位点(已实现)=>使用定位点切割掉不要的部分(已实现)=>切割小题=>客观题自动阅卷&主观题切割后交由阅卷老师批改=>统计分数=>生成csv文档

先爆出源码:

 <?php

 error_reporting(0);

 $fn="./1.jpg";//要识别的答题卡文件名，生产环境中替换为"$fn='./cards/'.$_GET['testno']."/".$_GET['cardno'];"

 $m255=200;//图片二值化的阈值

 $minx=-1;//定位点坐标，L6同。

 $miny=-1;

 function gett($res,$i,$j){//求某座标的灰度值

 $m255=200;

  $rgb = imagecolorat($res,$j,$i);

     $rgbarray = imagecolorsforindex($res, $rgb);

       $r= $rgbarray['red'] * 0.333;

       $g= $rgbarray['green'] * 0.333;

       $b= $rgbarray['blue'] * 0.333;

       $t= round(($r+$g+$b) /$m255);

     return $t;

 }

   header('Content-type:image/png');

 $res = imagecreatefromjpeg($fn);

 $size = getimagesize($fn);

 $black = imagecolorallocate($res, 0, 0, 0);

 $white = imagecolorallocate($res, 255, 255, 255);

 $red=imagecolorallocate($res, 255, 0, 0);

 $fl=imagecolorallocate($res, 0, 255, 0);

    for($j=0; $j <$size[0]; ++$j)

 for($i=0; $i <$size[1]; ++$i)

   {

       //这一部分代码的Line26-Line35和Line36-Line49借鉴的网上的一位大大的文章，稍作修改，具体是哪位大大的，不太记得了，这一行献给那位大大

       {

     $rgb = imagecolorat($res,$j,$i);

     $rgbarray = imagecolorsforindex($res, $rgb);

       $r= $rgbarray['red']*0.333;

       $g= $rgbarray['green']*0.333;

       $b= $rgbarray['blue']*0.333;

       $t= round(($r+$g+$b) /$m255);

      if ($t==0)

     {

         imagesetpixel($res,$j,$i,$black);//原本是$data[$i][$j]=true;因为内存超限，so换成了这个，L47的一样.

         if($minx==-1 and $miny==-1 and $i>=10 and $j>=10 and gett($res,$i+5,$j)==0 and gett($res,$i,$j+5)==0){//gett($res,$i+5,$j)==0 and gett($res,$i,$j+5)==0：防止误识别.

          //找到左上角的定位点

          $minx=$j;

          $miny=$i;

       }

     }else{

        imagesetpixel($res,$j,$i,$white);

     }

    }

   }

   //$b=dgcz($res,$miny,$minx,$fl);//这个函数本是用于标记定位点的，后来取消了

 imageellipse($res,$minx,$miny,40,40,$red);//标记定位点

 //imageline($res,$minx,0,$minx,$size[1],$red);

 //imageline($res,$size[0]-$minx,0,$size[0]-$minx,$size[1]-1,$red);

 //画切割线

 //imageellipse($res,$b-minx,$miny,40,40,$red);

 $Out = imagecreatetruecolor ($size[0]-2*$minx,$size[1]-2*$miny);//切割后图像存放位置

 imagecopy ( $Out,$res , 0,0 ,$minx ,$miny ,$size[0]-2*$minx,$size[1]-2*$miny );//切割

 imagepng($Out);

 imagedestroy($res);

 imagedestroy($Out);

 //$fh=fopen("./log.log","a");

 //fwrite($fh,"x:".$minx.";y:".$miny."\n");

 ?>

但效率有点低。需要二十多秒才能完成。

测试图片：

执行结果：