％创建面部检测器对象。facedetector = Vision.cascadeObjectDetector（）;％创建点跟踪器对象。PointTracker = Vision.PointTracker（“ maxBidirectionalError”，2）;％创建网络摄像头对象。CAM = WebCam（）;％捕获一个框架以获得其尺寸。videoframe =快照（cam）;frameSize = size（videoframe）;％创建视频播放器对象。videoplayer = vision.videoplayer（'位置'，[100 100 [FrameSize（2），FrameSize（1）]+30]）;

runloop = true;numpts = 0;frameCount = 0;尽管runloop && framecount <400％获得下一个帧。videoframe =快照（cam）;videoframeGray = rgb2gray（videoframe）;FRAMECOUNT = FRAMECOUNT + 1;如果数字<10％检测模式。bbox = facedetector.step（videoframegray）;如果〜Isempty（bbox）％在检测区域内找到角点。点= detectmineigenfeatures（videoframegray，'roi'，bbox（1，:)）;％重新定位点跟踪器。xypoints = points.location;numpts = size（xypoints，1）;释放（PointTracker）;初始化（PointTracker，Xypoints，videoframeGray）;％保存点的副本。旧点= xypoints;％将表示为[x，y，w，h]的矩形转换为一个[X，Y]的四个角坐标的％M-BY-2矩阵。这需要％才能转换边界框以显示％面部的方向。bboxpoints = bbox2points（bbox（1，：））;％将框角转换为[x1 y1 x2 y2 x3 y3 x4 y4]插入形状所需的％格式。bboxPolygon = reshape（bboxpoints'，1，[]）;％在检测到的面周围显示一个边界盒。videoframe = insertshape（videoframe，“多边形”，bboxpolygon，'行宽'，3）;％显示的拐角处。videoframe = insertmarker（videoframe，xypoints，'+'，，，，'颜色'，，，，'白色的'）；结尾别的％跟踪模式。[xypoints，iSfound] = step（pointTracker，videoframegray）;可见点= xypoints（isfound，:);OldInliers = OldPoints（ISFOUND，:);numpts = size（可见点，1）;如果numpts> = 10％估计旧点之间的几何变换％和新点。[xform，inlierIdx] = estimateGeometrictransform2d（...旧的，可见点，'相似'，，，，“ maxdistance'，4）;OldInliers = OldInliers（InlierIdx，:);可见点=可见点（InlierIdx，:);％将转换应用于边界框。bboxpoints = transformpointsforward（xform，bboxPoints）;％将框角转换为[x1 y1 x2 y2 x3 y3 x4 y4]插入形状所需的％格式。bboxPolygon = reshape（bboxpoints'，1，[]）;％在跟踪的面部周围显示一个边界盒。videoframe = insertshape（videoframe，“多边形”，bboxpolygon，'行宽'，3）;％显示跟踪点。videoframe = insertmarker（videoframe，可见点，'+'，，，，'颜色'，，，，'白色的'）；％重置要点。旧点=可见点;设定点（PointTracker，OldPoints）;结尾结尾％使用视频播放器对象显示带注释的视频框架。步骤（videoplayer，videoframe）;％检查视频播放器窗口是否已关闭。runloop = iSopen（videoplayer）;结尾％ 清理。清除凸轮;释放（videoplayer）;释放（PointTracker）;释放（faceDetector）；