％创建面部探测器对象。FaceDetector = Vision.cascadeObjectDetector（）;％创建点跟踪器对象。pointtracker = Vision.PointCracker（'maxbidirectionalerror'，2）;％创建网络摄像头对象。凸轮=网络摄像头（）;％捕获一帧以获得其大小。视频rame =快照（Cam）;Framesize = size（视频rame）;％创建视频播放器对象。VideoPlayer = Vision.videoplayer（'位置'，[100 100 [框架（2），帧质化（1）] + 30）;

runloop = true;numpts = 0;framecount = 0;尽管Runloop && framecount <400％得到下一帧。视频rame =快照（Cam）;videoframegray = rgb2gray（视频rame）;framecount = framecount + 1;如果numpls <10％检测模式。bbox = facedetector.step（视频ramegray）;如果〜isempty（bbox）％找到检测到的区域内的角点。点=侦听（VideoframeGray，'roi'，bbox（1，:)）;％重新初始化点跟踪器。xypoints = points.location;numpts = size（xypoints，1）;释放（PointTracker）;初始化（PointTracker，Xypoints，VideoframeGray）;％保存点的副本。oldPoints = Xypoints;％将表示为[x，y，w，h]表示为的矩形[x，y]四个角的％m-by-2矩阵。这需要％以便能够将边界框转换为显示％面部的方向。bboxpoints = bbox2points（bbox（1，:)）;％将框角转换为[x1 y1 x2 y2 x3 y3 x4 y4]InsertShape所需的％格式。BboxPolygon = Rehape（BboxPoints'，1，[]）;％在检测到的面周围显示边界框。视频rame = insertshape（视频rame，'多边形'，bboxpolygon，'行宽'，3）;％显示检测到的角落。视频rame = InsertMarker（视频帧，XYPOINTS，'+'那'颜色'那'白色的'）;结尾别的％跟踪模式。[Xypoints，ISFound] =步骤（PointTracker，VideoframeGray）;VisiblePoints = XYPOINTS（ISFOUND，:);oderinliers = oldPoints（isfound，:);numpts = size（visiblepoints，1）;如果numpts> = 10％估计旧点之间的几何变换％和新点。[XForm，oddininliers，VisiblePoints] = estImateGeometricTransform（......旧单，观光点，'相似'那'maxdistance'4）;％将转换应用于边界框。bboxpoints = TransformPointSforward（XForm，BboxPoints）;％将框角转换为[x1 y1 x2 y2 x3 y3 x4 y4]InsertShape所需的％格式。BboxPolygon = Rehape（BboxPoints'，1，[]）;％在被跟踪的脸部周围显示一个边界框。视频rame = insertshape（视频rame，'多边形'，bboxpolygon，'行宽'，3）;％显示跟踪点。视频rame = InsertMarker（视频帧，visiblepoints，'+'那'颜色'那'白色的'）;％重置点。OldPoints = VisiblePoints;设定值（PointTracker，OldPoints）;结尾结尾％使用Video Player对象显示带注释的视频帧。步骤（Videoplayer，Videoframe）;％检查视频播放器窗口是否已关闭。Runloop = Inopen（视频播放器）;结尾％ 清理。清除cam;释放（Videoplayer）;释放（PointTracker）;释放（FaceDetector）;