人脸定位源码程序 - vb源码程序

下载频道> 资源分类> 编程语言> VB源码> 人脸定位源码程序

标题：人脸定位源码程序
分享到：

所属分类: VB源码资源类型：文件大小: 10.48 KB 上传时间: 2016-01-30 12:38:45 下载次数: 92 资源积分：1分提供者: 源码共享人脸定位源码程序

内容：
人脸定位源码程序，程序员在编程的过程中可以参考学习使用，希望对IT程序员有用，此源码程序简单易懂、方便阅读，有很好的学习价值！

clc

close all;

clear;

I=double(imread('1.jpg'));

% No faces at the beginning

Faces=[];

numFaceFound=0;

I=double(I);

H=size(I,1);

W=size(I,2);

R=I(:,:,1);

G=I(:,:,2);

B=I(:,:,3);

%%%%%%%%%%%%%%%%%% LIGHTING COMPENSATION %%%%%%%%%%%%%%%

YCbCr=rgb2ycbcr(I);

Y=YCbCr(:,:,1);

%normalize Y

minY=min(min(Y));

maxY=max(max(Y));

Y=255.0*(Y-minY)./(maxY-minY);

YEye=Y;

Yavg=sum(sum(Y))/(W*H);

T=1;

if (Yavg<64)

T=1.4;

elseif (Yavg>192)

T=0.6;

end

if (T~=1)

RI=R.^T;

GI=G.^T;

else

RI=R;

GI=G;

end

C=zeros(H,W,3);

C(:,:,1)=RI;

C(:,:,2)=GI;

C(:,:,3)=B;

figure,imshow(C/255);

title('Lighting compensation');

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%%%%%% EXTRACT SKIN %%%%%%%%%%%%%%%%%%%%%%

YCbCr=rgb2ycbcr(C);

Cr=YCbCr(:,:,3);

S=zeros(H,W);

[SkinIndexRow,SkinIndexCol] =find(10<Cr & Cr<45);

for i=1:length(SkinIndexRow)

S(SkinIndexRow(i),SkinIndexCol(i))=1;

end

figure,imshow(S);

title('skin');

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%% REMOVE NOISE %%%%%%%%%%%%%%%%%%%%%%%%%%%%

SN=zeros(H,W);

for i=1:H-5

for j=1:W-5

localSum=sum(sum(S(i:i+4, j:j+4)));

SN(i:i+5, j:j+5)=(localSum>12);

end

figure,imshow(SN);

title('skin with noise removal');

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%% FIND SKIN COLOR BLOCKS %%%%%%%%%%%%%%%%%

L = bwlabel(SN,8);

BB = regionprops(L, 'BoundingBox');

bboxes= cat(1, BB.BoundingBox);

widths=bboxes(:,3);

heights=bboxes(:,4);

hByW=heights./widths;

lenRegions=size(bboxes,1);

foundFaces=zeros(1,lenRegions);

rgb=label2rgb(L);

figure,imshow(rgb);

title('face candidates');

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%% CHECK FACE CRITERIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%

for i=1:lenRegions

% 1st criteria: height to width ratio, computed above.

if (hByW(i)>1.75 || hByW(i)<0.75)

% this cannot be a mouth region. discard

continue;

end

% implemented by me: Impose a min face dimension constraint

if (heights(i)<20 && widths(i)<20)

continue;

end

% get current region's bounding box

CurBB=bboxes(i,:);

XStart=CurBB(1);

YStart=CurBB(2);

WCur=CurBB(3);

HCur=CurBB(4);

% crop current region

rangeY=int32(YStart):int32(YStart+HCur-1);

rangeX= int32(XStart):int32(XStart+WCur-1);

RIC=RI(rangeY, rangeX);

GIC=GI(rangeY, rangeX);

BC=B(rangeY, rangeX);

figure, imshow(RIC/255);

title('Possible face R channel');

% 2nd criteria: existance & localisation of mouth

M=zeros(HCur, WCur);

theta=acos( 0.5.*(2.*RIC-GIC-BC) ./ sqrt( (RIC-GIC).*(RIC-GIC) + (RIC-BC).*(GIC-BC) ) );

theta(isnan(theta))=0;

thetaMean=mean2(theta);

[MouthIndexRow,MouthIndexCol] =find(theta<thetaMean/4);

for j=1:length(MouthIndexRow)

M(MouthIndexRow(j),MouthIndexCol(j))=1;

end

% now compute vertical mouth histogram

Hist=zeros(1, HCur);

for j=1:HCur

Hist(j)=length(find(M(j,:)==1));

end

wMax=find(Hist==max(Hist));

wMax=wMax(1); % just take one of them.

if (wMax < WCur/6)

%reject due to not existing mouth

continue;

end

figure, imshow(M);

title('Mouth map');

% 3rd criteria: existance & localisation of eyes

eyeH=HCur-wMax;

eyeW=WCur;

YC=YEye(YStart:YStart+eyeH-1, XStart:XStart+eyeW-1);

E=zeros(eyeH,eyeW);

[EyeIndexRow,EyeIndexCol] =find(65<YC & YC<80);

for j=1:length(EyeIndexRow)

E(EyeIndexRow(j),EyeIndexCol(j))=1;

end

% check if eyes are acceptable.

EyeExist=find(Hist>0.3*wMax);

if (~(length(EyeExist)>0))

continue;

end

foundFaces(i)=1;

numFaceFound=numFaceFound+1;

end

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

disp('Number of faces found');

numFaceFound;

% if (numFaceFound>0)

% disp('Indices of faces found: ');

% ind=find(foundFaces==1);

% CurBB=bboxes(ind,:);

% CurBB

% else

% close all;

% end

文件列表（点击上边下载按钮，如果是垃圾文件请在下面评价差评或者投诉）:

人脸定位源码程序/
人脸定位源码程序/detect_face/
人脸定位源码程序/detect_face/1.jpg
人脸定位源码程序/detect_face/detect_face.m

关键词：人脸 源码 程序

编程语言下载排行

回到顶部

友情链接

matlab源码网站源码编程语言网络编程手机通讯编程 KUNAG 官网 KUNAG 电商更多

: 联系方式| 版权声明| 招聘信息| 广告服务| 银行汇款| 法律顾问| 兼职技术| 付款方式| 关于我们|; 网站客服程序员兼职招聘 411241577@qq.com; 沪ICP备19040327号-3; 公安备案号：沪公网安备 31011802003874号; 库纳格流体控制系统（上海）有限公司版权所有; Copyright © 1999-2014, GUSUCODE.COM, All Rights Reserved

关键词： 人脸 源码 程序

相关推荐

编程语言下载排行

友情链接

关键词：人脸源码程序