tracking.m

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）< 0.1）
%                  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）