创建人脸检测器对象。faceDetector = vision.CascadeObjectDetector ();%创建点跟踪器对象。pointTracker =愿景。PointTracker (“MaxBidirectionalError”2);创建webcam对象。凸轮=摄像头();捕获一个帧以获得其大小。videoFrame =快照(cam);frameSize =大小(videoFrame);创建视频播放器对象。放像机=愿景。放像机(“位置”， [100 100 [frameSize(2)， frameSize(1)]+30]);

runLoop = true;numPts = 0;frameCount = 0;而runLoop && frameCount < 400获取下一帧。videoFrame =快照(cam);videoFrameGray = rgb2gray (videoFrame);frameCount = frameCount + 1;如果numPts < 10%检测模式。bbox = faceDetector.step (videoFrameGray);如果~ isempty (bbox)%查找被检测区域内的角点。点= detectMinEigenFeatures (videoFrameGray,“投资回报”bbox (:));重新初始化点跟踪器。xyPoints = points.Location;numPts =大小(xyPoints, 1);释放(pointTracker);初始化(pointTracker xyPoints videoFrameGray);保存一个点的副本。oldPoints = xyPoints;%将表示为[x, y, w, h]的矩形转换为% m × 2矩阵的四个角的坐标[x,y]。这%需要能够将边界框转换为显示%脸部的朝向。bboxPoints = bbox2points(bbox(1，:)));%将箱子角转换成[x1 y1 x2 y2 x3 y3 x4 y4]%格式要求insertShape。bboxPolygon =重塑(bboxPoints'， 1， []);在被检测的面部周围显示一个包围框。videoFrame = insertShape (videoFrame,“多边形”bboxPolygon,“线宽”3);显示检测到的角落。videooframe = insertMarker(videooframe, xyPoints，“+”，“颜色”，“白色”）;结束其他的%跟踪模式。[xyPoints, isFound] = step(pointTracker, videoFrameGray);可见点= xyPoints(isFound，:);olddinliers = oldPoints(isFound，:);numPts =大小(可见点，1);如果numPts > = 10%估计旧点之间的几何变换%和新点。[xform, inlierIdx] = estimateGeometricTransform2D().．.oldInliers visiblePoints,“相似”，“MaxDistance”4);oldInliers = oldInliers(inlierIdx，:);可见点=可见点(inlierIdx，:);将转换应用于包围框。bboxPoints = transformpointforward (xform, bboxPoints);%将箱子角转换成[x1 y1 x2 y2 x3 y3 x4 y4]%格式要求insertShape。bboxPolygon =重塑(bboxPoints'， 1， []);在被跟踪的面部周围显示一个包围框。videoFrame = insertShape (videoFrame,“多边形”bboxPolygon,“线宽”3);%显示跟踪点。videooframe = insertMarker(videooframe，可视点，可视点)“+”，“颜色”，“白色”）;%重置点。oldPoints = visiblePoints;选点(pointTracker oldPoints);结束结束%使用视频播放器对象显示带注释的视频帧。步骤(放像机、videoFrame);%查看视频播放器窗口是否已关闭。runLoop = isOpen(放像机);结束%清理。清晰的凸轮；释放(放像机);释放(pointTracker);释放(faceDetector);