matlab语种识别,matlab语言翻译 大家帮帮忙，急急急！！！ 关于运动检测的。。。...

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

function d = tracking(video)

if ischar(video)

% Load the video from an avi file.

avi = aviread(video);

pixels = double(cat(4,avi(1:2:end).cdata))/255;

clear avi

else

% Compile the pixel data into a single array

pixels = double(cat(4,video{1:2:end}))/255;

clear video

end

% Convert to RGB to GRAY SCALE image.

nFrames = size(pixels,4);

for f = 1:nFrames

%      F = getframe(gcf);

%      [x,map]=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(h,w,l)=0;

%             end

%      end

%

% end

% % disp(d(:,:,l));

% % size(d(:,:,l))

cou=1;

for h=1:rows

for w=1:cols

if(bw(h,w,l)>0.5)

%           disp(d(h,w,l));

toplen = h;

if (cou == 1)

tpln=toplen;

end

cou=cou+1;

break

end

end

end

disp(toplen);

coun=1;

for w=1:cols

for h=1:rows