照片人臉檢測MATLAB代碼

1、.% 載入圖像Img = imread(star1.jpg);if ndims(Img) = 3 I=rgb2gray(Img);else I = Img;endBW = im2bw(I, graythresh(I); % 二值化figure;subplot(2, 2, 1); imshow(Img);title(原圖像, FontWeight, Bold);subplot(2, 2, 2); imshow(Img);title(網(wǎng)格標(biāo)記圖像, FontWeight, Bold);hold on;xt, yt = meshgrid(round(linspace(1, size(I, 1), 1

2、0), . round(linspace(1, size(I, 2), 10);mesh(yt, xt, zeros(size(xt), FaceColor, . None, LineWidth, 3, . EdgeColor, r);subplot(2, 2, 3); imshow(BW);title(二值圖像, FontWeight, Bold);n1, n2 = size(BW);r = floor(n1/10); % 分成10塊，行c = floor(n2/10); % 分成10塊，列x1 = 1; x2 = r; % 對應(yīng)行初始化s = r*c; % 塊面積 for i = 1:10

3、 y1 = 1; y2 = c; % 對應(yīng)列初始化 for j = 1:10 if (y2=9*c) | (x1=1 | x2=r*10) % 如果是在四周區(qū)域 loc = find(BW(x1:x2, y1:y2)=0); p, q = size(loc); pr = p/s*100; % 黑色像素所占的比例數(shù) if pr mx & (Bd(k, 3)/Bd(k, 4)1.8 % 如果滿足面積塊大，而且寬/高1.8 mx = p; j = k; endendsubplot(2, 2, 4);imshow(I); hold on;rectangle(Position, Bd(j, :), .

4、EdgeColor, r, LineWidth, 3);title(標(biāo)記圖像, FontWeight, Bold); if ndims(Img) = 3 I=rgb2gray(Img);else I = Img;endBW = im2bw(I, graythresh(I); % 二值化figure;subplot(2, 2, 1); imshow(Img);title(原圖像, FontWeight, Bold);subplot(2, 2, 2); imshow(Img);title(網(wǎng)格標(biāo)記圖像, FontWeight, Bold);hold on;xt, yt = meshgrid(rou

5、nd(linspace(1, size(I, 1), 10), . round(linspace(1, size(I, 2), 10);mesh(yt, xt, zeros(size(xt), FaceColor, . None, LineWidth, 3, . EdgeColor, r);subplot(2, 2, 3); imshow(BW);title(二值圖像, FontWeight, Bold);n1, n2 = size(BW);r = floor(n1/10); % 分成10塊，行c = floor(n2/10); % 分成10塊，列x1 = 1; x2 = r; % 對應(yīng)行初始化s = r*c; % 塊面積 for i = 1:10 y1 = 1; y2 = c; % 對應(yīng)列初始化 for j = 1:10 if (y2=9*c) | (x1=1 | x2=r*10) % 如果是在四周區(qū)域 loc = find(BW(x1:x2, y1:y2)=0); p, q = size(loc); pr = p/s*100; % 黑色像素所占的比例數(shù) if pr mx & (Bd(k, 3)/Bd(k, 4)1.8 % 如果滿足面積塊大，而且寬/高1.8 mx = p; j = k; endendsubplot(2, 2, 4);imshow(I); hold