作者tentenlee (天天)
看板PCCU-CS
标题[废文] 载借贴
时间Tue Dec 2 02:28:02 2008
clear all;
mov=aviread('vipmen.avi'); %读图
frame = mov(10).cdata; %选取第10张
imwrite(frame,'x.jpg'); %存成x.jpg
for x=1:5:283;
frame = mov(x).cdata; %选取第40张
imwrite(frame,'y.jpg'); %存成y.jpg
A = imread('x.jpg'); %将x.jpg设成A
I = rgb2gray(A); %将A转成灰阶图之後存入I
B = imread('y.jpg'); %将y.jpg设成B
J = rgb2gray(B); %将B转成灰阶图之後存入J
C = imsubtract(I,J); %再把J减去I的值存入C
se = strel('disk',10);
C1 = imdilate(C,se);
se = strel('ball',5,7);
C2 = imerode(C1,se);
C2(C2>=30)=255; % fc的判断式,是人的为白色
C2(C2~=255)=0;
L = bwlabel(C2,8);
aaa=max(max(L));
for i=1:aaa
[r,c] = find(L==i);
rc = [r c];
for k=min(r):max(r);
B( k ,min(c))=255; %左
B( k ,max(c))=255; %右
end
for k=min(c):max(c);
B(min(r),k )=255; %上
B(max(r),k )=255; %下
end
imshow(B);
m( x )=getframe
aa=max(r);%最低
ab=min(r)%最高
ac=max(c)%最右
ad=min(c)%最左
end
end
movie(m)
%stats=regionprops(L,'Area'); % 找出相同的并统计
%allArea=[stats.Area];
%tt=max(allArea); % 找出最大的区块
%idx=find(allArea==tt);
%bw2=ismember(L,idx);
%figure, imshow(B)
%pixval on;
那个....
别偷呀~~仅供参考~~ 为什麽写得出来我也不知道....
--
http://www.wretch.cc/album/tentenboy
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.64.144.10