照片人臉檢測MATLAB代碼

1、.% 載入圖像Img = imread('star1.jpg');if ndims(Img) = 3I=rgb2gray(Img);elseI = 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', &

2、#39;Bold');hold on;xt, yt = meshgrid(round(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(' 二值圖像 ', 'FontW

3、eight', '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:10y1 = 1; y2 = c; % 對應(yīng)列初始化for j = 1:10if (y2<=c | y2>=9*c) | (x1=1 | x2=r*10)% 如果是在四周區(qū)域loc = find(BW(x1:x2, y1:y2)=0);p, q = size(loc);pr = p/

4、s*100; % 黑色像素所占的比例數(shù)if pr <= 100BW(x1:x2, y1:y2) = 0;endendy1 = y1+c; % 列跳躍y2 = y2+c; % 列跳躍endx1 = x1+r; % 行跳躍x2 = x2+r; % 行跳躍'.endL, num = bwlabel(BW, 8); % 區(qū)域標(biāo)記stats = regionprops(L, 'BoundingBox'); % 得到包圍矩形框Bd = cat(1, stats.BoundingBox);s1, s2 = size(Bd);mx = 0;for k = 1:s1p = Bd(k

5、, 3)*Bd(k, 4); % 寬* 高if p>mx && (Bd(k, 3)/Bd(k, 4)<1.8% 如果滿足面積塊大，而且寬 /高<1.8mx = p;j = k;endendsubplot(2, 2, 4);imshow(I); hold on;rectangle('Position', Bd(j, :), .'EdgeColor', 'r', 'LineWidth', 3);title(' 標(biāo)記圖像 ', 'FontWeight', 'Bol

6、d');if ndims(Img) = 3I=rgb2gray(Img);elseI = 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 = m

7、eshgrid(round(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, n

8、2 = size(BW);r = floor(n1/10); % 分成 10 塊，行c = floor(n2/10); % 分成 10 塊，列x1 = 1; x2 = r; % 對應(yīng)行初始化'.s = r*c; % 塊面積for i = 1:10y1 = 1; y2 = c; % 對應(yīng)列初始化for j = 1:10if (y2<=c | 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 &l

9、t;= 100BW(x1:x2, y1:y2) = 0;endendy1 = y1+c; % 列跳躍y2 = y2+c; % 列跳躍endx1 = x1+r; % 行跳躍x2 = x2+r; % 行跳躍endL, num = bwlabel(BW, 8); % 區(qū)域標(biāo)記stats = regionprops(L, 'BoundingBox'); % 得到包圍矩形框Bd = cat(1, stats.BoundingBox);s1, s2 = size(Bd);mx = 0;for k = 1:s1p = Bd(k, 3)*Bd(k, 4); % 寬* 高if p>mx && (Bd(k, 3)/Bd(k, 4)<1.8% 如果滿足面積塊大，而且寬 /高<1.8mx = p;j = k;endendsubplot(2, 2, 4);imshow(I); hold on;rectangle('Position&