function?d?=?tracking（video）
if?ischar（video）
????%?Load?the?video?from?an?avi?file.
????avi?=?aviread（video）;
????pixels?=?double（cat（4avi（1:2:end）.cdata））/255;
????clear?avi
else
????%?Compile?the?pixel?data?into?a?single?array
????pixels?=?double（cat（4video{1:2:end}））/255;
????clear?video
end

%?Convert?to?RGB?to?GRAY?SCALE?image.
nframes?=?size（pixels4）;
for?f?=?1:nframes

%?????F?=?getframe（gcf）;
%?????[xmap]=frame2im（F）;
%?????imwrite（x‘fln.jpg‘‘jpg‘）;
%?end
????pixel（::f）?=?（rgb2gray（pixels（:::f）））;??
end
rows=240;
cols=320;?
nrames=f;
for?l?=?2:nrames
d（::l）=（abs（pixel（::l）-pixel（::l-1）））;

k=d（::l）;
%?imagesc（k）;
%?drawnow;
%?himage?=?imshow（‘d（::l）‘）;
%?hfigure?=?figure;
%?impixelregionpanel（hfigure?himage）;

%?datar=imageinfo（imagesc（d（::l）））;
%?disp（datar）;


???bw（::l）?=?im2bw（k?.2）;
???
???bw1=bwlabel（bw（::l））;
???imshow（bw（::l））
???hold?on
???
%?%????for?h=1:rows
%?????for?w=1:cols
%?????????????????????????
%?????????????if（d（::l）%??????????????????d（hwl）=0;
%????????????end
%?????end
%???
%?end
???
%?%?disp（d（::l））;
%?%?size（d（::l））
cou=1;
for?h=1:rows
????for?w=1:cols
?????if（bw（hwl）>0.5）
????????
????????
%??????????disp（d（hwl））;
??????toplen?=?h;
??????
?????????????if?（cou?==?1）
?????????