% IFAM Adjunta de Lukasiewicz...

clear;
load faces;

W = maxJ_L(X,X'); 

yIFAMad_L=maxJ_L(Xin',W)';

figure(3); clf;
for i=1:size(yIFAMad_L,2)
	subplot(4,6,i); imshow(reshape(yIFAMad_L(:,i),s1,s2));
	disp(sprintf('%.4f',norm(yIFAMad_L(:,i)-X(:,1))/norm(X(:,1))));
end
print -deps facesIFAMad_L.eps