[廢文] 載借貼
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
討論串 (同標題文章)