%implay（‘highwayII_raw.avi‘）;
clc;clear?all;close?all;
videoObj?=?VideoReader（‘office.avi‘）;%讀視頻文件
nframes?=?get（videoObj?‘NumberOfframes‘）;%獲取視頻文件幀個數
for?k?=?1?:?nframes
????currentframe?=?read（videoObj?k）;%讀取第i幀
????subplot（221）;%創建圖像顯示窗口并獲取第一個窗口句柄
????imshow（currentframe）;
??
????%?Convert?to?grayscale.
????grayframe?=?rgb2gray（currentframe）;%灰度化
??????[mn]?=?size（grayframe）;
????a（::k）?=?grayframe;
%?????subplot（224）;
%?????imshow（grayframe）;
????if（k==1）
????????grayframe_2?=?grayframe;
????????grayframe_1?=?grayframe;
????????
????end
???
????difgrayframe=?grayframe?-?grayframe_1;%鄰幀差
????grayframe_2?=?grayframe_1;
????grayframe_1?=?grayframe;
?????
????for?i=1:120
????????for?j=1:160
????????????if?difgrayframe（ij）<20?difgrayframe（ij）=0;
????????????end
????????end
????end
????subplot（222）;
????imshow（difgrayframe）;
??
?????flagframe?=?grayframe?&?difgrayframe;
????for?i=1:120
????????for?j=1:160
?????