Question

please write a MATLAB code for Facial Expression Recognition. Thanks for the help.

Answer 1

ANSWER:-

%% This program is written by Md., Iftekhar Tanveer ([email protected]) %% Many conceptions here are taken from: SS M. Turk and A. Pent land, "Eigenfaces for Recognition", Journal of % Cognitive Neuroscience, March 1991 %% If the 'cropped, or 'Test-cropped, folder is not ready, run crop-Face. m 656 %% This code requires the following toolboxes: %1. Image Processing Toolbox (For Resizing Image) 9%% 2. Statistics Too1box (For PCA) function [íssucceed] EigenFace(strTrainPath, strLabelFile, strTestPath) dispThis Program is written by Md. Iftekhar Tanveer ([email protected] ); disp Copyleft 2009' issucceed 0 if (exist('strTrainPath)-0) strTrainPath input('Enter Train Folder Name:, 's: end if (exist('strLabelFile")0) strLabe1File input('Enter Label File Name:,'s: end if (exist('strTestpath-0) strTestPath input( Enter Test Folder Name:', s): end fid-fopen(strLabelFile) imageLabel-text scan(f fclose(fid); , %s %s, whitespace . , .); NeutralImages ] for i=1:length(1mageLabel {1,1)) if (strcmp(lower (aeabel12,1neutral )) NeutralImages [NeutralImages,i]; end end if (length(NeutralImages)0) dispC ERROR: Neutral Expression is not available in training return; end structTestimages = dir(strTestPath); num! mage-length(imageLabel {1,1)); % Total lenTestTength(structTestImages) observations: Number of Images in training set if (lenTest0)

disp( Error Invalid Test Folder return end Train!mages=" " ; for i-1:numImage TrainImagesi,1strcat (strTrainPath, 'mageLabel1,130i)) end -0 or i 3:1enTest if ((-structTestImages (i)isdir)) if (structTestImages (i).name (end-3:end)pg') TeštImagesij,1 [strTestPath, '\,structTestImages (i).name] end end end numTestimage = j; % Number of Test Images clear 'structTestImages fid', 'i,'jpack imagesize- [280,180]; % All Images are resized into a common size Loading training images & preparing for PCA by subtracting mean img- zeros (imagesize(1)imagesize(2), numImage); fori 1:numImage aa imresize(detect face(imresize imread ce112mat (TrainImagesi,13),375,3001)ize); disp(sprintf ('Loading Train end # %d.)); Image meanImagemean(img,2); img- (ing meanimage*ones (1, num!mage))'; % ima is the input to PCA - 9SK ff####### #######ff Low Dimension Face Space Construction ## ## ###### ## [C, S, L]-princomp (img," econ"); % Performing PCA Here Eigenranges [1:30];% Defines which Eigenvalues will be selected C-cC:,EigenRange 96%并#*########## Load Test Data and proiect on Face Space #*#########并并并## img zeros (imagesize(1)*imagesize(2), numTestImage); for i = 1:numTestimage да imresize(detect-face(inresize(inread(Test Images[1,1), [375,300])), imagesize) ; img(:,i)-aa(:); disp(sprintf ("Loading Test Image # %d", i)); end