recognitionolpp.m

Face recognition using webcam and this data.if the person exist means its gives the serial data out.

function [kl, Euc_dist] = Recognitionolpp(TestImage, m, A, eigvector, eigvalue, Y); 
ProjectedImages = [];
Train_Number = size(Y,2);
for i = 1 : Train_Number
    temp = Y'*A(:,i); % Projection of centered images into facespace
    ProjectedImages = [ProjectedImages temp]; 
end
InputImage = imread(TestImage);
temp = InputImage(:,:,1);

[irow icol] = size(temp);
InImage = reshape(temp',irow*icol,1);
Difference = double(InImage)-m; % Centered test image
ProjectedTestImage = Y'*Difference; % Test image feature vector

%%%%%%%%%%%%%%%%%%%%%%%% Calculating Euclidean distances 
% Euclidean distances between the projected test image and the projection
% of all centered training images are calculated. Test image is
% supposed to have minimum distance with its corresponding image in the
% training database.

Euc_dist = [];
for i = 1 : Train_Number
    q = ProjectedImages(:,i);
    temp = ( norm( ProjectedTestImage - q ) )^2;
    Euc_dist = [Euc_dist temp];
end

kl=min(Euc_dist)*(1e-012);