function R=GUrule2(len,A1,A2,B)
% costruisce una regola con Goedel    GU 3/03
for indZ=1:len;
    for indX1=1:len
        for indX2=1:len
            if min(A1(indX1),A2(indX2))<=B(indZ),
                R(indX1,indX2,indZ)=1;
            else
                R(indX1,indX2,indZ)=B(indZ);
            end
        end
    end
end