quling.m

来自「matlab版本的apriori源代码 matlab版本的apriori源代码 」· M 代码 · 共 21 行

function y=quling(a)     % 该程序把矩阵中全为0的行和列删掉
[m,n]=size(a);
jihao1=[];
jihao2=[];
for k=n:-1:1
    if a(:,k)==0
        jihao2=[jihao2,k];
    else
        break;
    end
end
for k=m:-1:1
    if a(k,:)==0
        jihao1=[jihao1,k];
    else
        break;
    end
end
a(:,jihao2)=[];
y=a;
y(jihao1,:)=[];