function Y=corte(A,B)
% Y=corte(A,B) da la matriz mxn Y a partir de las matrices booleanas mxn A y B.
%               donde Y(i,j)=A(i,j) & B(i,j). El operador & es AND.

a=size(A); b=size(B);

if a~=b,
      error ('Las matrices son de dimensiones diferentes')
end

for i=1:a(1)
      for j=1:a(2)
            Y(i,j)=A(i,j) & B(i,j);
      end
end
