var_h.asv

高速公路路面质量改进方案 采用matlab编程 达到了稳定点

function s=var_h(a)
%处理除0外的均值
[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=var(b);