% Recall using Lukasiewicz IFAM...

clear;
load faces;

W = minI_L(X,X'); theta=min(X,[],2);

% Para efeitos computacionais!
Theta=[]; 
for i=1:size(Xin,2)
	Theta=[Theta,theta];
end
	
yIFAM_L=max(maxC_L(W,Xin),Theta);
disp('Lukasiewicz IFAM test - concluded');

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