％创建面部检测器对象。faceDetector = vision.CascadeObjectDetector ();创建点跟踪器对象。pointTracker = vision.PointTracker（“MaxBidirectionalError”，2）;％创建摄像头对象。凸轮=网络摄像头（）;％采集一帧来获得它的大小。videoFrame =快照(cam);frameSize =大小(videoFrame);%创建视频播放器对象。放像机=愿景。放像机(“位置”[100 100 [框架尺寸（2），框架尺寸（1）] + 30]）;

runLoop = TRUE;量numPts = 0;帧数又= 0;而runLoop &&帧数又<400％获取下一帧。videoFrame =快照(cam);videoFrameGray = rgb2gray (videoFrame);frameecount = frameecount + 1;如果numPts < 10%检测模式。BBOX = faceDetector.step（videoFrameGray）;如果~ isempty (bbox)％发现检测到的区域内眼角点。点= detectMinEigenFeatures (videoFrameGray,“投资回报率”，BBOX（1，:)）;重新初始化点跟踪器。xyPoints = points.Location;量numPts =尺寸（xyPoints，1）;释放（pointTracker）;初始化（pointTracker，xyPoints，videoFrameGray）;%保存分数的副本。oldPoints = xyPoints;将矩形[x, y, w, h]转换为an4个角的[x,y]坐标的m × 2矩阵。这％是需要能够将边界框变换到显示％脸部的方向。bboxPoints = bbox2points（BBOX（1，:)）;%将方框角转换为[x1 y1 x2 y2 x3 y3 x4 y4]要求insertShape％格式。bboxPolygon =重塑（bboxPoints'，1，[]）;％显示围绕检测到的面部的边界框。videoFrame = insertShape（videoFrame，“多边形”bboxPolygon,'行宽'，3）;％显示检测的角点。videoFrame = insertMarker（videoFrame，xyPoints，“+”那“颜色”那'白色的')；结尾其他的%跟踪模式。[xyPoints，isFound] =步骤（pointTracker，videoFrameGray）;visiblePoints = xyPoints（isFound，:);oldInliers = oldPoints（isFound，:);量numPts =尺寸（visiblePoints，1）;如果numPts > = 10估计旧点之间的几何变换％，而新的点。[XForm的，inlierIdx] = estimateGeometricTransform2D（......oldInliers visiblePoints,“相似”那'maxdistance'，4）;oldInliers = oldInliers（inlierIdx，:);visiblePoints = visiblePoints（inlierIdx，:);对包围框应用变换。bboxPoints = transformPointsForward（XForm的，bboxPoints）;%将方框角转换为[x1 y1 x2 y2 x3 y3 x4 y4]要求insertShape％格式。bboxPolygon =重塑（bboxPoints'，1，[]）;％显示被跟踪脸部周围的边框。videoFrame = insertShape（videoFrame，“多边形”bboxPolygon,'行宽'，3）;%显示跟踪点。videoFrame = insertMarker（videoFrame，visiblePoints，“+”那“颜色”那'白色的')；%重置点数。oldPoints = visiblePoints;选点(pointTracker oldPoints);结尾结尾％使用视频播放器对象显示注释的视频帧。步骤（录像机，videoFrame）;％检查视频播放器窗口是否已关闭。runLoop = isOpen(放像机);结尾%清理。清晰的凸轮;释放（录像机）;释放（pointTracker）;释放（faceDetector）;