mean_h.m

来自「高速公路路面质量改进方案 采用matlab编程 达到了稳定点」· M 代码 · 共 20 行

function s=mean_h(a)
%处理除0外的均值
%clear
[m n]=size(a);
if(n~=1 & m~=1)
    display(a);
end
len=0;
for i=1:max(m,n)
    if(a(i))
        len=len+1;
        b(len)=a(i);
    end
end
if(len==0)
    s=0;
else
    s=mean(b);
end