Hopcroft-Karp

function AA=hopcroft(A)
% load BA1.mat
% A=matrix;
% clear matrix
m=size(A,1);n=size(A,2);
M(m,n)=0;
for(i=1:m)
    for(j=1:n)
        if(A(i,j))
            M(i,j)=1;
            break;
        end;
    end %求初始匹配M
if(M(i,j))
    break;
end;
end %获得仅含一条边的初始匹配M
while(1)
     for(i=1:m)
         x(i)=0;
     end %将记录X中点的标号和标记*
     for(i=1:n)
         y(i)=0;
     end %将记录Y中点的标号和标记*
     for(i=1:m)
         pd=1; %寻找X中M的所有非饱和点
        for(j=1:n)
            if(M(i,j))pd=0;
            end;
        end