function C=GUinf2(len,A1,A2,R)
% inferenza con MaxMin   GU 3/03
C=[];
for indZ=1:len;
    for indX1=1:len
        for indX2=1:len
            qq(indX1,indX2)=min( min(A1(indX1),A2(indX2)), R(indX1,indX2,indZ));
        end
    end
    C(indZ)=max(max(qq));
end