exchange.m

来自「有兴趣学系matlab的朋友」· M 代码 · 共 31 行

function y=exchange(A)
[m n]=size(A);
i=1;
k=[];
while i<=m
    if any(A(i,1:n))==1
        k=[k,i];
    end     
    i=i+1;
end
A=A(k,1:n);
[a b]=size(k);
B=zeros(m-b,n);
k=[];
l=[];
i=1;
while i<=b
    if A(i,1)~=0
        k=[k,i];
    else
        l=[l,i];
    end
    i=i+1;
end

C=A(k,1:n);
D=A(l,1:n);
A=[C;D;B];
y=A;