msentropy.m

多尺度采样熵计算程序,该程序结合采样熵程序可以计算在多尺度条件下的熵的结果

function e=msentropy(x,m,r)
a=length(x)
for i=1:1:m
    b=fix(a/i);
    for j=1:1:b
        y(j)=sum(x((j-1)*i+1:j*i))/i;
    end
    length(y)
   [E,se,A,B]=sampen(y,1,r);
   e(i)=E;
   y=[];
end