zhengli.m

来自「哈夫曼的MATLAB实现」· M 代码 · 共 18 行

function f=zhengli(a)
L=length(a);
pp=0;
for y=1:L
    if a(y)>=0
        pp=pp+1;
    end
end
g=zeros(1,pp);
j=1;
for i=1:L
    if a(L+1-i)>=0
        g(j)=a(L+1-i);
        j=j+1;
    end
end
f=g;